請設計一個程式，能判斷出兩個數值之間三種狀態的關係運算子：
(1)第一個數字大於第二個數字。
(2)第二個數字小於第一個數字。
(3)兩個數字一樣大。
第 4 頁/共 5 頁
輸入說明：每一列由二個數字所組成，為一組測試資料。每個數字與數字間的區隔為一個空白符號，當為0 0時表示結束。(請參照輸入範例)
輸入範例：in.txt
10 20
20 10
10 10
0 0
輸出說明：對於每組測試資料，輸出『>』、『<』、『=』，代表該二數字的關係。(請參照輸出範例)
輸出範例：out.txt
＜
＞
＝
(2)第二個數字小於第一個數字。
(3)兩個數字一樣大。
第 4 頁/共 5 頁
輸入說明：每一列由二個數字所組成，為一組測試資料。每個數字與數字間的區隔為一個空白符號，當為0 0時表示結束。(請參照輸入範例)
輸入範例：in.txt
10 20
20 10
10 10
0 0
輸出說明：對於每組測試資料，輸出『>』、『<』、『=』，代表該二數字的關係。(請參照輸出範例)
輸出範例：out.txt
＜
＞
＝
Dim num1, num2 As Integer
回覆刪除Private Sub Form_Load()
Me.Hide
Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As 2
Do
Input #1, num1, num2
If num1 = 0 And num2 = 0 Then Exit Do
If num1 > num2 Then Print #2, ">"
If num1 < num2 Then Print #2, "<"
If num1 = num2 Then Print #2, "="
Loop
Close #2
Close #1
End
End Sub
站長您好:
回覆刪除我這次要參加 101年 全國技藝競賽-程式語言
請問可以為我講解這次的模擬試題嗎?? Problem 2-子題2
來自二信的 Kai Lin 你好 :
刪除我是去年的選手Arro，很高興能為你解答此題。
關於你所提出的Problem 2-子題2，請你按照題目給的數字把圖畫出來(像是子題1那樣的樹狀圖)，(ex: 6,8 就是數字6跟數字8中間有連線) 全部畫出來後，只要判斷是不是正確的樹狀結構便可知道答案。
希望有解答到你的問題 :)
To Arro:
刪除謝謝你的指點，
請問，如果想在技藝競賽中取得前三名，那需要具備多少實力呢?
To Kai Lin:
刪除要拿前三名並不難，答題要穩、檢查要細心，都有做到大概前三名跑不掉。技競分數都很接近，十幾名跟前三名大概都差個一題。我就是因為一個資測沒仔細看，與前三名擦身而過。
論實力的話，這個網誌的題目都做一遍以上，比賽一定是有名次的。
今年的模擬試題不難，照往年慣例來看，比賽題目是模擬試題的進階版，所以輸贏大概在學科還有細心這點。
Private Sub Form_Load()
回覆刪除Me.Hide
Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2
Do
Input #1, a, b
If a = 0 And b = 0 Then Exit Do
If a > b Then Print #2, ">"
If a < b Then Print #2, "<"
If a = b Then Print #2, "="
Loop
Close
Close
End
End Sub