6.Оқушы электронды пошта арқылы маңызды құжатты ата-анасына жіберу қажет болды. Интернет желісін қауіпсіз қолданудың екі жолын ұсыныңыз.
Ответы на вопрос:
Объяснение:= 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.
Популярно: Информатика
-
ruslananabok15.09.2021 09:56
-
маршмален16.08.2020 00:09
-
skuzembaeva13.08.2020 23:55
-
Черничка2130.05.2020 04:08
-
qwerty554317.10.2020 08:57
-
екатерина210211.08.2020 03:27
-
kallor1203.02.2021 06:40
-
Anastasia1357731.08.2020 02:10
-
Ksenia235129.06.2020 11:20
-
Ясныйпень20.05.2021 05:14