Регистрация
КаринаМандарина12
23.08.2021 03:25
Информатика
Есть ответ 👍

Создать анимацию строения атома в турбо паскале

143
264
Посмотреть ответы 2

Ответы на вопрос:

ktvsl
ktvsl
4,5(19 оценок)

program p1; usesgraph,crt; vard,m,i,k : integer; x,y,x0,y0,r : integer; a,b : real; begin

d : = detect;

initgraph(d,m,'');

x0 : = 640 div 2; y0 : = 480 div 2;

i : = 1;

r : = 100;

a : = 0; b : = 1;

x : = x0; y : = y0;

repeat

delay(100);

a : = a + 0.1; b : = b - 0.1;

cleardevice;

circle(x0,y0,r);

x : = round(x0 + (r+20)*cos(a)); y : = round(y0 + (r+20)*sin(a));

putpixel(x,y,65535);

x : = round(x0 + (r+40)*cos(b)); y : = round(y0 + (r+40)*sin(b));

putpixel(x,y,65535);

untilkeypressed = true;

closegraph;

end.

mahamde
mahamde
4,6(50 оценок)

< html> < head> < title> любое название< /title> < /head> < body> < font size="10" color="red"> любой текст < /font> < /body> < /html>  

Популярно: Информатика