Question

Вычислить площадь треугольника по формуле Герона.помогите пожалуйста выполнить на Pascal​

Answer 1

Ответ:

program ST_4;

 

var a,b,c,h:integer;

p:real;

S:real;

 

begin

 

write('Введите основание: ');

readln(a);

write('Введите высоту: ');

readln(h);

 

 S := (a*h)/2;

   

writeln ('Площадь треугольника: = ',S);

 

 write('Длины сторон треугольника: ');

 readln(a,b,c);

 

 p := (a+b+c)/2; // Вспомагательная формула

 S := sqrt(p)*(p - a)*(p - b)*(p - c); // Формула Герона

 

writeln ('Площадь треугольника по формуле Герона: = ',S);

 

end.

Answer 2

Для вычисления площади треугольника по формуле Герона вам потребуется знать длины всех трех сторон треугольника. Формула Герона выглядит следующим образом:

S = sqrt(p * (p - a) * (p - b) * (p - c))

где S - площадь треугольника, a, b, и c - длины сторон треугольника, а p - полупериметр треугольника, который можно вычислить по формуле:

p = (a + b + c) / 2

Давайте реализуем эту формулу на языке Pascal:

program GeronFormula;

uses
  Math;

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.

В этом примере мы сначала запрашиваем у пользователя длины сторон треугольника, затем вычисляем полупериметр и площадь треугольника с помощью формулы Герона. Результат выводится на экран.

Надеюсь, это поможет вам вычислить площадь треугольника по формуле Герона на языке Pascal! Если у вас возникнут еще вопросы, не стесняйтесь задавать.