2012年9月2日 星期日

99正式 Problem 1:文章的用字統計

本試題輸入檔為一篇中文文章,文章內容可能包括「中文」及若干「全型符號」。文章中可能使用的「全型符號」包括「,」、「。」、「;」、「、」、「!」及「?」6種。在中文中有若干文字,如「臺」與「台」,在某些時候意義相同,但在本題中,只要是字碼不同,選手都應視為「不同字」處理。請由程式讀入給定的中文文章,並作以下的統計:



子題 1. 8%)【使用路徑:c:\Problem1\子題 1\】【程式名稱:p11】請統計文章中使用的「中文字」及其「出現次數」。文章中除了「中文字」,其餘符號均不列入統計。請選手輸出「出現次數最多」的中文字及其出現次數。若有多個中文字之統計次數均為「最多」時,請將其全部輸出,其輸出之前後順序不限制。
輸入說明:第 1行表示文章的行數,第 2行開始為文章的內容。文章不超過 20行,每行不超過 50個中文字(含符號),而文章總字數不超過 1000字。
輸出說明:若統計結果只有「 1個」最多出現次數者,則以1行輸出最多出現次數的「中文字」及其「出現次數」。但若有「多個」最多出現次數者,則以多行輸出。每一行資料輸出1個「中文字」及其「出現次數」,輸出資料間以至少 1個空白隔開。
輸入檔案 1:【檔名:in1.txt
8

為達成永續發展的目標,行政院規劃六年國家重點發展計畫,由教育部規劃的永續
校園推廣計畫,為建立一個進步、安全、衛生、健康、人性化的學習環境空間為,
並於擴大內需刺激景氣的期程內,加速推行校園公共工程改造計畫,藉由突破傳統
校園封閉的環境與制式管理原則下,整合社區共同意識、建立社區風貌、拓展生態
旅遊等課題,改造校園環境成為具有社區特質的公共活動空間,結合校園綠色技術
實施應用,轉化國內相關產業技術,進而增進綠色產業推廣效益,落實擴大內需進
而促進產業升級與提振國內景氣之功效,從而發揮永續台灣、環境教育之積極意義
與促成教育改革之目的。


輸入檔案 2:【檔名:in2.txt
8

台灣地區資源短缺,興建大型水庫使用現階段推行不易,替代水源的之開發與再利用
已成為未來資源開發的之重要途徑,推動節約用水,推廣再利用的中水系統,
使全國平均之人均用水量逐步降至每日使用二百五十公升以下。落實國家水資源永
續經營之理念,水利署推動雨水利用及生活雜排水回收再使用增加替代水源使用,
並委託台灣雨水利用協會針對學界及各級學校相關人員,依各縣市所在之地理位置劃分
北中南三區各辦理一場次雨水貯集使用及生活雜排水再利用講習演討會議,將邀請國內相關
領域有豐碩成果與使用經驗之專家學者擔任主講員,對國內教育單位相關人員,以水資源
永續利用、雨水貯集利用、生活雜排水再使用及節約用水等議題進行講習與研討。
輸出檔案:【檔名:out.txt
 7

 17 
 17 

1 則留言:

  1. Dim b
    Private Sub Form_Load()
    Me.Hide
    Open App.Path & "\in.txt" For Input As #1
    Open App.Path & "\out.txt" For Output As #2
    Open App.Path & "\in2.txt" For Input As #3
    Input #1, n
    Input #3, n1
    b = Split(", 。 ; 、 ! ?", " ")
    For i = 1 To n
    Line Input #1, x
    For k = 0 To UBound(b)
    x = Replace(x, b(k), "")
    Next
    For j = 1 To Len(x)
    If Asc(Mid(x, j, 1)) < 0 Then List1.AddItem Asc(Mid(x, j, 1))
    Next
    Next
    Call abc("")
    Print #2,
    List1.Clear
    List2.Clear
    For i = 1 To n1
    Line Input #3, x
    For k = 0 To UBound(b)
    x = Replace(x, b(k), "")
    Next
    For j = 1 To Len(x)
    If Asc(Mid(x, j, 1)) < 0 Then List1.AddItem Asc(Mid(x, j, 1))
    Next
    Next
    Call abc("")
    Close
    Close
    Close
    End
    End Sub
    Sub abc(t)
    Max = 0
    For i = 0 To List1.ListCount
    ans = 1
    For j = i + 1 To List1.ListCount
    If List1.List(i) = List1.List(j) Then ans = ans + 1: List1.RemoveItem j
    Next
    If ans > Max Then Max = ans: ans1 = List1.List(i): List2.AddItem Max + 1000 & " " & ans1
    If ans = Max Then List2.AddItem Max + 1000 & " " & List1.List(i)
    Next

    For i = 0 To List1.ListCount
    If List2.List(i) <> "" Then e = Split(List2.List(i), " ")
    For j = 0 To List1.ListCount
    If List2.List(j) <> "" Then f = Split(List2.List(j), " ")
    If e(0) > f(0) Then List2.RemoveItem j
    Next
    Next
    For i = 0 To List2.ListCount
    For j = i + 1 To (List2.ListCount - 1)
    If List2.List(i) = List2.List(j) Then List2.RemoveItem j
    Next
    Next

    For i = 0 To (List2.ListCount - 1)
    ans2 = Split(List2.List(i), " ")
    Print #2, Chr(ans2(1)) & ans2(0) - 1000
    Next

    End Sub

    回覆刪除