Программа для расчета площади неправильных четырехугольников

Программа для расчета площади неправильных четырехугольников на языке программирования Паскаль.
Материал можно использовать при изучении темы «Алгоритмизация и программирование», а также на дополнительных занятиях по программированию.
На практике очень часто приходится вычислять площади неправильных четырехугольников. Например: необходимо вычислить площадь земельного участка или планируемого строительного объекта на участке являющимся неправильным четырехугольником. Могут быть и другие случаи, связанные с такими расчетами.
Для выполнения этой задачи необходимо измерить одну из диагоналей четырехугольника.
Диагональ разбивает заданный четырехугольник на два треугольника со всеми известными сторонами. Остается вычислить площади двух треугольников по формуле Герона и сложить их.

a,b,c – стороны треугольника. Этим способом пользуются математики. Программирование же этой задачи создает возможности для быстрого расчета для большого диапазона входных данных.
Пример. Пусть некоторый четырехугольник имеет форму как показано на рисунке.

Программа позволяет получить результаты для разных заданных значений сторон и диагоналей.
var S,s1,s2,a,b,c,d,m,p1,p2:real;
{где a,b,c,d,m – стороны четырехугольника, d - диагональ }i:integer;
f:text;
beginassign (f,'output.txt');
rewrite(f);
writeln(f,'d= | s1= | s2= | s=');
a:=15;b:=16;c:=8;M:=20;d:=19;
for i:=1 to 25 do
begin p1:=(a+b+d)/2;
s1:=sqrt(p1*(p1-a)*(p1-b)*(p1-d));
p2:=(c+m+d)/2;
s2:=sqrt(p2*(p2-c)*(p2-m)*(p2-d));
s:=s1+s2;
writeln(f,d:4:2,' | ',s1:6:2,' | ',s2:6:2,' | ',s:6:2);
d:=d+0.2;
end; close(f);
end.
Ниже пример результатов для четырехугольника со сторонами
a:=15; b:=16; c:=8; m:=20; диагональю от d:=19 до 23,80 с шагом увеличения 0,2

Шаг увеличения диагонали можно выбрать любой. В данном случае шаг в 0.2 выбран исходя из практических соображений. 0.2<<19. Таким образом выбор шага увеличения d зависит от требований точности для полученных результатов.