作者lunatear (渚薰  )
看板Fortran
标题[问题] 一串阵列找最大值
时间Mon Apr 27 15:52:12 2009
最近在读资料输入了一串数值
假如想从里面找最大值怎麽找?
我是已经找到了
用之前处理成绩作业的方式
先作排序 排序完自然而然第一个就会是最大或最小
do i = 1,np-1
do j = i+1,np
if (pga(i) < pga(j) ) then
a = pga(j)
pga(j) = pga(i)
pga(i) = a
b = sta1(j)
sta1(j) = sta1(i)
sta1(i) = b
end if
end do
end do
正在想可以有不用排序的方法吗?
用forall 或 where?
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.122.162.45
1F：→ YCTzeng:用库存函数 maxval(pga) 04/27 16:08
2F：→ YCTzeng:最小值就是 minval(pga) 04/27 16:10
3F：→ lunatear:多谢 来翻书... 04/27 16:22
4F：推 jsb: Fortran 77 不吃 maxval/minval 函数。使用时请注意。 04/27 18:38
5F：推 awer89:如果无法用MAX MIN函数 另取一变数 当<(>)时 变更变数 04/27 19:00
6F：→ awer89:这样就可单纯的去MAX or MIN 不过不会进行排列 04/27 19:01