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/07/05 05:23:00
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个问题 想请问大神哪有问题~~
你的程序名叫 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
fortran问题,求大神解答这是怎么回事
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大神帮我编一个Fortran程序计算无理数π的1-100的小数位,
一个求极限的问题,求数学大神解答
一个积分问题,求大神解答
fortran语言问题求大神解答.大学95版.Program testImplicit noneInteger::sum,isum=0.0do i=1,203,2sum=sum+iend dowrite(*,*)iend
微分方程的问题 求大神解答
数学问题求大神解答!
线性代数问题~求大神解答
家电问题,求大神解答
求大神解答~~高中数学等比数列、等差数列的问题,急求!
大学高数的简单问题求解答!在线等!如图,任何一个会做都可以!大神出现!分列式问题
求数学大神解答关于极限的问题,要具体步骤.
求大神解答选修3-1 的物理问题
数学的两道问题,求大神解答.
fortran语言 循环问题program eee integer a a=1 do 11 a=1,10 if (a.GE.5) go to 11 write(*,*)a11 continue write(*,*)a stopend请问为什么出来的结果是1,2,3,4,11呢?求大神解答,无限感谢~~
求相关系数fortran程序~求相关系数的fortran程序~.
求大神解答这几道问题,要过程