pascal 的fibonacci问题.求第n项的值.这个为啥偶数的是对的.奇数输出就不对了.

来源：学生作业帮编辑：搜搜考试网作业帮分类：综合作业时间：2024/06/06 09:31:24

pascal 的fibonacci问题.求第n项的值.这个为啥偶数的是对的.奇数输出就不对了.
var a,b,c,n:integer;
begin
read(n);
b:=0;
c:=1;
a:=0;
repeat
c:=c+b;
b:=c+b;
a:=a+1;
until a=round(n div 2);
if n mod 2=1 then
write(c);
if n mod 2=0 then
write(b)
end.

何苦这么写呢
var
i,n:integer;
a,b,c:qword;
begin
readln(n);
a:=1;b:=1;c:=1;
for i:=3 to n do begin
c:=a+b;
a:=b;
b:=c;
end;
writeln(c);
end.

你的代码虽然比我的代码再循环中少一次赋值,但是
until a=round(n div 2);

这一句要做一次整除运算,还要调用函数,就不如我的了
再问： i:=3to n 的意义是什么。。谢谢
再答：你们没学过for循环，while循环应该学过吧就是 i:=3; while i

pascal 的fibonacci问题.求第n项的值.这个为啥偶数的是对的.奇数输出就不对了. pascal 读10个数,输出偶数项及它们的和,输出奇数项及它们的平均数求Fibonacci数列的第n项的VB程序用VB编程求Fibonacci数列的第n项用do-while编写,程序求输入的10个数,判断每个数是奇数还是偶数.如果是奇数输出奇数二字,偶数就输出偶数二用do-while编写程序求输入的10个数,判断每个数是奇数还是偶数.如果是奇数输出奇数二字,偶数就输出偶数二字 vb 编程输出fibonacci数列的前N项输入m和n,输出m-n之间的所有Fibonacci数,要求使用调用函数fib（n）,它的功能是返回第n项Fibonacc c语言求Fibonacci数列前N项的函数,从主函数输出数列,哪错了.. 用pascal 输入N个数,计算偶数、奇数和零的个数编写函数（非递归函数）,计算Fibonacci数列第n项的值,n在主函数中输入,结果在主函数中输出. 输入一个正整数 N（N>2）,输出 Fibonacci 数列的前 N 项的值,写出算法.