Program v6;Var x,y:real;Beginwriteln('x');readln(x);if x<0 then...

Question

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));<br>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. )

Comments

вообщем когда вы нажимаете открываеться черное окно с ошибкой?

---

после этой ошибки сразу там же пишите -0.9 ( жмете ENTER) получаете число после этого 0 нажимаете Enter потом 7 Enter 0,5 Enter и вы получаете 4 числа (которые надо будет округлить

---

данные нужно вводить не обращая внимание на ошибку

---

и вот вам совет (сам месяца 2 так же зделал как вы вообщем правильная запись будет выглядить так!

---

Var x,y:real;Beginwriteln('x');readln(x);if x<0 then y:=exp(x)+sin(sqrt(x*x+1))/cos(sqrt(x*x+1)) else if x>=0 then y:=x*x+4*cos(x);writeln('y = ',y);end.

---

так как програма розгалужена

---

вот ответ y= 4.7670588305E+00 = 5

---

y = 4.00000000E+00 = 4

---

y = 5.2015609017E+01 = 52

---

y= 3.7603302476E+00 = 3.8

Answer 1

Сделай проверку, чтобы в первом if в cos(sqrt(x*x+1)); нуля не получилось...
скорее из-за этого