Desktop
代码说明:
说明: program example3 implicit none real,parameter::weight=50.0 real,parameter::e=0.1 real guess write (*,*) " weight is" do while(abs(guess-weight)>e) read(*,*) guess if(abs(guess-weight)
下载说明:请别用迅雷下载,失败请重下,重下不扣分!
e)read(*,*)guessif(abs(guess-weight) 代码说明:
说明: program example3
implicit none
real,parameter::weight=50.0
real,parameter::e=0.1
real guess
write (*,*) " weight is"
do while(abs(guess-weight)>e)
read(*,*) guess
if(abs(guess-weight)
下载说明:请别用迅雷下载,失败请重下,重下不扣分!
Desktop
0 个回复