±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 2750  |  »Ø¸´: 3

ºìÒ¶cq

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

[ÇóÖú] fortranÓïÑÔÔõÑùÌáÈ¡ÕûÊýÖеÄÊý×Ö ÒÑÓÐ2È˲ÎÓë

¶¨ÒåÕûÐͱäÁ¿a£¬b£¬c£¬ÊäÈëaµÄÖµ£¬±ÈÈ磺
integer a£¬b£¬c£¬d£¬e
read a
ÔÚ¼üÅÌÖÐÊäÈë5678£¬ÇóÒ»¸ö³ÌÐò£ºÄÜÌáÈ¡³ö¸ÃÕûÊýµÄǧλ¡¢°Ùλ¡¢Ê®Î»¡¢¸öλÊý×Ö¡£¼´b=5£¬c=6£¬d=7£¬e=8
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

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

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

ÈñÀûµÄË鯬

ľ³æ (ÕýʽдÊÖ)

star watcher

¡¾´ð°¸¡¿Ó¦Öú»ØÌû

¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
character(len=20) :: str
write(str, '(A10)') 5678
do i = 1, 4
    write(*, *) str(i)
end do
2Â¥2015-01-28 22:20:41
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

ä±¾£

ľ³æ (ÕýʽдÊÖ)

¡¾´ð°¸¡¿Ó¦Öú»ØÌû

¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï
¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
ºìÒ¶cq: ½ð±Ò+5, ¡ï¡ï¡ï¡ï¡ï×î¼Ñ´ð°¸ 2015-04-08 20:52:26
ºìÒ¶cq: ½ð±Ò+5 2015-04-08 20:55:56
b=a/1000
c=(a-b*1000)/100
d=(a-b*1000-c*100)/10
e=a-b*1000-c*100-d*10
3Â¥2015-01-29 09:22:35
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

pippi6

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

¹¤³ÌºÍ¿ÆÑ§ÊýÖµ¼ÆËã×Éѯ

ÒýÓûØÌû:
2Â¥: Originally posted by ÈñÀûµÄË鯬 at 2015-01-28 22:20:41
character(len=20) :: str
write(str, '(A10)') 5678
do i = 1, 4
    write(*, *) str(i)
end do

Ïë·¨µ¹ÊDz»´í£¬¾ÍÊdzÌÐò¿ÉÄܲ»¹¤×÷¡£²»ÖªÊÔ¹ýûÓС£ÕýÈ·µÄ³ÌÐòÓ¦¸ÃÊÇ

  character(len=20) :: str
  write(str, '(i4)') 5678
  do i = 1, 4
     write(6, "(a)" str(i:i)
  end do
4Â¥2015-02-02 22:51:09
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ ºìÒ¶cq µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] ²ÄÁϵ÷¼Á +12 Ò»ÑùYWY 2026-04-01 12/600 2026-04-02 00:21 by °ÙÃë¹âÄê
[¿¼²©] 26ÄêÉ격 +3 staryer 2026-03-30 4/200 2026-04-01 23:21 by ai4pharm
[¿¼ÑÐ] Àíѧ07»¯Ñ§ 303Çóµ÷¼Á +12 î£08 2026-03-27 12/600 2026-04-01 22:36 by Dyhoer
[¿¼ÑÐ] ʳƷѧ˶362Çóµ÷¼Á +3 xuanxianxian 2026-04-01 3/150 2026-04-01 21:05 by °¡Àî999
[¿¼ÑÐ] 070300Ò»Ö¾Ô¸211£¬312·ÖÇóµ÷¼ÁԺУ +14 С»ÆÑ¼±¦ 2026-03-30 14/700 2026-04-01 20:19 by Àµ´ºÑÞ
[¿¼ÑÐ] µ÷¼Á +3 ºÃºÃ¶ÁÊé¡£ 2026-04-01 5/250 2026-04-01 15:39 by ºÃºÃ¶ÁÊé¡£
[¿¼ÑÐ] 0856³õÊÔ324·ÖÇóµ÷¼Á +5 ÏëÉÏѧÇóµ÷ 2026-04-01 5/250 2026-04-01 15:28 by ¿¼ÑÐÉϰ¶Ñ½Ò»¶¨Ò
[¿¼ÑÐ] ²ÄÁϵ÷¼Á +10 Eujd1 2026-03-31 11/550 2026-04-01 11:23 by ivanqyq
[¿¼ÑÐ] Çó0861½»Í¨ÔËÊäר˶or²ÄÁÏר˶µ÷¼Á +4 ÀÕ²¼ÀÊ@ 2026-03-31 4/200 2026-04-01 09:54 by Ò»Ö»ºÃ¹û×Ó?
[¿¼ÑÐ] 288×ÊÔ´Óë»·¾³×¨Ë¶Çóµ÷¼Á£¬²»ÏÞרҵ£¬ÓÐѧÉϾÍÐÐ +25 lllllos 2026-03-30 26/1300 2026-04-01 09:52 by Ò»Ö»ºÃ¹û×Ó?
[¿¼ÑÐ] Ò»Ö¾Ô¸´óÁ¬Àí¹¤´óѧ²ÄÁÏÇóµ÷¼Á +6 Gymno 2026-03-30 6/300 2026-03-31 07:26 by Î޼ʵIJÝÔ­
[¿¼ÑÐ] 285Çóµ÷¼Á +6 AZMK 2026-03-29 9/450 2026-03-30 21:02 by dophin1985
[¿¼ÑÐ] ±§Ç¸ +3 ÌïºéÓÐ 2026-03-30 3/150 2026-03-30 19:11 by ÃÔºýCCPs
[¿¼ÑÐ] 322Çóµ÷¼Á +10 ËÎÃ÷ÐÀ 2026-03-27 10/500 2026-03-30 18:47 by 544594351
[¿¼ÑÐ] 317·Ö Ò»Ö¾Ô¸ÄÏÀí¹¤²ÄÁϹ¤³Ì ±¾¿Æºþ¹¤´ó Çóµ÷¼Á +12 ÓóÄàСÁåîõ 2026-03-28 12/600 2026-03-30 17:06 by wangjy2002
[¿¼ÑÐ] 291Çóµ÷¼Á +5 Y-cap 2026-03-29 6/300 2026-03-29 13:18 by mumin1990
[¿¼ÑÐ] 298Çóµ÷¼Á +3 ÖÖÊ¥´Í 2026-03-29 3/150 2026-03-29 12:06 by longlotian
[¿¼ÑÐ] 332Çó92µ÷¼Á +8 ½¶½¶123 2026-03-28 8/400 2026-03-29 10:46 by ÖÜè÷µ¤
[¿¼ÑÐ] 316Çóµ÷¼Á +7 ½­´Ç666 2026-03-26 7/350 2026-03-28 21:28 by sanrepian
[¿¼ÑÐ] ¿¼Ñе÷¼Á +9 СÀ¯ÐÂ±Ê 2026-03-26 9/450 2026-03-27 11:10 by ²»³Ôô~µÄ؈
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û