Pascal阅读程序练习题.pdf

4． program exp1(imput,output); var i,s,max:integer; a:array [1..10] of integer; begin for i: 1to 10 do read(a[i]); max: a[1];s: a[1]; for i: 2 to 10 do begin if s0 thens: 0; s: s+a[i]; if smax then max: s end; writeln(‘max ’,max) end. 输入：-2 13 -14 7 8 -1-18 24 6 输出：max 输入：8 9 －124 6 5 11 15 －28 9 输出：max 5．program exp2 (input,output); const n 5; var i,j,k:integer; a:array[1..2*n, 1..2*n] of integer; begin k: 1; for i: 1to 2*n-1do if i nthen if odd(i)thenforj: idownto 1do begin a[i-j+1,j]: k; k: k+1end else forj: 1to i do begin a[i-j+1,j]: k; k: k+1;end else if odd(i) thenforj: n downto i-n+1do begin a[i-j+1,j]: k; k: k+1;end else forj: i-n+1to ndo begin a[i-j+1,j]: k; k: k+1;end; for i: 1to n do begin forj: 1to n do write(a[i,j]:3); writeln end; end. 6．program exp3 (input,output); const n 10; var s,i:integer; function co(i1:integer):integer; varj1,s1:integer; begin s1: n;forj1: (n-1) downto (n-i1+1) do s1: s1*j1div (n-j1+1); co: s1 end; begin s: n+1;for i: 2 to n do s: s+co(i); writeln(‘s ’,s); end. 7．program exp4(input,output); const n 3; var i,j,s,x:integer; p:array [0..n+1] of integer; g:array [0..100] of integer; begin for i : 0to 100 do g[i]: 0; p[0]: 0; p[n+1]: 100;for i: 1to n do read (p[i]); readln; for i: 0 to n do forj: i+1to n+1do g[abs(p[j]-p[i])]: g[abs(p[j]-p[i])]+1; s: 0;for i: 0 to 100 do if g[i]0 then beginwrite(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 输出： 8．program excpl; varx,y,y1,jk,j1,g,e:integcr; a:array [l..20] of 0..9; begin x: 3465;y: 264;jk: 20;forj1: 1to 20 do a[j1]: 0; while y＜＞0 do begin y1: y mod 10;y: y div 10; while y1＜＞0 do begin g: x; fore: jkdownto 1do beging: 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 doj1: j1+1; forjk: j1to 20 do write(a[jk]:4);writeln end. 9．program excp2 var i,j:integer; a:array [1..14] of integer;