主题:键盘读入和赋值语句竟然结果不同!
请教各路高人,本人菜鸟,最近遇到一个题目“判断指定的单词在一行文字中出现的次数”。
编程为
program main
implicit none
integer L,M,K,L1
character LINE*45,WORD*10
LINE='the dog the dog the dog'
WORD='the'
!删除前导空格
17 if(WORD(1:1).eq.' ')then
WORD=WORD(2:)
goto 17
end if
L=index(WORD,' ') !求出单词的长度
M=0
L1=1
15 continue
K=index(LINE(L1:),word(:L))
if(K.ne.0)then
M=M+1
L1=L1+K+L-1
goto 15
end if
write(*,*)word(:L),'出现',M,'次'
end
顺利通过,但是,本人把前几行换成键盘读入形式,即
print*,'输入一行文字'
read*,LINE
print*,'输入一个单词'
read*,WORD
竟然得到的结果不同,请求高人指点!!!