作业帮pascal编程 现在就要,
来源：学生作业帮 编辑：拍题作业网作业帮 分类：综合作业 时间：2024/04/29 09:44:12
pascal编程 现在就要,
1）已知数列前两项为0,1,从第三项开始,每项都是前两项的和,输出该数列的前50项,每行输出10个数!
2）小明上楼梯,一次可以上1,2,3阶,有n阶,求有多少上法
1）已知数列前两项为0,1,从第三项开始,每项都是前两项的和,输出该数列的前50项,每行输出10个数!
2）小明上楼梯,一次可以上1,2,3阶,有n阶,求有多少上法
1.直接模拟
var i,k:longint;
a:array[1..100] of int64;
begin
a[2]:=1;
write('0 1 ');
k:=2;
for i:=3 to 50 do begin
a[i]:=a[i-1]+a[i-2];
write(a[i],' ');
inc(k);
if k mod 10=0 then writeln;
end;
end.
2.记忆化搜索
var n:longint;
v:array[1..1000] of int64;
function f(k:longint):int64;
begin
if k=0 then exit(1);
if k
var i,k:longint;
a:array[1..100] of int64;
begin
a[2]:=1;
write('0 1 ');
k:=2;
for i:=3 to 50 do begin
a[i]:=a[i-1]+a[i-2];
write(a[i],' ');
inc(k);
if k mod 10=0 then writeln;
end;
end.
2.记忆化搜索
var n:longint;
v:array[1..1000] of int64;
function f(k:longint):int64;
begin
if k=0 then exit(1);
if k