作业帮fortran的一个问题 求大神解答本题是求从文件中导入数之和 文件中的数是从1到100程序如下：program sumimplicit noneinteger tem(100),sum,isum=0open(10,file='sum.dat',status='old')do i=1,100read(10,*) tem(i)enddodo i=1,10
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/09 00:40:22
fortran的一个问题 求大神解答本题是求从文件中导入数之和 文件中的数是从1到100程序如下：program sumimplicit noneinteger tem(100),sum,isum=0open(10,file='sum.dat',status='old')do i=1,100read(10,*) tem(i)enddodo i=1,10
fortran的一个问题 求大神解答
本题是求从文件中导入数之和 文件中的数是从1到100
程序如下：
program sum
implicit none
integer tem(100),sum,i
sum=0
open(10,file='sum.dat',status='old')
do i=1,100
read(10,*) tem(i)
enddo
do i=1,100
sum=sum+tem(i)
enddo
print*,sum
end
有5个问题 想请问大神哪有问题~~
fortran的一个问题 求大神解答本题是求从文件中导入数之和 文件中的数是从1到100程序如下：program sumimplicit noneinteger tem(100),sum,isum=0open(10,file='sum.dat',status='old')do i=1,100read(10,*) tem(i)enddodo i=1,10
你的程序名叫 sum,又定义了一个相同名称的变量叫 sum.
这是不合理的.可以把 program sum 改为 program sumtest 或其他.
另外,sum 是Fortran的保留关键字,建议不要当做变量名称使用.例如把 sum 叫做 s
最后,你的代码可简化为：
program sumtest
implicit none
integer tem(100) , s
Integer , Intrinsic :: sum !// 这表示 sum 是内部函数
open(10,file='sum.dat',status='old')
read(10,*) tem !// 一句就可以读进来了
s = sum( tem ) !// 一句就可以求和了
print*,s
Close( 10 ) !// 养成关闭文件的习惯
end program sumtest