有一分数序列2/1，3/2，5/3，8/5，13/8，21/13…编写程序求出该数列的前20项之和
有一分数序列2/1，3/2，5/3，8/5，13/8，21/13…编写程序求出该数列的前20项之和
求大神帮帮忙吧
第1个回答 2016-01-14
var
i,a0,a1,a2:integer;
s:real;
begin
s:=0;
a0:=1;
a1:=1;
for i:=1 to 20 do begin
a2:=a0+a1;
s:=s+a2/a1;
writeln(a2:0,'/',a1:0);
a0:=a1;
a1:=a2;
end;
writeln(s);
end.
3.2660260799E+01追问
i,a0,a1,a2:integer;
s:real;
begin
s:=0;
a0:=1;
a1:=1;
for i:=1 to 20 do begin
a2:=a0+a1;
s:=s+a2/a1;
writeln(a2:0,'/',a1:0);
a0:=a1;
a1:=a2;
end;
writeln(s);
end.
3.2660260799E+01追问
大神我是大一的学生，这个太深奥了，我们没学到，你可不可以给我用简单的函数，比如for语句
上面的直接看不懂
追答var
a:array[0..50] of real;
i:integer;
s:real;
begin
a[0]:=1;
a[1]:=1;
for i:=2 to 50 do a[i]:=a[i-1]+a[i-2];
for i:=1 to 20 do s:=s+a[i+1]/a[i];
writeln(s);
end.
大神，还是看不懂
实在不行就算了，辛苦了
本回答被提问者和网友采纳
相似回答