Question

编程free Pascal n 的立方表示成n个奇数和、

只能用递归，求源代码及讲解，谢谢

Answer 1

题目应为：编程求n的平方，用从1开始的n个奇数和的算法完成。
function powern(n:integer):longint;
begin
if n=1 then powern:=1
else powern:=powern(n-1)+2*n-1;
end;

begin
writeln(powern(1000));
end.

追问

若用递推如何做？

追答

function powern(n:integer):longint; {递归算法}
begin
if n=1 then powern:=1
else powern:=powern(n-1)+n+n-1;
end;

function power(n:integer):longint; {递推算法}
var
i:integer;
temp:longint;
begin
temp:=0;
for i:=1 to n do temp:=temp+i+i-1;
power:=temp;
end;

begin
writeln(powern(1000):9,power(1000):9);
end.