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

写出下列程序运行结果1 VAR A：ARRAY1。6OF INTEGER； I，J，K，S，T：INTEGER；begin a1:=1;t:=0;for i:=2 to 6 do begins:=0;for j:=1 to i-1 do s:=s+aj; ai:=s+1; end;for i:=1 to 6 do t:=t+ai;writeln(t=,t);end.输出2varn:byte;a:array1.100 of longint;function f(n:byte):longint;var i:longint;beginif an-10 then i:=an-1 else i:=f(n-1);if an-20 then i:=i+an-2else i:=i+f(n-2);an:=i;f:=i;end;beginfillchar(a,sizeof(a),0);a1:=1;a2:=1;writeln(F(,8,)=,f(8);end.输出：3CONST=6;var I,j,k:integer; r:array0.10 of integer;begin for I:=1 to n do read(rI); for I:=2 to n do begin k:=rI;j:=I-1; while (krj) and (j0) do begin rj+1:=rj;j:=j-1;end; rj+1:=k; end; for I:=1 to n do write(rI, );end.输入： 8 10 6 7 3 2 输出 4var 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。程序说明 以数组A100记录读入的N个数，并以0为结束(0本身不是N个数中的)，然后从第一个数开始，将它与其余的数进行比较，并记录出比它大的数的个数(存于变量y中)，若y=R-1时，得到所求结果，否则对下一个数进行同样的处理。程序program t4_1(input,output);var a:array1.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