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

100 Problems & Solutions Trang 81

ch := Upcase(ch); Write(ch);
S := S + ch;
End;
Until ch = #13; Writeln;
For i := 1 to length(s) do
If S[i] <> ' ' then S[i] := chr[(ord{s[i]] + 5) mod 26];
Writeln('Xau ki tu tren duoc ma hoa la:'); write(s); Readln;
S:= ' ' ;
Writeln('Nhap xau ki tu can giai ma:');
Repeat
ch := Readkey;
If (ch in ['a'..'z', 'A'..'Z']) then
Begin
ch := Upcase(ch); Write(ch);
s := s + ch;
End;
Until ch = #13; Writeln;
for i := 1 to length{S) do
If S[i] <> ' ' then S[i] := chr[(Ord[S[i]] + 21) mod 26;
writeln('Xau ki tu tren duoc giai ma la:'); write(s);
Readln;
End.
Các bạn cũng có thể sử dụng lại 2 thủ tục mahoatu và giaimatu ở bài 33/2000 để giải
bài này. Việc thiết kế giao diện khi nhập xâu từ bàn phím xin dành cho các bạn.

Bài 35/2000 - Các phân số được sắp xếp
(Dành cho học sinh THPT)
Program bai35;
Uses crt;
Type Phanso = (tu, mau);
Var F: array[1..4000, phanso] of integer;
N, dem : Integer;
Procedure nhap;
Begin
Write('Nhap so N:'); Readln(N);
F[1,tu] := 0; F[1,mau] := 1; dem := 2;
F[dem, tu] := 1; F[dem,mau] := 1;
End;
Procedure Chen(t,m,i:Integer);
Var j:integer;
Begin
Inc(dem);
For j := dem downto i + 1 do
begin
F[j,tu] := F[j-1,tu];
F[j,mau] := F[j-1,mau];
end;
F[i,tu] := t; F[i,mau] := m;
End;
Program xuli;

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