±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 2759  |  »Ø¸´: 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 µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] Ò»Ö¾Ô¸±±¾©¿Æ¼¼´óѧ²ÄÁϹ¤³Ì085601£¬Çóµ÷¼Á +11 cdyw 2026-04-02 11/550 2026-04-02 23:06 by Âí¶ù¿ì¿ìµØÅÜ
[¿¼ÑÐ] Ò»Ö¾Ô¸ÉÂÎ÷ʦ·¶´óѧÉúÎïѧ317·Ö +4 1563ÈÕ¡£ 2026-04-02 4/200 2026-04-02 22:46 by liveagain126
[¿¼ÑÐ] »¯Ñ§070300-×Ü·Ö378-Çóµ÷¼Á +5 ŲÒÎ×ÓµÄÅÝÅÝÌÇ 2026-04-02 5/250 2026-04-02 22:20 by ZXlzxl0425
[¿¼ÑÐ] ²ÄÁϵ÷¼Á +7 Ò»ÑùYWY 2026-04-02 7/350 2026-04-02 21:49 by dongzh2009
[¿¼ÑÐ] 343Çóµ÷¼Á085601 +5 ҪŬÁ¦Ñ§Ï°x 2026-03-29 6/300 2026-04-02 21:18 by 1104338198
[¿¼ÑÐ] Ò»Ö¾Ô¸±±¾©¹¤Òµ´óѧ£¬324·ÖÇóµ÷¼Á +7 Áã°Ë# 2026-03-28 7/350 2026-04-02 21:09 by 1104338198
[¿¼ÑÐ] 070300»¯Ñ§Çóµ÷¼Á +8 Æð¸öÃûÕ¦ÕâôÄÑ 2026-03-27 9/450 2026-04-02 20:42 by dongzh2009
[¿¼ÑÐ] 346Çóµ÷¼Á +5 Ö£³ÏÀÖ 2026-04-02 5/250 2026-04-02 16:38 by SZW_UJN
[¿¼ÑÐ] 081200-11408-276ѧ˶Çóµ÷¼Á +3 ´Þwj 2026-04-02 3/150 2026-04-02 15:06 by cal0306
[¿¼ÑÐ] 261ÇóBÇøµ÷¼Á +5 Ã÷×С¤ 2026-04-01 7/350 2026-04-02 11:17 by ×Þξξ
[¿¼ÑÐ] 289Çóµ÷¼Á +23 ÐÂʱ´ú²ÄÁÏ 2026-03-27 26/1300 2026-04-02 10:29 by oooqiao
[¿¼ÑÐ] 0856£¬269·ÖÇóµ÷¼Á +8 ÓÐѧÉϾÍÐÐÇóÇóÁ 2026-03-30 11/550 2026-04-01 22:33 by 2026²ÄÁϵ÷¼Á
[¿¼ÑÐ] Çóµ÷¼Á +9 akdhjs 2026-03-31 10/500 2026-03-31 17:14 by zhyzzh
[¿¼ÑÐ] Ò»Ö¾Ô¸Öк£Ñó²ÄÁÏ357 +4 Âó¶÷Àò. 2026-03-30 4/200 2026-03-31 14:35 by ¼Çʱ¾2026
[¿¼ÑÐ] Çóµ÷¼Á +8 11ggg 2026-03-30 8/400 2026-03-31 13:56 by nanaliuyun
[¿¼ÑÐ] 0703»¯Ñ§ +20 ÄÝÄÝninicgb 2026-03-27 20/1000 2026-03-31 13:33 by Î޼ʵIJÝÔ­
[¿¼ÑÐ] 081200-11408-276ѧ˶Çóµ÷¼Á +4 ´Þwj 2026-03-31 4/200 2026-03-31 11:56 by jp9609
[¿¼ÑÐ] 276Çóµ÷¼Á +3 ÕԾûª 2026-03-29 3/150 2026-03-31 10:06 by cal0306
[¿¼ÑÐ] 262Çóµ÷¼Á +7 ZZ..000 2026-03-30 8/400 2026-03-31 10:05 by cal0306
[¿¼ÑÐ] 085600£¬×¨Òµ¿Î»¯¹¤Ô­Àí£¬320·ÖÇóµ÷¼Á +6 ´ó²öС×Ó 2026-03-29 6/300 2026-03-31 10:03 by ÂÈ»¯ÑÇÏõõ£
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û