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

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

Использование вспомогательных алгоритмов

Multiple Choice

Какая команда из приведенных ниже подключает библиотеку для работы с графикой (графический модуль) ?

• Random

• Uses GraphABC

• Line (x1,y1,x2,y2)

• SetBrushColor(c)

• FloodFill(x,y,c)

Multiple Choice

Какая функция задает случайное число?

• Line (x1,y1,x2,y2)

• Uses GraphABC

• Random

• FloodFill(x,y,c)

• SetPenWidth(3)

Multiple Choice

Какая команда рисует круг с центром в точке (x,y) и радиусом r

• Rectangle(x1,y1,x2,y2)

• Line(x1,y1,x2,y2)

• Circle(x,y,r)

• Uses GraphABC

• FloodFill

Multiple Choice

Какая команда задает цвет заливки?

• Rectangle(x1,y1,x2,y2)

• SetBrushColor(c)

• Circle(x,y,r)

• SetPenWidth(3)

• Uses GraphABC

Multiple Choice

Какая команда заливает область цветом с начиная с точки (х,у)?

• SetPenWidth(3)

• FloodFill(x,y,c)

• SetBrushColor(c)

• Uses GraphABC

• Random

Multiple Choice

Какая команда рисует прямоугольник?

• Circle(x,y,r)

• Rectangle(x1,y1,x2,y,2)

• Line(x1,y1,x2,y2)

• FloodFill(x,y,c)

• Random

Построение фигур можно оформлять в виде вспомогательных алгоритмов. Это позволит использовать такие алгоритмы для решения других задач. Все графические процедуры, которые использовались ранее, имели параметры. Они позволяли определять местоположение и размер фигур. Пользователь также может составить свой вспомогательный алгоритм с параметрами.

Общий вид процедуры с параметрами:

procedure <имя>

(<список параметров>:тип);

var ...

begin

<команды>

end;

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

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

Этапы выполнения задания

I. Исходные данные: n (количество треугольников), а (длина катета).

II. Результат: изображение n треугольников.

III. Алгоритм решения задачи

IV. Описание переменных: все переменные имеют тип integer.

Алгоритм решения задачи:

1. Ввод значений переменных n и а.

3. Так как количество повторений известно, будем использовать цикл for.

4. Местоположение треугольника задается координатами прямого угла, которые определим случайным образом;

Катеты прямоугольного треугольника имеют одинаковую длину — значение a.

5. Построение одного прямоугольного треугольника опишем во вспомогательном алгоритме pr_treug. Параметры процедуры построения треугольника — координаты вершины прямого угла и длины катетов

Program treug;

uses GraphABC;

var n, x, y, a : integer;

procedure pr_treug (x, y, a, b : integer);

var x_c, y_c:integer;

begin

line(x, y, x + a,y);

line(x, y, x, y + b);

line(x + a, y, x, y + b);

x_c := x + 2; y_c := y + 2; FloodFill(x_c,y_c,clRandom);

end;

begin

writeln('Ввeдите количество');

read(n);

writeln (n);

writeln('Ввeдите длину катета');

read(a); writeln (a);

for var i:= 1 to n do

begin

x:= random(500);

y:= random(400);



pr_treug(x, y, a, a);

end;

end.