?? fibonacci數列.txt
字號:
\\ Fibonacci數列: 1,1,2,3,5,8,13,21.....
var
f1,f2,f3,flag,Number;
begin
f1:=1;
f2:=1;
flag:=3;
read(Number);\輸出數列的項數
if Number=1 then write(f1);
if Number>=2 then
begin
write(f1);write(f2);
while flag<=Number do
begin
f3:=f1+f2;
f1:=f2;
f2:=f3;
write(f3);
flag:=flag+1;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -