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
@ ½ÇÇà°á°ú