ÀÚµ¿·Î±×ÀÎ  
VBA·Î ¹è¿ì´Â ¾Ë°í¸®Áò
 
ÀÛ¼ºÀÏ : 10-06-04 14:27
1+(1+2)+(1+2+3)+¡¦+(1+2+3+¡¦+100)±îÁöÀÇ ÇÕÀ» ±¸ÇϽÿÀ
 ±Û¾´ÀÌ : Çѱ۴åÄÄ
Á¶È¸ : 5,497  

1+(1+2)+(1+2+3)+¡¦+(1+2+3+¡¦+100)±îÁöÀÇ ÇÕÀ» ±¸ÇϽÿÀ
(ÀÚ·á¸í¼¼Ç¥, ¹®Á¦ºÐ¼®, 󸮰úÁ¤, NSÂ÷Æ®, VBA¼Ò½º±îÁö ÀÛ¼ºÇÒ °Í.)

 

@ÀÚ·á¸í¼¼Ç¥

ÀÚ·á¸í

º¯¼ö¸í

Ư¡

»ó¼ö ÃÖ´ë°ª

MAX

Çհ踦 ±¸ÇÒ ¹üÀ§ÀÇ ÃÖ´ëÄ¡¸¦ ÁöÁ¤

º¯¼ö ¼ýÀÚ

sum

1ºÎÅÍ Æ¯Á¤ ¼ýÀÚ±îÁö Çհ踦 ÀúÀå

º¯¼ö ÇÕ°è

total

°¢ Çհ踦 ´©Àû

º¯¼ö Áõ°¡Ä¡

i, j

1¾¿ Áõ°¡½Ãų ¼ýÀÚ º¯¼ö

 

@ ¹®Á¦ºÐ¼® : 1ºÎÅÍ 100ÀÌÇÏÀÇ Æ¯Á¤ ¼ýÀÚ±îÁöÀÇ ÇÕÀ» ¹Ýº¹ ´©Àû½ÃÄÑ ÃÖÁ¾ 100±îÁöÀÇ ¹Ýº¹µÈ ¼ýÀÚÀÇ ÇÕÀ» ±¸ÇÑ´Ù.

 

@ 󸮰úÁ¤ :

1. i¸¦ 100±îÁö ¹Ýº¹ÇÑ´Ù.
2.1. j¸¦ i±îÁö ¹Ýº¹ÇÑ´Ù.
2.2. sum°ú jÀÇ ÇÕÀ» sum¿¡ ´ëÀÔÇÑ´Ù.
2. total°ú sumÀÇ ÇÕÀ» total¿¡ ´ëÀÔÇÑ´Ù.
3. total °ªÀ» Ãâ·ÂÇÑ´Ù.

 

@ NSÂ÷Æ®

START

MAX = 100, num, sum, I, j

total = 0, sum = 0

 

for i = 1 to MAX

 

 

for j = 1 to i

 

 

sum = sum + j

 

total = total + sum

sum=0

msgbox total

STOP

 

@ VBA ¼Ò½º

Sub ¹®Á¦Ç®ÀÌ()

    Const MAX As Integer = 100
    Dim num As Long, sum As Long
    Dim i As Integer, j As Integer

    sum = 0
    num = 0

    For i = 1 To MAX
        For j = 1 To i
            num = num + j
        Next j
        sum = sum + num
        num = 0
    Next i

    MsgBox sum

End Sub

 

@ ½ÇÇà°á°ú