Đổ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)

0 bình luận về “Đổ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)”

1. 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.

   Bình luận

2. 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.

   Bình luận