Ruby, 292 276 186 chars

x,y,r=gets.scan(/\d+/).map{|z|z.to_i};s=(-r..r);s.each{|a|s.each{|b|g=Math::atan2(-a,b)/Math::PI*180/1%360;print a|b==0?'o':g==x||g==y%360?'-/|\\'[g/45%4].chr: (x..y)===g ?'*':' '};puts}

Более приятная версия:

x, y, r = gets.scan(/\d+/).map{|z| z.to_i}
s = (-r..r)
s.each {|a|
    s.each {|b|
        g = (((Math::atan2(-a,b) / Math::PI) * 180) / 1) % 360
        print ((a | b) == 0) ? 'o' :
            (g == x || g == (y % 360)) ? '-/|\\'[(g / 45) % 4].chr :
                ((x..y) === g) ? '*' : ' '
    }
    puts
}

Я уверен, что кто-то, кто спал больше, чем я, может сжать это больше...

Правка 1: Заменил if операторы во внутреннем цикле на вложенные ? : оператор

Правка 2: Сохранение диапазона в промежуточную переменную (спасибо Adrian), использование stdin вместо CLI params (спасибо за разъяснение Jon), устранение массива в пользу прямого вывода, исправлена ошибка, когда угол окончания 360 не отображал линию, удалены ненужные круглые скобки, использование деления для округления вместо .round, использование modulo вместо условного add

Perl - 388 символов

Поскольку было бы нечестно ставить задачу, которую я не смог бы решить сам, вот решение, использующее подстановку строк вместо тригонометрических функций, и активно использующее способность вашего дружелюбного соседа Perl рассматривать простые слова как строки. Оно обязательно будет немного длинным, но, возможно, интересным ради уникальности:

($x,$y,$r)=split/\D/,<>;for(0..$r-1){$t=$r-1-$_;
$a.=L x$_.D.K x$t.C.J x$t.B.I x$_."\n";
$b.=M x$t.F.N x$_.G.O x$_.H.P x$t."\n"}
$_=$a.E x$r.o.A x$r."\n".$b;$x/=45;$y/=45;$S=' ';
sub A{$v=$_[0];$x==$v||$y==$v?$_[1]:$x<$v&&$y>$v?x:$S}
sub B{$x<=$_[0]&&$y>$_[0]?x:$S}
@a=!$x||$y==8?'-':$S;
push@a,map{A$_,'\\'.qw(- / | \\)[$_%4]}1..7;
push@a,!$x?x:$S,map{B$_}1..7;
eval"y/A-P/".(join'',@a)."/";print

Все новые строки необязательны. Все довольно просто:

• Получение пользовательского ввода.
• Строим верхнюю ($a) и нижнюю ($b) части шаблона.
• Постройте полную деталь ($_).
• Определите sub A, чтобы получить символ заливки для угла.
• Определите sub B, чтобы получить символ заливки для области.
• Постройте массив (@a) символов подстановки, используя A и B.
• Выполните подстановку и выведите результаты.

Созданный формат выглядит следующим образом, для R = 4:

DKKKCJJJB
LDKKCJJBI
LLDKCJBII
LLLDCBIII
EEEEoAAAA
MMMFGHPPP
MMFNGOHPP
MFNNGOOHP
FNNNGOOOH

Где A-H обозначают углы, а I-P - области.

(Признаться, это можно было бы сделать и дальше. Операции над @a дали неверный результат, когда были записаны в виде одного списка, предположительно это связано с тем, как map играет с $_)

MATLAB 7.8. 0 (R2009a) - 168 163 162 символа

Начиная с ответа Jacob'а и вдохновленный gwell'ом, использующим любой не пробельный символ для заполнения дуги, я получил следующее решение:

[w x r]=strread(input('','s'),'%d-%d%d');
l='o -/|\-/|\-';
X=meshgrid(-r:r);
T=atan2(-X',X)*180/pi;
T=T+(T<=-~w)*360;
T(T>x|T<w)=-1;
T(r+1,r+1)=-90;
disp(l(fix(3+T/45)))

И немного тестового вывода:

>> arc
0-135 4
\||||////
 \|||///-
  \||//--
   \|/---
    o----

Я мог бы сократить его до 156 символов, удалив вызов disp, но это добавило бы дополнительный ans = перед выводом (что может нарушить правила форматирования вывода).

Тем не менее, мне кажется, что есть способы уменьшить это еще больше. ;)

Mathematica 100 Chars

Вне конкуренции, потому что графика слишком совершенна :)

  f[x_-y_ z_]:=Graphics@Table[
                 {EdgeForm@Red,Disk[{0,0},r,{x °,y °}],{r,z,1,-1}]
                 SetAttributes[f,HoldAll]

Вызвать с f[30-70 5]

Result

alt text http://a.imageshack.us/img80/4294/angulosgolf.png

alt text http://a.imageshack.us/img59/7892/angulos2.png

Note

The SetAttributes[f, HoldAll];

необходим, потому что входные данные

    f[a-b c] 

иначе интерпретируются как

    f[(a-b*c)]

C # - 325 319 символов

using System;class P{static void Main(){var s=Console.ReadLine().Split(' ');
var d=s[0].Split('-');int l=s[1][0]-48,x,y,r,a=int.Parse(d[0]),b=int.Parse(d[1]);
for(y=l;y>=-l;y--)for(x=-l;x<=l;)Console.Write((x==0&&y==0?'o':a<=(r=((int)
(Math.Atan2(y,x)*57.3)+360)%360)&&r<b||r==b%360?
@"-/|\"[r/45%4]:' ')+(x++==l?"\n":""));}}

Новые строки не имеют значения.

Пример ввода / вывода

45-180 8
\||||||||////////
\\|||||||///////
\\\||||||//////
\\\\|||||/////
\\\\\||||////
\\\\\\|||///
\\\\\\\||//
\\\\\\\\|/
--------o

135-360 5
\
\\
\\\
\\\\
\\\\\
-----o-----
----/|\\\\\
---//||\\\\
--///|||\\\
-////||||\\
/////|||||\

Java - 304 символа

class A{public static void main(String[]a){String[]b=a[0].split("-");int e=new Integer(b[1]),r=new Integer(a[1]),g,x,y=r;for(;y>=-r;y--)for(x=-r;x<=r;)System.out.print((x==0&y==0?'o':new Integer(b[0])<=(g=((int)(Math.atan2(y,x)*57.3)+360)%360)&g<e|g==e%360?"-/|\\".charAt(g/45%4):' ')+(x++<r?"":"\n"));}}

Более читаемая версия:

class A{
 public static void main(String[]a){
  String[]b=a[0].split("-");
  int e=new Integer(b[1]),r=new Integer(a[1]),g,x,y=r;
  for(;y>=-r;y--)for(x=-r;x<=r;)System.out.print((
   x==0&y==0
    ?'o'
    :new Integer(b[0])<=(g=((int)(Math.atan2(y,x)*57.3)+360)%360)&g<e|g==e%360
     ?"-/|\\".charAt(g/45%4)
     :' '
   )+(x++<r?"":"\n"));
 }
}

C (902 byte)

В нем не используются тригонометрические функции (как в исходной версии perl), поэтому он довольно "раздут". Так или иначе, вот мой первый код-гольф:

#define V(r) (4*r*r+6*r+3)
#define F for(i=0;i<r;i++)
#define C ;break;case
#define U p-=2*r+2,
#define D p+=2*r+2,
#define R *++p=
#define L *--p=
#define H *p='|';
#define E else if
#define G(a) for(j=0;j<V(r)-1;j++)if(f[j]==i+'0')f[j]=a;
#define O(i) for(i=0;i<2*r+1;i++){
main(int i,char**v){char*p,f[V(8)];
int j,m,e,s,x,y,r;p=*++v;x=atoi(p);while(*p!=45)p++;
char*h="0123";y=atoi(p+1);r=atoi(*++v);
for(p=f+2*r+1;p<f+V(r);p+=2*r+2)*p=10;
*(p-2*r-2)=0;x=x?x/45:x;y/=45;s=0;e=2*r;m=r;p=f;O(i)O(j)
if(j>e)*p=h[0];E(j>m)*p=h[1];E(j>s)*p=h[2];else*p=h[3];p++;}
if(i+1==r){h="7654";m--;e--;}E(i==r){s--;}E(i>r){s--;e++;}
else{s++;e--;}p++;}for(p=f+V(r)/2-1,i=0;i<r;i++)*++p=48;
for(i=0;i<8;i++)if(i>=x&&i<y){G(64);}else G(32);
y=y==8?0:y;q:p=f+V(r)/2-1;*p='o';switch(x){
C 0:F R 45 C 1:F U R 47 C 2:F U H C 3:F U L 92
C 4:F L 45 C 5:F D L 47 C 6:F D H C 7:F D R 92;}
if(y!=8){x=y;y=8;goto q;}puts(f);}

Кроме того, #define выглядят довольно уродливо, но они экономят около 200 байт, поэтому я все равно их оставил. Он соответствует ANSI C89/C90 и компилируется с очень небольшим количеством предупреждений (два о atoi и puts и два об искаженной форме main).