±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 870  |  »Ø¸´: 19
µ±Ç°Ö÷ÌâÒѾ­´æµµ¡£
µ±Ç°Ö»ÏÔʾÂú×ãÖ¸¶¨Ìõ¼þµÄ»ØÌû£¬µã»÷ÕâÀï²é¿´±¾»°ÌâµÄËùÓлØÌû

pzhan1982

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

[½»Á÷] ¡¾ÇóÖú¡¿fortran±à³ÌÔËÐнá¹ûÇó½â

ÏÖÓм¸µÀfortranÌâÄ¿Çó½â£º
1¡¢
character A*4,B*6,C*5
DATA A,B,C/'big','middle','small'/
if(A.GTB)then
if(A.GT.C)then
print*,A
else
print*,B
endif
else
if(B.GT.C)then
print*,B
else
print*,C
else if
endif
end
ÔËÐнá¹û£º£¿£¿
2¡¢program main
external px
y=tx(fx,3,2)
print*,y
end
function tx(fun,a,b£©
tx=(fun(a)-fun(b)/2.0)
end
function fx(x)
fx=x*x
end
ÔËÐнá¹û£º£¿£¿£¿£¿

3¡¢dimension a(4)
read*,a
i=1
10 j=i+1
20 if(a(1)).lt.a(j)) then
t=a(j)
a(j)=a(i)
a(i)=t
endif
j=j+1
if(j.le.4) goto 20
i=i+1
if(i.le.4) goto 10
print*,a(4)
end
ÈôÊäÈë4£¬2£¬3£¬5ÔòÔËÐнá¹ûΪ£¿£¿
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

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

pzhan1982

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

¶ÔÓÚ£º
character A*4,B*6,C*5
DATA A,B,C/'big','middle','small'/
if(A.GTB)then
if(A.GT.C)then
print*,A
else
print*,B
endif
else
if(B.GT.C)then
print*,B
else
prin ...
Óï¾ä£¬ÊÇ±È½Ï A*4,B*6,C*5
»¹ÊÇ±È½Ï DATA A,B,C/'big','middle','small'/
????
20Â¥2009-08-23 10:46:09
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
²é¿´È«²¿ 20 ¸ö»Ø´ð

magic7004

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

²»¶®Fortran,²»¹ý§ס°Ñ³ÌÐòÔËÐÐÒÔÏ£¬²»¾ÍÖªµÀ´ð°¸ÁËÂð£¿
Á÷Ã¥²»¿ÉÅ£¬¿ÉŵÄÊÇÁ÷Ã¥ÓÐÎÄ»¯£¬ÓÐÎÄ»¯ÓÖBHµÄÁ÷Ã¥ÎÞµÐ~~£¡
2Â¥2009-08-09 21:13:39
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

pzhan1982

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

Óвο¼´ð°¸£¬µ«ÊDz»Ã÷°×£¬Çë¸ßÈËÖ¸µã
3Â¥2009-08-09 21:33:46
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

magic7004

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

¡ï ¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
wangen994(½ð±Ò+1,VIP+0):¸Ðл²ÎÓëÌÖÂÛ 8-10 09:00
§ס¿ÉÒ԰ѳÌÐòµ÷ÊÔÒ»±é£¬±ÈÈçµ¥²½ÔËÐÐһϣ¬¼àÊÓËùÓбäÁ¿Öµ£¬¾Í¿ÉÒÔÖªµÀ´ð°¸ÊÇÔõôÀ´µÄÀ²¡£
Á÷Ã¥²»¿ÉÅ£¬¿ÉŵÄÊÇÁ÷Ã¥ÓÐÎÄ»¯£¬ÓÐÎÄ»¯ÓÖBHµÄÁ÷Ã¥ÎÞµÐ~~£¡
4Â¥2009-08-10 08:39:24
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 070305¸ß·Ö×Ó»¯Ñ§ÓëÎïÀí 304·ÖÇóµ÷¼Á +7 c297914 2026-03-28 7/350 2026-03-29 01:17 by 544594351
[¿¼ÑÐ] 086000ÉúÎïÓëÒ½Ò©µ÷¼Á +3 Feisty¡£ 2026-03-28 7/350 2026-03-29 00:41 by 544594351
[¿¼ÑÐ] 322Çóµ÷¼Á +7 ËÎÃ÷ÐÀ 2026-03-27 7/350 2026-03-28 21:27 by sanrepian
[¿¼ÑÐ] 315Çóµ÷¼Á +4 akie... 2026-03-28 5/250 2026-03-28 21:05 by zhq0425
[¿¼ÑÐ] 311£¨085601£©Çóµ÷¼Á +4 liziyeyeye 2026-03-28 4/200 2026-03-28 18:50 by 535743368
[¿¼ÑÐ] 394Çóµ÷¼Á +3 ºÃʶàÄ¥¾²ºò¼ÑÒ 2026-03-26 5/250 2026-03-28 14:24 by ÌÆãå¶ù
[¿¼ÑÐ] 085600 286·Ö ²ÄÁÏÇóµ÷¼Á +7 ÂéÀ±öÏÓã 2026-03-27 8/400 2026-03-28 12:17 by zllcz
[¿¼ÑÐ] ҩѧ105500Çóµ÷¼Á +3 Ssun¡£¡£ 2026-03-28 3/150 2026-03-28 11:24 by lxf170613
[¿¼ÑÐ] 307Çóµ÷¼Á +8 ³¬¼¶ÒÁ°º´óÍõ 2026-03-24 9/450 2026-03-27 15:34 by ³¬¼¶ÒÁ°º´óÍõ
[¿¼ÑÐ] 085600²ÄÁÏÓ뻯¹¤µ÷¼Á +10 A-¶ßÀ²ZÃÎ 2026-03-23 16/800 2026-03-27 15:13 by caszguilin
[¿¼ÑÐ] 085600£¬²ÄÁÏÓ뻯¹¤321·Ö£¬Çóµ÷¼Á +9 ´ó²öС×Ó 2026-03-27 9/450 2026-03-27 14:30 by mmm just
[¿¼ÑÐ] Ò»Ö¾Ô¸211£¬335·Ö£¬0856£¬Çóµ÷¼ÁԺУºÍµ¼Ê¦ +4 Çã____Ïô 2026-03-27 5/250 2026-03-27 11:52 by zhshch
[¿¼ÑÐ] 292Çóµ÷¼Á +4 ÇóÇóÁËÊÕÏÂÎÒ°É£ 2026-03-26 4/200 2026-03-27 10:37 by zhshch
[¿¼ÑÐ] 359Çóµ÷¼Á +4 ÍõÁ˸öéª 2026-03-25 4/200 2026-03-27 08:43 by ²»³Ôô~µÄ؈
[¿¼ÑÐ] 317Çóµ÷¼Á +7 µ°»ÆÏÌÈâôÕ 2026-03-26 7/350 2026-03-27 02:29 by fmesaito
[¿¼ÑÐ] 294·Ö080500²ÄÁÏ¿ÆÑ§Ó빤³ÌÇóµ÷¼Á +4 ÁøÏª±ß 2026-03-26 4/200 2026-03-26 21:14 by XPUÀîÇì
[¿¼ÑÐ] 290·Öµ÷¼ÁÇóÖú +3 ¼ªÏéÖ¹Ö¹³Â 2026-03-25 3/150 2026-03-25 19:58 by barlinike
[¿¼ÑÐ] ²ÄÁϵ÷¼Á +3 iwinso 2026-03-23 3/150 2026-03-25 11:29 by greychen00
[¿¼ÑÐ] µ÷¼Á +4 13853210211 2026-03-24 4/200 2026-03-24 19:44 by ms629
[¿¼ÑÐ] 269Çóµ÷¼Á +4 ÎÒÏë¶ÁÑÐ11 2026-03-23 4/200 2026-03-23 21:25 by pswait
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û