作者Laoda245566 (草莓兽)
看板Fortran
标题[问题] 最小值有两个只显示一个
时间Tue Dec 3 00:00:30 2013
program ex
integer i
real a,x,x1,y,y1
write(*,*) "input a"
read(*,*) a
do i=-500,500
x=i
y=(x**2)+a*x
if (i.eq.-500) then
y1=y
x1=x
end if
if (y.lt.y1) then
y1=y
x1=x
end if
end do
write(*,*)"x=",x1,"y=",y1
end
以上为我计算y=x^2+ax 最小的方法
万一a代1
答案应该是-1跟0
但是只会显示-1
该怎麽让另外一个也显示
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.115.214.9
1F：推 physbook:再开一个变数 多加一个if处理x==x1的情况 12/04 10:38
2F：推 physbook:不过你确定最小值的时候会有两个x? 12/04 10:48
3F：推 physbook:oh, sorry. 没注意到你x解析度只有1 12/04 10:49
4F：→ rex0707:你没有判断当不同i值却得到相同y值的情况阿 12/04 12:55
5F：→ rex0707:而且只有一个write 当然只会输出一个值而已 12/04 12:55