Znn3bq.jpeg
²é¿´: 179  |  »Ø¸´: 5
µ±Ç°Ö÷ÌâÒѾ­´æµµ¡£
µ±Ç°Ö»ÏÔʾÂú×ãÖ¸¶¨Ìõ¼þµÄ»ØÌû£¬µã»÷ÕâÀï²é¿´±¾»°ÌâµÄËùÓлØÌû

skyang

Ìú¸Ëľ³æ (ÖøÃûдÊÖ)

[½»Á÷] ÓÐË­ÖªµÀ¹ÅÀϵÄFORTRANÓïÑÔ£¿Óм¸¸öÓï¾äÇë½Ì£¡¡¾ÓÐЧÆÚÖÁ2008Äê6ÔÂ23ÈÕ¡¿

1¡¢FORMAT(F9.2,4F9.4)Êä³ö¸ñʽӦ¸ÃÊÇʲô£¿
2¡¢  N=5
     WRITE(N,44)    X(1)
        ÆäÖеÄN´ú±íʲôÒâ˼£¿
3¡¢IF(ISO.GT.0) GOTO 12  ÆäÖеÄ.GT.ÊÇʲôÒâ˼À´×Å£¿
4¡¢IF(D-1.E-10) 42,42,45   Õâ¸öÓï¾äʲôÒâ˼°¡£¿ÆäÖеÄ42£¬45¶¼ÊÇÓï¾äÐкš£
·Ç³£¸Ðл£¡

[ Last edited by skyang on 2008-6-23 at 13:26 ]

» ²ÂÄãϲ»¶

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

hxfciae

ľ³æ (СÓÐÃûÆø)

¡ï ¡ï
skyang(½ð±Ò+2,VIP+0):thanks
Õâ¶¼ÊÇFortran77ÖеÄÓï·¨¡£
1¡¢FORMAT(F9.2,4F9.4)Êä³ö¸ñʽÊÇÊä³ö9¸ö×Ö·û¿íÊä³ö¸¡µãÊý£¬ÆäÖÐСÊý²¿·ÖÕ¼3λ£¨Ð¡Êýµãռһ룩£»È»ºóÁ¬ÐøÊä³ö4¸ö¸¡µãÊý£¨9¸ö×Ö·û¿íµÄ¸¡µãÊý£¬Ð¡Êý²¿·ÖÕ¼5룩¡££¿
2¡¢  N=5
     WRITE(N,44)    X(1)
        ÆäÖеÄN´ú±íÊä³öλÖ㬶ÔÓÚÒ»°ã¼ÆËã»ú¶øÑÔN=5´ú±íÊä³öµ½ÆÁÄ»£»
3¡¢IF(ISO.GT.0) GOTO 12  ÆäÖеÄ.GT.´ú±ígreat than£¬´óÓÚ
4¡¢IF(D-1.E-10) 42,42,45   ´ú±íÅжÏÓï¾äµÄ²»Í¬È¡ÖµËù¶ÔÓ¦µÄÖ´ÐÐÓï¾ä¡£
4Â¥2008-06-23 08:40:37
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
²é¿´È«²¿ 6 ¸ö»Ø´ð

addila

ľ³æ (ÕýʽдÊÖ)

¡ï ¡ï
skyang(½ð±Ò+2,VIP+0):thanks
µÚÒ»¸öÊä³ö£º f9.2¸ñʽµÄÊý×Ö£¬ºÍ4¸öf9.4¸ñʽµÄÊý×Ö

2£¬n´ú±íµÚnÐеĸñʽ°É

3. ÄÇÊÇ´óÓÚºÅ

4. ÊDz»ÊÇÖ´ÐÐ42Á½´Î£¬45Ò»´Î£¿
2Â¥2008-06-23 08:18:53
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

lianghust

Ìú¸Ëľ³æ (ÕýʽдÊÖ)

¡ï
skyang(½ð±Ò+1,VIP+0):thanks
1:F9.2 --ʹÓÃ9¸ö×Ö·û¿íÊä³ö¸¡µãÊý£¬ÆäÖÐСÊý²¿·ÖÕ¼3λ£»4F9.4ÖÐFÇ°ÃæµÄ4ÊÇÁ¬ÐøÊä³öËĸö¸¡µãÊý¡£
2£ºwrite£¨N,44£©£ºN±íʾÊä³öλÖá£
3£º.GT.: >

[ Last edited by lianghust on 2008-6-23 at 08:21 ]
3Â¥2008-06-23 08:20:04
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

skyang

Ìú¸Ëľ³æ (ÖøÃûдÊÖ)

4¡¢IF(D-1.E-10) 42,42,45   ´ú±íÅжÏÓï¾äµÄ²»Í¬È¡ÖµËù¶ÔÓ¦µÄÖ´ÐÐÓï¾ä¡£

¾ßÌåÊÇʲôʱºòÖ´ÐÐÄĸöÓï¾äÄØ£¿
̤̤ʵʵ×öÊ£¡
5Â¥2008-06-23 09:07:33
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] ҩѧÇóµ÷¼Á +3 RussHu 2026-04-12 4/200 2026-04-12 17:49 by ³ÂƤƤ
[¿¼ÑÐ] 293Çóµ÷¼Á +11 ÎÒ°®¸ßÊý¸ßÊý°®Î 2026-04-12 11/550 2026-04-12 15:57 by LHGeng
[¿¼ÑÐ] һ־Ըн®´óѧ085401£¬314·Ö +4 ßÇßÇßÇßÇ9 2026-04-05 4/200 2026-04-12 02:21 by Çï¶¹²ËÑ¿
[¿¼ÑÐ] 296Çóµ÷¼Á +14 Íô£¡£¿£¡ 2026-04-08 15/750 2026-04-11 20:28 by dongdian1
[¿¼ÑÐ] 283Çóµ÷¼Á 086004¿¼Ó¢¶þÊý¶þ +17 ÄǸöàà×Ó 2026-04-10 18/900 2026-04-11 16:27 by Ã÷Ô´ËʱÓÐ
[¿¼ÑÐ] 0859£¬337Çóµ÷¼Á +4 ÑÐs. 2026-04-10 4/200 2026-04-11 11:34 by caotw2020
[¿¼ÑÐ] 283Çóµ÷¼Á +22 ÄǸöàà×Ó 2026-04-09 22/1100 2026-04-11 10:41 by ÄæË®³Ë·ç
[¿¼ÑÐ] 22408 327·ÖÇóµ÷¼Á +4 ÔÏ·çkon 2026-04-10 4/200 2026-04-11 09:51 by Öí»á·É
[¿¼ÑÐ] 282£¬Çóµ÷¼Á +12 jggshjkkm 2026-04-09 14/700 2026-04-11 09:39 by Öí»á·É
[¿¼ÑÐ] 337Çóµ÷¼Á +4 ÑÐs. 2026-04-10 4/200 2026-04-11 08:57 by zhq0425
[¿¼ÑÐ] 309Çóµ÷¼Á +14 wdhw 2026-04-10 15/750 2026-04-10 21:06 by zhouxiaoyu
[¿¼ÑÐ] 368Çóµ÷¼Á +3 17385968172 2026-04-10 3/150 2026-04-10 20:12 by µç×Ӱµ±ë
[¿¼ÑÐ] Ò»Ö¾Ô¸¾©Çø985£¬085401µç×ÓÐÅÏ¢£¬±¾¿Æµç×ÓÐÅÏ¢ +3 Ñô¹â¿ªÀʵÄÄк¢ 2026-04-10 3/150 2026-04-10 16:29 by sophia_93
[¿¼²©] ²©Ê¿×Ô¼ö +7 ¿É¿ÉСÅÖ 2026-04-08 7/350 2026-04-10 08:28 by kimhero
[¿¼ÑÐ] Ò»Ö¾Ô¸ÖпÆÔº105500רҵ×Ü·Ö315Çóµ÷¼Á +6 lallalh 2026-04-09 7/350 2026-04-09 17:51 by lallalh
[¿¼ÑÐ] 0860004 Çóµ÷¼Á 309·Ö +6 Yin DY 2026-04-09 6/300 2026-04-09 10:19 by °¡Àî999
[¿¼ÑÐ] ¶þ´Îµ÷¼ÁÇóÀÏʦÊÕÁô +3 ЦЦԬ 2026-04-08 3/150 2026-04-08 23:50 by ×íÔÚ·çÀï
[¿¼ÑÐ] Èí¼þ¹¤³ÌÇóµ÷¼Á22Èí¹¤296·ÖÇóµ÷¼Á£¬½ÓÊÜ¿çµ÷ +4 yangchen2017 2026-04-08 5/250 2026-04-08 21:56 by ÍÁľ˶ʿÕÐÉú
[¿¼ÑÐ] 307Çóµ÷¼Á +3 Youth@@ 2026-04-07 3/150 2026-04-07 09:25 by СºÚ²»ÅÂÄÑ
[¿¼ÑÐ] 071000ÉúÎïѧµ÷¼Á +7 À­ÌáÌÒ 2026-04-06 7/350 2026-04-06 18:55 by 52305043001
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û