Algorithm °æ (¾«»ªÇø)

·¢ÐÅÈË: shs (»¨ÓêÆ®), ÐÅÇø: Algorithm
±ê  Ìâ: Re: °Ë»ÊºóËã·¨ÎÊÌâÇë½Ì£¿
·¢ÐÅÕ¾: ¹þ¹¤´ó×϶¡Ïã (Sat Sep  9 12:56:26 2000), ×ªÐÅ

×î¼òµ¥µÄÊÇÓõݹéÁË£¬²»¹ý¹À¼Æ²»ÊÇÄãÏëÒªµÄ¡£
ÏÂÃæÊÇÕÒÒ»¸ö½âµÄ´úÂ루ÎÒÓõÄQuick Basic£©£º
DIM S(1 TO 8) AS INTEGER
DIM I AS INTEGER, J AS INTEGER, K AS INTEGER
CLS
S(1) = 0
I = 1
DO WHILE I <= 8 AND I > 0
   S(I) = S(I) + 1
   IF S(I) > 8 THEN
      I = I - 1
   ELSE
      K = 0
      J = 1
      DO WHILE J < I
         IF S(J) = S(I) OR S(J) - S(I) = J - I OR S(J) - S(I) = I - J THEN
            K = 1
         END IF
         J = J + 1
      LOOP
      IF K = 0 THEN I = I + 1: IF I < 9 THEN S(I) = 0
   END IF
LOOP
FOR I = 1 TO 8
   PRINT S(I);
NEXT
ÇóËùÓнâµÄËã·¨Ö»Òª°ÑÉÏÃ棺
      IF K = 0 THEN I = I + 1: IF I < 9 THEN S(I) = 0
¸ÄΪ
      IF K = 0 THEN
         IF I < 8 THEN
            I = I + 1: S(I) = 0
         ELSE
            FOR L = 1 TO 8
               PRINT S(L);
            NEXT
            PRINT
         END IF
      END IF
¾Í¿ÉÒÔÁË£¬¹²ÓÐ92¸ö½â¡£
ÕâÊÇÎÒÁÙʱдµÄ³ÌÐò£¬ÓÐʲô´íÎóÇëÔ­Á¡£

¡¾ ÔÚ daoshou (ÔÆÓÎËĺ£) µÄ´ó×÷ÖÐÌáµ½: ¡¿
:     ÖîλӢÐÛ £ºË­ÖªÓйذ˻ʺóÎÊÌâµÄËã·¨ÄÄÀï¿ÉÒÔÕÒµ½£¿
:    ±¾È˲»Ê¤¸Ð¼¤¡£É


--
¡ñ¡ñ    ¡ñ¡ñ¡ñ  ¡ñ¡ñ¡ñ  ¡ñ      ¡ñ¡ñ¡ñ  ¡ñ  ¡ñ¡ñ¡ñ  ¡ñ¡ñ¡ñ
¡ñ  ¡ñ  ¡ñ      ¡ñ  ¡ñ  ¡ñ      ¡ñ      ¡ñ  ¡ñ      ¡ñ  ¡ñ
¡ñ¡ñ¡ñ  ¡ñ¡ñ¡ñ  ¡ñ¡ñ¡ñ  ¡ñ      ¡ñ¡ñ¡ñ  ¡ñ  ¡ñ¡ñ¡ñ  ¡ñ¡ñ¡ñ
¡ñ¡ñ    ¡ñ      ¡ñ  ¡ñ  ¡ñ      ¡ñ      ¡ñ  ¡ñ      ¡ñ  ¡ñ
¡ñ  ¡ñ  ¡ñ¡ñ¡ñ  ¡ñ  ¡ñ  ¡ñ¡ñ¡ñ  ¡ñ      ¡ñ  ¡ñ      ¡ñ  ¡ñ

¡ù ÐÞ¸Ä:£®shs ÓÚ Sep  9 12:54:09 Ð޸ı¾ÎÄ£®[FROM: as.hit.edu.cn]
¡ù À´Ô´:£®Î人°×Ôƻƺ×Õ¾ bbs.whnet.edu.cn£®[FROM: 202.114.11.13]
--
¡ù ×ª¼Ä:£®Î人°×Ôƻƺ×Õ¾ bbs.whnet.edu.cn£®[FROM: as.hit.edu.cn]

--
¡î À´Ô´:£®¹þ¹¤´ó×϶¡Ïã bbs.hit.edu.cn£®[FROM: shs.bbs@bbs.whnet.ed]