程序正常，但结果有误

Fnewhand · 发表于 2014-3-14 20:28:23

[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:14

[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:27

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

fcode · 发表于 2014-3-14 20:46:03

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

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

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

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

Fnewhand · 发表于 2014-3-14 20:49:30

哦，明白，有学到一个

[数值问题] 程序正常，但结果有误

美女勋章

热心勋章

星光勋章

新人勋章

贡献勋章

管理勋章

帅哥勋章

爱心勋章

规矩勋章

元老勋章

水王勋章