»ó´ã¹®ÀÇ

¤ý HOME > »ó´ã¹®ÀÇ > ÀϹݻó´ã
Á¦ ¸ñ °á°ú°ªÀÌ ;;
±Û¾´ÀÌ  À̹ÌÇö ÀÛ¼ºÀÏ 2005-05-01Á¶È¸¼ö 320
±Û°øÀ¯
°Ô½Ã±ÛÀ» twitter·Î º¸³»±â°Ô½Ã±ÛÀ» facebookÀ¸·Î º¸³»±â°Ô½Ã±ÛÀ» Me2Day·Î º¸³»±â°Ô½Ã±ÛÀ» ¿äÁòÀ¸·Î º¸³»±â

¸Þ¸ðÀå¿¡ Àμö°ª¸¸ ³ª¿À°í °á°ú°ªÀÌ ¾È³ª¿Í¿ä.........



¼öÇèÀå¿¡¼­µµ ÀÌ¿Í °°Àº »óȲÀÌ ¹ß»ýÇØ¼­........¾öû ´çÈ²ÇØÇÏ´Ù°¡..



for i>=Àμö1 À̺κÐÀ»



for i<=Àμö1 ÀÌ·¸°Ô Çß´õ´Ï........ °á°ú°ªÀÌ ¸Â´ÂÁö ¾Æ´ÑÁö ¸ô¶óµµ °á°ú°ªÀÌ ±×³É ³ª¿Í¼­



Á¦ÃâÇߴµ¥ .......ÀÌ°Ç ¼Éº»°Ô ¾Æ´Ï¶ó Áý¿¡¼­ ÇÒ¶§µµ ¶È°°ÀÌ ³ª¿Ô´ø ¹®Á¦ ¼Ò½º ¿Ã¸±Å×´Ï ºÁÁÖ



¼¼¿ä... ´ã¹øÀ» À§Çؼ­µµ ¿Ö ±×·±°ÇÁö ¾Ë°í ½Í¾î¼­¿ä ;;



Sub Main()
''Çʼöº¯¼ö¼±¾ð
Dim Àμö1, Àμö2, ¹öÆÛ, i As Variant



''Çٽɺ¯¼ö ¼±¾ð
Dim ÀÛ¾÷ÄÚµå, AÈĺ¸È£°¨µµ, BÈĺ¸È£°¨µµ, ÇÕ°è(1000), j, Temp, Num As Variant



''Àμöó¸®
Àμö1 = Val(Left(Command, InStr(Command, " ")))
Àμö2 = Val(Mid(Command, InStr(Command, " ")))



''ÀÔ·ÂÆÄÀÏ
Open "c:\c_it\data\abc1118.txt" For Input As #1
    For i = 1 To Àμö2
        Line Input #1, ¹öÆÛ
            If i >= Àμö1 Then
                ''º¯¼öÀúÀå
                ÀÛ¾÷ÄÚµå = Trim(Mid(¹öÆÛ, 13, 1))
                AÈĺ¸È£°¨µµ = Val(Mid(¹öÆÛ, 14, 2))
                BÈĺ¸È£°¨µµ = Val(Mid(¹öÆÛ, 16, 2))
                If ÀÛ¾÷ÄÚµå = "A" Or ÀÛ¾÷ÄÚµå = "B" Then
                    Num = Num + 1
                    ÇÕ°è(Num) = AÈĺ¸È£°¨µµ + BÈĺ¸È£°¨µµ
                End If
            End If
    Next i
Close #1
''Á¤·Ä¾Ë°í¸®Áò
    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



''Ãâ·ÂÆÄÀÏ
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.°ü¸®ÀÚ¿¡°Ô ¸ÞÀϺ¸³»±â