²é¿´: 3648  |  »Ø¸´: 21
µ±Ç°Ö»ÏÔʾÂú×ãÖ¸¶¨Ìõ¼þµÄ»ØÌû£¬µã»÷ÕâÀï²é¿´±¾»°ÌâµÄËùÓлØÌû

duhb655

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

[ÇóÖú] fortran Ôõô°´ÐжÁÈ¡Êý¾Ý£¨ÓÐСÀý×Ó£© ÒÑÓÐ3È˲ÎÓë

Éî¶È              Î¶Ƞ             µçµ¼ÂÊ
50.00000          28.30186          54.27303
51.00000          28.28920          54.27039               
52.00000          28.27396          54.26752                 
53.00000          28.25474          54.27453                  
54.00000          28.23691          54.28119                 
55.00000          28.23033          54.29279                  
56.00000          28.22947          54.30813                  
57.00000          28.21856          54.30784               
58.00000          28.20773          54.31368                 
59.00000          28.19656          54.32171                  
60.00000          28.15063          54.28722
ÎÒÓõÄÊÇÍøÉϵÄÒ»¸öÊý¾Ý£¬ÎÒдµÄ³ÌÐòΪ£º
CODE:
PROGRAM TE
REAL::A(11,3)
INTEGER ::I,J
CHARACTER C
OPEN(13,FILE='Result.txt')
DO J=1,1
   READ(13,*)C
ENDDO
OPEN(12,FILE='result1.TXT')
DO I=1,11
   READ(13,*) A(I,1:3)
ENDDO
WRITE(12,"(3f10.5)") A
CLOSE(13)
CLOSE(12)
END

µÃµ½µÄ½á¹ûÊÇ£º
50.00000  51.00000  52.00000
  53.00000  54.00000  55.00000
  56.00000  57.00000  58.00000
  59.00000  60.00000  28.30186
  28.28920  28.27396  28.25474
  28.23691  28.23033  28.22947
  28.21856  28.20773  28.19656
  28.15063  54.27303  54.27039
  54.26752  54.27453  54.28119
  54.29279  54.30813  54.30784
  54.31368  54.32171  54.28722
ÎÒÏëµÃµ½Ô­À´Ò»ÑùµÄÊý¾Ý£¬ÎÒ¿´½á¹ûÒâ˼Êǰ´ÁжÁÈ¡£¬ÔõôÄܰ´ÐжÁÈ¡°¡£¬»òÔõôÄܵõ½ºÍÔ­À´Ò»ÑùµÄ¾ØÕó£¬Èç¹û¿ÉÄܵϰ£¬²»ÒªÓÃA1,A2,A3ÈýÁÐÀ´×ö£¬ÒòΪÎÒµÄÊý¾ÝÓкܶàÁУ¬Ð»Ð»ÁË£¡

[ Last edited by jjdg on 2014-2-9 at 10:07 ]
»Ø¸´´ËÂ¥

» ÊÕ¼±¾ÌûµÄÌÔÌûר¼­ÍƼö

¾­Ñé

» ²ÂÄãϲ»¶

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

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

duhb655

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

jjdg: ±à¼­ÄÚÈÝ 2014-02-13 11:51
ÒýÓûØÌû:
6Â¥: Originally posted by physliebe at 2014-02-09 19:33:13
WRITE(12,"(3f10.5)"; ) A£¬ÕâÖÖÊä³ö¾ØÕóµÄ·½·¨ÊÔÁËһϣ¬±¨´í...

ллÄú£¬²»¹ýÊÇ£º
WRITE(12,"(3f10.5)" ) A

[ Last edited by jjdg on 2014-2-13 at 11:51 ]
9Â¥2014-02-09 23:52:57
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
²é¿´È«²¿ 22 ¸ö»Ø´ð

jjdg

°æÖ÷ (ÖªÃû×÷¼Ò)

ÓÅÐã°æÖ÷

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

¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
ÄãÏëÓÃCHARACTER, INTEGER »¹ÊÇʲô¶ÁÈë??
Èç¹ûÓÃCHARACTER..
character(len=100):: dummy
read(1,'(a)') dummy
ÕâÑù¾Í¿ÉÒÔÁË.
»òÕß
±ÈÈçÄãÒª½«12 3445 345 3809 97 87¸³¸øa b c d e fÎå¸ö±äÁ¿
read(1,*)a,b,c,d,e
Èç¹ûÄãÔÚreadºóÃæÖ»¸úÁËÒ»¸ö±äÁ¿Ãû£¬ÄÇô¾ÍÖ»ÄܶÁȡһ¸ö£»ÄãÓжàÉÙ¸ö¾Í°Ñ1:3¸ÄÁ˼´¿É
ŬÁ¦Ñ§Ï°£¡ÒÔÕýµ±Í¾¾¶£¡»ñµÃÐèÒªµÄ֪ʶ£¡
2Â¥2014-02-09 10:13:53
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

duhb655

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

ÒýÓûØÌû:
2Â¥: Originally posted by jjdg at 2014-02-09 10:13:53
ÄãÏëÓÃCHARACTER, INTEGER »¹ÊÇʲô¶ÁÈë??
Èç¹ûÓÃCHARACTER..
character(len=100):: dummy
read(1,'(a)') dummy
ÕâÑù¾Í¿ÉÒÔÁË.
»òÕß
±ÈÈçÄãÒª½«12 3445 345 3809 97 87¸³¸øa b c d e fÎå¸ö±äÁ¿
read(1,*)a,b ...

лл°æÖ÷£¬
1£¬µÚÒ»¸öCÖ»ÊDz»ÏëÒªµÚÒ»ÐУ¬Ö»ÒªºóÃæµÄÊý¾Ý£»
2£¬ÊÇԭʼÊý¾ÝÓм¸Áо͵ÃÓü¸¸ö±äÁ¿Â𣿲»»á°É£¬ÎÒ¸Õ½Ó´¥F£¬²»¶®¡£ÎÒÔÚÌáÎÊǰҲÉÏÍøµ½´¦ÕÒÁ˵ģ¬ÎÒ¿´ºÃ¶àÒ²¶¼ÊÇÕâÑù×ö°¡£¬µ«ÎªÊ²Ã´ÎҵĵóöÀ´µÄ½á¹û²»¶Ô°¡£¿
3£¬ÎÒÓÃÈý¸ö±äÁ¿REAL£¨11£©£º£ºA1£¬A2£¬A3µÃ³öµÄ½á¹ûºÍÎÒ֮ǰµÄ½á¹ûÊÇÒ»ÑùµÄ£¬´íµÄ°¡£¿
ÇóÖ¸½Ì£¡
3Â¥2014-02-09 10:25:30
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

snoopyzhao

ÖÁ×ðľ³æ (Ö°Òµ×÷¼Ò)

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

¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï
¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
duhb655: ½ð±Ò+10, ¡ï¡ï¡ïºÜÓаïÖú 2014-02-09 23:49:27
xzhdty: ½ð±Ò+1, лл²ÎÓë 2014-02-10 08:48:22
jjdg: ±à¼­ÄÚÈÝ 2014-02-13 11:49
¶ÁµÄ²¢Ã»ÓÐ´í£¬Ò²Êǰ´ÐжÁµÄ£¬Fortran »¹Ã»Óи߼¶µ½¿ÉÒÔ°´ÁÐÀ´¶ÁÈëÊý¾ÝµÄ

´íµÄÔÚÓÚÄã´òÓ¡µÄÄǾ仰£º
WRITE(12,"(3f10.5)" ) A
Õâ¾ä»°Ö»ÊǸæËß³ÌÐò°Ñ A Õâ¸ö ¾ØÕóÖеÄÊý¾Ý´ò³öÀ´£¬Ã¿ÐÐÈý¸öʵÊý

µ«ÄãÒªÇå³þµÄÊÇ Fortran ÄÚ²¿µÄ¾ØÕó´æÖüÊÇÁÐÓÅÏȵģ¬ËùÒÔ£¬ËüÏȰѵÚÒ»ÁÐÄóöÀ´´òÓ¡£¬´òÓ¡ÍêÁË´òÓ¡µÚ¶þÁУ¬ÔÙ´òÓ¡µÚÈýÁÐ

ÄãÒªÏë°´¶ÁµÄ·½Ê½´òÓ¡£¬¾ÍÒªÏÔʾµØÐ´³ÉÑ­»·»òÕßʹÓà WRITE Ö§³ÖµÄÒþʽѭ»·¡­¡­

[ Last edited by jjdg on 2014-2-13 at 11:49 ]
4Â¥2014-02-09 13:21:38
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] [¸´ÊÔµ÷¼Á]Î÷ÄϿƼ¼´óѧ¹ú·À/²ÄÁϵ¼Ê¦ÍƼö +3 ¼â½ÇСºÉ 2026-03-16 6/300 2026-03-16 23:21 by ¼â½ÇСºÉ
[¿¼ÑÐ] 211±¾£¬11408Ò»Ö¾Ô¸ÖпÆÔº277·Ö£¬ÔøÔÚÖпÆÔº×Ô¶¯»¯Ëùʵϰ +3 Losir 2026-03-12 4/200 2026-03-16 21:52 by Losir
[¿¼ÑÐ] ¶«ÄÏ´óѧ364Çóµ÷¼Á +5 JasonYuiui 2026-03-15 5/250 2026-03-16 21:28 by ľ¹Ï¸à
[¿¼ÑÐ] »úеר˶325£¬Ñ°ÕÒµ÷¼ÁԺУ +3 y9999 2026-03-15 5/250 2026-03-16 19:58 by y9999
[¿¼ÑÐ] 333Çóµ÷¼Á +3 ÎÄ˼¿Í 2026-03-16 7/350 2026-03-16 18:21 by ÎÄ˼¿Í
[¿¼ÑÐ] 326Çóµ÷¼Á +4 ŵ±´¶û»¯Ñ§½±êéê 2026-03-15 7/350 2026-03-16 17:11 by ŵ±´¶û»¯Ñ§½±êéê
[¿¼ÑÐ] 277²ÄÁÏ¿ÆÑ§Ó빤³Ì080500Çóµ÷¼Á +3 ×ÔÓɼå±ý¹û×Ó 2026-03-16 3/150 2026-03-16 14:10 by ÔËÆøyunqi
[¿¼ÑÐ] 0856ר˶279Çóµ÷¼Á +5 ¼ÓÓͼÓÓÍ£¡? 2026-03-15 5/250 2026-03-15 11:58 by 2020015
[¿¼ÑÐ] Ò»Ö¾Ô¸»ªÖÐũҵ´óѧ071010£¬×Ü·ÖÈý°Ù¶þ,Çóµ÷¼Á +3 À§À§À§À§À¤À¤ 2026-03-10 3/150 2026-03-14 00:35 by JourneyLucky
[¿¼ÑÐ] 26¿¼Ñе÷¼Á +3 ying123. 2026-03-10 3/150 2026-03-14 00:18 by JourneyLucky
[¿¼ÑÐ] 26µ÷¼Á/²ÄÁÏ¿ÆÑ§Ó빤³Ì/×Ü·Ö295/ÇóÊÕÁô +9 2026µ÷¼ÁÏÀ 2026-03-12 9/450 2026-03-13 20:46 by 18595523086
[¿¼ÑÐ] ¡¾¿¼Ñе÷¼ÁÇóÊÕÁô¡¿ +3 Ceciilia 2026-03-11 3/150 2026-03-13 20:18 by JourneyLucky
[¿¼ÑÐ] Çóµ÷¼Á +7 18880831720 2026-03-11 7/350 2026-03-13 16:10 by JourneyLucky
[¿¼ÑÐ] ¹¤¿Æ278·ÖÇóµ÷¼Á +5 ÖÜÂýÈȰ¡ 2026-03-12 7/350 2026-03-13 15:49 by JourneyLucky
[¿¼ÑÐ] Ò»Ö¾Ô¸211»¯Ñ§Ñ§Ë¶310·ÖÇóµ÷¼Á +8 ŬÁ¦·Ü¶·112 2026-03-12 9/450 2026-03-13 15:41 by JourneyLucky
[¿¼ÑÐ] 274Çóµ÷¼Á +3 S.H1 2026-03-12 3/150 2026-03-13 15:15 by JourneyLucky
[¿¼ÑÐ] 085600²ÄÁÏÓ뻯¹¤ 309·ÖÇëÇóµ÷¼Á +7 dtdxzxx 2026-03-12 8/400 2026-03-13 14:43 by jxchenghu
[¿¼²©] 2026Ä격ʿÉêÇë +3 QwQwQW10 2026-03-11 3/150 2026-03-12 17:58 by gxch43
[¿¼ÑÐ] Ñо¿ÉúÕÐÉú +3 Ð캣ÌÎ11 2026-03-10 7/350 2026-03-12 14:26 by Ð캣ÌÎ11
[¿¼ÑÐ] 0703»¯Ñ§µ÷¼Á +3 Èýdd. 2026-03-10 3/150 2026-03-10 15:45 by peike
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û