Составление алгоритмов для работы с графикой

Для рисования треугольника используется следующий графический примитив

Для рисования окружности используется следующий графический примитив

Для рисования эллипса используется следующий графический примитив

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

Определите, что нарисует следующая программа:

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.

Нарисовать треугольник в PascalABC можно при помощи:

Определите, что нарисует следующая программа:

uses GraphABC;
var x, y, r:integer;
procedure
row(y : integer);
begin
x :=10; R:= 10;
while x <WindowWidth
do
begin
Circle(x,y,r);
x := x+20;
end;
end;
begin
y := 10;
while y <=WindowHeight
do
begin
Row(y); y := y + 20;
end;
end.

Для рисования прямой линии с началом в точке О(0,О) используется следующая команда:

Для заливки ограниченной области разными цветами используется следующая команда: