Задание:
Составить блок схему алгоритма и программу вычесления площади треугольника
Решение:
var a,b,c: integer; стороны для треугольника s,p: real; beginwrite ('Введите сторону а='); readln (a); write ('Введите сторону b='); readln (b); write ('Введите сторону c='); readln (c); if (a < b+c) or (b < a+c) or (c < a+b) then begin проверка на существовании треугольника, а то как площадь получить если треугольника нет=) p: =(a+b+c) /2; формула полупериметра s: =Sqrt (p*(p-a)*(p-b)*(p-c); формула Герона для нахождении площади треугольникаwriteln ('Площадь треугольника равна s=',s: 0:4); end else writeln ('Треугольник не существует! '); end. П. С. Что не понятно постараюсь объяснить, но я думаю вы прекрасно во всем разберетесьВо вложении блок схема
Знаете другой ответ?