NOIP全国青少年信息学奥林匹克联赛复习Pascal——数组PPT学习教案

1、会计学1NOIP全国青少年信息学奥林匹克联赛复全国青少年信息学奥林匹克联赛复习习Pascal数组数组想一想：下列数组这定义对不对，如不对，为什么？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为变量；为变量； b数组中，下标的上下界应从小到大；数组中，下标的上下界应从小到大； c、e数组元素个数太多，空间分配不够；数组元素个数太多，空间分配不够； d数组下标为实型，不是有

2、序类型。数组下标为实型，不是有序类型。第1页/共15页第2页/共15页Program 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:=temp; for I:=1 to n do write(aI:3);End. 1 2 3 4 n-1 n2 3 4 n-1 n 1第3页/共15页第4页/共15页Program ex6-3(

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，可以作为后面比较的结束标志，可以作为后面比较的结束标志 I:=1 ; while aIx do I:=I+1; 循环结束时，循环结束时，I即为需要插入或删除的位置即为需要插入或删除的位置 if I=n+1 then write(Not found a

4、nd 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 else begin 没找到没找到x，插入，插入 writeln(not found and insert. Rusult:); for j:=n+1 downto I+1 do aj:=aj-1;

5、 数据后移数据后移 aI:=x; for j:=1 to n+1 do write(aj:3); end; writeln; end. 第5页/共15页第6页/共15页Program maopao_sort(input,output); const n=10; var a:array1.10 of integer; I,j,temp:integer; begin for I:=1 to n do 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:=

6、temp; t:=false; end until t ; writeln; for I:=1 to n do write(aI:4);End.第8页/共15页分析：在标准类型分析：在标准类型中，长整型范围是中，长整型范围是-2147483648-21474483647,而二而二进制数进制数 10000000000的十的十进制数为进制数为1024，因，因此如果直接来转换此如果直接来转换会出现数据溢出。会出现数据溢出。为了能更好存储二为了能更好存储二进制的各个位数，进制的各个位数，可以采用数组。假可以采用数组。假定输入的数据是长定输入的数据是长整型，则存储二进整型，则存储二进制数的数组长度为制数

7、的数组长度为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 bink:=x mod 2; x:=x div 2; k:=k+1; end; write(二进制为二进制为:) for I:=k-1 downto 0 do write(binI:1); end. 第9页/共1

8、5页1252011841661015219118137143179设和存放在设和存放在S S中，我们不妨先确定一个序，即确定第一中，我们不妨先确定一个序，即确定第一个数的位置和最后一个数的位置。假设圆盘上的个数的位置和最后一个数的位置。假设圆盘上的2020个数个数中中5 5为第一个数，为第一个数，1212为最后一个数。则可将这为最后一个数。则可将这2020个数放个数放在在a a数组中。数组的下标取数组中。数组的下标取0-190-19。0Imax then begin max:=s;smax:=I;end; if smin then begin min:=s; smin:=I; end; end

9、; 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(start from ,smin+1); end. 第11页/共15页第12页/共15页Program ex6-7(input,output); var score:arrayA.D of integer; nam

10、e: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; e