noip普及组初赛写运行结果+完善程序7.doc

写出下列程序运行结果 VAR A：ARRAY[1。。6]OF INTEGER； I，J，K，S，T：INTEGER； begin a[1]:=1;t:=0; for i:=2 to 6 do begin s:=0; for j:=1 to i-1 do s:=s+a[j]; a[i]:=s+1; end; for i:=1 to 6 do t:=t+a[i]; writeln(‘t=’,t); end. 输出 2．var 　n:byte; 　a:array[1..100] of longint; function f(n:byte):longint; var i:longint; begin 　if a[n-1]0 then i:=a[n-1] else i:=f(n-1); 　if a[n-2]0 then i:=i+a[n-2] 　else i:=i+f(n-2); 　a[n]:=i;f:=i; end; begin 　fillchar(a,sizeof(a),0); 　a[1]:=1;a[2]:=1; 　writeln(F(,8,)=,f(8)); end. 输出： 3．CONST=6; var I,j,k:integer; r:array[0..10] of integer; begin for I:=1 to n do read(r[I]); for I:=2 to n do begin k:=r[I];j:=I-1; while (kr[j]) and (j0) do begin r[j+1]:=r[j];j:=j-1;end; r[j+1]:=k; end; for I:=1 to n do write(r[I], ); end. 输入： 8 10 6 7 3 2 输出 4．var x,x2:longint; procedure digit(n,m:longint); var n2:integer; begin if(m0) then begin n2:=n mod 10; write(n2:2); if(m1) 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(x2x) do x2:=x2*10; x2:=x2 div 10; digit(x,x2); writeln; 5 end. 输入 8735 输出 完善程序： 【问题描述】 读入n个不相同且不为0的数(1n100)，求出其中第R个大的数(1Rn)。 例如：输入3，14，22，15，17，6，其中第3个大的数为15。 [程序说明] 以数组A[100]记录读入的N个数，并以0为结束(0本身不是N个数中的)，然后从第一个数开始，将它与其余的数进行比较，并记录出比它大的数的个数(存于变量y中)，若y=R-1时，得到所求结果，否则对下一个数进行同样的处理。 [程序] program t4_1(input,output); var a:array[1..100]:integer ; i,j,k,x,y:integer; begin read(R); j:=0; read(x); while (1) do begin j:= j +1; (2); read(x) end; i:=0; repeat i:=i+1; x:=a[i] ; y:=0; for k:=1 to (3) do if xa[k] then (4); until (5); write(a[i]); end.