Bài tập mã hóa- Trang

program ct ;
uses crt ;
var n,i :integer ;
a,c:string ;
b :array [1..100] of integer ;
begin
write(`nhap xau ki tu `);
readln(a);
n:=length(a);
for i:=1 to n do
begin write(`nhap a[`,i,`]`);
readln(a[i]);
end;
case a[i] of
`a` : b[i] =0 ;
`b` : b[i] =1 ;
`c` : b[i] =2 ;
`d` : b[i] =3 ;
`e` : b[i] =4 ;
`f` : b[i] =5 ;
`g` : b[i] =6 ;
`h` : b[i] =7 ;
`i` : b[i] =8 ;
`j` : b[i] =9 ;
`k` : b[i] =10;
`l` : b[i] =11;
`m` : b[i] =12;
`n` : b[i] =13;
`o` : b[i] =14;
`p` : b[i] =15;
`q` : b[i] =16;
`r` : b[i] =17;
`s` : b[i] =18;
`t` : b[i] =19;
`u` : b[i] =20;
`v` : b[i] =21;
`w` : b[i] =22;
`x` : b[i] =23;
`y` : b[i] =24;
`z` : b[i] =25;
end;
for i:=1 to n do c[i] := (b[i] + 5 ) mod 26 ;
case c[i] of
o: c[i] =a; o: c[i] =a;
o: c[i] =a; o: c[i] =a;
o: c[i] =a; o: c[i] =a;
o: c[i] =a; o: c[i] =a;
o: c[i] =a;
o: c[i] =a;
o: c[i] =a;
o: c[i] =a;
o: c[i] =a;
o: c[i] =a;

o: c[i] =a:
o: c[i] =a;
o: c[i] =a;