Задание по программированию 8 класс.Pascal. По холсту перемещаются два шарика разного...

Question

Задание по программированию 8 класс.Pascal.
По холсту перемещаются два шарика разного цвета и разного радиуса,один - слева направо,второй - сверху вниз.Скорости движения шариков разные.Разработайте программу для выполнения этой анимации.

Answer 1

Программа с комментариями и результат её работы в прикрепленном изображении

---

Comments

Надо через PascalABC,а не PascalABCNET.И мы такими командами не пользовались ещё.

---

Какими, такими? Можете написать конкретнее

---

var x,y:integer;
n:psclear;
procedure dz (x,y,c:integer);
begin
circle (x,y,10);
floodfill(x,y,c);
end;
begin
setwindowwidth (400);
rectangle (0,0,400,400);
floodfill (1,1,clblue);
setpenstyle (psclear);
x:=10;y:=200;
while x<=390 do<br>begin
dz (x,y,clyellow);
delay (20);
dz (x,y,clblue);
x:=x+2;
end;
end.

---

как то так надо было делать

---

Там из новых команд только ClearWindow, SetBrushColor и sleep. Sleep - тот же delay. SetBrushColor и ClearWindow вместо ненадёжного floodfill. Эти команды будут работать и на простом Pascal ABC. А так программа и её смыл написаны правильно

---

Можете пожалуйста написать?)