Fortran学习笔记(2)

继续学习Fortran的过程中发现不仅学到了Fortran的语法而且还学习了一些新的编程思想，比如练习6.3

我写的版本

program main
implicit none
integer i
real :: x = 0
real , parameter :: e = 0.001
real , parameter :: w = 45
write(*, *)"guess:"
read(*, *) x

do i = 1,5,1
     if(abs(x - w) <= e) then
        write(*, *)"right"
        exit
     else 
        if(i < 5) then
            write(*, *)"wrong,guess"
            read(*, *) x
        else 
            write(*, *)"wrong"
        end if
    end if
end do
end

 书中作者的版本：

program main
  implicit none
  integer, parameter :: answer = 45
  integer, parameter :: max = 5
  integer weight, i
  
  do i=1,max
    write(*,*) "请输入体重"
	read(*,*) weight
	if ( weight==answer ) exit
  end do

  if ( i<=max ) then
    write(*,*) "猜对了"
  else
    write(*,*) "猜错了"
  end if

  stop
end program

这道练习的要求是猜一个人的体重，只能猜五次，作者的代码明显要比我的可读性和效率要高，题目很简单但是受益非浅啊