»ó´ã¹®ÀÇ

¤ý HOME > »ó´ã¹®ÀÇ > ÀϹݻó´ã
Á¦ ¸ñ '5'·±Å¸ÀÓ¿À·ù¹ß»ý
±Û¾´ÀÌ  ¹Ú¹ÎÁ¤ ÀÛ¼ºÀÏ 2005-07-16Á¶È¸¼ö 351
±Û°øÀ¯
°Ô½Ã±ÛÀ» twitter·Î º¸³»±â°Ô½Ã±ÛÀ» facebookÀ¸·Î º¸³»±â°Ô½Ã±ÛÀ» Me2Day·Î º¸³»±â°Ô½Ã±ÛÀ» ¿äÁòÀ¸·Î º¸³»±â

ÃÊ±Þ Ã¹¹øÂ°¹®Á¦ ÄÚµùÇØºÃ´Âµ¥ óÀ½ºÎÅÍ ¿À·ù°¡ ³ª³×¿ä
¾Æ¹«¸® ºÁµµ ¿Ö Ʋ·È´ÂÁö ¸ð¸£°Ú½À´Ï´Ù
Àú¿Í ºñ½ÁÇÑ Áú¹®µé¿¡ ¿Ã·ÁÁø ´äº¯À» º¸¾Ò´Âµ¥ Àμö°ªÀ» Á¤ÇØÁà¾ß ÇѴٳ׿ä 100 200À¸·Î¿ä
±×·±µ¥ ±×°Ç 100¹øÂ°¿¡¼­ 200¹øÂ° ÆÄÀϸ¸ ÇÊ¿äÇÒ¶§ ¾²´Â °ª¾Æ´Ñ°¡¿ä? ¾Æ´Ô ¸ðµç ¹®Á¦ÀÇ Àμö°ªÀ» ¶È°°ÀÌ 100 200À¸·Î Áà¾ßÇÏ´Â °Ç°¡¿ä?
±×·±µ¥ °­ÀÇ º¸¸é °ªÀÌ 483 587 99 ÀÌ·¸°Ô ´äÀÌ ³ª¿Í¾ß ÇÑ´Ù°í Çϴµ¥ 100 200 À¸·Î Çϸé 99°¡ ¾È³ª¿À´øµ¥¿ä

Option Explicit



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

´ñ±Û¾²±â :
ÀÌÀü±Û ''5''·±Å¸ÀÓ¿À·ù¹ß»ý
´ÙÀ½±Û °¡»êÁ¡À» À§ÇÑ Á¤º¸Ã³¸®ÀÚ°ÝÁõ °­ÀÇ »çÀÌÆ®¸¦ ¿ÀÇÂÇÕ´Ï´Ù.
°í°´Áö¿ø¼¾ÅÍ

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.°ü¸®ÀÚ¿¡°Ô ¸ÞÀϺ¸³»±â