一维数组练习9.11.doc

一、程序阅读：1、Program ex1；Var a, b, c, p, q : integer;r : array0.2 of integer;beginread(a, b, c);p := a div b div c;q := b - c + a + p;r0 := a * p div q * q;r1 := r0 * (r0 - 300);if (3 * q - p mod 3 = r0) and (r2 = r2) thenr1 := rr0 div p mod 2else r1 := q mod p;writeln(r0 - r1);end.输入：100 7 3输出结果：_。2、program chu2；var i，j，f：integer；a：array1.8of integer；beginfor i:=1 to 8 dobeginf:=i mod 2；if f=0 then ai:=0 else ai:=1；for j:=1 to i doif f=0 then ai:=ai+j else ai:=ai*jend；for i:=1 to 8 dowrite(ai：5)；end. 输出：3、program chu3；var a:array1.6 of integer;i,j,p,t:integer;beginfor i:=1 to n do read(ai);for j:=1 to n-1 do begin p:=j; for i:=j to n do if ai ap then p:=i; t:=ap;ap:=aj;aj:=t; end;for i:=1 to n do begin write(ai:2); if i mod 3=0 then writeln; endend.输入：7 2 5 1 9 4输出：4、program yd;var a:array0.8 of char; i: integer;begin for i:= 1 to 8 do ai:=char(i * 2 +ord(A); for i:= 1 to 4 do begin a0:=ai; ai:=a9-i; a9-i:=a0; end; for i:= 1 to 8 do write(ai); writeln;end.输出：_答案：QOMKIGEC二、编程：1、从键盘输入10个数，将这10个数逆序输出，并求这10个数的和，输出这个和。2、编程实现以下任务：由键盘输入20个数，然后按由大到小的顺序输出。三、竞赛真题：陶陶摘苹果【文件名】:apple.pas/c/cpp【问题描述】陶陶家的院子里有一棵苹果树，每到秋天树上就会结出10个苹果。苹果成熟的时候，陶陶就会跑去摘苹果。陶陶有个30厘米高的板凳，当她不能直接用手摘到苹果的时候，就会踩到板凳上再试试。现在已知10个苹果到地面的高度，以及陶陶把手伸直的时候能够达到的最大高度，请帮陶陶算一下她能够摘到的苹果的数目。假设她碰到苹果，苹果就会掉下来。【输入文件】输入文件apple.in包括两行数据。第一行包含10个100到200之间（包括100和200）的整数（以厘米为单位）分别表示10个苹果到地面的高度，两个相邻的整数之间用一个空格隔开。第二行只包括一个100到120之间（包含100和120）的整数（以厘米为单位），表示陶陶把手伸直的时候能够达到的最大高度。【输出文件】输出文件apple.out包括