fortran95第六章 课后答案

program ex0601

implicit none

integer i

integer, parameter :: j=5

do i=1,j,1

write(*,*) "fortran"

end do

stop

end

program ex0602

implicit none

integer,parameter :: i=99

integer j

integer :: k=0

do j=1,i,2

k=k+j

end do

write(*,*) k

stop

end

program ex0603A !运行时示范第一种结果,即五次都没有猜中

implicit none

real,parameter:: a=45.0

real:: b

real,parameter:: c=0.00001

integer:: i

do i=1,5

write(*,*) "weight:"

read(*,"(f3.1)") b

if (abs(a-b)<=c) exit

fortran95第六章 课后答案相关文档

最新文档

返回顶部