±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 1299  |  »Ø¸´: 3
±¾Ìû²úÉú 1 ¸ö ³ÌÐòÇ¿Ìû £¬µã»÷ÕâÀï½øÐв鿴

onexf766

ľ³æ (ÕýʽдÊÖ)


[½»Á÷] ¡¾ÇóÖú¡¿´ÓÎļþ¶ÁÈëÊý×éÓöµ½À§ÄÑ

ÎļþAÖеÚÒ»ÐÐÓÐn¸öÊý£¬ÁíÒ»ÎļþBÖеÚÒ»ÐÐÓÐm¸öÊý¡£(ÆäÖÐn,m<100)
ÎÒÒª·Ö±ð½«ÉÏÃæµÄÎļþ¶ÁÈëÁíÒ»¸öÎļþC£¬ÎÒÓÃÏÂÃæµÄÓöµ½À§ÄÑ£º
INTEGER num1(100),num2(100)
OPEN (20,FILE="A.txt" )
OPEN (21,FILE="B.txt" )
OPEN (22,FILE="C.txt" )
READ(20,*)(numb1(i),i=1,n)
READ(21,*)(numb2(i),i=1,m)
WRITE(22,*)(numb(i),i=1,n)
WRITE(22,*)(numb(i),i=1,m)
END

ÏÖÔÚµÄÎÊÌâÊǶÁÈëµÄÊý¾Ý¸öÊýÈç¹ûºÍÊý×éµÄ´óС²»µÈµÄ»°£¬¾ÍÎÞ·¨¶ÁÈë¡£
ÓÉÓÚÀàËÆÎļþºÜ¶à£¬²»ÒªÈËΪµÄ¶ÁÈën»òmµÄÖµ£¬ÈçºÎ°ì£¿

Ïë¹ýÓö¯Ì¬Êý×飬ҲûÄܸ㶨¡£
INTEGER, allocatable::numb(; ! ÉùÃ÷¶¯Ì¬Êý×飬¿ÉÒÔÊǶàάµÄ£¬ÀàËÆa(:,:,
allocate(numb(50));        ! ¸ø¶¯Ì¬Êý×é·ÖÅäÄÚ´æ
numb(50)=1.0;              ! ²Ù×÷ºÍƽ³£µÄÊý×éÒ»Ñù
deallocate(numb);


Çë¸ßÊÖÌù³ö¾ßÌåµÄ³ÌÐò½â¾ö£¬³ÏÅΣ¡£¡£¡£¡£¡

[ Last edited by onexf766 on 2010-12-25 at 20:43 ]
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

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

» ÇÀ½ð±ÒÀ²£¡»ØÌû¾Í¿ÉÒԵõ½:

²é¿´È«²¿É¢½ðÌù

ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
¡ï ¡ï ¡ï
ÓàÔó³É(½ð±Ò+3):лл²ÎÓëÓ¦Öú£¡ 2010-12-31 16:39:29
onexf766(½ð±Ò+20): ²»´í£¬Äܸø½âÊÍϲ»£¿ 2011-04-09 10:59:49
¹ØÓÚ¶ÁÊý¾ÝµÄ²¿·Ö£¬¿É²Î¿¼ÏÂÃæµÄ´úÂ룺
CODE:
      PROGRAM MAIN
      CHARACTER*265 LINE
      INTEGER NUM1(100)
      OPEN (20,FILE="AA.TXT" )
      READ(20,'(A)')LINE
      READ(LINE, *, END = 20) (NUM1(I), I = 1,100)
20    CONTINUE      
      PRINT *, I
      WRITE(*,*) (NUM1(J), J = 1,I-1)
      END

2Â¥2010-12-25 22:24:32
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

zhaooming

гæ (³õÈëÎÄ̳)


¿ÉÒÔ¿´¿´Õâ¸ö

¡ï ¡ï ¡ï
ÓàÔó³É(½ð±Ò+3):лл²ÎÓëÓ¦Öú£¡ 2010-12-31 16:39:38
onexf766(½ð±Ò+4): xx! 2011-04-09 11:00:00
ÔÚ¸½¼þÖÐ
3Â¥2010-12-29 09:31:52
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
onexf766(½ð±Ò+6): ·Ç³£Ð»Ð»£¡ºÇºÇ 2011-04-09 18:01:49
ÓàÔó³É(³ÌÐòÇ¿Ìû+1): 2011-04-20 22:43:28
ÒýÓûØÌû:
²»´í£¬Äܸø½âÊÍϲ»£¿

CODE:
      PROGRAM MAIN
      CHARACTER*265 LINE
      INTEGER NUM1(100)
      OPEN (20,FILE="AA.TXT" )
      READ(20,'(A)')LINE
      READ(LINE, *, END = 20) (NUM1(I), I = 1,100)
20    CONTINUE      
      PRINT *, I
      WRITE(*,*) (NUM1(J), J = 1,I-1)
      END

ÕâÀï¹Ø¼üµÄÊÇÏÂÃæÁ½ÐÐ
CODE:
      READ(20,'(A)')LINE
      READ(LINE, *, END = 20) (NUM1(I), I = 1,100)

µÚÒ»ÐкÜÈÝÒ×Àí½â£¬¾ÍÊÇ´ÓÎļþÖжÁÈëÒ»ÐУ¬ÒÔ×Ö·û´®µÄÐÎʽ¶ÁÈ룬ÓÉÓÚÄãµÄÒ»ÐÐÖÐÈ«²¿ÊÇÊýÖµ£¬ËùÒÔ£¬ÎÒÃÇ¿ÉÒÔÓà Fortran µÄÄÚ²¿Îļþ»úÖÆ½â¾öÊý¾ÝµÄ¶ÁÈ¡ÎÊÌâ¡£Õâ¾ÍÊǵڶþÐеĴúÂë¡£ÔÚµÚ¶þÐÐÖУ¬LINE ²»ÔÙÊÇÒ»¸ö×Ö·û´®£¬¶øÊÇÒ»¸öÄÚ²¿Îļþ£¬Õâ¸öÎļþµÄÄÚÈݾÍÊÇǰһÐжÁÈëµÄÄǸö×Ö·û´®¡£END ±íʾÓöµ½Îļþβ²¿Ê±µÄ´¦Àí·½Ê½£¬ÔÚÕâÀÓöµ½Î²²¿¾ÍÌøµ½±êºÅΪ 20 µÄÐС£ÓÉÓÚÄãÎÊÌâÖÐ˵µ½Êý¾Ý²»³¬¹ý 100£¬ËùÒÔÎÒ¾ÍÉèÁ˺óÃæ¶ÁÈë100¸öÊý£¬±ÈÈçÄãµÄÊý¾ÝÊÇ 70 ¸ö£¬µ±¶ÁµÚ 71 ¸öÊý¾Ýʱ£¬ÆäʵÒѾ­ÊÇβ²¿ÁË£¬Òò´Ë£¬¾ÍÖ±½ÓÌøµ½±êºÅΪ 20  µÄÐÐÁË¡­¡­

´ó¸Å¾ÍÊÇÕâ¸öÑù×ӵġ­¡­
4Â¥2011-04-09 11:19:27
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ onexf766 µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 22408 µ÷¼Á²ÄÁÏ +6 ÎÒ½Ðez 2026-04-06 7/350 2026-04-07 09:04 by MW_WTU
[¿¼ÑÐ] 085600²ÄÁÏÓ뻯¹¤301·ÖÇóµ÷¼ÁԺУ +18 ´ÌÍ´jk 2026-04-06 19/950 2026-04-07 00:02 by longlong0822
[¿¼ÑÐ] Ò»Ö¾Ô¸Ö£ÖÝ´óѧ²ÄÁÏÓ뻯¹¤085600£¬Çóµ÷¼Á +27 ³ÔµÄ²»ÉÙ 2026-04-02 27/1350 2026-04-06 15:19 by 495374996
[¿¼ÑÐ] 362Çóµ÷¼ÁÒ»Ö¾Ô¸ÖйúʯÓÍ´óѧ +4 ÎÒÒª¿¼´ó 2026-04-06 6/300 2026-04-06 14:11 by Î޼ʵIJÝÔ­
[¿¼ÑÐ] 285Çóµ÷¼Á +8 AZMK 2026-04-04 11/550 2026-04-06 13:56 by BruceLiu320
[¿¼ÑÐ] 301Çóµ÷¼Á +7 ϸ°ûÏà¹Øµ°°× 2026-04-03 7/350 2026-04-06 11:47 by lijunpoly
[¿¼ÑÐ] 0703»¯Ñ§ +9 goldtt 2026-04-02 11/550 2026-04-06 10:35 by Î޼ʵIJÝÔ­
[¿¼ÑÐ] ר˶0854³õÊÔ¿¼²Ä¿Æ»ù£¬Çóµ÷¼Á +6 3220548044 2026-04-06 9/450 2026-04-06 10:26 by barlinike
[¿¼ÑÐ] »¯Ñ§µ÷¼ÁÇóÖú +8 LULONG1 2026-04-03 8/400 2026-04-06 10:26 by dongzh2009
[¿¼ÑÐ] 308Çóµ÷¼Á +3 ÖÕ²»ËÆ´Óǰ 2026-04-05 3/150 2026-04-05 22:23 by hemengdong
[¿¼ÑÐ] 0710ÉúÎïѧ336·ÖÇóµ÷¼Á +6 kiyy 2026-04-01 8/400 2026-04-04 10:10 by kiyy
[¿¼ÑÐ] 085601Ò»Ö¾Ô¸±±Àí325·ÖÇóµ÷¼Á +6 ÕÒµ÷¼Á£¬£¬ 2026-04-02 6/300 2026-04-03 22:20 by –¹Æ?
[¿¼ÑÐ] 288Çóµ÷¼Á Ò»Ö¾Ô¸¹þ¹¤´ó ²ÄÁÏÓ뻯¹¤ +39 ÂåÉñ¸ç¸ç 2026-03-31 41/2050 2026-04-03 21:51 by qlm5820
[¿¼ÑÐ] ¹¤¿Æ341·Öµ÷¼Á +3 Âå¶àÂÞ 2026-04-03 3/150 2026-04-03 14:20 by 1753564080
[¿¼ÑÐ] 315Çóµ÷¼Á +6 ˳Àí³ÉÕÅ 2026-04-03 8/400 2026-04-03 14:04 by °ÙÁéͯ888
[¿¼ÑÐ] ÊýÒ»Ó¢Ò»285Çóµ÷¼Á +7 AZMK 2026-04-03 9/450 2026-04-03 13:03 by ms629
[¿¼ÑÐ] 283Çóµ÷¼Á +3 jiouuu 2026-04-02 4/200 2026-04-02 14:08 by ßÕßÕßÕßÉßÉßÉ
[¿¼ÑÐ] Çóµ÷¼Á£¬Ò»Ö¾Ô¸ÄϾ©Ê¦·¶´óѧ¼ÆËã»úר˶£¬³õÊÔ373£¬Áù¼¶Í¨¹ý£¬ +3 ¼ÆËã»ú×·ÃÎÈË 2026-04-01 3/150 2026-04-02 07:57 by fxue1114
[¿¼ÑÐ] ²ÄÁϵ÷¼Á +12 Ò»ÑùYWY 2026-04-01 12/600 2026-04-02 00:21 by °ÙÃë¹âÄê
[¿¼ÑÐ] 318Çóµ÷¼Á +8 ÆßÒä77 2026-04-01 8/400 2026-04-01 10:37 by Jaylen.
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û