Программирование задач аналитической геометрии. Pascal

Листинг программы
Program Lab7;
Uses Crt;
Label M1, M2;

Type
Matr = array[1..1000] of real;

Var
X, Y, S : matr;
t : array[1..3] of integer;
n, i, m, j, k, l, r, p, g: integer;
...

PROCEDURE Smeshenije(q1,q2:integer);
begin
for p :=t[q1] to 3*n-r-q2 do begin
...

Задание:
Основным геометрическим объектом, используемым в рассматриваемых задачах, является множество точек на плоскости или в пространстве.
Множество точек в пространстве – это конечное, возможно, и пустое множество различных упорядоченных последовательностей из пар, троек, а в общем случае, упорядоченных в n-мерном пространстве.
При программировании задач с геометрическими объектами студенты могут использовать соотношения, действующие в метрическом пространстве Еn .
Множество материальных точек задается совокупностью координат и масс. При этом масса материальной точки всегда положительное число.
Вариант № 54.
На плоскости задано 3n точек. Построить n треугольников в такой последовательности:
а) выбрать из заданного множества три точки таким образом, чтобы треугольник имел минимальную, но не нулевую площадь;
б) из оставшихся 3n-3 точек выбрать три точки с тем же условием и так далее.

Анализ результатов
Проверим нахождение первого треугольника с минимальной площадью. По результатам это треугольник 82 с площадью 2. Ему соответствуют точки A1(-10.000 -9.000), A10(28.000 3.000), A12(25.000, 2.000).
S[82] = |(-10*(3-2)+28*(2+9)+25*(-9-3))=-10+11*28+-12*25=-10+308-300|=|-2|=2.;
Результаты вычислений совпадают с результатами программы.
...

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