Задание для самостоятельной работы

Составить программу вычисления выражений

у(х)= , z(x)= .

1. для аргумента, которым является целое случайное число от 1 до 99.

2. для любого произвольно заданного значения аргумента;

Program pasha_1;

var y,z,x:real;

begin

randomize

x:=random(99);

y:=exp((1/5)*ln(abs(cos(2*x)/sin(2+x))+exp(2-x)));

writeln(‘y=’,y);

z:=cos(sqrt(2*x))+sin(sqrt(abs(x-exp(2*x))))

writeln(‘z=’,z);

writeln(‘x=’,x);

end

y= 8.51256764565733E-0001

z= 1.45768334561581E-0001

Program c11;

Var Y,X,Z:Real;

Begin

Write('X=');

Readln(X);

Y:=sin(x)/(cos(x)*exp(5*abs(sqr(x)-x+1)));

Writeln('Y=',Y);

Z:=exp(3*sqr(sin(x)))+cos(exp(x/2));

Writeln('Z=',Z);

End.

X= 3

Y= -8.9877259782E-17

Z= 8.3290640977E-01

7