Page 80 - C:\Users\Admin\Desktop\Sach mem upweb\

100 Problems & Solutions Trang 80

function giaima(x : char) : char;
var vtri : byte;
begin
if upcase(x) in ['A'..'Z'] then
begin
vtri := ord(upcase(x))-ord('A');
vtri := vtri-5+26;
giaima := char( vtri mod 26 + ord('A'));
end
else giaima := x;
end;

procedure mahoatu(s : string);
var i : byte;
begin
write(s,' -> ');
for i := 1 to length(s) do write(mahoa(s[i]));
writeln;
end;

procedure giaimatu(s : string);
var i : byte;
begin
write(s,' <- ');
for i := 1 to length(s) do write(giaima(s[i]));
writeln;
end;

BEGIN
clrscr;
mahoatu('PEACE');
mahoatu('HEAL THE WORLD');
mahoatu('I LOVE SPRING');
giaimatu('N FR F XYZIJSY');
giaimatu('NSKTVRFYNHX');
giaimatu('MFSTN SFYNTSFQ ZSNBJVXNYD');
END.

Bài 34/2000 - Mã hoá và giải mã
(Dành cho học sinh THCS)

Program bai34;
Uses crt;
Const
Ord : array['A', ..'Z'] of byte =(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17,
18, 19, 20, 21, 22, 23, 24, 25);
chr : array[0..25] of char = ('A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P',
'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z');
Var s:string;
i, j:integer; ch:char;
Begin
S:='';
Writeln('Nhap xau ki tu:');
Repeat
ch:= ReadKey;
If (ch in ['a'..'z', 'A'..'Z']) then
Begin

Tin học & Nhà trường 100 Đề Toán - Tin học