±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 612  |  »Ø¸´: 12
µ±Ç°Ö÷ÌâÒѾ­´æµµ¡£

wester

½ð³æ (ÖøÃûдÊÖ)

[½»Á÷] ¡¾ÒÑÍê³É¡¿FortranµÄÒ»¸ö¼òµ¥ÎÊÌâ

±¾ÎĸոսӴ¥fortran,Óиö¼òµ¥µÄÎÊÌâÏëÇë½ÌÄÚÐÐÈË¡£
ÒªÉèÖÃÒ»¸öÅжÏÌõ¼þ£¬Èç¹ûÒ»¸öÊýaÊÇbµÄÕûÊý±¶£¬ÔòÖ´ÐÐÏÂÃæµÄÌõ¼þ¡£
¾ÍÕâ¸öaÊÇbµÄÕûÊý±¶ÈçºÎ±íʾ£¬

ÏÈÔÚ´Ëлл·¹ýµÄ¸÷λÐֵܽãÃÃÃÇÁË£¡£¡£¡

[ Last edited by wester on 2009-8-23 at 23:02 ]
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

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

mystar

½ð³æ (ÎÄ̳¾«Ó¢)

¡ï
wangen994(½ð±Ò+1,VIP+0):»¶Ó­ÌÖÂÛ 8-22 21:21
a  b  ÓÃÕûÐÍ

a  b  µÄÓàÊýΪ0
²»ÒªÊ¹×Ô¼ºÂéľÓÚÖÆ¶È»¯µ±ÖУ¬¶øÅׯúÁË´ÓǰµÄÃÀºÃÊÂÎïºÍÏ£Íû¡£
2Â¥2009-08-22 14:08:14
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

wester

½ð³æ (ÖøÃûдÊÖ)

ÊÇÕâÑùдÂð£¿ÎÒ¸Õ²ÅÒ²Ïëµ½Õâ¸öÁË£¬ÊÔÁËһϳö´íÁË¡£¶Ôfortran»ù±¾Óï¾ä»¹²»Ì«Á˽⣬¼ûÁ°¡£¡
if(MOD(a/b)=0)then
c=1
°ïæ¿´¿´Ôõô´íÁË£¬»¹ÓоÍÊÇab±ØÐëÊÇÕûÐÎÂð£¿
3Â¥2009-08-22 14:11:12
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

mystar

½ð³æ (ÎÄ̳¾«Ó¢)

¡ï ¡ï ¡ï ¡ï ¡ï
wester(½ð±Ò+5,VIP+0): 8-22 14:19
if (mod(a,b) .eq. 0) then
c=1
endif

ÏÈÒª¶¨Òåa bÊÇÕûÐÍ
²»ÒªÊ¹×Ô¼ºÂéľÓÚÖÆ¶È»¯µ±ÖУ¬¶øÅׯúÁË´ÓǰµÄÃÀºÃÊÂÎïºÍÏ£Íû¡£
4Â¥2009-08-22 14:13:59
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

wester

½ð³æ (ÖøÃûдÊÖ)

ÈõÈõµØÎÊÒ»¾ä£¬ÕûÐÎÔõô¶¨Òå°¡£¿ºÙºÙ
5Â¥2009-08-22 14:16:11
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

mystar

½ð³æ (ÎÄ̳¾«Ó¢)

integer  a,b
²»ÒªÊ¹×Ô¼ºÂéľÓÚÖÆ¶È»¯µ±ÖУ¬¶øÅׯúÁË´ÓǰµÄÃÀºÃÊÂÎïºÍÏ£Íû¡£
6Â¥2009-08-22 14:17:06
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

wester

½ð³æ (ÖøÃûдÊÖ)

±ØÐëÊÇÕûÐÎÂ𣿿ÉÊÇÎÒµÄa²»ÊÇÕûÐÎÔõô°ì°¡
7Â¥2009-08-22 14:19:19
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

tianlangxingaa

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

½¨Òé¿´¿´Ê飬Èç¹û¾­³£Óû¹ÊÇѧѧºÃ
8Â¥2009-08-22 14:20:12
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

wester

½ð³æ (ÖøÃûдÊÖ)

¿Ï¶¨»áÂýÂý¿´ÊéµÄÀ²£¬¿ÉÊÇÏÖÔÚ¼±Óã¬ÐèÒª¸Ä³ÌÐò£¬¾ÍÏÈÇóÖú¸÷λÀ²
9Â¥2009-08-22 14:21:07
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

mystar

½ð³æ (ÎÄ̳¾«Ó¢)

¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï
wester(½ð±Ò+5,VIP+0):ллÄãµÄÈÈÐİïÖú£¬ÒÔºóÓÐÎÊÌâ¾ÍÇë½ÌÄãÁË£¬²»ÒªÏÓ·³Å¶àÞ 8-22 14:25
wangen994(½ð±Ò+5,VIP+0):¸ÐлÄã²ÎÓëÌÖÂÛ£¬»¶Ó­³£À´ 8-22 21:23
ÒýÓûØÌû:
Originally posted by wester at 2009-8-22 14:19:
±ØÐëÊÇÕûÐÎÂ𣿿ÉÊÇÎÒµÄa²»ÊÇÕûÐÎÔõô°ì°¡

ת³¡ÕûÐÍ£¬¾ÍÔÚmodÀïת

if (mod (int(a),int(b)) .eq. 0) then
c=1
endif
²»ÒªÊ¹×Ô¼ºÂéľÓÚÖÆ¶È»¯µ±ÖУ¬¶øÅׯúÁË´ÓǰµÄÃÀºÃÊÂÎïºÍÏ£Íû¡£
10Â¥2009-08-22 14:23:41
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ wester µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] Ò»Ö¾Ô¸211 ³õÊÔ270·Ö Çóµ÷¼Á +8 ¹ÈÓêÉϰ¶ 2026-03-23 9/450 2026-03-29 01:00 by ÎÒÊÇС¿µ
[¿¼ÑÐ] ²ÄÁÏѧ˶333Çóµ÷¼Á +10 ±±µÀÏï 2026-03-24 10/500 2026-03-28 23:06 by Î޼ʵIJÝÔ­
[¿¼ÑÐ] 0703»¯Ñ§µ÷¼Á£¬Çóµ¼Ê¦ÊÕ +9 ÌìÌìºÃÔËÀ´Éϰ¶° 2026-03-24 10/500 2026-03-28 22:17 by chemzp
[¿¼ÑÐ] Çóµ÷¼Á +7 ÕùÈ¡¾Åµã˯ 2026-03-28 8/400 2026-03-28 21:07 by ÕùÈ¡¾Åµã˯
[¿¼ÑÐ] »¯Ñ§0703 µ÷¼Á 306·Ö Ò»Ö¾Ô¸211 +4 26ÒªÉϰ¶ 2026-03-28 4/200 2026-03-28 15:30 by 1018329917
[¿¼ÑÐ] ¡¾Çóµ÷¼Á¡¿085601²ÄÁϹ¤³Ìר˶ | ×Ü·Ö272 | +6 ½Å»¬µÄÊØ·¨¹«Ãñ 2026-03-27 6/300 2026-03-28 11:02 by gjlllb
[¿¼ÑÐ] 085602 307·Ö Çóµ÷¼Á +7 ²»ÖªµÀ½Ðʲô£¡ 2026-03-26 7/350 2026-03-28 09:57 by ÉñÂí¶¼²»¶®
[²ÄÁϹ¤³Ì] Ò»Ö¾Ô¸C9²ÄÁÏÓ뻯¹¤×¨Òµ×Ü·Ö300Çóµ÷¼Á +8 Âü111 2026-03-24 9/450 2026-03-28 07:58 by YYYYX1234
[¿¼ÑÐ] »¯Ñ§µ÷¼Á +4 °®³Ô·¬ÇѵÄÐñ 2026-03-24 5/250 2026-03-27 17:50 by kiokin
[¿¼ÑÐ] »¯Ñ§308·ÖÇóµ÷¼Á +8 ÄãºÃÃ÷ÌìÄãºÃ 2026-03-23 9/450 2026-03-27 14:01 by Ñî¹âÓÚÇàÔÆ
[¿¼ÑÐ] ¿¼Ñе÷¼Á +9 СÀ¯ÐÂ±Ê 2026-03-26 9/450 2026-03-27 11:10 by ²»³Ôô~µÄ؈
[¿¼ÑÐ] 292Çóµ÷¼Á +4 ÇóÇóÁËÊÕÏÂÎÒ°É£ 2026-03-26 4/200 2026-03-27 10:37 by zhshch
[¿¼ÑÐ] 081200-11408-276ѧ˶Çóµ÷¼Á +4 ´Þwj 2026-03-26 4/200 2026-03-27 08:04 by chemisry
[¿¼ÑÐ] 321Çóµ÷¼Á +6 wasdssaa 2026-03-26 6/300 2026-03-26 20:57 by sanrepian
[¿¼ÑÐ] 327Çóµ÷¼Á +7 prayer13 2026-03-23 7/350 2026-03-26 20:48 by ²»³Ôô~µÄ؈
[¿¼ÑÐ] 081200-11408-276ѧ˶Çóµ÷¼Á +3 ´Þwj 2026-03-26 3/150 2026-03-26 19:57 by nihaoar
[¿¼ÑÐ] 284Çóµ÷¼Á +15 Zhao anqi 2026-03-22 15/750 2026-03-25 12:51 by wht0531
[¿¼ÑÐ] 282Çóµ÷¼Á +3 wcq131415 2026-03-24 3/150 2026-03-25 12:16 by userper
[¿¼ÑÐ] ²ÄÁϵ÷¼Á +3 iwinso 2026-03-23 3/150 2026-03-25 11:29 by greychen00
[¿¼ÑÐ] Ò»Ö¾Ô¸ÄϺ½²ÄÁÏר317·ÖÇóµ÷¼Á +5 ըѽըѽըÊíÌõ 2026-03-23 5/250 2026-03-24 16:52 by ÐÇ¿ÕÐÇÔÂ
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û