Znn3bq.jpeg
ÉÇÍ·´óѧº£Ñó¿ÆÑ§½ÓÊܵ÷¼Á
²é¿´: 286  |  »Ø¸´: 2

zyj8119

ľ³æ (ÖøÃûдÊÖ)

[½»Á÷] ¡¾ÇóÖú¡¿´Ë³ÌÐòûÓдíÎ󣬵«ÊÇÔËÐÐÓÐÎÊÌ⣿

CODE:
   SUBROUTINE find(first,last,n)
              IMPLICIT NONE
              LOGICAL::log
              INTEGER::i,j,k,first,last,n,sum
              first=10**n
              IF(n==0)first=0
              last=10**(n+1)
out:        DO j=first,last
                 DO i=j,last
                       log=(i+j)==4*10**n
                       IF(log)THEN
                          sum=0
in:                   DO k=i,j
                            sum=sum+k
                            IF(sum>=10**(n+1))EXIT in
                         ENDDO in
                         IF(sum==10**(n+1))THEN
                         first=i;last=j
                         EXIT out
                         ENDIF
                        ENDIF
                       ENDDO
                      ENDDO out
                     END SUBROUTINE find
  !
            PROGRAM main
            IMPLICIT NONE
            INTEGER::i,first,last,n,temp(5)
            OPEN(1,FILE='MYF1.OUT')
            DO n=1,3
                 CALL find(first,last,n)
                 DO i=first,last
                        temp(i-first+1)=i
                 ENDDO
                 WRITE(*,'(5I8)')temp;WRITE(1,'(5I8)')temp
            ENDDO
            END  PROGRAM main
              

[ Last edited by zyj8119 on 2010-9-29 at 10:51 ]
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

ºÃºÃѧϰ£¬ÌìÌìÏòÉÏ¡£
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

hllyh

Ìú¸Ëľ³æ (ÖªÃû×÷¼Ò)

¡ï
zyj8119(½ð±Ò+1):лл²ÎÓë
zyj8119(½ð±Ò+1): 2010-09-29 10:50:47
ÓÐʲôÎÊÌ⣿
2Â¥2010-09-29 08:52:00
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

zyj8119

ľ³æ (ÖøÃûдÊÖ)

nono2009:½¨Òé¡°ÒýÓûظ´¸ÃÌû¡± 2010-09-30 08:32:31
temp(i-first+1)=i,ÏÔʾ»á³öÏÖ6³¬¹ý¶¨ÒåµÄ5
ºÃºÃѧϰ£¬ÌìÌìÏòÉÏ¡£
3Â¥2010-09-29 10:54:42
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ zyj8119 µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] ±¾¿ÆÖ£ÖÝ´óѧ£¬Ò»Ö¾Ô¸»ª¶«Ê¦·¶´óѧ282Çóµ÷¼Á +28 Ðܸçxtk 2026-04-07 33/1650 2026-04-13 17:48 by ×Þgv
[¿¼ÑÐ] Ò»Ö¾Ô¸211 0703»¯Ñ§ 346·ÖÇóµ÷¼Á +26 ÍÁ¶¹er? 2026-04-09 29/1450 2026-04-13 15:15 by ¶À×íÃι³Ç
[¿¼ÑÐ] 293Çóµ÷¼Á +15 ÎÒ°®¸ßÊý¸ßÊý°®Î 2026-04-12 16/800 2026-04-13 11:56 by 414435937
[¿¼ÑÐ] ÉúÎïѧµ÷¼Á +11 СȽҪŬÁ¦ 2026-04-10 13/650 2026-04-13 11:46 by µç»¯Ñ§¼°´ß»¯
[¿¼ÑÐ] ¿¼ÑжþÂÖµ÷¼Á +10 ¹ÊÈË?? 2026-04-09 10/500 2026-04-13 09:55 by szhize
[¿¼ÑÐ] 280Çóµ÷¼Á +13 wzzzÍõ 2026-04-09 13/650 2026-04-12 00:31 by ÓÂÅʸ߷å0126
[¿¼ÑÐ] 332Çóµ÷¼Á +14 ½¶½¶123 2026-04-10 14/700 2026-04-12 00:27 by À¶ÔÆË¼Óê
[¿¼ÑÐ] 277 ÊýÒ»104£¬Ñ§Ë¶£¬Çóµ÷¼Á +21 Æ¿×ÓPZ 2026-04-09 23/1150 2026-04-11 23:12 by labixiaoqiao
[¿¼ÑÐ] 359Çóµ÷¼Á +5 θ¾·ÂÎÀÛÁË 2026-04-11 5/250 2026-04-11 19:55 by lbsjt
[¿¼ÑÐ] 300·ÖÇóµ÷¼Á £¨085501»úеר˶£¬±¾¿ÆÑï´ó£© +8 xu@841019 2026-04-11 8/400 2026-04-11 10:46 by qingpingzhu
[¿¼ÑÐ] »úеר˶270Çóµ÷¼Á£¬½ÓÊÜ¿çרҵ +12 ÀÏʦ¿´¿´ÎÒ°Éaba 2026-04-09 14/700 2026-04-11 10:21 by laoshidan
[¿¼ÑÐ] 346£¬¹¤¿ÆÇóµ÷¼Á +3 moser233 2026-04-09 3/150 2026-04-11 10:04 by zhq0425
[¿¼ÑÐ] 289 ·Ö105500ҩѧר˶Çóµ÷¼Á(ÕÒBÇøÑ§Ð£) +6 °×ÔÆ123456789 2026-04-09 8/400 2026-04-10 21:13 by zhouxiaoyu
[¿¼ÑÐ] 266Çóµ÷¼Á +29 ÑôÑôÍÛÈû 2026-04-07 29/1450 2026-04-10 16:20 by ¸ßά´º
[¿¼ÑÐ] Ò»Ö¾Ô¸ÖÐÄÏ´óѧÎïÀíѧ£¬Ó¢Ò»66£¬Çóµ÷¼Á +4 ³¤ÑÌì½ì» 2026-04-08 5/250 2026-04-10 10:31 by Ó±¹û¶ù
[¿¼ÑÐ] 08¹¤Ñ§ 309·ÖÇóµ÷¼Á +6 Yin DY 2026-04-08 6/300 2026-04-10 09:18 by Delta2012
[¿¼ÑÐ] Çóµ÷¼Á +3 ÖíÈâ¶Õ·ÛÌõcc 2026-04-08 4/200 2026-04-09 10:05 by ÖíÈâ¶Õ·ÛÌõcc
[¿¼ÑÐ] 328Çóµ÷¼Á +17 lftmya 2026-04-07 18/900 2026-04-09 08:05 by 5268321
[¿¼ÑÐ] ¼ÆËã»ú11408 287 Çóµ÷¼Á +3 LiLe5 2026-04-07 3/150 2026-04-07 23:15 by shanqishi
[¿¼ÑÐ] »úеµ÷¼Á +3 zzzbcb 2026-04-07 3/150 2026-04-07 22:19 by hemengdong
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û