NOIP初赛练习之三阅读程序写出程序运行结果

NOIPNOIP 初赛练习之三（阅读程序写出程序运行结果）初赛练习之三（阅读程序写出程序运行结果） 前言前言 如何做阅读程序题如何做阅读程序题 阅读程序题是得分的关键， 因为不是让你上机去运行程序， 所以要一步步地读程序， 记 录相关变量的值， 最好以画表的形式来记录相关变量值的变化情况。 因为程序的运行结果只 有输出语句才有输出，所以只写出输出语句的结果。 有时要找出规律才能写出结果， 特别是循环次数多的情况， 另外要注意边界值，不能多 算一步也不能少算一步。 这几年的初赛题一般是四道阅读程序题，每道题 8 分总分为 32，因此阅读程序题最能 拉开分差。 {1.1996 年初中组基础题第 4 题}{写出程序运行后变量 X 的值} x13;x28; for i1 to 5 do begin xx1x2*2; x1x2;x2x; end; writelnx,x; {2.1996年初中组第5题 高中组第3题}{写出程序段运行后数组元素a1,a2.,a11的值} a[1]1;a[2]1;k1; repeat a[k2]1; for ik downto 2 do a[i]a[i]a[i-1]; kk1; until k10; {3.1998 年 写程序运行结果 初中组第 1 题 高中组第 1 题} program exp1,output; var i,s,naxinteger; aarray[110] of integer; begin for i1 to 10 do reada[i]; maxa[1];sa[1]; for i2 to 10 do begin if smax then maxs; end; writelnmax,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.1998 年 初中组写程序运行结果 第 2 题} program exp2,output}; const n5; var i,j,kinteger; aarray[12*n,12*n] of integer; begin k1; for i1 to 2*n-1 do if i0 then begin writei4;ss1; end; writeln; writelns,s; writeln data;readlnx; writelng[x]; end. { 输入 10 20 65} { data 10} {输出 } {7.1998 年 高中组第 3 题} program exp3,output; var i,jinteger; barray[05] of integer; begin s1; for i1 to 5 fo b[i]i; j1; while j0 do begin j5; while j0 and b[j]10j-5 do jj-1; if j0 then begin ss1;b[j]b[j]1; for ij1 to 5 do b[i]b[j]i-j end; end; writelns,s; end. {8 1998 年高中组第 4 题} program exp4, output; const n4; type searray[1n*2] of char; var i,j,i1,j1,k,s,t,s1,l,swapinteger; tempchar; ase; begin for i1 to n*2 do reada[i];readln; s0;t0; for i1 to n*2 do if a[i]1 then ss1 else if a[i]0 then tt1; if sn or tn then writelnerror else begin s10; for i1 to 2*n-1 do if a[i]a[i1] then s1s11; writelnjamp,s1; swap0; for i1 to 2*n-1 do for ji1 to 2*n do if a[i]a[j] then begin tempa[i];a[i]a[j];a[j]temp; s0; for l1 to 2*n-1 do if a[l]a[l]1 then ss1; if sswap then begin swaps;i1i;j1j end; tempa[i];a[i]aj]a[j]temp; end; if swap0 then writelnmaxswap,swap-s1,i,i1,j1,j1; end end. {输入10101100} {9. 1999 年初中组第 1 题} program exp1; var x,y,y1,jk,j1,gmeinteger; aarray [120] of 09; begin x3465;y264;jk20; for j11 to 20 do a[j1]0; while y0 do begin y1y mod 10; yy div 10; while y10 do begin gx; for ejk downto 1 do begin gga[e]; a[e]g mod 10; gg div 10; end; y1y1-1; end; jkjk-1; end; j11; while a[j1]0 do j1j11; for jkj1 to 20 do writea[jk]4; writeln end. {10.1999 年初中组第 2 题} program excp1; var i,jinteger; aarray[114] of integer; procedure swi1,j1integer; var k1integer; begin for k11 to j1-i11 div 2 do begin a[i1k1-1]a[i1k1-1]a[j1-k11]; a[j1-k11]a[i1k1-1]-a[j1-k11]; a[i1k1-1]a[i1k1-1]-a[j1-k11]; end; end; begin j211; for i1 to 14 do begin a[i]i;jj-i; end; sw1,4;sw5,10;sw11,14;