Pascal数组复习推荐课件

1、2021/8/2211、一维数组Type 类型标识符号类型标识符号=array 下标类型下标类型 of 元素类型；元素类型；Var 数组名：类型标识符；数组名：类型标识符；orVar 数组名：数组名：array下标类型下标类型 of 元素类型；元素类型；定义：定义：（1）表示）表示20种商品的价格；种商品的价格；（2）表示）表示30件邮件件邮件 的安全邮递情况；的安全邮递情况；（3）统计）统计50个学生在一次考试（满分为个学生在一次考试（满分为100，最低分为，最低分为0分）中各分数分）中各分数 的分布情况；的分布情况；（4）统计一篇文章中各字母的出现频率（所有字母均小写）。）统计一篇文章中各

2、字母的出现频率（所有字母均小写）。Var price:array1.20 of real; mail:array1.30 of boolean; score:array0.100 of integer; number:arraya.z of integer;2021/8/222想一想：下列数组这定义对不对，如不对，为什么？Var a:array1.n of char; b:array10.1 of integer; c:arrayinteger of boolean; d:array1.0.3.0 of real; e:array1.50000 of real;说明：说明：a数组中数组中n为变

3、量；为变量； b数组中，下标的上下界应从小到大；数组中，下标的上下界应从小到大； c、e数组元素个数太多，空间分配不够；数组元素个数太多，空间分配不够； d数组下标为实型，不是有序类型。数组下标为实型，不是有序类型。2021/8/2232021/8/224Program ex6-2(input,output); const n=10; var a:array1.n of integer; I:integer; temp:integer; begin for I:=1 to n do read(aI); temp:=a1; for I:=1 to n-1 do aI:=aI+1; an:=tem

4、p; for I:=1 to n do write(aI:3);End. 1 2 3 4 n-1 n2 3 4 n-1 n 12021/8/2252021/8/226Program ex6-3(input,output); const n=100; var a:array1.n+1 of integer; 如果如果x插入，数组插入，数组x将增加一个数据将增加一个数据 x:integer; I,j:integer; begin for I:=1 to n do read(aI); read(x); an+1:=x; 将将an+1设为设为x，可以作为后面比较的结束标志，可以作为后面比较的结束标志

5、I:=1 ; while aIx do I:=I+1; 循环结束时，循环结束时，I即为需要插入或删除的位置即为需要插入或删除的位置 if I=n+1 then write(Not found and no place to insert.) x大于数组大于数组a中所有元素中所有元素,无需处理无需处理 else if aI=x then begin 找到找到x，删除，删除 writeln(found and deleted. Result:); for j:=I to n-1 do aj:=aj+1; 数据前移数据前移 for j:=1 to n-1 do write(aj:3); end el

6、se begin 没找到没找到x，插入，插入 writeln(not found and insert. Rusult:); for j:=n+1 downto I+1 do aj:=aj-1; 数据后移数据后移 aI:=x; for j:=1 to n+1 do write(aj:3); end; writeln; end. 2021/8/2272021/8/228Program maopao_sort(input,output); const n=10; var a:array1.10 of integer; I,j,temp:integer; begin for I:=1 to n do

7、 read(aI); for I:=1 to n-1 do for j:=n-1 downto i do if aj+1ai+1 then begin temp:=ai; ai:=ai+1;ai+1:=temp; t:=false; end until t ; writeln; for I:=1 to n do write(aI:4);End.2021/8/2210分析：在标准类型中，分析：在标准类型中，长整型范围是长整型范围是-2147483648-21474483647,而二进而二进制数制数 10000000000的的十进制数为十进制数为1024，因，因此如果直接来转换会此如果直接来转换会

8、出现数据溢出。为了出现数据溢出。为了能更好存储二进制的能更好存储二进制的各个位数，可以采用各个位数，可以采用数组。假定输入的数数组。假定输入的数据是长整型，则存储据是长整型，则存储二进制数的数组长度二进制数的数组长度为为32。十十二的方法是除以二的方法是除以2反向取余法。反向取余法。 Program ex6-5(input,output); var bin:array0.50 of 0.1; x:longint; k,I:integer; Begin read(x); for I:=0 to 50 do binI:=0; 将数组清将数组清0 k:=0; while x0 do begin bi

9、nk:=x mod 2; x:=x div 2; k:=k+1; end; write(二进制为二进制为:) for I:=k-1 downto 0 do write(binI:1); end. 2021/8/22111252011841661015219118137143179设和存放在设和存放在S S中，我们不妨先确定一个序，即确定第一个中，我们不妨先确定一个序，即确定第一个数的位置和最后一个数的位置。假设圆盘上的数的位置和最后一个数的位置。假设圆盘上的2020个数中个数中5 5为第一个数，为第一个数，1212为最后一个数。则可将这为最后一个数。则可将这2020个数放在个数放在a a数数组

10、中。数组的下标取组中。数组的下标取0-190-19。0Imax then begin max:=s;smax:=I;end; if smin then begin min:=s; smin:=I; end; end; write(max:,asmax:2);for I:=1 to 3 do write(+,asmax+I mod 20:2); write(=,max); writeln(start from,smax+1); write(min:,asmin:2);for I:=1 to 3 do write(+,asmin+I mod 20:2); write(=,min);writeln(

11、start from ,smin+1); end. 2021/8/22132021/8/2214Program ex6-7(input,output); var score:arrayA.D of integer; name:array1.4 of char; I,j:integer; select,ch:char; begin read(select); for ch:=A to D do scorech:=0; 将将score数组清数组清0 for I:=1 to 4 do nameI:=chr(ord(A)+I-1); name数组初始化为数组初始化为A、B、C、D while select# do begin if select in A,B,C,D then 有效票有效票 scoreselect:=scoreselect+1; 对应候选人得票数加对应候选人得票数加1 read(select); end; for I:=1 to 3 do for j:=I+1 to 4 do if scorenameIscorenamej then根据票数确定名次根据票数确定名次 begin ch:=nameI; nameI:=namej;namej:=ch; end; writeln(rusult:); for