»ó´ã¹®ÀÇ

¤ý HOME > »ó´ã¹®ÀÇ > Á¤º¸Ã³¸®±â»ç ½Ç±â
Á¦ ¸ñ Áú¹®ÇϽбâÃâ¹®Á¦ Ç®À̸¦ °­ÀÇ·Î Á¦ÀÛÇϰڽÀ´Ï´Ù.
±Û¾´ÀÌ  ±Ç¿ì¼®ÀÛ¼ºÀÏ 2005-04-08Á¶È¸¼ö 512
±Û°øÀ¯
°Ô½Ã±ÛÀ» twitter·Î º¸³»±â°Ô½Ã±ÛÀ» facebookÀ¸·Î º¸³»±â°Ô½Ã±ÛÀ» Me2Day·Î º¸³»±â°Ô½Ã±ÛÀ» ¿äÁòÀ¸·Î º¸³»±â

¼Ò½º¸¦ È®ÀÎÇϼ¼¿ä. (ÀÔ·ÂÆÄÀÏÀÌ À߸ø µÈ °æ¿ìµµ ÀÖÀ¸¹Ç·Î ÀÚ·á½Ç¿¡ ÀÖ´Â ÀÔ·ÂÆÄÀÏ·Î È®ÀÎÇØ º¸¼¼¿ä.)



Option Explicit



Sub main()



    ''Çʼö º¯¼ö ¼±¾ð
    Dim Àμö1, Àμö2, i, ¹öÆÛ As Variant
   
    ''ÇÙ½É º¯¼ö ¼±¾ð
    Dim Ãâ¹ßÁöÄÚµå, ½Â°´¸¸Á·µµ, ¿ùÀÌ¿ëȽ¼ö, ¿©Çà°Å¸®, ÇÕ°è(1000), °í°´¹øÈ£(1000), j, Temp, Num As Variant
   
    ''Àμö ó¸®
    Àμö1 = Val(Left(Command, InStr(Command, " ")))
    Àμö2 = Val(Mid(Command, InStr(Command, " ")))
   
    ''ÀÔ·Â ÆÄÀÏ Ã³¸®
    Open "c:\c_it\data\abc1112.txt" For Input As #1
   
        For i = 1 To Àμö2
            Line Input #1, ¹öÆÛ
            If i >= Àμö1 Then
           
                ''º¯¼ö ÀúÀå
                Ãâ¹ßÁöÄÚµå = Trim(Mid(¹öÆÛ, 20, 2))
                ½Â°´¸¸Á·µµ = Val(Mid(¹öÆÛ, 16, 2))
                ¿ùÀÌ¿ëȽ¼ö = Val(Mid(¹öÆÛ, 32, 2))
                ¿©Çà°Å¸® = Val(Mid(¹öÆÛ, 27, 5))
               
                ''¹è¿­º¯¼ö ±¸Çϱâ
                If Ãâ¹ßÁöÄÚµå = "SU" And ½Â°´¸¸Á·µµ <= 23 Then
                    Num = Num + 1
                    ÇÕ°è(Num) = ¿ùÀÌ¿ëȽ¼ö * ¿©Çà°Å¸®
                    °í°´¹øÈ£(Num) = Val(Mid(¹öÆÛ, 1, 5))
                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
                   
                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

´ñ±Û¾²±â :
ÀÌÀü±Û ¼Ò½º´Â ÀÌ»óÀÌ ¾ø´Â°Í °°³×¿ä..Á» ´õ »ó¼¼È÷ È®ÀÎÈÄ ´äº¯µå¸®°Ú½À´Ï´Ù.
´ÙÀ½±Û ¹®Á¦°¡ ¾È Ç®·Á¿©..¤Ð.¤Ð
°í°´Áö¿ø¼¾ÅÍ

02-556-3650

ÆòÀÏ 9:00~18:00

ÀÏ¿äÀÏ °øÈÞÀÏ ÈÞ¹«

°èÁ¹øÈ£¾È³»

³óÇùÀºÇà 724-01-173541

±¹¹ÎÀºÇà 633601-04-044665

¿¹±ÝÁÖ (ÁÖ)Á¶ÀºÄ·ÇÁ

»óÈ£¸í : (ÁÖ)Á¶ÀºÄ·ÇÁ ¤Ó ´ëÇ¥ÀÌ»ç : ÀÌÀ¯¶ô ¤Ó ´ë±¸±¤¿ª½Ã ºÏ±¸ ´ëÇзÎ80 °æºÏ´ëÇб³ ITÀ¶ÇÕ»ê¾÷ºôµù 11Ãþ
»ç¾÷ÀÚ¹øÈ£ : 504-81-62507 ¤Ó º»»ç : 053-954-0030 ¤Ó ±â¼úÁö¿ø : 070-7019-1144 ¤Ó ÆÑ½º : 050-7711-2200 ¤Ó 
¿ø°ÝÆò»ý±³À°½Ã¼³13È£ ¤Ó ÃâÆÇ»ç : 345-2005-00013 ¤Ó Åë½ÅÆÇ¸Å¾÷ : 2005-´ë±¸ºÏ±¸-00158 ¤Ó Á¤º¸º¸È£Ã¥ÀÓÀÚ : ±è⿬  
±â»çÄ£±¸´Â SSLº¸¾È¹æ½ÄÀÇ ¾Ïȣȭ±¸°£À» Àû¿ëÇÏ¿© »çÀÌÆ®¸¦ ¾ÈÀüÇÏ°Ô ÀÌ¿ëÇÏ½Ç ¼ö ÀÖ½À´Ï´Ù.
COPYRIGHT 2005 (ÁÖ)Á¶ÀºÄ·ÇÁ ALL RIGHTS RESERVED.°ü¸®ÀÚ¿¡°Ô ¸ÞÀϺ¸³»±â