您所在位置：主题：我是菜鸟中的菜鸟大哥大姐帮忙看看谢谢···
AIR宏
[专家分：0] 发布于 2010-05-16 09:58:00
write(*,*)'enter x=?'
read(*,*) x
if(x.lt.28.0)then
f=0.0
else if( x.lt.30.0)then
f=0.5*x-14.0
elseif(x.lt.32.0)then
f=-0.5*x+16.0
else
f=0.0
endif
write(*,*)'f(X)=',f
end
程序运行没节果不知道错哪了？？
read(*,*) x
if(x.lt.28.0)then
f=0.0
else if( x.lt.30.0)then
f=0.5*x-14.0
elseif(x.lt.32.0)then
f=-0.5*x+16.0
else
f=0.0
endif
write(*,*)'f(X)=',f
end
程序运行没节果不知道错哪了？？
