АЛГОРИТМ ВЫЧИСЛЕНИЯ ПЛОЩАДИ ТРЕУГОЛЬНИКА ПО ФОРМУЛЕ ГЕРОНА.
Площадь вычисляется по следующей формуле S=, где P= ;A, B, C размеры сторон треугольника - аргументы;
S площадь треугольника - результат;
P полупериметр - промежуточная переменная;
Проверки: если A<=0 <u>или B<=0 <u>или C<=0</span> то напечатать "размеры должны быть положительные"
если A+B<=C <u>или A+C<=B <u>или C+B<=A,</span> то печать " нельзя составить треугольник"
Program GERON:
Uses crt; Var A,B,C:real;
Begin CLRSCR;
TEXTCOLOR(1);
WRITELN(‘ПЛОЩАДЬ ТРЕУГОЛЬНИКА.’);
WRITELN(‘ПРОГРАММУ СОСТАВИЛА ИВАНОВА СВЕТА.’);
WRITE(‘ВВЕДИТЕ РАЗМЕРЫ ТРЕХ СТОРОН: ’);
READLN(A,B,C);
IF (A<=0) OR (B<=0) OR (C<=0)<span> THEN WRITELN (‘ЕСТЬ ОТРИЦАТЕЛЬНЫЕ РАЗМЕРЫ.’)
ELSE IF (A+B<=C) OR (B+C<=A) OR (A+C<=B)</span> THEN WRITELN(‘РАЗМЕРЫ НЕ ТРЕУГОЛЬНИКА.’)
ELSE BEGIN
P:=(A+B+C)/2;
S:=SQRT(P*(P-A)*(P-B)*(P-C));
WRITELN(‘ПЛОЩАДЬ РАВНА:’, S);
END;