Процедуры и функции: вычислить значение составной функции - Turbo Pascal - Ответ 3451933

uses crt;
 
var x: real;
 
{----------------------------------------------------------------}
function y(): real;
var sh: real;
begin
sh := 0.75*sqr(x) + x - 1;
sh := (exp(sh) - exp(-sh)) / 2;
if x < 0.5 then y := sqrt(abs(sh)) else
if x = 0.5 then y := 0.256*sh else
 y := 12.75*sh;
end;
{----------------------------------------------------------------}
 
 
begin clrscr;
write('x = '); readln(x);
writeln('y = ',y():0:2);
readkey; end.

uses crt;
 
var s,t: real;
 
{--------------------------------------------------------------------}
function h(a,b: real): real;
begin
h := a/(1+sqr(b)) + b/(1+sqr(a)) - sqr(a - b);
end;
{--------------------------------------------------------------------}
 
 
begin clrscr;
write('s = '); readln(s);
write('t = '); readln(t);
writeln('h(s,t) + h^2(s-t,st) + h^4(s,s+t) = ',
        h(s,t) + sqr(h(s-t,s*t)) + sqr(sqr(h(s,s+t))) :0:2);
readkey; end.

uses crt;
 
var a,b: real;
 
{---------------------------------------------------------------}
function f(u,t: real): real;
begin
if u > 0 then f := u + sin(t)
 else f := u + t;
end;
{---------------------------------------------------------------}
function z(): real;
begin
z := f(sin(a),b) + f(cos(a),b) + f(sqr(sin(a)),b - 1) +
     f(sin(a) - cos(a),sqr(b) - 1) + f(sqr(sin(a)) - 1,cos(a) + b);
end;
{---------------------------------------------------------------}
 
 
begin clrscr;
a := pi/18; b := -2.1;
writeln('a) z = ',z():0:2);
a := 2.3; b := 21.3;
writeln('b) z = ',z():0:2);
a := -pi/14; b := -0.2;
writeln('c) z = ',z():0:2);
a := -pi/10; b := 43.2;
writeln('d) z = ',z():0:2);
readkey; end.