»ó´ã¹®ÀÇ

¤ý HOME > »ó´ã¹®ÀÇ > ÀϹݻó´ã
Á¦ ¸ñ Áú¹®ÀÖ½À´Ï´Ù..¸ð¸£°Ú¾î¿ä..¤Ð¤Ð
±Û¾´ÀÌ  ÃÖÈñ¼º ÀÛ¼ºÀÏ 2005-05-07Á¶È¸¼ö 418
±Û°øÀ¯
°Ô½Ã±ÛÀ» twitter·Î º¸³»±â°Ô½Ã±ÛÀ» facebookÀ¸·Î º¸³»±â°Ô½Ã±ÛÀ» Me2Day·Î º¸³»±â°Ô½Ã±ÛÀ» ¿äÁòÀ¸·Î º¸³»±â

±³¼ö´Ô.. ¾È³çÇϼ¼¿ä..



ÈÞ.. ¹®¹ýÀ» ´Ù µè°í. ÃÊ±Þ ±âÃâ¹®Á¦¸¦ Ç®·Á°í Çϴµ¥.. 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

´ñ±Û¾²±â :
ÀÌÀü±Û ÃµÃµÈ÷ Á¤È®ÇÏ°Ô ÇÏ½Ã¸é µË´Ï´Ù.
´ÙÀ½±Û °¡»êÁ¡À» À§ÇÑ Á¤º¸Ã³¸®ÀÚ°ÝÁõ °­ÀÇ »çÀÌÆ®¸¦ ¿ÀÇÂÇÕ´Ï´Ù.
°í°´Áö¿ø¼¾ÅÍ

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