viết chương trình nhập vào 1 số i sau đó xác định số i là mã số của kí tự gì trong bảng mã ascii và in ra nó liên tục tại nhiều vị trí ngẫu nhiên cho

0 bình luận về “viết chương trình nhập vào 1 số i sau đó xác định số i là mã số của kí tự gì trong bảng mã ascii và in ra nó liên tục tại nhiều vị trí ngẫu nhiên cho”

1. Program btn;

   uses crt;

   var x,y,i: word;
   begin
    clrscr;
     write (‘nhap i: ‘);  readln (i);
     x:=3;
     y:=3;
     clrscr;
     textcolor (lightblue);
     repeat
     x:=random(78+1);
     y:=random(23+1);
     gotoxy (x,y);
     delay (50);
     writeln (chr(i));
     until keypressed;
   readln;
   end.

   Bình luận

2. uses crt;
   var x,y,i: word;
   begin
    clrscr;
     write (‘nhap i: ‘);  readln (i);
     x:=3;
     y:=3;
     clrscr;
     textcolor (lightblue);
     repeat
     x:=random(78+1);
     y:=random(23+1);
     gotoxy (x,y);
     delay (50);
     writeln (chr(i));
     until keypressed;
   readln;
   end.

   Bình luận