Lab5_4A

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
Program Lab5_4A;
var
x, x0, xk, h, f: real;
begin
writeln('Vvedit x0, xk, h : ');
readln(x0, xk, h);
writeln('Tabuluvannya funkcii:');
writeln('_____________________');
writeln('| x | f |');
writeln('|_________|_________|');
x := x0;
while x <= xk do begin
f := exp(x) / (x + sin(x) / cos(x)) + sqrt((sqr(x) - 1) / (sqr(x) + 3 * x + 1)) - arctan(x);
writeln('|', x:9:3, '|', f:9:3, '|');
x := x + h;
end;
writeln('|_________|_________|');
end.