Question

Помогите пожалуйста! Написать программу на языке Паскаль вычисления площади треугольника по трем сторонам: a, b, c. (Используя формулу Герона)

Answer 1

Ответ:

var

a,b,c,p:real;

begin

read(a,b,c);

p:=(a+b+c)/2;

p:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln('S=',p);

end.

Answer 2

Ответ:

var  

a,b,c,p:real;

begin

read(a,b,c);

p:=(a+b+c)/2;

p:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln('S=',p);

end

Answer 3

Конечно! Вот пример программы на языке Паскаль для вычисления площади треугольника по трем сторонам (a, b, c) с использованием формулы Герона:

pascalCopy code
program AreaOfTriangle;

var
  a, b, c, s, area: real;

begin
  // Ввод длин сторон треугольника
  writeln('Введите длины сторон треугольника:');
  write('a = ');
  readln(a);
  write('b = ');
  readln(b);
  write('c = ');
  readln(c);

  // Вычисление полупериметра
  s := (a + b + c) / 2;

  // Вычисление площади по формуле Герона
  area := sqrt(s * (s - a) * (s - b) * (s - c));

  // Вывод результата
  writeln('Площадь треугольника: ', area:0:2);
end.

Программа запрашивает у пользователя длины сторон треугольника (a, b, c), затем вычисляет полупериметр (s) и площадь треугольника (area) с помощью формулы Герона. Результат выводится на экран.

Обратите внимание, что в данном примере используется встроенная функция sqrt для вычисления квадратного корня.