Question

Найдите площадь треугольника по трем сторонам. Подсказка, по формуле Герона Написать на языке Паскаля

Answer 1

var

 a,b,c,p,s:real;

 flag:boolean;

begin

 flag:=false;

 repeat

   write('Введите стороны a,b,c: '); readln(a,b,c);

   if (a+b>c) and (a+c>b) and (b+c>a) and (a*b*c>0) then

     flag:=true

       else

         writeln('Некорректные данные.');

 until flag;

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

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

 writeln('S=',s);

end.

Answer 2

Для вычисления площади треугольника по трем сторонам можно использовать формулу Герона. Вот как это можно сделать на языке Pascal:

pascalCopy code
program CalculateTriangleArea;
var
  a, b, c, s, area: real;
begin
  // Ввод длин трех сторон треугольника
  writeln('Введите длины трех сторон треугольника:');
  readln(a);
  readln(b);
  readln(c);

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

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

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

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