напишите пожалуйста пограмму для нахождение площади треугольника по теореме герона.
Answers & Comments
elenaklon
Var a,b,c,p: real; begin writeln('Определение площади треугольника по теореме Герона'); write('Введите стороны треугольника: '); readln(a,b,c); if (a + b <= c) or (b + c <= a) or (a + c <= b) then writeln ('Треугольника с такими сторонами не существует') else begin p:=(a+b+c)/2; writeln('Площадь треугольника равна ',sqrt(p*(p-a)*(p-b)*(p-c)):0:3) end end.
Answers & Comments
begin
writeln('Определение площади треугольника по теореме Герона');
write('Введите стороны треугольника: ');
readln(a,b,c);
if (a + b <= c) or (b + c <= a) or (a + c <= b) then writeln ('Треугольника с такими сторонами не существует')
else
begin
p:=(a+b+c)/2;
writeln('Площадь треугольника равна ',sqrt(p*(p-a)*(p-b)*(p-c)):0:3)
end
end.