Выполните для примера 18.3. 1. выполните программу несколько раз. уберите прозрачную заливку. объясните, почему некоторые окружности не видны. 2. внесите в программу такие изменения, чтобы можно было изобразить 20 кругов; 100 кругов. 3. какой максимальный размер может иметь радиус круга в
программе? внесите в программу изменения так, чтобы рисовались круги с радиу- сом не более 20. количество кругов установите равным 10 000. 4. внесите изменения в программу так, чтобы пользователь мог вводить количество отображаемых на экране кругов. пример 18.3. v. программа: uses graphabc;
var x,y,r: integer; begin setpenwidth(3); setbrushstyle(bsclear); for var i: = 1 to 10 do begin x : = random(600); y : = random(400); r : = random(150); setpencolor(clrandom); circle(x,y,r); end; end.

TheMissteress    2   03.03.2019 10:27    35