Var
x,y,z:real;
begin
Write(' X ');
x:=1;
while x<=3 do begin Write(x:8:5); x:=x+0.5 end;<br> Writeln;
z:=0.3;
while z<=1.5 do begin<br> Write('z=',z:3:1);
x:=1;
while x<=3 do begin<br> y:=exp(0.2*ln(exp(2/3-z)))/sqrt(exp(z*ln(x))+exp(x*ln(z)));
Write(y:8:5);
x:=x+0.5
end;
Writeln;
z:=z+0.3
end
end.
Результат выполнения программы:
X 1.00000 1.50000 2.00000 2.50000 3.00000
z=0.3 0.94379 0.94610 0.93621 0.92082 0.90387
z=0.6 0.80118 0.76823 0.73996 0.71451 0.69128
z=0.9 0.69240 0.63011 0.58342 0.54653 0.51632
z=1.2 0.60599 0.52409 0.46493 0.41998 0.38448
z=1.5 0.53536 0.44161 0.37562 0.32682 0.28913