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

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

Найти нужный

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

Дайте, пожалуйста, наиболее короткий ответ: С чего начинается БД? Перечислите основные объекты СУБД. Какие функции они выполняют?... 1.Почему следует придерживаться единого стиля при создании текстового документа? 2. Что такое шаблон документа? 3.Чем маркированный список отличаетс... При включении компьютера процессор обращается к… А) ОЗУ В) ПЗУ Б) винчестеру Г) дискете... перевести из двоичной системы в десятичную, восьмеричную, шестнадцатиричную системы число:1000111,1101 решенье сделать дробью... Программист Петя пишет сортировку методом выбора. Пока что он реализовал только фрагмент, в котором в массиве ищется минимальный элемент, который зате...