全国信息学奥赛1995~2004年分类试题汇编(阅读程序).docVIP

1．请将以下程序段表示的计算公式写出来（假设X的值已给出） E:=1; A:=1; FOR N:=1 TO 10 DO BEGIN A:=A*X/N; E:=E+A; ENDFOR; 写出所表示的公式。 2．阅读下列程序段，写出程序段运行后变量X的值。 X1:=3; X2:=8; FOR I:=1 TO 5 DO BEGIN 循环结构，应用数据轮换方式，求两个数和的2倍。 X:=（X1+X2）*2; X1:=X2; X2:=X; END; WRITELN（‘X=’,X）; 3．阅读下列程序段，写出程序运行后数组元素A1，A2，…，A11中的值。 A[1]:=1; A[2]:=1; K:=1; REPEAT A[K+2]:=1; FOR I:=K+1 DOWNTO 2 DO A[I]:=A[I]+A[I-1]; K:=K+1; UNTIL K=10; 4． program exp1 (iput,output); var i,s,max:integer; a:array [1..10] of integer; begin for i:=1 to 10 do read(a[i]); max:=a[1]; s:=a[1]; for i:=2 to 10 do begin if s0 then s:=0; s:=s+a[i]