內容 ： 正體->简体
考試成績出爐了,大家開始討論自己的分數高低
一個接著一個參與討論,新加入的那個人,想要知道自己目前排名是多少
但是太多人了,導致沒辦法一時得到他的排名
大家開始請求小光這個答案,
不過小光非常討厭排名,一點都不想幫忙
現在就交給你了
一個接著一個參與討論,新加入的那個人,想要知道自己目前排名是多少
但是太多人了,導致沒辦法一時得到他的排名
大家開始請求小光這個答案,
不過小光非常討厭排名,一點都不想幫忙
現在就交給你了
輸入說明 ：
每組輸入的第一行有一個數字N(1≦N≦10,0000)，
代表接下來會有N個人陸續與討論，接下來會有N行，
代表接下來陸續加入的人的成績M， (1≦M≦N)
而且每個人的成績都不會重複
代表接下來會有N個人陸續與討論，接下來會有N行，
代表接下來陸續加入的人的成績M， (1≦M≦N)
而且每個人的成績都不會重複
輸出說明 ：
對於已經知道的成績，請陸續對每個加入的輸出他的排名
範例輸入 ：
6
1
5
6
3
4
2
範例輸出 ：
1
1
1
3
3
5
Private Sub Form_Load()
回覆刪除Me.Hide
Dim ans As Long
Dim x(100000) As Long
Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2
Input #1, n
For i = 1 To n
Input #1, y
x(i) = y
Next
For i = 1 To n
ans = 1
For j = 1 To i
If x(i) < x(j) Then ans = ans + 1
Next
Print #2, ans
Next
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()
Input #1, n
ReDim a(n)
For k = 1 To n
Input #1, a(k)
Next k
For i = 1 To n
Sum = 1
For j = 1 To i
If a(i) < a(j) Then Sum = Sum + 1
Next j
Print #2, Sum
Next i
Close #2
Close #1
End
End Sub