Question

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

Answer 1

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

Answer 2

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

Answer 3

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
begin
dz (x,y,clyellow);
delay (20);
dz (x,y,clblue);
x:=x+2;
end;
end.

Answer 4

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

Answer 5

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

Answer 6

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