懂c++和pascal的帮帮忙

来源：百度知道 编辑：UC知道 时间：2024/04/30 14:56:37
#include <iostream>
using namespace std;
main()
{

int f[2000],i,j,k,m,n;
f[0]=0;f[1]=1;
for (i=2;i<=1900;i++) f[i]=f[i-1]+f[i-2];
cin >> m;
for (k=1;k<=m;k++)
{
cin >> i;
cout << f[i] << endl;
}
}
谁把这段程序写成pascal的

var f:array[0..2000] of integer;
i,j,k,m,n:longint;
begin
f[0]:=0; f[1]:=1;
for i:=2 to 1900 do f[i]:=f[i-1]+f[i-2];
readln(m);
for k:=1 to m do
begin
readln(i);
writeln(f[i]);
end;
end.
根据程序，所对应的题目是给定m行数据，每行数据包含一个整数i，输出斐波那契数列的第i项，其中i<=2000

program ex;
var
f:array[0..2000] of integer;
i,j,k,m,n:integer;
begin
f[0]:=0;f[1]:=1;
for i:=2 to 1900 do
f[i]:=f[i-1]+f[i-2];
readln(m);
for k:=1 to m do
begin
readln(i);
writeln(f[i]);
end;
end.
典型的斐波那契序列，很简单。