Znn3bq.jpeg
ÉÇÍ·´óѧº£Ñó¿ÆÑ§½ÓÊܵ÷¼Á
²é¿´: 186  |  »Ø¸´: 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µÄ»ØÌû

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µÄ»ØÌû

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µÄ»ØÌû

skyang

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

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

¾ßÌåÊÇʲôʱºòÖ´ÐÐÄĸöÓï¾äÄØ£¿
̤̤ʵʵ×öÊ£¡
5Â¥2008-06-23 09:07:33
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ skyang µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 297£¬¹¤¿Æµ÷¼Á?ºÓÄÏũҵ´óѧ±¾¿Æ +7 ºÓÄÏũҵ´óѧ-ÄÜ 2026-04-14 7/350 2026-04-14 11:48 by lbsjt
[¿¼ÑÐ] ҩѧÇóµ÷¼Á +4 RussHu 2026-04-12 5/250 2026-04-14 11:41 by pengliang8036
[¿¼ÑÐ] 366Çóµ÷¼Á +10 ²»ÖªÃûµÄСئ 2026-04-11 10/500 2026-04-14 11:36 by lifeisbrave
[¿¼ÑÐ] 105500ҩѧÇóµ÷¼Á +3 x_skys 2026-04-12 3/150 2026-04-14 10:26 by lifeisbrave
[»ù½ðÉêÇë] ɽ¶«Ê¡»ù½ð2026 +6 jerry681 2026-04-08 7/350 2026-04-14 10:08 by î¿Ë×
[¿¼ÑÐ] ÉúÎïѧ308Çóµ÷¼Á +6 ÏàÐűػá¹ââÍòÕ 2026-04-11 6/300 2026-04-14 08:57 by licg0208
[¿¼ÑÐ] 297Çóµ÷¼Á +22 ORCHID1 2026-04-10 25/1250 2026-04-13 23:11 by pies112
[¿¼ÑÐ] 273Çóµ÷¼Á +3 °×¾Ó²»Ò×. 2026-04-09 5/250 2026-04-13 19:27 by or7ro
[¿¼ÑÐ] ²ÄÁϹ¤³ÌÈÕÓÉúÇóµ÷¼Á +7 0856?µ÷¼Á 2026-04-10 7/350 2026-04-11 21:33 by À¶ÔÆË¼Óê
[¿¼ÑÐ] 291·Öµ÷¼Á +5 Éϰ¶Ð¡Ó¨¼ÓÓÍ 2026-04-09 6/300 2026-04-11 21:06 by ÄæË®³Ë·ç
[¿¼ÑÐ] Çóµ÷¼Á +6 µçÆø300Çóµ÷¼Á²» 2026-04-08 6/300 2026-04-11 20:14 by ÄæË®³Ë·ç
[¿¼ÑÐ] 269Çóµ÷¼Á +11 °¡°¡ÎÒÎÒ 2026-04-07 11/550 2026-04-11 16:45 by vgtyfty
[¿¼ÑÐ] 346£¬¹¤¿ÆÇóµ÷¼Á +3 moser233 2026-04-09 3/150 2026-04-11 10:04 by zhq0425
[¿¼ÑÐ] ±¾¿Æ211 ¹¤¿Æ085400 280·ÖÇóµ÷¼Á ¿É¿çרҵ +11 LZH£¨µÈ´ýµ÷¼ÁÖÐ 2026-04-10 11/550 2026-04-11 08:39 by zhq0425
[¿¼ÑÐ] 0703»¯Ñ§Çóµ÷¼Á +21 ²»ÖªÃûµÄСئ 2026-04-08 21/1050 2026-04-09 18:55 by l_paradox
[¿¼ÑÐ] 349ѧ¿Æ»¯Ñ§045106Çóµ÷¼Á£¬»¯Ñ§Àà¶¼¿ÉÒÔ +8 ±£ºÃ¶®¶® 2026-04-08 8/400 2026-04-09 14:03 by xulei3024
[¿¼ÑÐ] 283µç×ÓÐÅÏ¢Çóµ÷¼Á +4 ÈýʯWL 2026-04-08 4/200 2026-04-09 10:21 by wp06
[¿¼ÑÐ] 328Çóµ÷¼Á +17 lftmya 2026-04-07 18/900 2026-04-09 08:05 by 5268321
[¿¼ÑÐ] Èí¼þ¹¤³ÌÇóµ÷¼Á22Èí¹¤296·ÖÇóµ÷¼Á£¬½ÓÊÜ¿çµ÷ +4 yangchen2017 2026-04-08 5/250 2026-04-08 21:56 by ÍÁľ˶ʿÕÐÉú
[¿¼ÑÐ] ÉúÎïѧ328·ÖÇóµ÷¼Á +9 ÉÁµçkkl 2026-04-08 10/500 2026-04-08 21:42 by liuhuiying09
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û