±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 873  |  »Ø¸´: 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µÄ»ØÌû

dummy1

ľ³æ (ÕýʽдÊÖ)

¡ï ¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
gwdavid(½ð±Ò+1,VIP+0):3q 8-13 19:05
µÚÒ»¸öÊÇÅÅÐò£¬µÚ¶þ¸öÊÇÒÑÖªº¯Êýy£½x^2£¬ÇóÖµ¡£
ÕâÓ¦¸ÃÊÇ×î¼òµ¥µÄ£¬Äã¿ÉÒÔ¿´¿´fortranÓïÑÔµÄÊé¡£
ÒýÓûØÌû:
Originally posted by pzhan1982 at 2009-8-9 21:33:
Óвο¼´ð°¸£¬µ«ÊDz»Ã÷°×£¬Çë¸ßÈËÖ¸µã

8Â¥2009-08-10 19:39:59
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢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µÄ»ØÌû
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[˶²©¼ÒÔ°] ÕÐÊÕÉúÎïѧ/ϸ°ûÉúÎïѧµ÷¼Á +4 IceGuo 2026-03-26 5/250 2026-03-29 01:25 by griffith2014
[¿¼ÑÐ] Ò»Ö¾Ô¸¹þ¶û±õ¹¤Òµ´óѧ²ÄÁÏÓ뻯¹¤·½Ïò336·Ö +9 ³½ãå5211314 2026-03-26 9/450 2026-03-29 01:12 by ÎÒÊÇС¿µ
[¿¼ÑÐ] 085701Çóµ÷¼Á³õÊÔ286·Ö +4 secret0328 2026-03-28 4/200 2026-03-28 21:09 by 15366876211
[¿¼ÑÐ] 332Çóµ÷¼Á +4 @MZB382400 2026-03-28 4/200 2026-03-28 21:02 by ÌÆãå¶ù
[¿¼ÑÐ] ÉúÎïѧѧ˶£¬Ò»Ö¾Ô¸ºþÄÏ´óѧ£¬³õÊԳɼ¨338 +6 YYYYYNNNNN 2026-03-26 7/350 2026-03-28 20:52 by ÌÆãå¶ù
[¿¼ÑÐ] ʳƷ¹¤³Ìר˶һ־ԸÖк£Ñó309Çóµ÷¼Á +4 СÕÅzxyÕÅ 2026-03-26 8/400 2026-03-28 19:25 by lbsjt
[¿¼ÑÐ] 275Çóµ÷¼Á +10 Micky11223 2026-03-25 14/700 2026-03-28 15:48 by Micky11223
[¿¼ÑÐ] Çóµ÷¼Á +3 QiMing7 2026-03-25 4/200 2026-03-28 14:30 by QiMing7
[¿¼ÑÐ] Ò»Ö¾Ô¸ÏÃÃÅ´óѧ»¯Ñ§Ñ§Ë¶307Çóµ÷¼Á +10 y7czhao 2026-03-26 10/500 2026-03-28 14:23 by ÌÆãå¶ù
[¿¼ÑÐ] 311Çóµ÷¼Á +9 lin0039 2026-03-26 9/450 2026-03-28 13:05 by ÌÆãå¶ù
[¿¼ÑÐ] 070300»¯Ñ§Çóµ÷¼Á +4 Æð¸öÃûÕ¦ÕâôÄÑ 2026-03-27 4/200 2026-03-27 21:39 by 83503ËïÀÏʦ
[¿¼ÑÐ] ¿¼Ñе÷¼Á +4 Sanmu-124 2026-03-26 4/200 2026-03-27 17:49 by kiokin
[¿¼ÑÐ] 272Çóµ÷¼Á +7 ½Å»¬µÄÊØ·¨¹«Ãñ 2026-03-27 7/350 2026-03-27 17:23 by laoshidan
[¿¼ÑÐ] 0856µ÷¼Á +5 ÇóÇóÈÃÎÒÓÐÊé¶Á° 2026-03-26 6/300 2026-03-27 15:12 by caszguilin
[¿¼ÑÐ] ¸´ÊÔµ÷¼Á£¬Ò»Ö¾Ô¸ÄÏÅ©083200ʳƷ¿ÆÑ§Ó빤³Ì +5 XQTJZ 2026-03-26 5/250 2026-03-27 14:49 by ¿ñìÅÂóµ±µ±
[¿¼ÑÐ] 312Çóµ÷¼Á +9 Éϰ¶°ÉZJY 2026-03-22 13/650 2026-03-27 11:24 by sanrepian
[¿¼ÑÐ] ×Ü·Ö322ÇóÉúÎïѧ/Éú»¯Óë·Ö×Ó/ÉúÎïÐÅϢѧÏà¹Øµ÷¼Á +5 ÐdzÁuu 2026-03-26 6/300 2026-03-26 19:02 by macy2011
[¿¼ÑÐ] ÇóbÇøÔºÐ£µ÷¼Á +4 ÖÜ56 2026-03-24 5/250 2026-03-25 17:12 by yishunmin
[¿¼ÑÐ] ¸÷λÀÏʦÄúºÃ£º±¾È˳õÊÔ372·Ö +5 jjÓ¿77 2026-03-25 6/300 2026-03-25 14:15 by mapenggao
[¿¼ÑÐ] 0854È˹¤ÖÇÄÜ·½ÏòÕÐÊÕµ÷¼Á +4 ÕÂСÓã567 2026-03-24 4/200 2026-03-25 13:29 by 2177681040
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û