Лучшие помощники
- Megamozg 2180 б
- Matalya1 1800 б
- DevAdmin 1685 б
- arkasha_bortnikov 805 б
- Dwayne_Johnson 800 б
3 апреля 2023 12:33
1086
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
Остались вопросы?
Еще вопросы по категории Информатика
Архитектура хранения информации в Интернете соответствует 1. распределенной и централизованной информационным системам 2. централизованной информацио...
Помогите расшифровать двоичный код, пожалуйста: 10010111 10000000 10010010...
3. Информационное сообщение объемом 10 Кб состоит из 10240 символов. Сколько символов содержит алфавит, при помощи которого было записано данное сообщ...
Какой из объектов может являться исполнителем алгоритмов? ножницы карта принтер книга...
C++. Шифр Виженера. Шифратор написала, а дешифратор не могу собразить. #include «stdafx.h» #include «pch.h» #include #include #include #incl...
Все предметы