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

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

Найти нужный

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

Грунтовая дорога проходит последовательно через населенные пункты А, B, С и D. При этом длина дороги между А и В равна 80 км, между В и С – 50 км,... Дан условный оператор: if a<5 then c:=1 else if a>5 then c:=2 else c:=3 Какое значение имеет переменная a , если в результате выполнения условно... Построить граф классификации для описанной системы. Согласно биологической классификации выделяют 3 империи (надцарства): археобактерии, эукариоты и п... Перекодировать с русского письменного на русский устный имя Юля... Какой из объектов может являться исполнителем алгоритмов? ножницы карта принтер книга...