ABC PASCAL нарисовать квадрат в котором будет двигаться по диагонали круг

1 ответ

Посмотреть ответы

DevAdmin

1720

Uses graphABC;
Var
x,y,i:integer;
begin
x:=100;
y:=100;
rectangle(x,y,x+100,y+100);
for i:=1 to 100 do
begin
rectangle(x,y,x+100,y+100);
setpencolor(clwhite);
circle(x+i-1,y+i-1,11);
setpencolor(clblack);
circle(x+i,y+i,10);
sleep(100);
end;
end.

Хороший ответ

3 апреля 2023 22:00

Остались вопросы?

Найти нужный

Еще вопросы по категории Информатика

Рассматривается множество целых чисел, принадлежащих отрезку [1045; 8963], которые делятся на 5 или на 7 и не делятся на 11, 13, 17 и 19. Найдите коли... Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить, сколько клеток будет через 3, 6, 9,..., 24 часа, если первоначально была одна амеба... Основное назначение жесткого диска:1)переносить информацию;2)хранить данные;3)обрабатывать информацию;4)вводить информацию;5)хранить и обрабатывать ин... cd объемом 700 Мб весит 15 грамм, сколько будет весить набор таких дисков, необходимый для полного копирования информации с жесткого диска объемом 320... На рисунке – схема дорог, связывающих города А, Б, В, Г, Д, Е, Ж, З, И, К и Л. По каждой дороге можно двигаться только в одном направлении, указанном...