e_321_01.f90

来自「Fortran77和90/95编程入门对应的程序源码」· F90 代码 · 共 14 行

CALL RANDOM_SEED      ! Processor initializes the seed randomly from the date and time
call random_number(R)
Number=int(10*R+1)
do
	write(*,'("Your Guess:")'); read *, MyGuess
	if(MyGuess==Number) exit
	if(MyGuess> Number) then
		print *, 'Too high. Try again.'
	else
		print *, 'Too low.  Try again.'
	end if
end do
print *,'You are lucky. It is',Number
end