Question

Вычислить площадь треугольника по формуле Герона.

помогите пожалуйста выполнить на Pascal​

Answer 1

Ответ:

program ST_4;

 

var a,b,c,h:integer;

p:real;

S:real;

 

begin

 

write('Введите основание: ');

readln(a);

write('Введите высоту: ');

readln(h);

 

 S := (a*h)/2;

   

writeln ('Площадь треугольника: = ',S);

 

 write('Длины сторон треугольника: ');

 readln(a,b,c);

 

 p := (a+b+c)/2; // Вспомагательная формула

 S := sqrt(p)*(p - a)*(p - b)*(p - c); // Формула Герона

 

writeln ('Площадь треугольника по формуле Герона: = ',S);

 

end.