pascal的一道题不会,快帮帮忙,急急!!!!

来源：百度知道 编辑：UC知道 时间：2024/06/03 16:54:08
原码:a , b , c , ……x , y , z
密码:z , y , x ，……c , b , a
要求编一道程序，输入原码后，输出与之对应的密码。
我不会，但今天就要交了，请各位高手帮帮忙，急死了！！！

var s:string;
i:integer;
a:array['a'..'z'] of char;
c:char;

begin
c:='z';
for c1:='a' to 'z' do begin a[c1]:=c;dec(c); end;

readln(s);
for i:=1 to length(s) do s[i]:=a[s[i]];

writeln(s);
end;

用CASE语句就搞定了