±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 2756  |  »Ø¸´: 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 µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 366Çóµ÷¼ÁÒ»Ö¾Ô¸¶«±±´óѧ +6 ÔËÆøÀ´µÃÈôÓÐËÆÎ 2026-04-02 6/300 2026-04-02 10:31 by ²»³Ôô~µÄ؈
[¿¼ÑÐ] 377Çóµ÷¼Á +3 RASKIN 2026-04-02 3/150 2026-04-02 09:45 by zzchen2000
[¿¼ÑÐ] ÇóÉúÎïѧµ÷¼Á +8 15172915737 2026-04-01 8/400 2026-04-02 06:49 by ilovexiaobin
[¿¼ÑÐ] 08¹¤¿Æ275·ÖÇóµ÷¼Á +13 AaAa7420 2026-03-31 13/650 2026-04-02 06:19 by 286640313
[¿¼ÑÐ] 291Çóµ÷¼Á +20 Y-cap 2026-03-29 25/1250 2026-04-01 23:49 by ÐÀϲ777
[¿¼ÑÐ] 085600 295·ÖÇóµ÷¼Á +15 W55j 2026-03-30 18/900 2026-04-01 23:00 by À´¿´Á÷ÐÇÓê10
[¿¼ÑÐ] ²ÄÁÏר˶µ÷¼Á +17 Ò¬Ò¬¡£ 2026-03-29 17/850 2026-04-01 20:44 by cq2548
[¿¼ÑÐ] 379Çóµ÷¼Á +3 ?¿à¹Ï²»¿à 2026-04-01 3/150 2026-04-01 20:09 by ÄºÔÆÇ庮
[¿¼ÑÐ] Ò»Ö¾Ô¸ÖÐÅ©0710ÉúÎïѧ£¬Î¢ÉúÎï·½Ïò×Ü·Ö338Çóµ÷¼Á +3 Æâxxxx. 2026-03-26 3/150 2026-04-01 12:30 by ±ùÎÚÁú
[¿¼ÑÐ] Ò»Ö¾Ô¸»ªÄÏʦ·¶361·Ö£¬»¯Ñ§Çóµ÷¼Á +4 Nicole88888 2026-04-01 4/200 2026-04-01 10:08 by ÌÆãå¶ù
[¿¼ÑÐ] ¿¼Ñе÷¼Á +9 СÀ¯ÐÂ±Ê 2026-03-29 10/500 2026-03-31 19:52 by Dyhoer
[¿¼ÑÐ] ²ÄÁÏÓ뻯¹¤272Çóµ÷¼Á +25 °¢Ë¹µÙ·Ò2004 2026-03-28 25/1250 2026-03-31 16:27 by hypershenger
[¿¼ÑÐ] 289Çóµ÷¼Á +3 Acesczlo 2026-03-29 4/200 2026-03-31 14:48 by ÈÈÇéɳĮ
[¿¼ÑÐ] 081200-11408-276ѧ˶Çóµ÷¼Á +4 ´Þwj 2026-03-31 4/200 2026-03-31 11:56 by jp9609
[¿¼ÑÐ] 322Çóµ÷¼Á +10 ËÎÃ÷ÐÀ 2026-03-27 10/500 2026-03-30 18:47 by 544594351
[Óлú½»Á÷] ¿¼Ñе÷¼Á +8 watb 2026-03-26 8/400 2026-03-30 18:40 by 544594351
[¿¼ÑÐ] ¿¼Ñе÷¼Á +5 Sanmu-124 2026-03-26 5/250 2026-03-30 13:36 by chemdavid
[¿¼ÑÐ] Çóµ÷¼Á +7 ÕùÈ¡¾Åµã˯ 2026-03-28 8/400 2026-03-28 21:07 by ÕùÈ¡¾Åµã˯
[¿¼ÑÐ] 304Çóµ÷¼Á +6 ÂüÊâ2266 2026-03-27 6/300 2026-03-28 14:10 by ÌÆãå¶ù
[¿¼ÑÐ] 295Çóµ÷¼Á +5 1428151015 2026-03-27 6/300 2026-03-28 04:04 by fmesaito
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û