新人，导师要求用fortran编程。给了一个简单的任务，处理数据的输入和输出，求帮助，哪里出错，在线等。
program main implicit none integer A,B,C REAL X,Y,Z print*,"输入A,B,C的值：" READ*,A,B,C WRITE(*,*)"输入X,Y,Z的值" READ(*,*)X,Y,Z WRITE(*,*)"A+B+C=",A+B+C PRINT*,"X+Y+Z=",X+Y+Zpause End program 增加 一个pause 即可。 程序运行无问题了。程序名字不要用中文 ！
DDOT=DTEMP
// DOUBLE PRECISION相当于 C语言的 double
相当于 C语言的
double result=DTEMP；
。。。。。。。
return result；//函数返回时才执行，平常DDOT这样的函数名，代表函数返回值而已。
并不表示函数返回。
只有递归调用，和函数调用，和用函数作为参数时，函数声明和定义时才是一个函数！
其他时候在函数内部，就直接相当于函数返回值！！！
在调用函数的表达式中整个函数调用才相当于函数返回值！！！
有点绕！！！
DOUBLE PRECISION FUNCTION DDOT(N,DX,INCX,DY,INCY)
INTEGER INCX,INCY,N
DOUBLE PRECISION DX(*),DY(*)
DOUBLE PRECISION DTEMP
DTEMP = 0.0d0
!-------------------------------------------------------------------------------------------
DDOT=DTEMP 函数结束，函数返回值不变了,此时和C语言的 return DTEMP是一样的。
end function
!---------------------------------------------
如果在赋值处，函数结束，和C语言的 return DTEMP是一样的。
如又重新赋值，
DOUBLE PRECISION FUNCTION DDOT(N,DX,INCX,DY,INCY)
INTEGER INCX,INCY,N
DOUBLE PRECISION DX(*),DY(*)
DOUBLE PRECISION DTEMP
DTEMP = 0.0d0
DDOT=DTEMP ！函数返回值暂时是DTEMP，也就是 0.0d0双精度0
。。。。。
DDOT=DTEMP+200 ！现在是函数返回值200了！
end function ！ 函数结束，函数返回值就是200了这两条语句联手，
!相当于return DTEMP+200 ；
Error: Constants and expressions are invalid in read-only I/O lists. [X]
read (fileid,*)x(i),y(i),z(i)
---------------^
program main
implicit none
integer,parameter :: fileid=10
integer,parameter :: num=8000
integer i,error
!real a,b,c,d,e,f,x,y,z,l,m,n 这只定义了类型，变量可以这么干，数组不可以；
！下面这样可以
！dimension x(1: num),y(1:num),z(1:num),l(1:num),m(1:num),n(1:num)
！real a,b,c,d,e,f,x,y,z,l,m,n
！下面这样可以也可以
real x(1: num),y(1:num),z(1:num),l(1:num),m(1:num),n(1:num)
real a,b,c,d,e,f
！下面这样可以也可以
！real a,b,c,d,e,f,x(1: num),y(1:num),z(1:num),l(1:num),m(1:num),n(1:num)
！下面这样可以也可以
！real a,b,c,d,e,f,x( num),y(num),z(num),l(num),m(num),n(num)
！还有一种方法f90的
！real,dimension :: x(1: num),y(1:num),z(1:num),l(1:num),m(1:num),n(1:num)
!real a,b,c,d,e,f
a=-0.574213
b=53.0742
c=-0.574213
d=53.0742
e=-0.573119
f=52.9731
open(fileid,file="file.txt",status="old",iostat=error)
if(error/=0)then
write(*,*)"open file.txt fail."
stop
end if
do i=1,num
read (fileid,*)x(i),y(i),z(i)
l(i)=(2*x(i)-a-b)/(b-a)
m(i)=(2*y(i)-c-d)/(d-c)
n(i)=(2*z(i)-e-f)/(f-e)
end do
do i=1,num
write (*,"(F8.6)" l(i),m(i),n(i)
end do
stop
end program
另外 "(F8.6)" 也可以用了吗？？
real a,b,c,d,e,f,x,y,z,l,m,n
改为
real a,b,c,d,e,f,x(num),y(num),z(num),l(num),m(num),n(num)
数组的定义，必须给出具体大小。
跪求`怎么RAP歌???
如more成了mo(如黑人电影move money,即缩写成mo money),for改成了fo,或用数字"4" (音同)取代。...「饶舌乐的导师」之称的krs-one也有一曲black cop来叙说黑人警察的不是,由此看来,饶舌歌引诱歌迷杀...而如果称呼他人为humpty pumpty这个从爱丽丝梦游仙境中提到在墙上走来走去的蛋形人,可不要以为是在说...
“佛”与“禅”有什么不同?
1、禅宗是以禅作为主要修行方式的佛教法门。是佛教的一个分支。2、其实佛教与禅宗不可分开而论。生命珍贵，爱众生，悲悯众生，然而要做到处有而常无，佛教讲究人间一切皆苦，然而此苦也是虚有，不过是人的心在做苦。慈悲是立一切说的重点。不同：1、禅，禅学，是佛教的一种思想，其大意是放弃用已有...
医学生选导师的自荐信范例
帮助的人:28.9万 我也去答题访问个人页 关注 展开全部 医学生选导师的自荐信范例5篇 自荐信是自我推销采用的一种形式,推荐自己适合担任某项工作或从事某种活动,以便对方接受的一种专用信件。自荐信最重要的在于它与履历表起着不同作用,许多履历表中的具体内容不应在自荐信中重复,下面是我整理的医学生选导师的...
《法商智慧》读后感——为人寿保险做正本清源的代言
法商的跨界融合，运用法商智慧实现财富管理和财富传承，在中国大陆还处于刚刚起步的阶段。私人财富管理也必然经历从金融产品的销售过渡到金融服务的设计，从产品到服务的升级，是我们必须逾越的认知战场，这也是一场新的“工业革命”。这本书是FO学院的两位导师编撰，立足于全球视野，借用金融工具，解读境内外...
论文 浅谈美国黑人英语
money, 即缩写成mo money),for改成了fo,或用数字"4" (音同)取代。 "ing"之中"g"的省略,...Whatever!」有「饶舌乐的导师」之称的KRS-ONE也有一曲Black Cop来叙说黑人警察的不是,由此看来,饶舌...Pumpty这个从爱丽丝梦游仙境中提到在墙上走来走去的蛋形人,可不要以为 是在说你长的闪闪滚滚。非常...
跪求所有一代灭龙魔导师的技能
伽吉鲁·雷特福克斯（Gazille Reitfo）声优：羽多野涉\/港：黄启昌（TVB）对应的龙：梅达利卡纳（铁龙）所属公会：幽鬼的支配者->妖精的尾巴 人物说明：由钢铁之龙梅达利卡纳传授的魔法。与火之灭龙魔法纯为攻击型魔法不同，铁之灭龙魔法是攻守兼备的魔法。已知灭龙魔法：铁龙的咆啸、铁龙的钢拳、铁...
医学研究生第一次发sci代投还是自己投
自己投，因为现在好多代投其实是有风险的，目前已经有很多代投sci被撤销了，所以我们尽量自己投，如果我们项目做的很好，是没有问题的呦。
学佛教对人生有什么益处
请简明扼要介绍一下佛教别用佛教用语好么,用通俗语言普通人学习佛教对人生有什么益处有初级的通俗易懂...本章所要讨论的是信仰佛教的好处,首先要声明的是,这并不意味著信仰其他的宗教,就不能得到好处。诚...这些道理就是伟大的佛陀告诉我们的,他不是最慈祥的导师吗?第六 佛教可以培养自尊自信和独立自主的人格...
QQ幻想——高手进
中、左、右 8.上、下古岳平原 9.碧野岭、仙踪森林、飞鹤台 10.寻仙道、一叶岭、千叶森林 11.华山脚、华山南、北麓 参考资料：http:\/\/fo.qq.com\/version\/060119\/xueren.htm
哪样的姑娘值得男生娶回家?
热情开朗还能干的女生，很多男生他们都想娶回家的。
景山康复： f90 是新的自由格式的fortran代码 fortran 90 .f 是采用固定格式的fortran代码fortran 77,有一定的区别,但都能达到相同的目的. fortran 90是由fortran77发展而来了,增加了一些功能,更加方便. 用哪种编译器都可以,因为.f是低级版本的fortran文档,一般高级都支持低级,这个应该没有问题.
通州区18319404797： VC中调用fortran有哪些方法 - ？
景山康复： 声明:以下内容为转载,希望有用 前几天,导师要求在vc下调用fortran,对于我来说真是头疼啊,呵呵,以前也没有接触过这样的工作.没有办法,只好先查找资料然后再做了. 还好网上这样的资料确实不少.虽然说都说得不是很详细,但是...
通州区18319404797： 老师让设计个能解决实际问题的Fortran程序,没头绪,求救!？
景山康复： 其实可以随便找个程序都能写的,像路程问题啊,解一元二次、三次或更高次的方程啊等等,或者你可以把一些c语言中的问题转化为fortran格式描写,或者根据一个程序编题目...问题可以是很简单的,可能好几个问题都可以用同一个fort让你程序来解决的,所以尽管放心的去写吧,不用太过担心,只是要求能解决实际问题,没要求要用多高深的格式,简单的也可以用的!祝楼主做题顺利!
通州区18319404797： 最近要学fotran语言,不知道现在fortran最新版本是什么????? - ？
景山康复： 我也是刚学Fortran的菜鸟,随便说说 相对于C和C++或者MATLAB等程序语言,Fortran相对还算比较容易掌握, 句法和语言都比较人性化,其他版本的free format格式的程序可以很方便和visual Fortran互相使用 Fortran已经发展到Fortran95(应该是最新的)如果要学习编程建议用COMPAG VISUAL FORTRAN 6.5(CVF6.5) 你可以去狗狗搜索找找,资源超多~~~ 祝学习愉快~
通州区18319404797： 我是工科学生,想知道为什么让我们学fortran,而不学其他的c或c++之类的语言,他们各自有什么特点? - ？
景山康复： 对于工科学生来说学习一种语言主要是用来编制程序进行科学运算的.Fortran语法简明且严谨,易学,最大特性是接近数学公式的自然描述,可以直接对矩阵和复数进行运算,在计算机里具有很高的执行效率.因此Fortran非常适合科学计算,...
通州区18319404797： fortran这个软件在物理上用处大吗? - ？
景山康复： 我老板用了一辈子fortran,现在也要求我们用.学吧,反正都是计算机语言,精通一个其它的也就会了,没坏处. 要说在物理上的用处,fortran的特长是精于数值计算,比其他的精确.这一点随着你深入学习会认为非常重要的.
通州区18319404797： 老师给了我一个fortran程序,让处理实验数据,我读入程序,可是怎么都得不到结果,怎么回事呢? - ？
景山康复： read语句有问题或者数据格式没有对应好
通州区18319404797： 使用fortran,编写程序将200个整数按照从小到大的顺序排列 - ？
景山康复： ! 变量说明以及数据输入略 DO I=1,200-1 DO J=I+1,200 IF(N(J)<N(I))THEN K=N(I) N(I)=N(J) N(J)=K ENDIF ENDDO ENDDO! 输出以及后续程序略
通州区18319404797： VC 与fortran能装一块么 - ？
景山康复： 可以啊,两个是不同的东西,可以同时安装.但要注意的是fortran一般是没有可视化编辑界面的,往往借用visual studio的编辑器来编程.
通州区18319404797： 用fortran中的if或case语句编程 - ？
景山康复： #include void main() { int arr[4]; int temp; printf(＂请输入4个整数:＂); for(i=0;iarr[i+1]) { temp=arr[i];arr[i]=arr[i+1];arr[i+1]=temp } } for(i=0;i
