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


