Объяснение:= 18; { радиус }
w1 = -0.035; { угловая скорость }
w2 = -0.034; { угловая скорость }
w3 = -0.033; { угловая скорость }
o1 = 180; { радиус вращения }
Var
x,y,t:integer;
begin
setwindowsize(900,600); {размер окна}
x:=450; y:=300; {центр окна}
lockdrawing; {рисование во внеэкранном буфере}
setpenwidth(2);
t := 0;
repeat
clearwindow; {очищение окна}
DrawCircle(450, 300, 200);
DrawCircle(450, 300, 160);
DrawCircle(450, 300, 120);
DrawCircle(450, 300, 80);
t:=t+1;
setbrushcolor(clLime); {время движения }
circle(x + round(o1 * cos(t*w1)), y - round(o1 * sin(t*w1)), r1);
setbrushcolor(clSkyBlue);
circle(x + round(o1 * cos(t*w2)), y - round(o1 * sin(t*w2)), r1);
setbrushcolor(clPurple);
circle(x + round(o1 * cos(t*w3)), y - round(o1 * sin(t*w3)), r1);
sleep(1); {задержка}
redraw; {формирование нового кадра}
until False;
end.
2)Заправляю постель
3)Чищу зубы 7:10
4)Завтракаю 7:15
5)Одеваюсь в 7:30
6)Обуваюсь
7)Иду в школу 7:40
8)Переобуваюсь и сдаю куртку в гардероб 7:45
9)Своё расписание напиши и там типо 8:00 -13:00 (распиши все уроки и когда идешь кушать)
10)Иду домой 13:10
11)Мою руки 13:20
12)Ем 13:25
13)Отдыхаю (своё время например до 14:00)
14)Одеваюсь в бассейн на плаванье 14:00
15)Иду в бассейн 14:05
16)Плаваю с 14:15
17)Иду в художку 15:15
18)Рисую в художественной школе 15:30
19)Иду домой в 18:30
20)Мою руки 18:40
21)Ужинаю 18:50
22)Делаю дз 19:00
23)Сижу за компьютером 21:00
24)Умываюсь 22:30
25)Ложусь спать 23:00