Программа предназначается для расчета площади по формуле Герона, объясните, в чем тут ошибка?

program dom_zad_2;

var a, b, c, P, S: real;

begin

if (a writeln ('Значение стороны a:') ;

readln (a) ;

writeln ('Значение стороны b:') ;

readln (b) ;

writeln ('Значение стороны c:') ;

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

S: = sqrt (P * (P-a) * (P-b) * (P-c)) ;

if s<0 then writeln ('Невозможно') ;

end;

end.

Question

Информатика

Маринка

9 октября, 18:06

Программа предназначается для расчета площади по формуле Герона, объясните, в чем тут ошибка?

program dom_zad_2;

var a, b, c, P, S: real;

begin

if (a writeln ('Значение стороны a:') ;

readln (a) ;

writeln ('Значение стороны b:') ;

readln (b) ;

writeln ('Значение стороны c:') ;

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

S: = sqrt (P * (P-a) * (P-b) * (P-c)) ;

if s<0 then writeln ('Невозможно') ;

end;

end.

+1

Ответы (1)

Знаете ответ на вопрос?

Катюша · Answer 1

Program dom_zad_2;

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:=P * (P-a) * (P-b) * (P-c) ;

if s<=0 then writeln ('Невозможно')

else writeln ('s = ', sqrt (s) : 5:2) ;

end.

Пример 1:

Значение стороны a: 3

Значение стороны b: 4

Значение стороны c: 5

s = 6.00

Пример 2:

Значение стороны a: 2

Значение стороны b: 2

Значение стороны c: 5

Невозможно