Program primer_2;var x,y,z,s:real;begin writeln ('Введите значение x'); write('x=');...

Question

Program primer_2;
var x,y,z,s:real;
begin
writeln ('Введите значение x');
write('x='); readln(x);
s:=ln(abs(y))+ abs(ln(z));
if x<-2 then y:=2*x;<br>if -2<=x<=2 then y:=sin(x*e-3)+ln(abs(x));<br>if x>2 then y:=power((power(cos(sqr(x)),2)+ power(sin(power(x,3)),4)),4);
if x<0 then z:=power(sin(x),2);<br>if x>=0 then z:=power(e,-(sqr(x+3)));
writeln('Ответ');
writeln('s=',z:8:3);
end.
Ошибка в (if -2<=x<=2 then y:=sin(x*e-3)+ln(abs(x));) пишет что "Операция '<=' не применима к типам integer и boolean"<br>Кто сможет исправить?

Answer 1

В паскале нельзя сравнивать более 2-ух чисел за раз в типе данных интеджер
и строчка 
"if -2<=x<=2 then y:=sin(x*e-3)+ln(abs(x));"<br>должна выглядеть так:
if (-2<=x)and(x<=2) then y:=sin(x*e-3)+ln(abs(x));</span>

Comments

как-то так...