[решено] ABCGraph проблема с типами переменных

[nemo_the_capitain@vk]

Пытался реализовать графическое построение поворота точки вокруг начала координат

uses graphabc;
var x0,y0,x,y:single;
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);
x:= round (150*cos(pov));
y:= round (150*sin(pov));
writeln (x,y);
line (x0,y0,x,y);
end.

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

[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/uroki-paskal-grafika/53-grafika-v-paskal-prczedury-moveto-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) (http://mmcs.sfedu.ru/~ulysses/Edu/IT101/PABC_Graph.pdf)
Если вместо переменной Arc вписать Pie, то рисуется сектор круга, ограниченный дугой.