Лабы Паскаль / лабы 5 / LAB_4_1

program lab_4_1;

var
a, x, z:real;
begin
a := 1.0;
writeln(' a | x | z ');
writeln('-----+------------+------------');
while a <= 1.61 do begin
x := 0;
while x <= 3.61 do begin
if x <= 2 then
z := ln(a+x*x/sqr(a))
else
z := 2*exp(2*x);
writeln(a:5:2, '|', x:12:2, '|', z:12:2);
x := x + a / 4;
end;
a := a + 0.3;
end;
readln;
end.