Для каждой тройки отрезков, из которых можно построить треугольник, вычислить периметр и площадь треугольника - Pascal ABC
Формулировка задачи:
4. Даны длины отрезков a, b, c, d. Для каждой тройки этих отрезков, из которых можно построить треугольник, вычислить периметр и площадь этого треугольника.
Решение задачи: «Для каждой тройки отрезков, из которых можно построить треугольник, вычислить периметр и площадь треугольника»
textual
Листинг программы
function trg(a,b,c:real):boolean; begin result:=(a+b>c)and(b+c>a)and(a+c>b); end; function perimetr(a,b,c:real):real; begin result:=a+b+c; end; function ploshad(a,b,c:real):real; var p:real; begin p:=(a+b+c)/2 ; result:=sqrt(p*(p-a)*(p-b)*(p-c)); end; var a,b,c,d:real; begin writeln('Введите длины четырех отрезков'); readln(a,b,c,d); if trg(a,b,c) then begin writeln('ABC - треугольник'); writeln('Периметр=',perimetr(a,b,c):0:2); writeln('Площадь=',ploshad(a,b,c):0:2); end else writeln('ABC не треугольник'); if trg(a,b,d) then begin writeln('ABD - треугольник'); writeln('Периметр=',perimetr(a,b,d):0:2); writeln('Площадь=',ploshad(a,b,d):0:2); end else writeln('ABD не треугольник'); if trg(a,c,d) then begin writeln('ACD - треугольник'); writeln('Периметр=',perimetr(a,c,d):0:2); writeln('Площадь=',ploshad(a,c,d):0:2); end else writeln('ACD не треугольник'); if trg(b,c,d) then begin writeln('BCD - треугольник'); writeln('Периметр=',perimetr(b,c,d):0:2); writeln('Площадь=',ploshad(b,c,d):0:2); end else writeln('BCD не треугольник'); end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д