Question

Программа в паскале по формуле S=sqrt P(P-a)(P-b)(P-c) где P=(a+b+c)/(2)

Answer 1

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

begin

       writeln('a = ');

       readln(a);

       writeln('b = ');

       readln(b);

       writeln('c = ');

       readln(c);

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

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

       writeln('s = ',s);

end.

Answer 2

Для начала, давайте разберем формулу и опишем каждую переменную:

• S: площадь треугольника.
• a, b, c: длины сторон треугольника.
• P: полупериметр треугольника, который равен сумме длин всех сторон, деленной на 2.

Теперь давайте напишем программу на Pascal, которая вычислит площадь треугольника по заданной формуле:

pascalCopy code
program CalculateTriangleArea;
var
  a, b, c, P, S: real; // используем вещественные числа для точности вычислений

begin
  // Вводим длины сторон треугольника
  writeln('Введите длину стороны a: ');
  readln(a);
  
  writeln('Введите длину стороны b: ');
  readln(b);
  
  writeln('Введите длину стороны c: ');
  readln(c);
  
  // Вычисляем полупериметр
  P := (a + b + c) / 2;
  
  // Вычисляем площадь треугольника по формуле Герона
  S := sqrt(P * (P - a) * (P - b) * (P - c));
  
  // Выводим результат
  writeln('Площадь треугольника S = ', S);
end.

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