Đổi một kí tự sang mã ASCII và ngược lại (Bài này khó quá các cao nhân giúp em,Ai trả lời nhanh,đúng thì em vote 5 sao :33)
Đổi một kí tự sang mã ASCII và ngược lại (Bài này khó quá các cao nhân giúp em,Ai trả lời nhanh,đúng thì em vote 5 sao :33)
By Savannah
program oken;
uses crt;
var n:integer;
c:char;
begin
clrscr;
write(‘Nhap ki tu: ‘); readln(c);
writeln(‘Ket qua tra ve so cua ‘,c,’: ‘,ord(c));
write(‘Nhap so: ‘); readln(n);
writeln(‘Ket qua tra ve Ki tu cua ‘,n,’: ‘,chr(n));{neu khong co ket qua tuc la ki tu dac biet}
readln;
end.
program BiBo212;
uses crt;
var i,n :integer; CH :char;
begin
clrscr;
write(‘Nhap ki tu tren ban phim: ‘);readln(CH);
writeln(‘Ma ASCII cua ki tu’,Ch,’ la: ‘,ord(CH));
write(‘Nhap ma ASCII cua ban: ‘);readln(n);
writeln(‘Ki tu tuong ung la: ‘,chr(n));
readln;
end.