PS：由于文字版试题公布，图片已经被删除～]]> ); a:=(u[0]+u[1]+u[2]+u[3]) div 7; b:=u[0] div ((u[1]-u[2]) div u[3]); x:=(u[0]+a+2)-u[(u[3]+3) mod 4]; if (x>10) then y:=y+(b*100-u[3]) div (u[u[0] mod 3]*5) else y:=y+20+(b*100-u[3]) div (u[u[0] mod 3]*5); writeln (x,',',y); end. {*注：本例中，给定的输入数据可以避免分母为0或下标越界。 } 输入：9 3 9 4 输出：_______________ 2.Program ex302; const m:array[0..4] of integer=(2,3,5,7,13); var i,j:integer; t: longint; begin for i:=0 to 4 do begin t:=1; for j:=1 to m-1 do t:=t*2; t:=(t*2-1)*t; write (t,' '); end; writeln; end. 输出:____________________ 3.Program ex303; Const NN=7; Type Arr1=array[0..30] of char; var s:arr1; k,p:integer; Function fun(s:arr1; a:char;n:integer):integer; var j:integer; begin j:=n; while (a<s[j])and(j>0) do dec(j); fun:=j; end; begin for k:=1 to NN do s[k]:=chr(ord('A')+2*k+1); k:=fun(s,'M',NN); writeln(k); end. 输出：_____________ 4.program ex304; var x,x2:longint; procedure digit(n,m:longint); var n2:integer; begin if(m>0) then begin n2:=n mod 10; write(n2:2); if(m>1) then digit(n div 10,m div 10); n2:=n mod 10; write(n2:2); end; end; begin writeln('Input a number:'); readln(x); x2:=1; while(x2<x) do x2:=x2*10; x2:=x2 div 10; digit(x,x2); writeln; end. 输入：9734526 输出：______________________________ 四．完善程序 (前4空，每空2.5分，后6空，每空3分，共28分) 1．（全排列）下面程序的功能是利用递归方法生成从1到n(n<10)的n个数的全部可能的排列（不一定按升序输出）。例如，输入3，则应该输出（每行输出5个排列）： 123 132 213 231 321 312 程序： Program ex401; Var i,n,k:integer; a:array[1..10] of integer; count:longint; {变量count记录不同排列的个数，这里用于控制换行} Procedure perm(k:integer); var j,p,t:integer; begin if ① then begin inc(count); for p:=1 to k do write(a[p]:1); write(' '); if ( ② ) then writeln; exit; end; for j:=k to n do begin t:=a[k]; a[k]:=a[j]; a[j]:=t; ③ ; t:=a[k]; ④ ; end end; begin writeln('Entry n:'); read(n); count:=0; for i:=1 to n do a:=i; ⑤ ; end. 2. 由键盘输入一个奇数 P (P<100,000,000)，其个位数字不是5，求一个整数 S，使 P×S = 1111...1 ( 在给定的条件下，解 S 必存在)。要求在屏幕上依次输出以下结果: （1）S 的全部数字。除最后一行外，每行输出 50 位数字。 （2） 乘积的数字位数。 例1：输入p=13，由于13*8547=111111，则应输出（1）8547，（2）6 例2：输入p=147，则输出结果应为（1）755857898715041572184429327286470143613 （2）42，即等式的右端有42个1。 程序： program ex402; var p,a,b,c,t,n:longint; begin while (true) do begin writeln ('Input p, the last digit is 1 or 3 or 7 or 9:'); readln(p); if (p mod 2<>0)and(p mod 5<>0) then ⑥ ; {如果输入的数符合要求，结束循环 } end; a:=0; n:=0; while (a<p) do begin a:=a*10+1; inc(n); end; t:=0; repeat b:=a div p; write(b:1); inc(t); if ( ⑦ ) then writeln; c:= ⑧ ; a:= ⑨ inc(n); until c<=0; dec(n); writeln; writeln('n=', ⑩ ); end.]]> PS：由于文字版试题公布，图片已经被删除～]]>