На одном из прошлых уроков мы строили графики функций. А как мы заставляли точку двигаться по синусоиде? Создавали цикл, в котором координата Х точки изменялась как параметр цикла, а координата Y точки менялась как синус от Х. А если координату Х заставить изменяться с использованием функции COS от параметра цикла? Если вы хорошо знаете математику, то должны догадаться, что точка будет двигаться по окружности.
Для эксперимента давайте возьмем программу-образец для построения графиков функций, поставим в цикл окружность, у которой координаты центра Х и Y зависят от SIN и COS.
Program planeta; Uses Graph; Var Gd, Gm : SmaLLInt; x, A, B, C: integer; Begin Gd:=Detect; InitGraph(Gd,Gm,''); A:=100; B:=80; C:=20; for x:= 0 to 1000 do Circle(round(A*cos(x/B))+GetMaxX div 2, round(A*sin(x/B))+GetMaxY div 2,14); Readln; CloseGraph; End. |
Фото: