Женьку

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var
x: real;
i: byte;
function tailor(x: real; n: byte): real;
var
i: byte;
begin
tailor:=0;
for i:=1 to n do
if (i mod 2 = 0) then
tailor:=tailor-sin(x)/i
else tailor:=tailor+sin(x)/i;
end;
BEGIN
x:=-1.57;
for i:=1 to 10 do
begin
writeln(x:8:3, x:10:3, tailor(x, i):10:3, (x-tailor(x, i)):10:3);
x:=x+0.3;
end;
END.