Fortran Coder

标题: 程序正常，但结果有误 [打印本页]

作者: Fnewhand 时间: 2014-3-14 20:28
标题: 程序正常，但结果有误

[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 时间: 2014-3-14 20:34

[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 时间: 2014-3-14 20:42
谢谢。这是跟默认值有关系吗。默认值不足？但是好像按原来的程序，只输入两个字母，中间一个空格，它还是只显示第一个字母？

作者: fcode 时间: 2014-3-14 20:46

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

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

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

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

作者: Fnewhand 时间: 2014-3-14 20:49
哦，明白，有学到一个

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)