Question

Составьте программу (блок схема и на Паскаль) Нахождения площади треугольникапо формуле Герона если извесны все три стороны

Answer 1

Var
a,b,c,p,S:real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('c = ');
ReadLn(c);
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
WriteLn('S = ',S);
End.

Answer 2

Я могу помочь вам составить программу на Паскаль для нахождения площади треугольника по формуле Герона, если известны все три стороны. Вот блок-схема алгоритма:

![Блок-схема алгоритма]

Вот код программы на Паскаль:

program geron;
var
  a, b, c, p, s: real;
begin
  writeln('Введите длины сторон треугольника:');
  readln(a, b, c);
  p := (a + b + c) / 2; // полупериметр
  s := sqrt(p * (p - a) * (p - b) * (p - c)); // площадь по формуле Герона
  writeln('Площадь треугольника равна ', s:0:2);
end.

Надеюсь, это было полезно. Если у вас есть еще вопросы, я рад помочь.блок схема на Паскаль