Question

pascal字符串题目

描述
小英是药学专业大三的学生，暑假期间获得了去医院药房实习的机会。
在药房实习期间，小英扎实的专业基础获得了医生的一致好评，得知小英在计算概论中取得过好成绩后，主任又额外交给她一项任务，解密抗战时期被加密过的一些伤员的名单。
经过研究，小英发现了如下加密规律（括号中是一个“原文 -> 密文”的例子）
1. 原文中所有的字符都在字母表中被循环左移了三个位置（dec -> abz）
2. 逆序存储（abcd -> dcba ）
3. 大小写反转（abXY -> ABxy）

输入
一个加密的字符串。（长度小于50且只包含大小写字母）
输出
输出解密后的字符串。
样例输入
GSOOWFASOq
样例输出
Trvdizrrvj

Answer 1

program str;
var sr,sc:string;
i,j:integer;
begin
readln(sr);
for i:=1 to length(sr) do
sr[i]:=chr(ord(sr[i])-3);
for i:=1 to length(sr)do
sc[length(sr)+1]:=sr[i];
for i:=1 to length(sc)do
if ord(sc[i])<=90 then sc[i]:=chr(ord(sc[i])+ord('a')-ord('A'))
else sc[i]:=chr(ord(sc[i])-ord('a')+ord('A'));
writeln(sc);
end.
没编译过
有问题加QQ：1690734122