程序正常，但结果有误

Fnewhand

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

program ex0611

    implicit none 
    integer i 
    integer strlen 
    integer,parameter::key =2
    character (len =20)::string 
    write (*,*)"String"
    read (*,*)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

[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

Fnewhand

谢谢。这是跟默认值有关系吗。默认值不足？但是好像按原来的程序，只输入两个字母，中间一个空格，它还是只显示第一个字母？

fcode

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

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

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

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

Fnewhand

哦，明白，有学到一个