оформить код в виде программы

[majesta]

приближенные вычисления


1. k=(-x*x)/(4*i*i+6*i+2)

function n5 (var x:real): real;
var s,y:real; i:integer;
begin s:=0; i:=0; y:=1;
while y>0.0001 do
begin s:=s+y; i:=i+1;
y:=(y*(-x*x))/(4*i*i+6*i+2);
end;
n5:=s; end;

вызов функции

for j:=0 to 16 do
begin
x:=-pi+(pi*j)/8; y:+n5(x);
writeln ('x=', x:6:5, 'y=', y:7:5);
end;

нужно оформить как программу, помогите пожалуйста.

[Хыиуду]

Код: Выделить всё

function n5 (var x:real): real;
var s,y:real; i:integer;
begin s:=0; i:=0; y:=1;
while y>0.0001 do
begin s:=s+y; i:=i+1;
y:=(y*(-x*x))/(4*i*i+6*i+2);
end;
n5:=s; end;
var j: byte; x,y: real;
begin
for j:=0 to 16 do
begin
x:=-pi+(pi*j)/8; y:=n5(x);
writeln ('x=', x:6:5, 'y=', y:7:5);
end; 
end.