Hungry / Z6

const
h=0.1;
a=0; b=1;
n=round((b-a)/h);

var
result :text;
arr :array [0..n, 0..n] of real;
i,k :integer;
x,t :real;

function f(x:real):real;
begin
f:=0.5*x*(x+1);
end;

function ft(x:real):real;
begin
ft:=x*cos(x);
end;

function q(t:real):real;
begin
q:=2*t*t;
end;

function g(t:real):real;
begin
g:=1;
end;

Begin

for i:=0 to n do begin
x:=a+i*h;
arr[i,0]:=f(x);
end;

for k:=0 to n do begin
t:=a+k*h;
arr[0,k]:=q(t);
end;

for k:=0 to n do begin
t:=a+k*h;
arr[10,k]:=g(t);
end;

for i:=1 to 9 do begin
x:=a+i*h;
arr[i,1]:=arr[i,0]+h*ft(x);
end;

for k:=2 to 10 do begin
for i:=1 to 9 do begin
arr[i,k]:=arr[i+1,k-1]+arr[i-1,k-1]-arr[i,k-2];
end;
end;

assign(result, 'Result.txt');
rewrite(result);

write (result, ' i ');

for i:=0 to 10 do begin
write(result, i:8);
end;

writeln(result);
writeln(result,'k');

for k:=0 to 10 do begin
write(result,' ');
write(result, k:2);

for i:=0 to 10 do begin
write(result, arr[i,k]:8:3);
end;

writeln(result);
end;

close(result);

End.