论坛 › 易语言编程 › 算法问题：

凤凰 发表于 2010-4-29 05:58:12

算法问题：

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


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

顶老大 发表于 2010-4-29 21:13:50

百度有提示
pascal写的大家可以参考
用 for
var
s:ansistring;
i,j,k,p:longint;
begin
readln(s);
for i:=1 to length(s)-1 do
case    s    of
'A'..'Z':      write(ord(s)-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.

中国龙子 发表于 2010-4-29 22:05:20

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

321k 发表于 2010-5-3 19:15:19

回复 3# 中国龙子


    反向调用就可以了

weixin2003 发表于 2010-5-3 19:22:44

查看完整版本: 算法问题：