信息学奥赛阅读程序练习题.docxVIP

— PAGE \* Arabic 1 — 信息学奥赛阅读程序练习题 阅读程序练习题—写出程序运行结果第一组（共12题）  1.program ex1;  var i,x1,x2,x:integer;  begin  x1:=3;  x2:=8;  for i:=1 to 5 do  begin  x:=(x1+x2)*2;  x1:=x2;x2:=x;  end;  writeln(x=,x);  end.  2.program ex2;  var a:array[1..11] of integer;  i,k:integer;  begin  a[1]:=1;a[2]:=1;k:=1;  repeat  a[k+2]:=1;  for i:=k downto 2 do  a[i]:=a[i]+a[i-1];  k:=k+1;  until k=10;  for i:=1 to 11 do  write(a[i]:4);  writeln;  end.  3.program ex3;  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 smax then max:=s;  end;  writeln(max=,max)  end.  输入:-2 13 -1 4 7 8 -1 -18 24 6  输出:max=  输入:8 9 -1 24 6 5 11 15 -28 9  输出:max=  4.program ex4;  const n=5;  var i,j,k:integer;  a:array[1..2*n,1..2*n] of integer; begin  k:=1; for i:=1 to 2*n-1 do  if i0 then begin write(i:4);s:=s+1;end; writeln;  writeln(s=,s);  writeln(input data:);readln(x);  writeln(g[x])  end.  输入:10 20 65  input data: 10  输出:  7.program excp1;  var  x,y,y1,jk,j1,g,e:integer;  a:array[1..20] of 0..9;  begin  x:=3465;y:=264;jk:=20;  for j1:=1 to 20 do a[j1]:=0;  while y0 do  begin  g:=x;  for e:=jk downto 1 do  begin  g:=g+a[e];  a[e]:=g mod 10;  g:=g div 10  end;  y1:=y1-1  end;  jk:=jk-1  end;  j1:=1;  while a[j1]=0 do j1:=j1+1;  for jk:=j1 to 20 do write(a[jk]:4);  writeln  end.  8.program ex9;  var  i,j:integer;  a:array[1..14] of integer;  procedure sw(i1,j1:integer);  var k1:integer;  begin  for k1:=1 to (j1-i1+1) div 2 do  begin  a[i1+k1-1]:=a[i1+k1-1]+a[j1-k1+1]; a[i1-k1+1]:=a[i1+k1-1]-a[j1-k1+1];  a[i1+k1-1]:=a[i1-k1+1]-a[j1-k1+1];  end;