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

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

расчеты в графических построениях

Пример 1

Нарисовать прямоугольный треугольник, соответствующий рисунку (катеты треугольника параллельны осям координат). Длины катетов и координаты прямого угла вводятся.

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

• I. Исходные данные: a и b (длины катетов), x и y (координаты вершины прямого угла).

• II. Результат: изображение прямоугольного треугольника.

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

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

Алгоритм:

• 1. Ввод исходных данных.

• 2. Чтобы изобразить треугольник, нужно выполнить следующие действия: 1) построить линии из точки с координатой (x; y) в точки с координатами (x + a; y) и (x; y + b); 2) соединить линией точки (x + a; y) и (x; y + b); 3) закрасить треугольник. 

• 3) закрасить треугольник.

Многие графические построения можно обобщить, если предположить, что фигура должна быть вписана в квадрат.

В этом случае для построения фигуры достаточно задать координаты (x; y) верхнего левого угла квадрата и длину его стороны — d. Используя эти величины, можно получить координаты других вершин квадрата: (x + d; y), (x; y + d), (x + d; y + d). Можно получить координаты середины стороны (x + d div 2; y) или центра квадрата (x + d div 2; y + d div 2).

V. Код программы

Program pr_1;

uses GraphABC;

var a,b,x,y,x_c, y_c:integer;

begin

writeln('Введите координаты');

read(x,y);

writeln (x,' ',y);

writeln('Введите длины катетов');

read(a,b);

writeln (a,' ',b);

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.

VI. Тестирование.