Вращение точки по окружности

[BloodMaX]

Задача такова
ииспользуем координатную основу
нужно сделать программу которая будет выдовать координаты X,Y для точки вращающейся по окружности допустим точка начальная 0,5 если радиус 5 то след какая будет, по какой формуле например если по 10 градусов точку перемещать? вобщем цикл с вводимым радиусом должен получится и даст точки для 36 или 360 положений как угодно

[BloodMaX]

Program pr;
Const r=80;
Var x,y,i:integer; t:real;
Begin
For i:=1 to 360 do
Begin t:=i*pi/180;
x:=Round(r*cos(t))+Getmaxx div 2;
y:=Round(r*sin(t))+Getmaxy div 2;
PutPixel(x,y,15); Delay(100);
PutPixel(x,y,0)
End;
End.

что то нашел но getmaxx и getmaxy это непонятно что за значения

[Serge_Bliznykov]

умножая радиус на cos и sin угла получите нужные координаты по осям..

оп-с.. опоздал..

что то нашел но getmaxx и getmaxy это непонятно что за значения

это максимальное количество точек по оси X и оси Y соответственно.
здесь используется, чтобы рисовалось вокруг центра экрана (центр экрана == центру вращения).

[Levsha100]

Getmaxx div 2
Getmaxy div 2

Это координаты центра окружности, видимо Getmaxx / Getmaxy максимальные размеры рабочей области, например изображения.

[Serebro]

Сообщение от BloodMaX

Program pr;
Const r=80;
Var x,y,i:integer; t:real;
Begin
For i:=1 to 360 do
Begin t:=i*pi/180;
x:=Round(r*cos(t))+Getmaxx div 2;
y:=Round(r*sin(t))+Getmaxy div 2;
PutPixel(x,y,15); Delay(100);
PutPixel(x,y,0)
End;
End.

что то нашел но getmaxx и getmaxy это непонятно что за значения

Getmaxx и Getmaxy - это правые границы области для вывода графики.
Поэтому точка (Getmaxx div 2, Getmaxy div 2) - здесь является центром окружности.