Option Explicit
Sub main() ''Çʼö º¯¼ö ¼±¾ð Dim Àμö1, Àμö2, i, ¹öÆÛ As Variant ''ÇÙ½É º¯¼ö ¼±¾ð Dim °áÀç±Ý¾×, ¿¹¾à¼ö·®, ¿¹¾à±Ý¾×, °áÀç±Ý¾×¹è¿(1000), ÇÕ°è(1000), ¿¹¾à¹øÈ£(1000), j, Temp, Num As Variant ''Àμöó¸® Àμö1 = Val(Left(Command, InStr(Command, " "))) Àμö2 = Val(Mid(Command, InStr(Command, " "))) ''ÀÔ·ÂÆÄÀÏó¸® Open "c:\c_it\data\abc03.txt" For Input As #1 For i = 1 To Àμö2 Line Input #1, ¹öÆÛ If i >= Àμö1 Then ''º¯¼ö ÀúÀå °áÀç±Ý¾× = Val(Mid(¹öÆÛ, 48, 10)) ¿¹¾à¼ö·® = Val(Mid(¹öÆÛ, 18, 5)) ¿¹¾à±Ý¾× = Val(Mid(¹öÆÛ, 23, 10)) If °áÀç±Ý¾× < 5000000 Then Num = Num + 1 ÇÕ°è(Num) = ¿¹¾à¼ö·® * ¿¹¾à±Ý¾× ¿¹¾à¹øÈ£(Num) = Val(Mid(¹öÆÛ, 1, 7)) °áÀç±Ý¾×¹è¿(Num) = °áÀç±Ý¾× End If End If Next i ''Á¤·Ä(ÇÕ°è¿À¸§Â÷¼ø Á¤·Ä or(ÇÕ°è°°À½ and ¿¹¾à¹øÈ£ ¿À¸§Â÷¼ø Á¤·Ä) For i = 1 To Num For j = i To Num If ÇÕ°è(i) > ÇÕ°è(j) Or _ (ÇÕ°è(i) = ÇÕ°è(j) And ¿¹¾à¹øÈ£(i) > ¿¹¾à¹øÈ£(j)) Then Temp = ÇÕ°è(i) ÇÕ°è(i) = ÇÕ°è(j) ÇÕ°è(j) = Temp Temp = ¿¹¾à¹øÈ£(i) ¿¹¾à¹øÈ£(i) = ¿¹¾à¹øÈ£(j) ¿¹¾à¹øÈ£(j) = Temp Temp = °áÀç±Ý¾×¹è¿(i) °áÀç±Ý¾×¹è¿(i) = °áÀç±Ý¾×¹è¿(j) °áÀç±Ý¾×¹è¿(j) = Temp End If Next j Next i Close #1 ''Ãâ·ÂÆÄÀÏó¸® Open "c:\c_it\data\ans2.txt" For Output As #2 Print #2, Àμö1, Àμö2, °áÀç±Ý¾×(Num) Close #2 End Sub
À§ ½Ä¿¡¼ If °áÀç±Ý¾× < 5000000 Then Num = Num + 1 ÇÕ°è(Num) = ¿¹¾à¼ö·® * ¿¹¾à±Ý¾× ¿¹¾à¹øÈ£(Num) = Val(Mid(¹öÆÛ, 1, 7)) °áÀç±Ý¾×¹è¿(Num) = °áÀç±Ý¾× End If À̺κп¡¼ °áÀç±Ý¾×¹è¿(num)=val(mid(¹öÆÛ,48,10)) À̶ó°íÇÏÁö¾Ê°í
°áÀç±Ý¾×¹è¿(Num) = °áÀç±Ý¾× À̶ó°í ÇÏ´Â ÀÌÀ¯°¡ ÀÖ³ª¿ä?
¿¹¾à¹øÈ£¹è¿º¯¼ö¶û ´Ù¸¥°¡¿ä?
|