用Fortran设计一个语句函数，求万有引力，语句中必须含有implicit none

如题所述

推荐答案 2016-04-13

PROGRAM GRAVITY
IMPLICIT NONE
REAL*8::m1,m2,k,r,F
k=6.672e-11!ä¸æå¼åå¸¸æ°
WRITE(*,*)"è¯·è¾å¥ç¬¬ä¸ä¸ªççè´¨éï¼kgï¼:"
READ(*,*)m1
WRITE(*,*)"è¯·è¾å¥ç¬¬äºä¸ªççè´¨éï¼kgï¼:"
READ(*,*)m2
WRITE(*,*)"è¯·è¾å¥ä¸¤çä¹é´çè·ç¦»ï¼mï¼:"
READ(*,*)r
F=k*m1*m2/r**2
WRITE(*,100)F
100 FORMAT("ä¸¤ä¸ªçä¹é´çä¸æå¼åæ¯",ES12.6,"N")
READ(*,*)
END PROGRAM GRAVITY

温馨提示：答案为网友推荐，仅供参考

当前网址：http://www.wendadaohang.com/zd/34KAA4WKK1nn4KnAK1.html

相似回答

为何在FORTRAN中implicit none要写在每一个程序单元中?答：implicit none是Fortran语言中的一个编译指令，它告诉编译器禁用隐式声明变量的功能。在FORTRAN 77中，如果变量名称以字母I、J、K、L、M、N开头，则它们被隐式声明为整数类型。I-N规则。在Fortran 90及以后的版本中，变量类型的隐式声明已经不再是强制性的，但仍然是可选的。在一个Fortran程序中，...

fortran语言中的implicit none是什么意思答：类型说明语句和隐含说明语句只在本程序中有效，放在程序单位所有可执行语句的前面，IMPLICIT语句又必须在所有的类型说明语句的前面。确定变量类型的三种方法中，类型说明语句的优先级最高，I-N规则的优先级最低。implicit none即设计任何和隐含说明语句无效，所有变量都要显式地人工声明，不能未声明就直接使用...

FORTRAN中的IMPLICIT是什么意思?答：在Fortran中，IMPLICIT语句用于设置变量的默认类型。Fortran的变量不需要显式声明就可以直接使用，编译器会根据变量名称的第一个字母来决定变量的类型。但是，这种做法容易造成“人为错误”，并且不明确程序执行的内存使用情况。IMPLICIT语句可以指定哪些字母开头的变量使用哪种类型。例如，IMPLICIT REAL(Z-P)会...

fortran ran函数答：program ranA implicit none integer i real ran do i=1,1000 print*, i , ran(i)enddo end program 问题：1. 主程序名（或子程序名）尽量不要于编译器内部函数名相同；2. 随机值ran必须声明为单精度实数变量；3. 内部函数ran后的括号内必须是一短整型整数，不能为空。

谁可以帮忙用fortran语言编写一个程序?是求n元一次方程组的解!或者是...答：implicit none real::a(3,3)=(/1,3,2,& 1,2,1,& 2,1,3/)real::b(3,1)=(/4,6,6/)real::x(3,1) call lin_so_gen(a,b,x)!用于求解a*x=b这样一个三元一次方程组 write(*,'(3f5.2)')xend program linear运行程序前确认你的编译器上已经装了IMSL（有的编译器有内置的...

fortran逻辑表达式(x(1).gt.1).or.(x(2).gt.1).or.(x(3).gt.1).or...答：IF语句最大的用处是退出迭代。计算机程序中经常作连加、连乘或反复执行某段程序，并规定只有当某个参数大于或小于某值时才停止循环，这时就可以使用IF语句。IF语句用于两分叉选择的例子如：求数学中的阶梯函数（），可写成：Y=0 IF(X>1) Y=1 注意本例中不可写成：IF(X<=0) Y=0 Y=1 例：...

为什么cotan在fortran中没有"implicit+type"?答：implicit none real, intent(in) :: x real :: y ...end function cot 在这个例子中，cot函数的返回类型被定义为real，即实数类型。如果需要在函数中使用其他类型的数据，可以在函数定义中指定相应的类型。需要注意的是，Fortran中的implicit关键字表示隐式声明，它告诉编译器根据上下文自动推断变量的...

fortran中的format语句答：Format语句的应用 Fortran中的format语句可用于各种场合，包括打印屏幕输出、写入文本文件，甚至还可以用于二进制文件的数据格式化操作。假设我们要将以下程序写入文本文件：sample_program.f90 program format_example2 implicit none integer :: i, j, k do i= 1, 10, 2 do j= 1, 5, 1 k= i+j...

求fortran90 题解急急急答：PROGRAM main IMPLICIT NONE LOGICAL::flag!INTEGER,DIMENSION(1:6)::number INTEGER::i OPEN(1,FILE='myf1.out')DO i=100,999 flag=find(i,number)!IF(flag)THEN WRITE(*,'(6I4)')number WRITE(1,'(6I4)')number ENDIF ENDDO CONTAINS FUNCTION find(n,number)!INTEGER::n,count,b,s...

大家正在搜

函数可以没有return语句没有return语句的函数将返回 c语言if else语句 if else if语句格式函数调用语句为什么会有万有引力 printf函数《万有引力》万有引力是怎么产生的