內容 ：
給你一個三角形的邊長，請你判斷它是銳角 (acute)、直角 (right)、或是鈍角 (obtuse) 三角形。
輸入說明 ：
輸入只有一行，含有三個由空白隔開的正整數 a, b, c (0 < a, b, c ≤ 46340)，代表三角形的邊長。
輸出說明 ：
依三角形的類別輸出「acute triangle」、「right triangle」、或「obtuse triangle」。
範例輸入 ：
3 4 5
範例輸出 ：
right triangle
作者已經移除這則留言。
回覆刪除Private Sub Form_Load()
回覆刪除Me.Hide
Dim a(3)
Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2
Input #1, a(1), a(2), a(3)
Max = 0
For i = 1 To 3
If Max < a(i) Then Max = a(i): b = i
Next
ans = Max ^ 2
For i = 1 To 3
If i <> b Then ans = ans - a(i) ^ 2
Next
If ans = 0 Then Print #2, "right triangle"
If ans < 0 Then Print #2, "acute triangle"
If ans > 0 Then Print #2, "obtuse triangle"
Close
Close
End
End Sub
Private Sub Form_Load()
回覆刪除Me.Hide
Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2
Dim a(3) As Long
Max = 0
ans = 0
For i = 1 To 3
Input #1, a(i)
If a(i) > Max Then Max = a(i): t = i
ans = Max ^ 2
Next i
For j = 1 To 3
If j <> t Then ans = ans - a(j) ^ 2
Next j
If ans > 0 Then Print #2, "obtuse triangle"
If ans = 0 Then Print #2, "right triangle"
If ans < 0 Then Print #2, "acute triangle"
Close #2
Close #1
End
End Sub