Информатика

Ювеналий

16 апреля, 07:37

Program v6;

Var x, y:real;

Begin

writeln ('x') ;

readln (x) ;

if x<0 then y:=exp (x) + sin (sqrt (x*x+1)) / cos (sqrt (x*x+1)) ;

if x>=0 then y:=x*x+4*cos (x) ;

writeln ('y = ', y) ;

end.

x1=-0,9; 0

x2 = 7; 0,5

Программа "Розгалуження"

пишу в turbo pascal вот такую программу и выдает ошибку (Ошибка выполнения 106 по адресу 0000:0049.)