Delphi - [решено] 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]

Цитата nemo_the_capitain@vk:



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

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

Так и должно быть, Угол поворота задаётся в радианах, а не в градусах, минутах, секундах...

Просто посмотрел деЦкий пример (там ВСЁ Вам нужное есть), что и Вам советую...

Процедуры MoveTo и LineTo.

http://mojainformatika.ru/paskal/uro...-i-lineto.html

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

[nemo_the_capitain@vk]

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

[nemo_the_capitain@vk]

Цитата nemo_the_capitain@vk:



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

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

Это неважно, --- Вы творчески смысл примерчика прммените ....

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

http://ru.wikipedia.org/wiki/Полярная_система_координат

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

[nemo_the_capitain@vk]

Tau_0, Спасибо

[nemo_the_capitain@vk]

Все, я решил!

Работа с графикой в PascalABC.net (pdf)

Если вместо переменной Arc вписать Pie, то рисуется сектор круга, ограниченный дугой.