È®·ü°ú Åë°è

[Áú¹®] È®·üºÐÆ÷¸¦ Á¤±ÔºÐÆ÷ÀÇ ±×·¡ÇÁ·Î º¯È¯ÇÏ´Â ¹æ¹ý ±èÃæÇömailto:ksea@halla.com
Á¦°¡ ¾öû ±Ã±ÝÇÑ°Ô ÇѰ¡Áö ÀÖ¾î¿ä À§¿¡¼­ ¿¹±âÇÑ
È®·üºÐÆ÷¸¦ Á¤±ÔºÐÆ÷·Î ±¸ÇÏ´Â ¹æ¹ý ¶Ç´Â ±¸ÇØ ÁÖ¼¼¿ä
spss¸¦ ÀÌ¿ëÇÏ¸é µÉ°Í°°Àºµ¥ »ç¿ë¹ýÀ» ¸ô¶ó¼­...
¹è¿ö¼­ ÇÒ¶ó´Ï ³Ê¹« ¾öµÎ°¡ ¾È³ª³×¿ä....
³»¿ëÀº ÀÌ·¸½À´Ï´Ù....
1,2,3.....14,15ÀÇ Á¤¼öÁß 4°³¸¦ ÃßÃâÇØ¼­ 4°³ÀÇ Æò±Õ°ªÀÌ °¡Áö
´ÂÈ®·üºÐÆ÷¸¦ ±¸ÇÏ°í ½Í¾î¿ä.
ÀÌ ºÐÆ÷¸¦ °¡Áö°í Á¤±ÔºÐÆ÷Ç¥¸¦ ¸¸µé¸é ´õ ÁÁ±¸¿ä...
Ȥ½Ã À§ÀÇ °è»êÀÌ µÅ½Ã´Â ºÐÀÌ °è½Ã¸é µµ¿ÍÁÖ¼¼¿ä...
¾öû°¨»çµå¸±²²¿ä...

¶Ç´Â ÇÁ·Î±×·¥À» ÀÌ¿ëÇÑ ¹æ¹ýÀ» °¡¸£ÃÄ Áּŵµ ÁÁ±¸¿ä...
ÀÛ ¼º ÀÏ : 1999³â 11¿ù 11ÀÏ Ã·ºÎÈ­ÀÏ :
 
[´äº¯] Ç¥º»Æò±ÕÀÇ ºÐÆ÷ ¼Û¿µÁØmailto:yacc@mathlove.org
ÀϹÝÀûÀÎ ½ÄÀ» ±¸ÇØ º¸·Á°í ÇßÀ¸³ª Àß ¾ÈµÇ´Â±º¿ä. ±×·¡¼­ BASIC ÇÁ·Î±×·¥À¸·Î ÀÏÀÏÀÌ ¼¼¾ú½À´Ï´Ù. Áï, ³× ¼ö i < j < k < l ÀÌ µÇµµ·Ï 1 ºÎÅÍ 15 ±îÁö Â÷·Ê·Î ´ëÀÔÇϸ鼭 °¢ °æ¿ì°¡ ¹ß»ýÇÒ ¶§¸¶´Ù ¼¼´Â ¹æ¹ýÀ» ½è½À´Ï´Ù. ±× ÇÁ·Î±×·¥Àº ´ÙÀ½°ú °°½À´Ï´Ù.

Private Sub calc()
Dim a(60) As Integer
For i = 1 To 15
For j = i + 1 To 15
For k = j + 1 To 15
For l = k + 1 To 15

n = i + j + k + l
a(n) = a(n) + 1

Next
Next
Next
Next

For i = 1 To 60
Debug.Print i, a(i)
Next i

End Sub

±× °á°ú¸¦ Excel ·Î ¿Å°Ü Â÷Æ®·Î ¸¸µé¾î º¸¾Ò´Âµ¥ (Excel 97) ÷ºÎ ÆÄÀÏ¿¡ ÀÖÀ¸´Ï Âü°íÇϽñ⠹ٶø´Ï´Ù. ¸ð¾çÀº Á¤¸» Á¤±ÔºÐÆ÷°î¼±°ú Èí»çÇϱº¿ä. Áú¹® ´öºÐ¿¡ Ç¥º»Æò±ÕÀÇ ºÐÆ÷°¡ Á¤±ÔºÐÆ÷¿¡ °¡±õ´Ù´Â °ÍÀ», ÀÌ·ÐÀ¸·Î¸¸ÀÌ ¾Æ´Ï°í ½ÇÇèÀ» ÅëÇØ ¾Ë¾Æ º¼ ¼ö ÀÖ¾ú½À´Ï´Ù. °¨»çÇÕ´Ï´Ù. (±×·±µ¥ ¿øÇϽô ´äÀÎÁö´Â Àß ¸ð¸£°Ú±º¿ä.)

Ȥ½Ã Excel ÇÁ·Î±×·¥ÀÌ ¾øÀ¸½Ã¸é Àú¿¡°Ô E-mail ( yacc@mathlove.org ) Áֽøé ÅØ½ºÆ®³ª ¾Æ·¡¾Æ ÇÑ±Û µîÀ¸·Î º¸³»µå¸®°Ú½À´Ï´Ù.

ÀÛ ¼º ÀÏ : 1999³â 11¿ù 12ÀÏ Ã·ºÎÈ­ÀÏ : distrib.xls


À§·Î