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

memgr

Í­³æ (ÕýʽдÊÖ)


[½»Á÷] ¡¾ÇóÖú¡¿fortran³ö´íÁË

±¾È˸տªÊ¼Ñ§fortran  ÏëÇë½Ì´ó¼ÒÒ»ÏÂÏÂÃæµÄ³ÌÐòÄĸöµØ·½´íÁË ÀÏÊÇÌáʾ
E:\Text1.f90(10): error FOR3351:inconsistent usage of KBC detected between A and )
E:\Text1.f90(14): error FOR3351: inconsistent usage of KBC detected between A and )
E:\Text1.f90(18): error FOR2290: implicit type for YC detected between YC and -
E:\Text1.f90(18): error FOR2290: implicit type for XC detected between XC and -
E:\Text1.f90(22): warning FOR4265: symbol XC referenced but not set
E:\Text1.f90(22): warning FOR4265: symbol KAC referenced but not set
E:\Text1.f90(22): warning FOR4265: symbol YC referenced but not set
E:\Text1.f90(22): warning FOR4270: unused symbol LBE
³ÌÐòÊÇÈçÏÂ
implicit none
real :: x1, y1, x2, y2, x3, y3, a, b, kab, kbc, xe
print *, " input the parameters "
read(*, *)x1, y1, x2, y2, x3, y3, a, b
kab = (y2-y1)/(x2-x1)
kbc = (y3-y2)/(x3-x2)
kab = (y3-y1)/(x2-x1)
xe = (y2-b+kab*a-kbc*x2)/(kab-kbc)
write (*, *) xe
end
лл¸÷λ
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

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

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

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

ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
memgr(½ð±Ò+5): 2011-03-31 10:56:23
ÒýÓûØÌû:
Originally posted by memgr at 2011-03-30 18:52:45:
°Â д´íÁË ÕâÐÐÓ¦¸ÃÊÇkac  Ð»Ð»°¡ £¬µ«ÊǸÄÁËÖ®ºó»¹ÊDz»ÐÐÄØ ÎªÊ²Ã´ÄØ

°Ñ kac ¼Óµ½µÚ¶þÐÐÖоÍûÓÐÎÊÌâÁË¡­¡­
4Â¥2011-03-30 19:21:48
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
²é¿´È«²¿ 4 ¸ö»Ø´ð

piaoye4

ľ³æÖ®Íõ (ÖøÃûдÊÖ)


memgr(½ð±Ò+5): 2011-03-31 10:56:15
ÔÚÎÒÕâÀï±àÒëͨ¹ý£¬Ã»·¢ÏÖ´íÎ󡣡£¡£
ps£ºkab = (y2-y1)/(x2-x1£©  ÕâÐÐÓ¦¸ÃÊÇûÓðɣ¬Ï±ßÓÖÓÐÒ»Ðиøkab¸³ÖµÁË¡£¡£
2Â¥2011-03-30 18:46:01
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

memgr

Í­³æ (ÕýʽдÊÖ)


ÒýÓûØÌû:
Originally posted by piaoye4 at 2011-03-30 18:46:01:
ÔÚÎÒÕâÀï±àÒëͨ¹ý£¬Ã»·¢ÏÖ´íÎ󡣡£¡£
ps£ºkab = (y2-y1)/(x2-x1£©  ÕâÐÐÓ¦¸ÃÊÇûÓðɣ¬Ï±ßÓÖÓÐÒ»Ðиøkab¸³ÖµÁË¡£¡£

°Â д´íÁË ÕâÐÐÓ¦¸ÃÊÇkac  Ð»Ð»°¡ £¬µ«ÊǸÄÁËÖ®ºó»¹ÊDz»ÐÐÄØ ÎªÊ²Ã´ÄØ
3Â¥2011-03-30 18:52:45
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 342µç×ÓÐÅϢר˶Çóµ÷¼Á +8 ÄãÈÃÎÒÔõôÀóÖ¦ 2026-04-10 9/450 2026-04-10 21:46 by fxue1114
[¿¼ÑÐ] 0856ר˶Çóµ÷¼Á Ï£ÍûÊÇaÇøÔºÐ£ +21 ºÃºÃÐÝÏ¢ºÃ²»ºÃ 2026-04-09 24/1200 2026-04-10 16:58 by luoyongfeng
[ÂÛÎÄͶ¸å] mdpiСÐÞrvrʱ¼äËÄÎåÌìÁË 20+3 ¹þ¹þhigh 2026-04-08 5/250 2026-04-10 16:02 by ±±¾©À³ÒðÈóÉ«
[¿¼ÑÐ] 311Çóµ÷¼Á +11 xypÏë¶ÁÊé 2026-04-10 12/600 2026-04-10 15:15 by solbeg
[¿¼ÑÐ] ²ÄÁÏר˶283Çóµ÷¼Á +18 ÊÔÊÔ¿´ß 2026-04-04 19/950 2026-04-10 10:05 by may_ÐÂÓî
[¿¼ÑÐ] ¿¼Ñе÷¼Á-²ÄÁÏÀà-284 +28 Ïë»»ÊÖ»ú²»Ïë½âÊ 2026-04-08 28/1400 2026-04-09 20:08 by µ¹Êý321?
[¿¼ÑÐ] 322Çóµ÷¼Á£¬08¹¤¿Æ +3 ½ñÌìÊǸöСºÅ 2026-04-08 3/150 2026-04-09 15:53 by wp06
[¿¼ÑÐ] 085801 ×Ü·Ö275 ±¾¿ÆÐÂÄÜÔ´ Çóµ÷¼Á +8 bradoner 2026-04-08 9/450 2026-04-09 13:43 by onlyÖÜ
[¿¼ÑÐ] 070300»¯Ñ§279Çóµ÷¼Á +17 ¹þ¹þ¹þ^_^ 2026-04-08 18/900 2026-04-09 10:49 by ÈýÆßÆßÏëÉϰ¶
[¿¼ÑÐ] ²ÄÁϹ¤³Ì322 +18 ¹þ¹þ¹þºðºðºð¹þ 2026-04-07 19/950 2026-04-09 10:44 by cymywx
[¿¼ÑÐ] 288Çóµ÷¼Á +15 ûÓдð°¸_ 2026-04-05 15/750 2026-04-09 10:22 by 5268321
[¿¼ÑÐ] ²ÄÁϵ÷¼Á +14 Ò»ÑùYWY 2026-04-06 14/700 2026-04-08 23:00 by Öí»á·É
[¿¼ÑÐ] Ò»Ö¾Ô¸¹þ¹¤´ó£¬³õÊÔ329£¬Çó»·¾³¿ÆÑ§Ó빤³Ìµ÷¼Á£¡ +11 ÓàδÐÁ 2026-04-06 11/550 2026-04-08 15:21 by screening
[¿¼ÑÐ] µ÷¼ÁÇóÖú£¨ÉúÎïÓëÒ½Ò©£© +6 @6952 2026-04-06 6/300 2026-04-07 23:52 by lys0704
[¿¼ÑÐ] 277¡¢Ñ§Ë¶£¬Çóµ÷¼Á ÊýÒ»104£¬ +11 Æ¿×ÓPZ 2026-04-07 12/600 2026-04-07 23:30 by Ò»Ö»ºÃ¹û×Ó?
[¿¼ÑÐ] 304Çóµ÷¼Á£¨085602£¬¹ýËļ¶£¬Ò»Ö¾Ô¸985£© +25 »¯¹¤ÈË999 2026-04-04 26/1300 2026-04-07 22:06 by hemengdong
[¿¼ÑÐ] 304Çóµ÷¼Á +4 luoye0105 2026-04-05 4/200 2026-04-06 21:05 by ľ×Ó¾ý1218
[¿¼ÑÐ] 285Çóµ÷¼Á +8 AZMK 2026-04-04 11/550 2026-04-06 13:56 by BruceLiu320
[¿¼ÑÐ] Çóµ÷¼Á +10 chenxrlkx 2026-04-05 10/500 2026-04-06 11:31 by Öí»á·É
[¿¼ÑÐ] Äܶ¯µ÷¼Á326ר˶ +4 wan112233 2026-04-04 4/200 2026-04-04 22:47 by yu221
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û