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.

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

5 апреля 2023 12:33

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

Найти нужный

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

Определи значение переменной k k после выполнения фрагмента программы: i := 2; k := 2; while i < 5 do begin k := k * 2; i... Для расчета  будущей стоимости  фиксированных периодических платежей или будущей стоимости текущего вклада или займа, среди финансовых функц... сколько цифер может содержать двеннадцатиричная система счисления... 1.В библиотеке 16 стеллажей. На каждом стеллаже по 8 полок. Библиотекарь сказала Оле, что интересующая ее книга, находится на 3 стеллаже, на 2-ой свер... Как записать простейшее матричное уравнение?...