Question

Написать программу на паскаль для нахождения площади треугольника по теореме Герона. Для нахождения полупериметра использовать функцию

Answer 1

Ответ:

ar a,b,c, sq:real;

function polup(p:real):real

var y:real;

begin

y:=(a+b+c)/2

polup:=y;

end;

 writeln('Введи длины сторон a, b и c');

 readln(a,b,c);

sq:=polup(a,b,c)

 writeln('Площадь этого треугольника = ', sqrt(sq*(sq-a)*(sq-b)*(sq-c)));

end.

Answer 2

Вот пример программы на Pascal, которая находит площадь треугольника с использованием формулы Герона и функции для вычисления полупериметра:

pascalCopy code
program HeronTriangleArea;

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

function CalculateSemiPerimeter(a, b, c: real): real;
begin
  CalculateSemiPerimeter := (a + b + c) / 2;
end;

begin
  writeln('Введите длину стороны a:');
  readln(a);

  writeln('Введите длину стороны b:');
  readln(b);

  writeln('Введите длину стороны c:');
  readln(c);

  if (a > 0) and (b > 0) and (c > 0) and (a + b > c) and (a + c > b) and (b + c > a) then
  begin
    s := CalculateSemiPerimeter(a, b, c);
    area := sqrt(s * (s - a) * (s - b) * (s - c));
    writeln('Площадь треугольника: ', area:0:2);
  end
  else
    writeln('Треугольник с заданными сторонами не существует.');

  readln;
end.

Эта программа сначала запрашивает длины сторон треугольника, затем проверяет, существует ли треугольник с такими сторонами. Если треугольник существует, она вычисляет полупериметр с использованием функции CalculateSemiPerimeter и затем вычисляет площадь треугольника по формуле Герона.