PASCAL第4讲 数组课件.pptVIP

第四讲 数组及其应用;【引例 1：】 从键盘上输入n个数，输出他们的最大数，最小数，平均数。 输入： 第一行：n（100）. 第二行：n个正整数（［1，1000］），中间一个空格隔开。 输出： 第一行：最大数。 第二行：最小数。 第三行：n个数的平均值（小数点后保留2位小数）。 样例： 输入： 4 10 4 20 30 输出： 30 4 16.00;var n,i,x,min,max:integer; sum:longint; begin readln(n); min:=1001; max:=0; for i:=1 to n do begin read(x); sum:=sum+x; if xmax then max:=x; if xmin then min:=x; end; writeln(min); writeln(max); writeln(sum/n:0:2); end.;【引例 2：】 输入全校学生的期中考试总分，按照成绩从高分到低分输出。学校人数不超过1800人。 如： 输入： 5 600 580 620 610 635 输出： 635 620 610 600 580;一、数组 ;1）a是数组名, 代表的并不是一个变量，而是一批变量： a[1],a[2],a[3]……a[1800]共1800个变量。 2）array、of是定义数组的保留字； 3）[1..1800]是数据编号的下限和上限，说明了数据的个数 （上限-下限+1）； 4）最后一个是数据的基类型 ：每个数据元素的数据类型。;2、数组元素的使用： 数组的每个元素和普通的变量完全一样，可以赋值、输入、输出等操作。 如： var a: array [1..1800] of integer; 读入1800个学生的语文成绩： read(a[1]); a[1]:=90; a[i+j]:=120; 数组元素的输入与输出通常用for循环完成： For i:=1 to 1800 do read(a[i]);//读入 For i:=1 to 1800 do write(a[i]);//输出;1、(练习数组的输入与输出基本操作)从键盘上顺序输入n(N100)个数，按输入顺序和反序输出。输入：520 10 4 5 26输出：20 10 4 5 2626 5 4 10 20;2、编程将一个十进制整数k转化为二进制数（k1000000）。 样例： 输入： 19 输出： 10011;;各种进制之间的转换（整数部分）： 1、十转换为二、八、十六进制：方法：除R取余法 2、二、八、十六进制转换为十进制：按权展开即可 3、二、八、十六进制之间的相互转换：间接法和直接法;var k,n, i:longint; a:array[1..20] of integer; begin readln(k); n:=0; while k0 do begin n:=n+1; a[n]:=k mod 2; k:=k div 2; end; for i:=n downto 1 do write(a[i]); end.;3、编程将一个十进制整数k转化为十六进制数（k1000000）。 样例： 输入： 200 输出： C8;var k,n,m,i:longint; a:array[1..20] of byte; begin readln(k); m:=0; while k0 do begin m:=m+1; a[m]:=k mod 16; k:=k div 16; end; for i:=m downto 1 do begin if a[i]=9 then write(a[i]); end; end.;var k,n,i:longint; a:array[1..20] of byte; begin readln(k); n:=0; while k0 do begin n:=n+1; a[n]:=k mod 16; k:=k div 16