版块导航: 正在加载中...

客户端APP下载

登录注册

应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜

memgr

铜虫 (正式写手)

应助: 0 (幼儿园)
金币: 229.8
帖子: 330
在线: 101.4小时
虫号: 859962

[交流] 【求助】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
谢谢各位

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:

【求助】求fortra程序已经有4人回复

» 抢金币啦！回帖就可以得到:

查看全部散金贴

1楼 2011-03-30 16:48:08

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

piaoye4

木虫之王 (著名写手)

应助: 7 (幼儿园)
贵宾: 0.58
金币: 77092.7
帖子: 1741
在线: 1468小时
虫号: 398255

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

铜虫 (正式写手)

应助: 0 (幼儿园)
金币: 229.8
帖子: 330
在线: 101.4小时
虫号: 859962

引用回帖:

Originally posted by piaoye4 at 2011-03-30 18:46:01:
在我这里编译通过，没发现错误。。。
ps：kab = (y2-y1)/(x2-x1）这行应该是没用吧，下边又有一行给kab赋值了。。

奥写错了这行应该是kac 谢谢啊，但是改了之后还是不行呢为什么呢

3楼2011-03-30 18:52:45

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

memgr(金币+5): 2011-03-31 10:56:23

引用回帖:

Originally posted by memgr at 2011-03-30 18:52:45:
奥写错了这行应该是kac 谢谢啊，但是改了之后还是不行呢为什么呢

把 kac 加到第二行中就没有问题了……

4楼2011-03-30 19:21:48

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

相关版块跳转我要订阅楼主 memgr 的主题更新