Лучшие помощники
- Megamozg 2200 б
- Matalya1 1800 б
- DevAdmin 1705 б
- arkasha_bortnikov 895 б
- Dwayne_Johnson 860 б
1 апреля 2023 22:00
747
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
·
Хороший ответ
3 апреля 2023 22:00
Остались вопросы?
Еще вопросы по категории Информатика
2. Наберите 1 литр воды в любом из двух сосудов A (объемом 11 литров) или B (объемом 2 литра). Изначально сосуды пустые. Напишите набор команд, исполь...
Дано: V1=10Кбайт v1=2050бит/с v2=1005бит/с t1=t2 Найти: V2-? (байт) Помогите решить задачу...
Какое окно считается активным? Выберите один ответ: 1. то, в котором работаем. 2. первое из открытых 3. любое...
Статья,набранная на компьютере,содержит 16 страниц,на каждой странице 32 строки,на каждой строке 20 символов. Определите информационный объём статьи в...
Объём сообщения, содержащего 11264 символа, равен 11 Кбайт. Определите максимальную мощность алфавита, который мог быть использован для кодирования эт...
Все предметы