cho 1 vidụ về keypressed trong repeat

0 bình luận về “cho 1 vidụ về keypressed trong repeat”

1. uses crt;

   begin

   writeln (‘nhan phim bat ki de thoat’);

   if keypressed then exit;

   readln;

   end.

   Bình luận

2. uses crt;
   begin
    clrscr;
     repeat
      write (‘/’);
      delay (10);
     until keypressed;
    readln;
   end.

   chương trình in ra màn hình ///////// đến khi nhấn phím bất kì

   Bình luận