ÀÚµ¿·Î±×ÀÎ  
VBA·Î ¹è¿ì´Â ¾Ë°í¸®Áò
 
ÀÛ¼ºÀÏ : 10-06-04 13:12
1+3+5+7+¡¦+99ÀÇ ÇÕÀ» ±¸ÇϽÿÀ.
 ±Û¾´ÀÌ : Çѱ۴åÄÄ
Á¶È¸ : 5,091  

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

 

@ÀÚ·á¸í¼¼Ç¥

ÀÚ·á¸í

º¯¼ö¸í

Ư¡

»ó¼ö ÃÖ´ë°ª

MAX

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

»ó¼ö Áõ°¡°ª

DELTA

Çհ踦 ±¸ÇÒ ¼ýÀÚÀÇ Áõ°¡Ä¡¸¦ ÁöÁ¤

º¯¼ö ¼ýÀÚ

number

Çհ踦 ±¸ÇÒ ¼ýÀÚµé

º¯¼ö ÇÕ°è

sum

ÇÕ°è

 

@ ¹®Á¦ºÐ¼® : numberÀÇ Å©±â°¡ MAXº¸´Ù Ä¿Áú ¶§ ±îÁö 2¾¿ Áõ°¡½ÃÅ°¸é¼­ ÇÕÀ» ±¸ÇÑ´Ù.

 

@ 󸮰úÁ¤ :

1. 1ºÎÅÍ MAX±îÁö ¹Ýº¹ÇÑ´Ù.
1.1. Çհ踦 ±¸ÇÑ´Ù.
1.2. ¼ýÀÚ¸¦ 2¾¿ Áõ°¡½ÃŲ´Ù.
2. Ãâ·ÂÇÑ´Ù.
3. STOP

 

@ NSÂ÷Æ®

START

MAX = 99, DELTA = 2, number, sum

sum = 0

for number = 1 to MAX

sum = sum + number

number = number + DELTA

msgbox sum

STOP

 

@ VBA ¼Ò½º

Sub ¹®Á¦Ç®ÀÌ()

Const MAX As Integer = 99
Const DELTA As Integer = 2
Dim i As Integer, sum As Integer

sum = 0

For i = 1 To MAX
sum = sum + i
i = i + DELTA
Next i

MsgBox "ÇÕ°è´Â" & sum & "ÀÔ´Ï´Ù"

End Sub

 

@ ½ÇÇà°á°ú