Fortran95程序设计习题答案 第四章1.programmainimplicitnonewrite(*,*)"Haveagoodtime."write(*,*)"That'snotbad."write(*,*)'"Mary"isn''tmyname.'endprogram2.programmainreal,parameter::PI=3implicitnone.14159realradiuswrite(*,*)"请输入半径长"read(*,*)radiuswrite(*,"('面积='f8.3)")radius...
Fortran95程序设计习题答案 第四章 1.program main implicit none write(*,*) "Have a good time." write(*,*) "That's not bad." write(*,*) '"Mary" isn''t my name.' end program 2.program main real, parameter :: PI=3 implicit none.14159 real radius write(*,*) "请输入半径长" ...
输出 1, 因为使用整数计算, 小数部分会无条件舍去 write(*,*) rb/ra ! 输出 1.5 5.program main implicit none type distance real meter, inch, cm end type type(distance) :: d write(*,*) "请输入长度:" read(*,*) d%meter d%cm = d%meter*100 d%inch = d%cm/2.54 write(*...
Fortran95程序设计课后习题答案(word版方便) 第四章1.program main implicit none write(*,*) "Have goodtime." write(*,*) bad."write(*,*) '"Mary" isn''t my name.' end program 2.program main real, parameter PI=3implicit none.14159 real radius write(*,*) 输入半径长"read(*,*) ...
Fortran95程序设计习题答案 下载积分:1000 内容提示: 第四章 1.program main implicit none write(*,*) "Have a good time." write(*,*) "That's not bad." write(*,*) '"Mary" isn''t my name.' end program 2.program main real, parameter :: PI=3 implicit none.14159 real radius write(...
Fortran95程序设计习题答案 系统标签: integerimplicitcircleareawrite习题end 第四章1.programmainimplicitnonewrite(*,*)"Haveagoodtime."write(*,*)"That'snotbad."write(*,*)'"Mary"isn''tmyname....
第四章1 .program main implicit none write, quot;Have a good time.quot; write, quot;That39;s not bad.quot; write, 39;quot;Ma
Fortran95程序设计习题答案第十章4module typedef implicit none type :: datalink integer :: i type(datalink), pointer :: next end type datalink end module typedef program ex1012 use typedef implicit none type(datalink) , pointer :: p, head, next...
Fortran95程序设计课后习题答案(方便).pdf,页眉内容 第四章 1. program main implicit none write(*,*) Have a good time. write(*,*) Thats not bad. write(*,*) Mary isnt my name. end program 2 .program main real, parameter :: PI=3 implicit none.14159 real radius
sum()是fortran 库函数 write(*,*) real(sum(a))/real(max) stop end program 2.integer a(5,5) ! 5*5=25 integer b(2,3,4) ! 2*3*4=24 integer c(3,4,5,6) ! 3*4*5*6=360 integer d( -5:5) ! 11 integer e( -3:3, -3:3) ! 7*7=49 3.program main implicit none in...