Pascal數(shù)組復(fù)習(xí)推薦課件

1、2021/8/2211、一維數(shù)組Type 類(lèi)型標(biāo)識(shí)符號(hào)類(lèi)型標(biāo)識(shí)符號(hào)=array 下標(biāo)類(lèi)型下標(biāo)類(lèi)型 of 元素類(lèi)型；元素類(lèi)型；Var 數(shù)組名：類(lèi)型標(biāo)識(shí)符；數(shù)組名：類(lèi)型標(biāo)識(shí)符；orVar 數(shù)組名：數(shù)組名：array下標(biāo)類(lèi)型下標(biāo)類(lèi)型 of 元素類(lèi)型；元素類(lèi)型；定義：定義：（1）表示）表示20種商品的價(jià)格；種商品的價(jià)格；（2）表示）表示30件郵件件郵件 的安全郵遞情況；的安全郵遞情況；（3）統(tǒng)計(jì)）統(tǒng)計(jì)50個(gè)學(xué)生在一次考試（滿(mǎn)分為個(gè)學(xué)生在一次考試（滿(mǎn)分為100，最低分為，最低分為0分）中各分?jǐn)?shù)分）中各分?jǐn)?shù) 的分布情況；的分布情況；（4）統(tǒng)計(jì)一篇文章中各字母的出現(xiàn)頻率（所有字母均小寫(xiě)）。）統(tǒng)計(jì)一篇文章中各

2、字母的出現(xiàn)頻率（所有字母均小寫(xiě)）。Var price:array1.20 of real; mail:array1.30 of boolean; score:array0.100 of integer; number:arraya.z of integer;2021/8/222想一想：下列數(shù)組這定義對(duì)不對(duì)，如不對(duì)，為什么？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;說(shuō)明：說(shuō)明：a數(shù)組中數(shù)組中n為變

3、量；為變量； b數(shù)組中，下標(biāo)的上下界應(yīng)從小到大；數(shù)組中，下標(biāo)的上下界應(yīng)從小到大； c、e數(shù)組元素個(gè)數(shù)太多，空間分配不夠；數(shù)組元素個(gè)數(shù)太多，空間分配不夠； d數(shù)組下標(biāo)為實(shí)型，不是有序類(lèi)型。數(shù)組下標(biāo)為實(shí)型，不是有序類(lèi)型。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插入，數(shù)組插入，數(shù)組x將增加一個(gè)數(shù)據(jù)將增加一個(gè)數(shù)據(jù) x:integer; I,j:integer; begin for I:=1 to n do read(aI); read(x); an+1:=x; 將將an+1設(shè)為設(shè)為x，可以作為后面比較的結(jié)束標(biāo)志，可以作為后面比較的結(jié)束標(biāo)志

5、I:=1 ; while aIx do I:=I+1; 循環(huán)結(jié)束時(shí)，循環(huán)結(jié)束時(shí)，I即為需要插入或刪除的位置即為需要插入或刪除的位置 if I=n+1 then write(Not found and no place to insert.) x大于數(shù)組大于數(shù)組a中所有元素中所有元素,無(wú)需處理無(wú)需處理 else if aI=x then begin 找到找到x，刪除，刪除 writeln(found and deleted. Result:); for j:=I to n-1 do aj:=aj+1; 數(shù)據(jù)前移數(shù)據(jù)前移 for j:=1 to n-1 do write(aj:3); end el

6、se begin 沒(méi)找到?jīng)]找到x，插入，插入 writeln(not found and insert. Rusult:); for j:=n+1 downto I+1 do aj:=aj-1; 數(shù)據(jù)后移數(shù)據(jù)后移 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分析：在標(biāo)準(zhǔn)類(lèi)型中，分析：在標(biāo)準(zhǔn)類(lèi)型中，長(zhǎng)整型范圍是長(zhǎng)整型范圍是-2147483648-21474483647,而二進(jìn)而二進(jìn)制數(shù)制數(shù) 10000000000的的十進(jìn)制數(shù)為十進(jìn)制數(shù)為1024，因，因此如果直接來(lái)轉(zhuǎn)換會(huì)此如果直接來(lái)轉(zhuǎn)換會(huì)

8、出現(xiàn)數(shù)據(jù)溢出。為了出現(xiàn)數(shù)據(jù)溢出。為了能更好存儲(chǔ)二進(jìn)制的能更好存儲(chǔ)二進(jìn)制的各個(gè)位數(shù)，可以采用各個(gè)位數(shù)，可以采用數(shù)組。假定輸入的數(shù)數(shù)組。假定輸入的數(shù)據(jù)是長(zhǎng)整型，則存儲(chǔ)據(jù)是長(zhǎng)整型，則存儲(chǔ)二進(jìn)制數(shù)的數(shù)組長(zhǎng)度二進(jìn)制數(shù)的數(shù)組長(zhǎng)度為為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; 將數(shù)組清將數(shù)組清0 k:=0; while x0 do begin bi

9、nk:=x mod 2; x:=x div 2; k:=k+1; end; write(二進(jìn)制為二進(jìn)制為:) for I:=k-1 downto 0 do write(binI:1); end. 2021/8/22111252011841661015219118137143179設(shè)和存放在設(shè)和存放在S S中，我們不妨先確定一個(gè)序，即確定第一個(gè)中，我們不妨先確定一個(gè)序，即確定第一個(gè)數(shù)的位置和最后一個(gè)數(shù)的位置。假設(shè)圓盤(pán)上的數(shù)的位置和最后一個(gè)數(shù)的位置。假設(shè)圓盤(pán)上的2020個(gè)數(shù)中個(gè)數(shù)中5 5為第一個(gè)數(shù)，為第一個(gè)數(shù)，1212為最后一個(gè)數(shù)。則可將這為最后一個(gè)數(shù)。則可將這2020個(gè)數(shù)放在個(gè)數(shù)放在a a數(shù)數(shù)組

10、中。數(shù)組的下標(biāo)取組中。數(shù)組的下標(biāo)取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數(shù)組清數(shù)組清0 for I:=1 to 4 do nameI:=chr(ord(A)+I-1); name數(shù)組初始化為數(shù)組初始化為A、B、C、D while select# do begin if select in A,B,C,D then 有效票有效票 scoreselect:=scoreselect+1; 對(duì)應(yīng)候選人得票數(shù)加對(duì)應(yīng)候選人得票數(shù)加1 read(select); end; for I:=1 to 3 do for j:=I+1 to 4 do if scorenameIscorenamej then根據(jù)票數(shù)確定名次根據(jù)票數(shù)確定名次 begin ch:=nameI; nameI:=namej;namej:=ch; end; writeln(rusult:); for