[nemo_the_capitain@vk]

немного покопался, получилось:

Код:

uses graphabc;
var x,y:integer; pov:integer;
begin
setpenwidth (3);
centerwindow;
SetCoordinateOrigin (300,250);
line (-200,0,200,0);
line (0,200,0,-200);
Arc(0,0,150,360,0);
pen.color:=clred;
writeln ('Введите угол поворота');
readln (pov);
Arc(0,0,150,pov,0);
lineto (0,0);
end.

но как провести линию от конца дуги в центр координат?

[Tau_0]

при задании угла 1 точка перемещается аж на целых 60. Как сделать при введении pov:=1 поворот на 1 градус? »

Так и должно быть, Угол поворота задаётся в радианах, а не в градусах, минутах, секундах...
Просто посмотрел деЦкий пример (там ВСЁ Вам нужное есть), что и Вам советую...
Процедуры MoveTo и LineTo.
http://mojainformatika.ru/paskal/uro...-i-lineto.html

ЗЫ Никогда не кодировал на Pascal, --- только на Modula-2 дело было..

[nemo_the_capitain@vk]

Tau_0, это на TURBO Pascal. У меня стоит PascalABC.Net

[Tau_0]

это на TURBO Pascal. У меня стоит PascalABC.Net »

Это неважно, --- Вы творчески смысл примерчика прммените ....
И с полярными координатами разберитесь, См. в Вики..
http://ru.wikipedia.org/wiki/Полярная_система_координат

ЗЫ Мне когда-то Аналитическую геометрию в первом семестре первого курса читали.

[nemo_the_capitain@vk]

Tau_0, Спасибо

[nemo_the_capitain@vk]

Все, я решил!Работа с графикой в PascalABC.net (pdf)
Если вместо переменной Arc вписать Pie, то рисуется сектор круга, ограниченный дугой.