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

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

Найти нужный

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

пожалуйста помогите перевести числа... 100011-двоичная система. а нужно перевести в десятичную, восьмеричную и 16-ую 101001011-двоичная. также перевес... 1.Система команд исполнителя Конструктор состоит из двух команд,которым присвоены номера: 1-приписать 2 2-разделить на 2 по первой из них к числу... 1. Для кодирования одного пикселя используется 2 байта. Фотографию размером 1024´1024 пикселей сохранили в виде несжатого файла. Определите размер пол... Задание 2 Напишите программу, которая в последовательности целых чисел определяет их произведение и сумму нечётных чисел. Программа получает на вход ц... Помогите пожалуйста!!! Напиши программу, которая определяет значение у, если х = 40. Vx + 4, прих > 10 2, при - 10 < x < 10 x2 + 2, при...