继续学习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
这道练习的要求是猜一个人的体重,只能猜五次,作者的代码明显要比我的可读性和效率要高,题目很简单但是受益非浅啊