UC知道问题描述
来源：百度知道 编辑：UC知道 时间：2024/06/04 16:46:09
问题描述：
按键盘上的键向左移一位输出。输入大写字母，数字，标点符号。空格和回车照常输出。
Input
输入一个字符串。以回车结尾。
Output
输出相应的字符串。
Sample Input
O S, GOMR YPFSU/
Sample Output
I AM FINE TODAY.
pascal
按键盘上的键向左移一位输出。输入大写字母，数字，标点符号。空格和回车照常输出。
Input
输入一个字符串。以回车结尾。
Output
输出相应的字符串。
Sample Input
O S, GOMR YPFSU/
Sample Output
I AM FINE TODAY.
pascal
你先去建个对照表，然后直接对应输出
比如a['c']='x'，就是说碰到c输出x
程序很麻烦，这里就不贴了
var
a:array[1..100] of char;
t,n:integer;
begin
t:=0;
repeat
t:=t+1;
case a[t] of
'w' : a[t]:='q';
......
end;
until a[t]='.'
for n:=1 to t do write(a[n]);
readln;
end.