Question

Написать программу на Паскале для решения следующей задачи: Дан треугольник. Вычислить площадь треугольника по известным сторонам. Длины сторон задать с помощью оператора ввода самостоятельно. Помогите, пожалуйста

Answer 1

Ответ:

free Pascal

Объяснение:

var

a, b, c : integer;

s, p : double;

begin

 writeln('Input a, b, c :');

 readln(a, b, c);

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

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

 writeln();

 writeln('S=',s:2:2);

end.

Answer 2

Конечно, вот программа на языке Паскаль для вычисления площади треугольника по известным сторонам. Программа предполагает, что пользователь введет длины трех сторон треугольника.

pascalCopy code
program CalculateTriangleArea;

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

begin
  writeln('Введите длину первой стороны треугольника: ');
  readln(a);

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

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

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

  readln;
end.

Программа начинается с запроса ввода длин трех сторон треугольника. Затем она проверяет, существует ли треугольник с заданными сторонами, используя неравенство треугольника (сумма любых двух сторон должна быть больше третьей). Если треугольник существует, программа вычисляет его площадь с использованием формулы Герона и выводит результат. В противном случае она сообщает, что треугольник с заданными сторонами не существует.