Нарисовать N кругов с радиусом от 5 до 50 в случайном месте случайным цветом в рамке - Pascal ABC
Формулировка задачи:
Нарисовать N кругов с радиусом от 5 до 50 в случайном месте случайным цветом в рамке.
Решение задачи: «Нарисовать N кругов с радиусом от 5 до 50 в случайном месте случайным цветом в рамке»
textual
Листинг программы
uses graphABC;
var x1,y1,x2,y2,i,n,x,y,r:integer;
begin
randomize;
write('n=');
readln(n);
x1:=20;
y1:=20;
x2:=windowwidth-20;
y2:=windowheight-20;
setbrushstyle(bsClear);
setpenwidth(5);
setpencolor(clRed);
rectangle(x1,y1,x2,y2);
setpenwidth(2);
for i:=1 to n do
begin
r:=5+random(46);
x:=x1+r+5+random(x2-2*(x1+r)-10);
y:=y1+r+5+random(y2-2*(y1+r)-10);
setpencolor(clrandom);
circle(x,y,r);
end;
end.
Объяснение кода листинга программы
- Импортируется библиотека graphABC.
- Объявляются переменные x1, y1, x2, y2, i, n, x, y, r: integer;
- Вызывается функция randomize, чтобы инициализировать генератор случайных чисел.
- Выводится запрос на ввод значения переменной n.
- Присваиваются значения переменным x1, y1, x2, y2.
- Устанавливается стиль кисти на bsClear.
- Устанавливается ширина пера на 5.
- Устанавливается цвет пера на clRed.
- Вызывается функция rectangle, чтобы нарисовать прямоугольник с заданными координатами.
- Устанавливается ширина пера на 2.
- Запускается цикл for, который будет выполняться n раз.
- Внутри цикла вызывается функция randomize, чтобы инициализировать генератор случайных чисел.
- Вычисляются координаты x и y для каждого круга.
- Вызывается функция circle, чтобы нарисовать круг с заданными координататами.
- Координаты x и y для следующего круга вычисляются с помощью тех же формул, но с добавлением случайного числа от 5 до 45.
- Цикл продолжается до тех пор, пока все n кругов не будут нарисованы.
- Конец программы.