Цитата:
Сообщение от Аня Молчанова
Владик это красный динозавр?????
|
Динозавр, динозавр... Ладно. Вернемся к скучной прозе жизни:
Код:
Var
x:Real;
Function Tan(z:real):real;
begin
Tan:=Sin(z)/Cos(z);
end;
Function Y(z:real):real;
begin
Y:=(z*Sqr(Sqr(z))+Exp(-2.0*Abs(z)))/Sqrt(Sqrt(9.0-Sqr(z)))*
Tan(Sqr(Cos(z)))*Sqr(Tan(Sqr(Cos(z))));
end;
Function F(z:real):Integer;
begin
if z>0 then F:=1
else
if z<0 then F:=-1
else F:=0;
end;
Begin
Repeat
Write('x= ');
Readln(x);
If Abs(x)>3 then Writeln('Incorrect: x must be between -3 and +3');
Until Abs(x)<=3;
Writeln('Y= ',Y(x):0:3);
Writeln('F= ',F(Y(x)));
Readln
End.