Ответы на вопрос:
Uses GraphABC;
const MaxShar=50;
type shar = record
x,y:integer;
dx,dy:integer;
end;
var i:byte;
x,y,r:integer;
shars: array[1..MaxShar] of shar;
begin
randomize;
setwindowsize(500,500);
centerwindow;
r:=10;
setpenwidth(3);
for i:=1 to MaxShar do
with shars[i] do
begin
x:=7+r+random(500-2*r-14);
y:=7+r+random(500-2*r-14);
dx:=random(8) + 1;
dy:=random(8) + 1;
end;
lockdrawing;
repeat
clearwindow;
for i:=1 to MaxShar do
with shars[i] do
begin
x:=x+dx;
if (x+r+dx>=493) or (x-r+dx<=7) then dx:=-dx;
y:=y+dy;
if (y+r+dy>=493) or (y-r+dy<=7) then dy:=-dy;
setpencolor(clBlue);
setbrushcolor(clBlue);
circle(x,y,r);
end;
setpencolor(clBlack);
setpenwidth(3);
moveto(5,5);
lineto(495,5);
lineto(495,495);
lineto(5,495);
lineto(5,5);
sleep(1);
redraw;
until false;
end.
Примечание:
В конце программы есть команда sleep(), чем больше в ней значение, тем меньше скорость шариков. Также её можно просто убрать, тогда скорость будет максимальной.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
1delicious1apple09.10.2020 23:54
-
лолвсемогущий09.02.2023 21:11
-
dkurmanbek14.07.2021 20:23
-
lolologhka17.06.2020 02:36
-
Neckbeardicus27.03.2020 20:30
-
5Костя527.04.2021 16:46
-
zhuckovanatali107.06.2021 14:32
-
52642424424124210.07.2020 10:46
-
Павлик808927.02.2023 04:22
-
Medina2016110216.06.2022 08:17
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.