±³¼ö´Ô.. ¾È³çÇϼ¼¿ä..
ÈÞ.. ¹®¹ýÀ» ´Ù µè°í. ÃÊ±Þ ±âÃâ¹®Á¦¸¦ Ç®·Á°í Çϴµ¥.. 23°ÀÔ´Ï´Ù.
±³¼ö´Ô²²¼´Â °á°ú°ªÀ» Ž»ö±â¿¡¼ È®ÀÎÇÒ¼ö ÀÖ´øµ¥.. Àú´Â ¾ÈµÇ´õ¶ó±¸¿ä..
ÄÚµùÀ» ÇßÁö¸¸... ±×ÈÄ¿¡ ¾î¶»°Ô ÇØ¾ß ÇÏ´ÂÁö... ¹«¾ùÀ» ´Ù¿î¹Þ¾Æ¾ß µÇ´ÂÁö¿ä..
Áö±Ý Áøµµ Çϳªµµ ¸ø»©°í ÀÖ½À´Ï´Ù..
°è¼ÓÇØ¼ ¿À·ù°¡ ¶ß´Âµ¥ °æ·Î¸¦ ãÀ»¼ö ¾ø´Ù°í ³ª¿Í¿ä..±×¸®°í ÆÄÀϵµ ãÀ» ¼ö ¾ø´Ù°í ³ª¿À±¸¿ä,,
¿¡±Ã... ´äº¯ ºÎʵå·Á¿ä..¤Ð¤Ð
Á¦ ¼Ò½º..¹«¾ùÀÌÆ²·È³ª¿ä?
°è¼ÓÇØ¼ Àμö°¡ À߸øµÇ¾ú´Ù°í ¿À·ù°¡ ¶°¿ä..
Sub main()
''''Çʼöº¯¼ö ¼±¾ð
Dim Àμö1, Àμö2, i, ¹öÆÛ As Variant
''''Çٽɺ¯¼ö ¼±¾ð
Dim ´Ü°¡, ÀÌÀÍÆ÷ÀÎÆ®, °Å·¡Æ÷ÀÎÆ®, ÇÕ°è(1000), j, Temp, Num As Variant
''''Àμöó¸®
Àμö1 = Val(Left(Command, InStr(Command, " ")))
Àμö2 = Val(Mid(Command, InStr(Command, " ")))
'''' ÀÔ·ÂÆÄÀÏó¸®
Open "c:\c_it\data\abc0001.txt" For Input As #1
For i = 1 To Àμö2
Line Input #1, ¹öÆÛ
If i >= Àμö1 Then
''''º¯¼öÀúÀå
´Ü°¡ = Val(Mid(¹öÆÛ, 12, 3))
ÀÌÀÍÆ÷ÀÎÆ® = Val(Mid(¹öÆÛ, 20, 3))
°Å·¡Æ÷ÀÎÆ® = Val(Mid(¹öÆÛ, 27, 3))
If ´Ü°¡ >= 50 Then
Num = Num + 1
ÇÕ°è(Num) = ÀÌÀÍÆ÷ÀÎÆ® + °Å·¡Æ÷ÀÎÆ®
End If
End If
Next i
''''Á¤·Ä ¾Ë°í¸®Áò(³»¸²Â÷¼ø)
For i = 1 To Num
For j = i To Num
If ÇÕ°è(i) < ÇÕ°è(j) Then
Temp = ÇÕ°è(i)
ÇÕ°è(i) = ÇÕ°è(j)
ÇÕ°è(j) = Temp
End If
Next j
Next i
Close #1
''''Ãâ·ÂÆÄÀÏ Ã³¸®
Open "c:\c_it\data\ans1.txt" For Output As #2
Print #2, Àμö1, Àμö2, ÇÕ°è(5)
Close #2
End Sub