用pascal 编程Description要将"China"译成密码,译码规律是：用原来字母后面的第4个字母代替原来的字

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/07/09 03:01:21

用pascal 编程
Description
要将"China"译成密码,译码规律是：用原来字母后面的第4个字母代替原来的字母．例如,字母"A"后面第4个字母是"E"．"E"代替"A".因此,"China"应译为"Glmre".请编一程序,用赋初值的方法使cl、c2、c3、c4、c5五个变量的值分别为,’C’、’h’、’i’、’n’、’a’,经过运算,使c1、c2、c3、c4、c5分别变为’G’、’l’、’m’、’r’、’e’,并输出.
Input
China
Output
加密后的China
Sample Input
China
Sample Output
Glmre
Hint
只需要输出加密后的China
Source

program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
c1, c2, c3, c4, c5: Char;
s0, s1: String;
begin
Writeln('请依次输入5个字符,每输入一个按回车：');
readln(c1);
Writeln('输入的字符1: ' + c1);
readln(c2);
Writeln('输入的字符2: ' + c2);
readln(c3);
Writeln('输入的字符3: ' + c3);
readln(c4);
Writeln('输入的字符4: ' + c4);
readln(c5);
Writeln('输入的字符5: ' + c5);
Writeln('');
s0 := c1+c2+c3+c4+c5;
s1 := chr(Byte(c1)+4)+chr(Byte(c2)+4)+chr(Byte(c3)+4)+chr(Byte(c4)+4)+chr(Byte(c5)+4);
Writeln('您输入的字符串是：' + s0 + ',转码后的结果是：' + s1);
Writeln('');
Writeln('按任意键退出.');
Readln(c1);
end.
再问：貌似错的QAQ
再答：怎么是错的呢？测试过了，是正确的呀。
再问：不要这么烦的只要输出加密后的就行了不用文字说明的0 0