ch14程式设计比赛模拟试题实作.ppt

第十四章：程式設計比賽模擬試題實作 全國高級中等學校九十五學年度商業類科學生技藝競賽 程式設計職種-術科模擬試題 (資料來源：主辦單位網站 .tw/contest95/examquestion.aspx ) 14-1、國際標準書碼ISBN的檢測 (10%)14-2、過橋問題 (15%)14-3、N階層數(10%)14-4、數學遊戲 (15%)14-5、密碼分析 (15%)14-6、Ugly Number的質因數問題 (10%)14-7、英文造句 (15%)14-8、費氏數(10%) 14-1、國際標準書碼ISBN的檢測 (10%) 學習重點 學習讀入與輸出檔案資料的方法。 練習檔案分割成個別行及個別行分割成個別欄位，並指定至陣列的技巧。 資料比對方法練習。 數字累加方式熟悉。 程式說明 第6行把資料從test1.txt中讀入。 第7行利用Split(inText, vbNewLine)指令把讀進來的資料inText分割成個別行。 第9-39行為每一筆資料的處理過程。 第12-16行把每筆資料中的數字取出來，加上逗號分隔後，放入str2中。 第17-20行處理資料有錯情形。 第22行s0 = Split(str2, ,)指令，把str2分割至s0陣列中。 第23行的If Microsoft.VisualBasic.Right(str1, 1) = X用來判定右邊第一個字是否為”X”。 第24-28行處理累加s1動作。 第29-33行處理累加s2動作。 第34-38行，判斷正確與否。 第40行，把結果輸出至result1.txt中。 14-2、過橋問題 (15%) 學習使用多層迴路指令。 ArrayList的使用方法。 以副程式拆解大程式為小程式的技巧。 (這一題較難，列出來讓有興趣的同學參考) 程式說明   第1行Imports System.IO 命名空間 (Namespace)允許程式，讀取和寫入資料檔案，以及提供基本檔案和目錄支援。 第4行t1, t2, t3, t4, t5為每一趟的時間。 第5行gobackStr1, gobackStr2, gobackStr3, gobackStr4, gobackStr5為每一趟的記錄動作字串。 第7行的arrayList1用來放每完成一回合的結果。 第9-20行，定義過橋及回程的各相關變數。 第22行的peopleN用來記錄人數。 第27行取得資料組數。 第32行讀取人數 第34行讀取每個人的過橋時間秒數。 第37行呼叫process_one_rec()處理一組資料。 第38行指令利用arrayList1.Clear()在進入處理下組資料前，把存放過程資料的arrayList1中的內容清除。 第41行顯示處理結果至畫面上，方便察看。 第43行把處理結果實際寫至檔案result2.txt中。 第52-64行為處理一組資料的副程式。 第54-58行，設定每趟的時間初值為0。 第60行呼叫第一次去，四人取二人副程式。 第62行把各回合的記錄值排序，使得最小值出現在arrayList1.Item(0)處，以便取得最佳成績。 第63行取得arrayList1中的最小值arrayList1.Item(0)，即最佳成績，記錄至resultStr中。 第66-93行為第一次去，四人取二人副程式 第77行取得第一次去時間 第81行保留目前時間值。 第84行呼叫第一次回，二人取一人副程式。 第99-115行為第一次回，二人取一人副程式 第101行取得第一次回程時間。 第105行把目前值保留下來。 第108行呼叫第二次去，三人取二人副程式。 第118-154行，為第二次去，三人取二人副程式 第138行取得第三趟即第二次去時間。 第139行記錄第三趟過程。 第142行，保留原來值。 第145行，呼叫第二次回三人取一人副程式。 第156-184行，為第二次回三人取一人副程式 第187-213行，為第三次去，二人取二人副程式 第207行記錄第5趟時間。 第209行因為已跑完5趟，一回合，故記錄5趟時間及過程至arrayList1中。 14-3、N階層數(10%) 學習重點 字串檢查方法練習。 函式設計技巧。 程式說明 第9行 Dim str1 As String = fact1(Val(strTem)).ToString用Val函數，把strTem轉為數字，再呼叫fact1函式求得結果，最後再利用ToString方法轉為字串，而後再把結果指給str1。第11-16行，處理取得右邊第1個不是0的數字動作。第23-29行，為求階乘函式。 14-4、數學遊戲 (15%) 學習重點 學習使用choose指令。 Split 與John指令的活用。 遞迴副程式的認識與學習。 程式說明 第1