Question

 Để mã hóa một văn bản gồm toàn chữ cái tiếng Anh người ta có thể làm như sau: Thay mỗi kí tự bằng kí tự đứng sau nó trong bảng chữ cái, riêng z thay bằng a. Ví dụ 'anh' được mã hóa thành 'boi'. Bạn hãy lập trình để

a) Mã hóa một văn bản (xâu kí tự)

b) Giải mã một văn bản đã mã hóa

Answer 1

program mahoa;
var         S,S1:string;ch:char;i,k:integer;
begin
              write('moi ban nhap xau:');readln(S);
              S1:='';
              for i:=1 to length(S) do
              begin
                        if S[i]='z' then ch:='a' else

                        begin
                  k:=ord(S[i]);    k:=k+1;     ch:=chr(k);   

              end;

              S1:=S1+ch;
              end;
              writeln('Xau duoc ma hoa la:',S1);
              write('moi ban nhap xau can giai ma :');readln(S);
             S1:='';
              for i:=1 to length(S) do
              begin

                         if S[i]='a' then ch:='z' else

                         begin
                  k:=ord(S[i]);    k:=k-1;     ch:=chr(k);    

              end;

              S1:=S1+ch;
              end;
              write('xau sau khi duoc giai ma:',S1);
             readln;
end.