Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 895 б
- Dwayne_Johnson 865 б
3 апреля 2023 12:33
1158
ABC PASCAL нарисовать квадрат в котором будет двигаться по диагонали круг
1
ответ
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.
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
·
Хороший ответ
5 апреля 2023 12:33
Остались вопросы?
Еще вопросы по категории Информатика
Шахматная доска состоит 8 столбцов и 8 строк. Какое минимальное количество бит потребуется для кодирование координат одного шахматного поля....
ДАЮ 35 БАЛЛОВ!!!!!!! ПОМОГИТЕ УМАЛЯЮ!!!!!!!!!!! 1. Перечислите основные режимы работы текстового редактора. 2. Какие основные начертания шрифтов испо...
1. Пронумеруйте в правильном порядке этапы разработки программы. □ тестирование и отладка □ запись программы на языке программирования □ применение...
ЧТО БУДЕТ РЕЗУЛЬТАТОМ ИСПОЛНЕНИЯ ЧЕРЕПАШКОЙ АЛГОРИТМА ? Повтори 8 раз [ направо45 Вперед 45] если можно примерный рисунок,...
В чем разница между растровым и векторным способами представления изображения?...
Все предметы 
