| nemo_the_capitain@vk |
01-02-2013 16:29 2080257 |
ABCGraph проблема с типами переменных
Пытался реализовать графическое построение поворота точки вокруг начала координат
Код:
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 |
01-02-2013 17:04 2080286 |
немного покопался, получилось:
Код:
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.
но как провести линию от конца дуги в центр координат? |
Цитата:
Цитата nemo_the_capitain@vk
при задании угла 1 точка перемещается аж на целых 60. Как сделать при введении pov:=1 поворот на 1 градус? »
|
Так и должно быть, Угол поворота задаётся в радианах, а не в градусах, минутах, секундах...
Просто посмотрел деЦкий пример (там ВСЁ Вам нужное есть), что и Вам советую...
Процедуры MoveTo и LineTo.
http://mojainformatika.ru/paskal/uro...-i-lineto.html
ЗЫ Никогда не кодировал на Pascal, --- только на Modula-2 дело было.. |
| nemo_the_capitain@vk |
02-02-2013 00:08 2080563 |
Tau_0, это на TURBO Pascal. У меня стоит PascalABC.Net
|
Цитата:
Цитата nemo_the_capitain@vk
это на TURBO Pascal. У меня стоит PascalABC.Net »
|
Это неважно, --- Вы творчески смысл примерчика прммените ...:).
И с полярными координатами разберитесь, См. в Вики..
http://ru.wikipedia.org/wiki/Полярная_система_координат
ЗЫ Мне когда-то Аналитическую геометрию в первом семестре первого курса читали. |
| nemo_the_capitain@vk |
02-02-2013 14:57 2080843 |
Tau_0, Спасибо :)
|
| nemo_the_capitain@vk |
03-02-2013 18:55 2081734 |
|
Время: 20:39.
© OSzone.net 2001-
