?? ex0614.f90
字號:
program ex0614
implicit none
real a,b,ans
character :: key = 'y' ! 為了至少進入循環1次
do while( key=='y' .or. key=='Y' )
read(*,*) a
read(*,"(A1)") key
read(*,*) b
select case(key)
case('+')
ans = a+b
case('-')
ans = a-b
case('*')
ans = a*b
case('/')
ans = a/b
case default
write(*,"('Unknown operator ',A1)") key
stop
end select
write(*,"(F6.2,A1,F6.2,'=',F6.2)") a,key,b,ans
write(*,*) "(Y/y) to do again. (Other) to exit."
read(*,"(A1)") key
end do
stop
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -