pascal第4讲数组及其应用.pptVIP

* * 第二讲 数组及其应用 【引例 1：】 从键盘上输入n个数，输出他们的最大数，最小数，平均数。 输入： 第一行：n（100）. 第二行：n个正整数（［1，1000］），中间一个空格隔开。 输出： 第一行：最大数。 第二行：最小数。 第三行：n个数的平均值（小数点后保留2位小数）。 样例： 输入： 4 10 4 20 30 输出： 30 4 16.00 【引例 2：】 输入全校学生的期中考试总分，按照成绩从高分到低分输出。学校人数不超过1800人。 如： 输入： 5 600 580 620 610 635 输出： 635 620 610 600 580 一、数组 一)一维数组 1.数组的定义　　用来描述由固定数目的同一类型的元素组成的数据结构。 一维数组类型的定义 一维数组类型的一般格式： array[下标1..下标2] of 基类型; 全校1800名学生： 如：var a: array [1..1800] of integer; 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 var n,i:integer; a:array[1..100] of integer; begin readln(n); for i:=1 to n do read(a[i]); for i:=1 to n do write(a[i],’ ‘); for i:=n downto 1 do write(a[i],’ ‘); end. 二）数组的应用 2、编程将一个十进制整数k转化为二进制数（k1000000）。 样例： 输入： 19 输出： 10011 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F 16 十六进制 0,1,2,3,4,5,6,7,8,9 10 十进制 0,1,2,3,4,5,6,7 8 八进制 0,1 2 二进制 基本符号 基数R 进制 四种进制： 各种进制之间的转换（整数部分）： 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]);