用PL0语言求Fibonacci数列前m个中偶数位的数
程序说明:求Fibonacci数列前m个中偶数位的数;
这是编译原理作业,本打算写 求Fibonacci数列前m个数;写了半天,不会写,就放弃了;
程序代码如下:
var n1,n2,m,i;
procedure panduan;
begin
i:=2;
while i<m do
begin
n1:=n1+n2;
n2:=n1+n2;
i:=i+1;
write(n2);
end;
end;
begin
read(m);
n1:=1;
n2:=1;
if m=2 then
write(n1,n2);
if m>2 then
write(n1,n2);
call panduan;
End.