²é¿´: 1712  |  »Ø¸´: 13
µ±Ç°Ö»ÏÔʾÂú×ãÖ¸¶¨Ìõ¼þµÄ»ØÌû£¬µã»÷ÕâÀï²é¿´±¾»°ÌâµÄËùÓлØÌû

astringent

Í­³æ (ÖøÃûдÊÖ)


[½»Á÷] ¡¾ÇóÖú¡¿50½ð±ÒÇó´ó¼Ò°ïæ¸ÄÒ»¶Î³ÌÐò

ÓÐÒ»×éÊý¾ÝÈçÏÂËùʾ£¬µÚÒ»Áдú±íistep±ä»¯·¶Î§£¨1-5000£©£¬µÚ¶þÁÐia£¨1-30000£©£¬µÚÈýÁÐib£¨1-800£©£¬ÏÖÔÚÎÒÏëÓÃÒ»¸öÈýάÊý×éH£¨istep,ia,ib)À´±ê¼ÇÕâЩÊý¾Ý£¬Í¬Ò»ÐÐÊý×Ö¶¨ÒåµÄH=1£¬ÆäËûµÄH¾ùΪ0.Ò²¾ÍÊÇ˵µ±istep=1ʱ£¬ia=781£¬ib=455ʱH=1¡£ÎÒµÄÖ÷ҪĿµÄ¾ÍÊÇÄܹ»½«istep£¬ia£¬ibÓÃÒ»¸öº¯ÊýÁªÏµÆðÀ´£¬ÒòΪÔÚ³ÌÐòºóÃæÒªÓÃÕâ¸öº¯Êý×÷Ϊ½øÒ»²½µÄÅжÏÌõ¼þ¡£ÎÒдÁËÒ»¸ö³ÌÐò£º
program exam
implicit none
integer ia,ib,istep
integer ::h(5000,30000,800)
integer i



h=0
open (10,file='test.out')
do i=1,99999999
     read(10,*,end=2,err=2) istep,ia,ib
     h(istep,ia,ib)=1
enddo
2 continue
close(10)
do ia=1,30000
    do ib=1,800
         do istep=1,5000
              h(istep)=h(istep,ia,ib)
          enddo
         do ntel=1,nsteps
              if(h(ntel)/=0) then
                ½øÐкóÃæµÄ³ÌÐò
                -----------------
               endif
         enddo
         enddo
enddo
end
µ«ÊÇÏÖÔÚµÄÎÊÌâÊÇ£¬¶¨ÒåµÄÈýάÊý×éhÌ«´óÁË£¬³ÌÐò²»ÄÜÔËÐУ¬ Çë´ó¼Ò°ïæ¿´¿´Ó¦¸ÃÔõô°ì£¿ÏÈлÁË

Êý¾Ý£º
1     758           22
1     820           245
1     2050         399
1     2587         232
1     15733       34
1     18193       65
1     20718       256
2      820           245
2     2050         399
2      2587         232
2     20251        125
3     758           22
3     820           245
3     1817          625
3     2050          399
3     16723        555
3     18193       65
3     20718       256
---
----
----
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:

ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

astringent

Í­³æ (ÖøÃûдÊÖ)


ÒýÓûØÌû:
Originally posted by zhuwei04 at 2011-03-29 15:16:15:
¸ø¸öÄܶÁµÄÊý¾ÝÎļþ£¬ÎÒÊÔÊÔ
ÁíÍ⣬ÄãµÄnstepÊÇʲô¶«Î÷£¿

[ Last edited by zhuwei04 on 2011-3-29 at 16:00 ]

nstep¿ÉÒÔд³É5000£¬
¶ÔÎÒµÄÎļþ£¨new_total.out£©µÄ˵Ã÷£º
ÎļþµÄ¸ñʽΪĬÈÏдÈë¸ñʽ¡£
µÚÒ»Áдú±íia£¬µÚ¶þÁÐib£¬µÚÈýÁÐistep£¨±ä»¯·¶Î§1-5000£©
ÎļþËùÔÚÍøÖ·£ºhttp://good.gd/1078236.htm

[ Last edited by astringent on 2011-3-30 at 05:47 ]
7Â¥2011-03-30 05:44:34
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
²é¿´È«²¿ 14 ¸ö»Ø´ð

mplanck

ÖÁ×ðľ³æ (Ö°Òµ×÷¼Ò)


astringent(½ð±Ò+5): 2011-04-25 19:59:27
astringent(½ð±Ò+5): 2011-04-25 20:08:33
´ÖÂÔÒ»¿´£¬Ã»¶®ÄãµÄÒâ˼¡£
ÄãÉèµÄÊý×éÄÇô´ó£¬ÄÚ´æÖÁÉÙµÃ10GÒÔÉÏ£¬²»ÄÜÔËÐкÜÕý³£...
4Â¥2011-03-28 23:54:35
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

astringent

Í­³æ (ÖøÃûдÊÖ)


ÒýÓûØÌû:
Originally posted by mplanck at 2011-03-28 23:54:35:
´ÖÂÔÒ»¿´£¬Ã»¶®ÄãµÄÒâ˼¡£
ÄãÉèµÄÊý×éÄÇô´ó£¬ÄÚ´æÖÁÉÙµÃ10GÒÔÉÏ£¬²»ÄÜÔËÐкÜÕý³£...

ÒÔÎҵĵÚÒ»ÐÐÊý¾Ý 1     758           22 ΪÀý£¬1´ú±íistep£¬758´ú±íia£¬22´ú±íib¡£ ÎÒÏëÓú¯Êý½«istep£¬ia£¬ibÁªÏµÆðÀ´£¬Ö»Óе±È¡ÎÒÊý¾ÝÖÐÒ»ÐÐÉϵÄÊý×Öʱ£¬¶¨ÒåµÄº¯Êýh=1£¬ÆäËûµÄh¾ùΪ0.ÒÔµÚÒ»ÐÐΪÀý£¬ istep=1£¬ia= 758£¬ib=22ʱ£¬h=1.»òÕßÓöà¸öº¯ÊýÒ²ÐУ¬Ö»ÒªÄÜÍê³ÉºóÃæÑ­»·ÖÐÅжϣ¨ if(h(ntel)/=0) then£©¾ÍÐС£
do ia=1,30000
    do ib=1,800
         do istep=1,5000
              h(istep)=h(istep,ia,ib)
          enddo
         do ntel=1,nsteps
              if(h(ntel)/=0) then
                ½øÐкóÃæµÄ³ÌÐò
                -----------------
               endif
         enddo
         enddo
enddo
5Â¥2011-03-29 03:05:47
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

zhuwei04

ľ³æ (ÕýʽдÊÖ)


astringent(½ð±Ò+5): 2011-04-25 20:08:44
¸ø¸öÄܶÁµÄÊý¾ÝÎļþ£¬ÎÒÊÔÊÔ
ÁíÍ⣬ÄãµÄnstepÊÇʲô¶«Î÷£¿

[ Last edited by zhuwei04 on 2011-3-29 at 16:00 ]
6Â¥2011-03-29 15:16:15
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[»ù½ðÉêÇë] ·¶½øÖоÙÒ»ÎĵÄÖÐÐÄ˼Ïë +7 Ñ׻ƹóëÐ 2026-08-22 8/400 2026-08-25 08:48 by ZJTJZ
[»ù½ðÉêÇë] 2026ÄêµÄ¹ú¼ÒÉç¿Æ»ù½ðÏîĿͨѶÆÀÉóµÄйæÔòÓëж¯Ïò¡¢ÐÂÌôÕ½ +5 process2012 2026-08-23 6/300 2026-08-25 08:44 by °×´ó¶àÁÁ
[»ù½ðÉêÇë] Ö»ÓÐÿÄêÕâÖÖʱºòÀ´¹ä¹äСľ³æ +25 yaoyewhu2008 2026-08-20 27/1350 2026-08-25 08:01 by Equinoxhua
[»ù½ðÉêÇë] Ã÷ÌìÓ¦¸Ã¿É²éÁË£¡£¿ +5 chengyan1220 2026-08-23 5/250 2026-08-24 23:28 by ÎÒ4´ó°×²Ë
[»ù½ðÉêÇë] ûÓÐÈκÎÏûÏ¢-ÊDz»ÊǾÍÁ¹ÁË +7 ͼÀ²Í¼À² 2026-08-24 8/400 2026-08-24 22:00 by maomao_da
[»ù½ðÉêÇë] ÈËÆø²»ÐÐÁË +10 fansofjerry 2026-08-21 10/500 2026-08-24 21:03 by zhanghaozhu
[»ù½ðÉêÇë] filecode£¬4¸öjtjcÁË +14 ziyangfang 2026-08-19 17/850 2026-08-24 18:37 by ¹þ¹þ¸ò£¿
[»ù½ðÉêÇë] ½¨Òé»ù½ð·¢²¼Ìáǰ¸ø³öÃ÷È·µÄʱ¼äµã +13 kulium 2026-08-21 16/800 2026-08-24 16:27 by superceng
[»ù½ðÉêÇë] ½ñÈÕ²»·Å°ñ£¿Íø´«¹ú×ÔȻԤ¼Æ 8 Ô 27 Èտɲé½á¹û +17 ҽѧÀÏÄк¢ 2026-08-20 21/1050 2026-08-24 14:21 by refreshing11
[»ù½ðÉêÇë] ÅóÓÑȦ¿´µ½µÄ +7 wangzilk 2026-08-18 9/450 2026-08-24 10:50 by cmrandy
[»ù½ðÉêÇë] ÈÃÎÒÖÐÒ»¸öÃæÉϰɣ¡ +13 ´óƼ1987 2026-08-20 16/800 2026-08-24 10:23 by ̫ɵÁË
[»ù½ðÉêÇë] ·Å°ñǰµÄ²»µ­¶¨ 20+4 snowwithsea 2026-08-19 17/850 2026-08-24 10:20 by echo8914667
[»ù½ðÉêÇë] ¿ÆÑй¶ùÌ«ÄÑÁË +18 ÎÒ4´ó°×²Ë 2026-08-20 19/950 2026-08-24 09:47 by ¿­¶÷¹ãÊ¢´ß»¯·ÖÎ
[»ù½ðÉêÇë] ʲôʱºò¿ª½±£¿ +10 CrisMessi 2026-08-18 11/550 2026-08-24 06:50 by ¿ªÐĵÄСʨ×Ó
[»ù½ðÉêÇë] ½ñÌì»ù½ð»á³ö½á¹ûÂð£¿20260819 +16 kkkl_v 2026-08-19 17/850 2026-08-22 16:12 by °¢²¼Abu
[»ù½ðÉêÇë] ʱ¼ä´Á½ñÌ죬20ºÅ±äÁË +5 archvillain 2026-08-20 5/250 2026-08-22 06:12 by hui_daxiao
[»ù½ðÉêÇë] ¿´À´½ñÌì²»»á·Å°ñÁË£¿ +8 chengyan1220 2026-08-21 11/550 2026-08-21 17:52 by dcqxinyang
[»ù½ðÉêÇë] ½ñÌì·Å°ñûϷÁ衃 +9 yuleib84 2026-08-19 11/550 2026-08-21 10:06 by gltch
[»ù½ðÉêÇë] Ã÷Ìì·Å°ñ£¿ +5 Shxjjxjkx 2026-08-18 5/250 2026-08-18 18:14 by -´ó´ó´ó´ó´ó-
[»ù½ðÉêÇë] ½ñÌìά»¤ÏµÍ³Î¬»¤ ×£ËùÓÐÈË ¸ßÖÐ +8 gjjjzhong 2026-08-18 9/450 2026-08-18 13:01 by ¼ÒÓëÔ¶·½
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û