?? ex0513.f90
字號:
program ex0513
implicit none
real a,b,ans
character operator
read(*,*) a
read(*,"(A1)") operator ! 不使用格式有些機(jī)器會讀不到除號"/"
read(*,*) b
select case(operator)
case('+')
ans = a+b
case('-')
ans = a-b
case('*')
ans = a*b
case('/')
ans = a/b
case default ! 輸入其它符號不處理
write(*,"('Unknown operator ',A1)") operator
stop ! 結(jié)束程序
end select
write(*,"(F6.2,A1,F6.2,'=',F6.2)") a,operator,b,ans
stop
end
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -