лабы / лаб6 / lab6_1

program lab6_1;
uses Math;
var
z: real = 0.2;
y1, y2: real;

function pp(x: real): real;
var
n: integer;
s: real = 0;
p: real;
begin
for n := 0 to 15 do
begin
p := (power(-1,n) * (power(x,2*n+1))) / (2*n+1);
s := s + p;
end;
pp := s;
end;

begin

while (z <= 0.7) do
begin
y1 := (pp(z + 0.2) - sqrt(z)) / (pp(0.8) + sqrt(pp(z * z)));
y2 := (arctan(z + 0.2) - sqrt(z)) / (arctan(0.8) + sqrt(arctan(z * z)));
WriteLn('y1: ', y1:1:4, ' y2: ', y2:1:4);
z := z + 0.1;
end;
end.