Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
2 апреля 2023 20:58
386
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
·
Хороший ответ
4 апреля 2023 20:58
Остались вопросы?
Еще вопросы по категории Информатика
4. К устройствам вывода текстовой информации относится... а) Сканер б) принтер в) клавиатура г) модем...
Если выполнения алгоритма заканчивается, когда условие цикла становится истинным, то он называется: 1) циклом с предусловием 2) бесконечность 3) цикло...
Какая из формул не содержит ошибок? а) =ЕСЛИ ((С4>4) И (С5>4)); "Принят!"; "Не принят") б) =ЕСЛИ (H(D2=0;B2/4);D3-A1; D3+A1) в) =ЕСЛИ ((А4=0 И...
Дискретным называют сигнал...
Вопросы и задания На сервере edu.ru находится файл demo.гаг, доступ к которому осуществляется по протоколу ftp. Фрагменты адреса данного файла закод...