?? ans0605.f90
字號(hào):
program main
implicit none
integer, parameter :: length = 79
character(len=length) :: input, output
integer i,j
write(*,*) "請(qǐng)輸入一個(gè)字串"
read(*,"(A79)") input
j=1
do i=1, len_trim(input)
if ( input(i:i) /= ' ' ) then
output(j:j)=input(i:i)
j=j+1
end if
end do
write(*,"(A79)") output
stop
end program
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -