是结构化的数据类型.doc

獅子會中學中五電腦科Pascal 習作11array 陣列陳志雄老師 陣列 Array是結構化的數據類型，貯存了一組相同數據類型的數據項目。整組數據可以由單一的變量名稱來引用。陣列內每個單獨的項目稱為元素，每個元素可貯存一個所說明類型的值。表明陣列大小陣列的定義(一維陣列)array 索引類型 of 元素類型例1:var Name: array 1.5 of string;Number: array1.8 of integer;Grade:array1.12 of char;TestScore: array1.100 of real;例2:var Name: array1.5 of string;Name12345表示設一名稱為Name的陣列，陣列包括了5個類型為字符串的元素。分別為 Name1, Name2, Name3, Name4, Name5例3:varNumber: array-1.1 of integer;表示設一名稱為Number的陣列，陣列包括了3個類型為整數的元素。分別為 Number1, Number0, Number-1陣列元素的存取例4: Program TestArray1(input,output); vara:array 1.4 of integer;begina1:=10;a2:=20;a3:=30;a4:=40;writeln(a1);writeln(a2);writeln(a3);writeln(a4);writeln(a1+a4);end.1020304050用For循環結構處理陣列例5: Program TestArray2(input,output); vara:array 1.4 of integer;i:integer;begina1:=10;a2:=20;a3:=30;a4:=40;for I:=1 to 4 dowriteln(ai);end.例6:Program TestArray3(input,output);vara:array1.4of integer;I,J:integer;beginfor I:=1 to 4 doreadln(aI);for J:=1 to 4 dowriteln(aJ);end.陣列元素中數值的累加:例7:Program TestArray4(input,output);varb:array1.4 of integer;sum,I,J:integer;Beginfor I:=1 to 4 doreadln(bI);sum:=0;for J:=1 to 4 dosum:=sum+bJ;writeln(sum);end.功課一 (電腦課本第28頁)執行下列程序後，陣列中元素的值是多少？Temp1:=99;for k:=1 to 3 doTempK:= 2*K+1;Temp4:=100;Temp5:=Temp4+Temp3;Temp6:=Temp5+1;Temp7:=Temp6-Temp5;數值填於下表複製入WORD 用exercise11.doc 檔案以電郵呈交Temp1Temp2Temp3Temp4Temp5Temp6Temp7功課二 (電腦課本第29頁)下列陣列可以存貯多少元素？(a) array1.12 of integer;(b) array-10.10 of real;(c) array1998.2002 of char;將答案連同功課一加入exercise11.doc 檔案以電郵呈交 功課三 (改自電腦課本第32頁)試編寫程序，接受10個整數( 以陣列表示)，然後列印第二，第五，第八個整數，輸出如下:Please enter 10 integers: 2 5 8 11 3 9 17 1 23 100Your 10 input integers are 2 5 8 11 3 9 17 1 23 100The second number is 5The fifth number is 3The eighth number is -1 Do you want to continue? n寫出程序以 array1.pas 名稱，電郵呈交功課四: (改自電腦課本第32頁)試編寫程序，把兩個列中的整數相加，輸出如下:Enter 9 integers of first list: 1 2 3 4 5 6 7 8 9 0Enter 9 integers of the second list 9 8 7 6 5 4 3 2 1Sum of the values in list one and two:10 10 10 10 10 10 10 10 10 寫出程序以 array2.pas 名稱，電郵呈交挑戰題: 編寫程序，以數取有5個測驗分數的列表，並計算平均分，然後把高於平均分的分數列出來，輸出如下:Enter Score 10 20 30 40