FORTRAN编程求大神解答编写求N个数中绝对值最大数和最小数的函数子程序,并编写主程序分别求以下矩阵主对角线和次对角线中绝对值最大和最小元素并输出,同时输出两对角线元素.

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/02 16:38:47
FORTRAN编程求大神解答编写求N个数中绝对值最大数和最小数的函数子程序,并编写主程序分别求以下矩阵主对角线和次对角线中绝对值最大和最小元素并输出,同时输出两对角线元素.

FORTRAN编程求大神解答编写求N个数中绝对值最大数和最小数的函数子程序,并编写主程序分别求以下矩阵主对角线和次对角线中绝对值最大和最小元素并输出,同时输出两对角线元素.
FORTRAN编程求大神解答
编写求N个数中绝对值最大数和最小数的函数子程序,并编写主程序分别求以下矩阵主对角线和次对角线中绝对值最大和最小元素并输出,同时输出两对角线元素.

FORTRAN编程求大神解答编写求N个数中绝对值最大数和最小数的函数子程序,并编写主程序分别求以下矩阵主对角线和次对角线中绝对值最大和最小元素并输出,同时输出两对角线元素.
求绝对值的内部函数是abs,求数组最大值的内部函数是maxval,最小值minval,他们都支持数组运算,所以程序编起来相当简单.比如一个数组为A(N),属实数域,其程序可写为
integer,parameter ::N = 10
real A(N)
real A_abs_max,A_abs_min
!set value for A
A = (/ 1.0,2.0,-1.5,2.1,-1.3,2.7,3.3,1.5,-3.3,1.8 /)
A_abs_max = maxval( abs(A) )
A_abs_min = minval( abs(A) )
!output the results
print *,'绝对值最大数是:',A_abs_max
print *,'绝对值最小数是:',A_abs_min
end
对于矩阵,直接取出要求的数据到A里在用上面的程序即可,非常简单!