算法问题：

凤凰

编写一个译码程序，把一个英语句子与数字代码互译。译码规则是以数字1代替字母A，数字2代替字母B，……，26代替字母Z，如遇空格则打印一个星号‘*’，其他符号不动。为了简便操作，规定英语句子没有数字，而含数字的代码中没有英语。


嘿嘿，译过来译过去，难度大不一样
本题来自：易语言论坛，大家试着做下：
凤凰：

顶老大

百度有提示
pascal写的大家可以参考
用 for
var
s:ansistring;
i,j,k,p:longint;
begin
readln(s);
for i:=1 to length(s)-1 do
case    s[i]    of
'A'..'Z':        write(ord(s[i])-64);
end;
end.
用  while
var
ch:char;
begin
read(ch);
while ch<>'.' do
begin
        case ch of
        'A'..'Z':       write(ord(ch)-64);
        ' ':            write('*');
        end;
        read(ch);
end;
end.

中国龙子

写了半天，英文到数字是简单，反过来我就写不出来了 555555555555

321k

回复 3# 中国龙子


    反向调用就可以了