Var t,x,y,z,q,s:real;
begin
t:=0.7; z:=-1.9;
q:=sin(t);
y:=-7.2; x:=6.3;
s:=q*q*q+cos(z*z*z)*ln(abs(x))/exp(-y);
writeln('s1 = ',s);
y:=1.5; x:=-10;
s:=q*q*q+cos(z*z*z)*ln(abs(x))/exp(-y);
writeln('s2 = ',s);
y:=4.1; x:=-3;
s:=q*q*q+cos(z*z*z)*ln(abs(x))/exp(-y);
writeln('s3 = ',s);
end.
Результат:
s1 = 0.268513472402621
s2 = 8.92280608564129
s3 = 55.8685175541082