Abc pascal нарисовать квадрат в котором будет двигаться по диагонали круг

Показать ответ

Ответ:

Annuta88

15.09.2020 23:34

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.

0,0(0 оценок)

Популярные вопросы: Информатика

MariaSet010203

21.02.2020 04:41

Зробити електронну таблицю, в якій виконано завдання. Бурова вишка знаходиться за 9 км від шосе. З неї потрібно направити гінця в місто, що розташоване за 15 км далі по шосе. Велосипедист...

aminoshkina

21.06.2021 20:47

Зробити електронну таблицю, в якій виконано завдання. Для виготовлення однієї книжкової полички потрібно 5 дошок довжиною 70 см та 3 дошки довжиною 80 см.У цех постачаються дошки...

aminyl

19.04.2021 21:17

Зробити електронну таблицю, в якій виконано завдання. Якого розміру має бути відкритий бак у формі прямокутного паралелепіпеда з об’ємом 13,5 м3, щоб на його виготовлення йшло якомога...

ViktorVivat

22.03.2022 05:41

последние отдаю. Нужно написать программу в Паскале: Упорядочить элементы каждой строки заданной матрицы А(5, 4), расположив их в матрице В(5, 4) по убыванию. Полученную матрицу напечатать...

Hrachuk

04.03.2022 10:35

Нужно написать программу на paskal abc одномерного массива данных на 100 единиц, и создать алгоритм поиска максимального и минимального значения и поменять их местами....

mussay86

04.03.2022 10:35

Pascal: двухмерный массив. в метании молота состязается n спортсменов. каждый из них сделал m бросков. победителем считается тот спортсмен, у которого сумма результатов по всем броскам...

PetrovnaSasha

29.01.2021 03:08

Рассмотрите таблицу в которой указаны расстояния между посёлками Семёново, Петровское, Ершово, Пруды и Выселки Определите все пути от Семёново до ВыселокНайдите самый короткий из...

angelicafifa

21.01.2022 15:10

Грузовик и мотоциклист встретились в определенный момент времени и продолжили движение дальше в противоположном направлении. Составьте код программы, в котором вычисляется расстояние...

Зефирка170504

24.03.2021 03:11

20 , через участок тиберия его сосед луций прогоняет скот, ссылаясь на якобы закрепленное за ним право прогона. какой из исков может применить тиберий для защиты своего права: 1 виндикационный...

рузмохинур

24.03.2021 03:11

125 в 6 степени разделить на 25 в 8 степени.много ,проверить себя хочу....

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку