Question

Паскаль. Известны длины сторон треугольника а,b,c. Напишите программу, вычисляющую площадь этого треугольника.Пример входных данных- (a=3;b=4;c=5), Пример выходных данных-(S=6.0)

Answer 1

Var  a, b, c, p:real;
begin 
  write('Введите a, b, c: '); 
  readln(a,b,c); 
  p:=(a + b + c)/2; 
  writeln('Площадь треугольника со сторонами ',a,',',b,',',c,' = ', sqrt(p * ( p - a) * (p - b) * (p - c)));
end.

Answer 2

Чтобы вычислить площадь треугольника, можно использовать формулу Герона. Формула Герона гласит:

S = sqrt(p * (p - a) * (p - b) * (p - c))

где S - площадь треугольника, a, b, c - длины сторон треугольника, p - полупериметр треугольника, p = (a + b + c) / 2.

На основе этой формулы можно написать программу на языке Паскаль, которая будет вычислять площадь треугольника по заданным длинам его сторон:

```pascal
program TriangleArea;
var
a, b, c, p, S: Real;
begin
// Ввод длин сторон треугольника
a := 3;
b := 4;
c := 5;

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

// Вычисление площади треугольника
S := sqrt(p * (p - a) * (p - b) * (p - c));

// Вывод площади треугольника
writeln('S = ', S);
end.
```

В данной программе заданы стороны треугольника a = 3, b = 4, c = 5. После выполнения программы будет выведено значение площади треугольника: S = 6.0.