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.

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

4 апреля 2023 20:58

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

Найти нужный

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

Какие протоколы используются на канальном уровне модели OSI (второй уровень), Для чего? Что такое маршрутизатор? Коммутатор? Репитер? Для чего испол... Плиз помогите!!! Продумайте и изобразите в виде схемы (графа) структуру одного из следующих сайтов: ⦁ «Моя семья» ⦁ «Мой класс» Нарисуйте цветной... Как заполнять эту таблицу? Ответы есть, но я не понимаю, как записывать. Задание: Сравните "бумажную" и "компьютерную" технологии создания текстовы... Помогите пж, задача с div и mod... Помогите! Дам 30 баллов Музыкальный фрагмент был записан в формате моно, оцифрован и сохранён в виде файла без использования сжатия данных. Размер пол...