±¾È˸տªÊ¼Ñ§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
лл¸÷λ |