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: Xếp bảng chữ cái theo vòng tròn, sau đó thay mỗi kí tự bằng kí tự đứng sau nó n vị trí trong bảng vòng tròn. Ví dụ n = 7 thì "anh" được mã hóa thành "huo''. Bạn hãy lập chương trình nhập số tự nhiên n sau đó:

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

                  k:=ord(S[i]);    k:=k+7;     ch:=chr(k);    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

                  k:=ord(S[i]);    k:=k-7;     ch:=chr(k);    S1:=S1+ch;

              end;

              write('xau sau khi duoc giai ma:',S1);

             readln;

end.