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. )
скорее из-за этого