инф

varz, x, y : real;

begin

writeln ('параметрyпараметрzпараметрx');

y:=0.1;

repeat; begin

z:=exp(ln(sqr(y)/(2*exp(y))));

x:=0.17*sqr(z)-(ln(pi*y)/ln(10));

writeln('y=',y:3:7, ' z=',z:3:7, ' x=',x:3:7);

y:=y+0.25; end

untily>2.1;

end.

vara, b, w, x, t, y:real;

begin

w:=10;

t:=0;

b:=sin(w*sqr(t));

writeln('b=',b);

a:=Sqr(cos(w*t));

writeln('a=',a);

x:=t*ln(w);

writeln('x=',x);

if(x>0) and ( x<b)

then begin y:=a*sqrt(1-(sqr(x)/sqr(b)));

writeln ('y=',y, 'формула 1');

end;

ifb<=abs(x) then begin y:=-1*(sqrt(abs(x-b)));

writeln ('y=',y, ' формула 2');end;

if( x<=0 )and( x>b )then begin y:=a/b*(x+b);

writeln ('y=',y, ' формула 3');

end;

end.