第3講-數(shù)組二

1、1Type 類型標(biāo)識符號類型標(biāo)識符號=array 下標(biāo)類型下標(biāo)類型1,下標(biāo)類型下標(biāo)類型2 of 元素類型；元素類型；Var 數(shù)組名：類型標(biāo)識符；數(shù)組名：類型標(biāo)識符；orVar 數(shù)組名：數(shù)組名：array下標(biāo)類型下標(biāo)類型1，下標(biāo)類型，下標(biāo)類型2 of 元素類型；元素類型；定義：定義：Var score:array1.50,1.5 of real;234 1 1 1 1 2 1 1 3 3 1 1 4 6 4 1 1 5 10 10 5 1分析：由圖可知，每行的首尾元素都為分析：由圖可知，每行的首尾元素都為1，每行中元素個數(shù)和行數(shù)相同每行中元素個數(shù)和行數(shù)相同,且且yhI,j=yhI-1,j-1+y

2、hI-1,j (I2, 1 ji）輸出時只要確定每行的起始位置即可打印輸出時只要確定每行的起始位置即可打印輸出了輸出了. Program ex6-9(input,output); var yh:array1.10,1.10 of integer; I,j:integer; begin yh1,1:=1; for i:=2 to 10 do begin yhI,1:=1;yhI,I:=1; for j:=2 to I-1 do yhI,j:=yhI-1,j-1+yhI-1,j; end; writeln(yanghui:); for I:=1 to 10 do begin write( :40-

3、3*I); for j:=1 to I do write(yhI,j:6); writeln; end; end.50 0 0 52 0 0 00 1 0 0 0 0 0 0 可簡記為1 4 52 1 23 2 1 試編程讀入一稀疏矩陣，轉(zhuǎn)換成簡記形式，并輸出。分析：本題需要解決的主要問題是查找非零元素并記憶其位置。將原矩陣存于數(shù)組a，轉(zhuǎn)換后的矩陣存于數(shù)組b。6Program ex6-9(input,output); const n=5; var a:array1.n,1.n of integer; b:array1.100,1.3 of integer; I,j,k:integer; beg

4、in for I:=1 to n do for j:=1 to n do read(aI,j); k:=0; for I:=1 to n do for j:=1 to n do if aI,j0 then begin k:=k+1; bk,1:=I;bk,2:=j;bk,3:=aI,j; end ; writeln(xishu:); for I:=1 to k do begin for j:=1 to 3 do write(bI,j:3); writeln; end; end. 715 8 1 24 1716 14 7 5 2322 20 13 6 4321 19 12 109 2 25 18

5、 11分析：當(dāng)n為奇數(shù)時，魔方陣可按下列方法構(gòu)成：（1）把1填在第一行的正中間，然后依次填入2到n2；（2）如果數(shù)K填在第I行第J列的格子中，那么數(shù)K+1應(yīng)填在它的左上方，即第I-1行、第J-1列的位置中，若左上方無格子，即I-1=0，那么填在第N行第J-1列的格子中；若J-1=0，則填在第I-1行第N列的格子中；若I-1和J-1均為0，那么填在第N行第N列的格子中。（3）如果按（2）的方法找到的格子中已填過數(shù)了，那么數(shù)K+1改填在第K個數(shù)的正下方。即填在第I+1行、第J列的那個格子中。8Program ex6-10(input,output); var magic:array1.100,1.

6、100 of integer; I,j,k,h,l:integer; n:integer; begin read(n); for I:=1 to n do for j:=1 to n do magicI,j:=0; 魔方陣清0 k:=1; I:=1;j:=n div 2+1;magicI,j:=k; while kn*n do begin k:=k+1; h:=I-1;l:=j-1 h,l用來試探可填數(shù)的位置 if h=0 then h:=n; I-1=0情況 if l=0 then l:=n; j-1=0情況 if magich,l=0 then 未填數(shù) begin magich,l:=k;

7、I:=h;j:=l; 填數(shù)，改變行列值 end; else begin magicI+1,j:=k;I:=I+1; 照（3）填數(shù)，產(chǎn)生新行值 end; end; writeln(magic:); for I:=1 to n do begin for j:=1 to n do write(magicI,j:3); writeln; end;end.9Var a:array1.100 of char;Var a: array1.100 of char;10分析：1）由題意知：可以定義兩個字符數(shù)組，但本題沒有提供字母的長度，故要將字符數(shù)組的范圍設(shè)定得大一些。字符數(shù)組為str1,str2。 Progr

8、am ex6-11(input,output); var str1,str2:array1.100 of char; ch:char; len1,len2,I,l:integer; begin read(ch); len1:=0; while ch# do begin len1:=len1+1;str1len1:=ch;read(ch); end; read(ch); len2:=0; while ch# do begin len2:=len2+1;str2len2:=ch;read(ch); end; I:=1;While (str1I=str2I) and (I=len1) and (Il

9、en1) or (Ilen2) then if Ilen1 then l:=1 else l:=2 else if str1Istr2I then l:=2 else l:=1;If l=1 then begin for I:=1 to len1 do write(str1I); writeln; for I:=1 to len2 do write(str2I); end else begin for I:=1 to len2 do write(str2I); writeln; for I:=1 to len1 do write(str1I); end;End. 2）字符輸入是通過鍵盤鍵入，注

10、意字符之間不需加任何分隔符，以“#”為結(jié)束標(biāo)志。11Program ex6-11b(input,output); var str1,str2:string; begin readln(str1); readln(str2); if str1str2 then begin writeln(str1);writeln(str2); end else begin writeln(str2);writeln(str1); end; end. 字符串的特性：字符串的特性：121314Program ex6_13(input,output); var st:string; x,y:array0.101 of integer; I,j,l1,l2:integer; begin write(x=);read(st); l1:=length(st); for I:=0 to 101 do xI:=0; for I:=l1 downto 1 do xl1-I:=ord(stI)-ord(0); write(y=);read(st); l2:=length(st); for I:=0 to 101 do yI:=0; for I:=l2 downto 1 do yl1-I:=ord(stI)-ord(0); if l1l2 then l1:=l2;