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

program Project1;

const
a = -1;
b = 3;
n = 20;
var
i : integer;
dx, x, f1, f2: real;
f1ar, f2ar, xar: array[1..n] of real;
begin

dx := abs(b - a) / (n - 1);
x := a;
for i := 1 to n do begin
f1ar[i] := exp(-x*LN(2)) / 100;
f2ar[i] := 20 / (1 + x*x);
xar[i] := x;
x := x + dx;
end;



for i := 1 to n do begin
writeln('|', i:3, '|', xar[i]:8:3, '|', f1ar[i]:8:4, '|', f2ar[i]:8:4, '|');
end;
readln;
end.