pascal题目

显示全部楼层 · 2011-7-30 14:47:36

有如下数列：2、3、6、…，根据规律产生后续数（10个）。规律；当前一项为偶数时，前一项加1；当前一项为奇数时，前一项乘2。用pascal怎么做

千问 · 2011-7-30 14:47:36

var
a:array[1..11] of longint;{存放后续数}
i:longint;{循环变量}begin
a[1]:=2;{第一项为2}
for i:=2 to 11 do
if a[i-1] mod 2=0 thena:=a[i-1]+1{当前一项为偶数时，前一项加1}
else a:=a[i-1]*2;{当前一项为奇数时，前一项乘2}
for i:=1 to 11 do writeln(a,' ');{输出所有的数列}end....

千问 · 2011-7-30 14:47:36

var
a:array[1..11] of longint;{存放后续数}
i:longint;{循环变量}begin
a[1]:=2;{第一项为2}
for i:=2 to 11 do
if a[i-1] mod 2=0 thena:=a[i-1]+1{当前一项为偶数时，前一项加1}...

千问 · 2011-7-30 14:47:36

Program EX;Var a:Array [0..20] Of LongInt;i:LongInt;BEGINfillchar(a,sizeof(a),0);//把数组 a 全赋为 0如果语句有错误请见谅，好久没看记不清了a[1]:=2;For i:=2 To 20 Do
If a[i-1...