?? ex0511.f90
字號:
program ex0511
implicit none
character(len=20) :: str1,str2
character relation
write(*,*) "String 1:"
read(*,"(A20)") str1
write(*,*) "String 2:"
read(*,"(A20)") str2
if ( str1>str2 ) then
relation = '>'
else if ( str1==str2 ) then
relation = '='
else
relation = '<'
end if
write(*,"('String1',A1,'String2')") relation
stop
end?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -