Пример 3. Два треугольника длинами своих сторон

Два треугольника длинами своих сторон. Определить, площадь какого из них больше (создать функцию для вычисления площади треугольника по длинам его сторон).

Для решения задачи используем формулу Герона , где x, y, z – стороны треугольника, p – полупериметр)

Решение:

Program pr3;

var

a1, b1, с1, s1, a2, b2, с2, s2: real;

{функция вычисления площади треугольника со сторонами x,y,z}

Function PlTr(x,y, z: real): real;

Var

p: real;

Begin

p:= (x + y + z)/2; {полупериметр треугольника}

PlTr:=Sqrt(p*(p-x)*(p-y)*(p-z));

End;

BEGIN {основная программа}

{ввод исходных данных}

Write('Cтороны 1-го треугольника:'); Readln(a1, b1, c1);

Write('Cтороны 2-го треугольника:'); Readln(a2, b2, c2);

S1:=PlTr(a1, b1, c1); {вызов функции для нахождения площади 1-го треугольника}

S2:=PlTr(a2, b2, c2); {вызов функции для нахождения площади 2-го треугольника}

if S1>S2 then Writeln(‘S1>S2’)

else if S1<S2 then Writeln(‘S1<S2’)

else Writeln(‘S1=S2’);

Readln;

END.

Результат:

Cтороны 1-го треугольника:3 4 5

Cтороны 1-го треугольника:6 7 8

S1<S2