инф
.docx
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.