程序正常，但结果有误

fcode

[Fortran] 纯文本查看 复制代码

program ex0611
implicit none 
integer i 
integer strlen 
integer,parameter::key =2
character (len =20)::string 
write (*,*)"String"
read (*,'(a20)')string !// 修改此句
strlen =len_trim(string)
do i =1,strlen 
    string (i:i)=char (ichar(string(i:i))+key)
end do 
write (*,"('Encoded:',a20)")string 
stop
end

fcode

Fnewhand 发表于 2014-3-14 20:42
谢谢。这是跟默认值有关系吗。默认值不足？但是好像按原来的程序，只输入两个字母，中间一个空格，它还是只 ...

整个过程中，没有任何默认值的概念。

read(*,*)  string
遇到空格就停止读取。所以你输入 abc def，实际 string=abc

read(*,'(a20)' ) string
这样才会读完