关于翻译密码程序的输入输出问题

PTVenn

程序先按照约定的规律将一个字符转换为对应的ASCⅡ码，ASCⅡ码加5后再转换得到原来的字符。当ASCⅡ码加5超过Z，要使之转换为A。对字母之外的字符维持原样。程序如下：

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

查看代码

打印?

01

! 翻译密码。

02	program char_4

03	implicit none

04	integer::i,j,k

05	character*80::line1,line2

06	character*1::l1,l2

07	read *,line1

08

do k=1,80

09	l1=line1(k:k)

10	if ((lge(l1,'A').and.lle(l1,'Z')).or.(lge(l1,'a').and.lle(l1,'z'))) then

11	i=iachar(l1)

12

j=i+5

13

else

14	if(j>iachar('z').or.(j>iachar('Z').and.j<iachar('Z')+6)) then

15

j=j-26

16	l2=achar(j)

17	line2(k:k)=l2

18

else

19	line2(k:k)=l1

20

end if

21

end if

22

end do

23	print *,line2

24	end program char_4

调试程序没错，但是例如输入 "HE IS IN BEIJING" 程序没反应，求解~

fcode

1.如果你用表控格式读取 Line1，则只会读取 HE，后面的 IS IN BEIJING 读取不到。因为表控格式认为空格是间隔符。
2.如果你只读了 HE，则只满足 if ((lge(l1,'A').and.lle(l1,'Z')).or.(lge(l1,'a').and.lle(l1,'z'))) ， 后面的 ELSE 一律不执行。所以 Line2 没有值。
也许以下代码是你想要的

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

查看代码

打印?

01	program char_4

02	implicit none

03	integer::j,k

04	character(len=80)::line1,line2=""

05	character::t

06	read(*,"(a80)") line1 !//此处用格式读入，不用表控，否则只读 HE

07	do k=1,len_trim(line1)

08	t = line1(k:k)

09	if ((lge(t,'A').and.lle(t,'Z')).or.(lge(t,'a').and.lle(t,'z'))) then

10	j = iachar(t) + 5

11	if( j>iachar('z').or.(j>iachar('Z').and.j<iachar('Z')+6) ) then

12	j = j - 26

13

end if

14	t = achar(j)

15

end if

16	line2(k:k) = t

17

end do

18	print *,line2

19	end program char_4