номер 2, страница 46 - гдз по информатике 8 класс учебник Котов, Лапо

2 Выполните задания для примера 6.4.

1. Выполните программу несколько раз. Добавьте заливку. Объясните, почему некоторые окружности не видны.

2. Внесите в программу такие изменения, чтобы можно было изобразить 20 кругов, 100 кругов.

3. Какой максимальный размер может иметь радиус круга в программе? Внесите в программу изменения так, чтобы рисовались круги радиуса не более 8. Количество кругов установите равным 10 000.

4. Внесите изменения в программу так, чтобы пользователь мог вводить количество отображаемых на экране кругов.

1.Выполнение программы, добавление заливки и объяснение:

Для добавления случайной заливки кругов перед рисованием каждого круга в цикле устанавливается цвет кисти (в PascalABC.NET используется команда SetBrushColor):

SetBrushColor(clRandom); Circle(x, y, r);

Некоторые окружности не видны на экране по нескольким причинам:

• Перекрытие фигур: круги рисуются последовательно один поверх другого. Фигуры, созданные позже, полностью или частично перекрывают те, что были нарисованы ранее.
• Выход за границы окна: координаты центра $(x, y)$ выбираются случайно. Если центр круга оказывается близко к краю экрана, а радиус достаточно большой, то вся фигура или её часть оказывается за пределами видимой области графического окна.
• Совпадение цвета: цвет заливки или контура окружности случайным образом может совпасть с белым цветом фона.
• Нулевой радиус: если генератор случайных чисел выдает значение $r = 0$, окружность превращается в невидимую точку.

2.Изменение количества кругов на 20 и 100:
Количество кругов определяется параметром цикла со счетчиком. Чтобы изменить количество повторений, нужно поменять верхнюю границу в цикле for:

Для 20 кругов:

for i := 1 to 20 do

Для 100 кругов:

for i := 1 to 100 do

3.Определение радиуса и построение 10 000 мелких кругов:
В исходной программе радиус задается выражением r := random(a). Функция random(a) генерирует значения от $0$ до $a - 1$, поэтому максимальный радиус круга равен $a - 1$ (в примере 6.4 при random(50) максимальный радиус равен $49$).
Чтобы радиус был не более $8$, используем команду r := random(9) (диапазон от $0$ до $8$) или r := random(1, 8). Для количества кругов равным $10~000$ изменим заголовок цикла:

for i := 1 to 10000 do begin x := random(WindowWidth); y := random(WindowHeight); r := random(1, 8); SetBrushColor(clRandom); Circle(x, y, r); end;

4.Ввод количества кругов пользователем:
Для организации ввода с клавиатуры объявляется переменная $n$ и добавляется вызов процедуры readln(n) перед началом графического цикла:

uses GraphABC; var i, n, x, y, r: integer; begin write('Введите количество кругов: '); readln(n); for i := 1 to n do begin x := random(WindowWidth); y := random(WindowHeight); r := random(10, 40); SetBrushColor(clRandom); Circle(x, y, r); end; end.