лабы / лаб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.