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

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

В этом случае для построения фигуры достаточно задать координаты (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).

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.