怎样将这个fortran程序简化,并写完

[复制链接]
查看11 | 回复1 | 2013-4-20 14:03:00 | 显示全部楼层 |阅读模式
代码如下, 可以作为参考program testreal a,b,creal x,y,sum_x,sum_yinteger isum_x = 0.0sum_y = 0.0do i = 1,8
print*, '请输入第',i,'组数据'
read*,a,b,c !验算点功能函数为ax+by+c=0形式

if(a.eq.0.0) then
x=0.0
y=-c/b
print*,x,y
if(b.eq.0.0) then
...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行