?? ex0607.f90
字號:
program ex0607
implicit none
real, parameter :: weight=45.0
real, parameter :: error=0.0001
real :: guess = 0.0
do while( .true. )
write(*,*) "weight:"
read(*,*) guess
if ( abs(guess-weight)<error ) exit
end do
write(*,*) "You are right!"
stop
end
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -