±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 2754  |  »Ø¸´: 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µÄ»ØÌû

ä±¾£

ľ³æ (ÕýʽдÊÖ)

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

¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï
¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +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µÄ»ØÌû
²é¿´È«²¿ 4 ¸ö»Ø´ð

ÈñÀûµÄË鯬

ľ³æ (ÕýʽдÊÖ)

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

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µÄ»ØÌû
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 311Çóµ÷¼Á +6 Ó¸ҵÄСÎâ 2026-04-02 6/300 2026-04-02 10:24 by Wang200018
[¿¼ÑÐ] 085600£¬²ÄÁÏÓ뻯¹¤321·Ö£¬Çóµ÷¼Á +12 ´ó²öС×Ó 2026-03-27 12/600 2026-04-02 10:02 by guanxin1001
[¿¼ÑÐ] 333Çóµ÷¼Á +3 12138¡£¡¢m?x?b 2026-03-26 4/200 2026-04-02 09:58 by olim
[¿¼ÑÐ] Ò»Ö¾Ô¸211£¬335·Ö£¬0856£¬Çóµ÷¼ÁԺУºÍµ¼Ê¦ +14 Çã____Ïô 2026-03-27 15/750 2026-04-02 09:21 by olim
[¿¼ÑÐ] 266Çóµ÷¼Á +10 ÑôÑôÍÛÈû 2026-04-01 10/500 2026-04-02 09:07 by vgtyfty
[¿¼ÑÐ] 085410 Ò»Ö¾Ô¸211 22408·ÖÊý359Çóµ÷¼Á +3 123456789qw 2026-03-31 4/200 2026-04-02 00:06 by ÒåÎÄwang
[¿¼ÑÐ] 0856£¬269·ÖÇóµ÷¼Á +8 ÓÐѧÉϾÍÐÐÇóÇóÁ 2026-03-30 11/550 2026-04-01 22:33 by 2026²ÄÁϵ÷¼Á
[¿¼ÑÐ] 279Çóµ÷¼Á +7 Īxiao 2026-04-01 7/350 2026-04-01 22:05 by ¿Í¶ûÃÀµÂ
[¿¼ÑÐ] Çóµ÷¼Á0703 +5 ÖܼÎÒ¢ 2026-03-31 8/400 2026-04-01 20:32 by ltltkkk
[¿¼ÑÐ] 286Çóµ÷¼Á +5 lim0922 2026-03-26 5/250 2026-04-01 19:08 by ¿Í¶ûÃÀµÂ
[¿¼ÑÐ] 294·Ö080500²ÄÁÏ¿ÆÑ§Ó빤³ÌÇóµ÷¼Á +15 ÁøÏª±ß 2026-03-26 16/800 2026-04-01 17:07 by Æß¶È²»ÐÅÈÎ
[¿¼ÑÐ] ÉúÎïѧѧ˶£¬Ò»Ö¾Ô¸ºþÄÏ´óѧ£¬³õÊԳɼ¨338 +8 YYYYYNNNNN 2026-03-26 10/500 2026-04-01 14:39 by hexingyi
[¿¼ÑÐ] 330·ÖÇóµ÷¼Á +11 qzenlc 2026-03-29 11/550 2026-04-01 14:32 by chenqifeng666
[¿¼ÑÐ] ²ÄÁÏר˶322·Ö +9 ¹þ¹þ¹þºðºðºð¹þ 2026-04-01 9/450 2026-04-01 14:30 by Î޼ʵIJÝÔ­
[¿¼ÑÐ] »·¾³¹¤³Ìµ÷¼Á +9 hyzzzzzzz. 2026-04-01 9/450 2026-04-01 14:20 by salamander`
[¿¼ÑÐ] 0805Çóµ÷¼Á +6 ÊÇË®·Ö 2026-03-31 6/300 2026-04-01 09:05 by oooqiao
[¿¼ÑÐ] 262Çóµ÷¼Á +7 ZZ..000 2026-03-30 8/400 2026-03-31 10:05 by cal0306
[¿¼ÑÐ] ±¾¿ÆÐÂÄÜÔ´¿ÆÑ§Ó빤³Ì£¬Ò»Ö¾Ô¸»ªÀíÄܶ¯285Çóµ÷¼Á +7 AZMK 2026-03-28 11/550 2026-03-28 21:01 by xxxsssccc
[¿¼ÑÐ] ¸´ÊÔµ÷¼Á +3 raojunqi0129 2026-03-28 3/150 2026-03-28 15:27 by ÂäÉ˼
[¿¼ÑÐ] 321Çóµ÷¼Á +6 wasdssaa 2026-03-26 6/300 2026-03-26 20:57 by sanrepian
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û