Помогите пожалуйста с программой..(в Паскале) Составить программу табулирования функции заданной рекурентной формулой. f(0)=1; f(1)=2; f(n+2)=2*f(n+1)-n
Answers & Comments
kitchenrecords
Function f(n:integer): integer; begin if n=0 then f := 1 else if n=1 then f := 2 else f := 2*f(n-1)-n+2; end;
var n: integer; begin writeln('n':5, 'f(n)':10); for n := 0 to 20 do writeln(n:5, f(n):10); end.
Answers & Comments
begin
if n=0 then f := 1
else if n=1 then f := 2
else f := 2*f(n-1)-n+2;
end;
var n: integer;
begin
writeln('n':5, 'f(n)':10);
for n := 0 to 20 do
writeln(n:5, f(n):10);
end.