有,不过这个需要用到获取DOS系统的中断,我只知道原理,具体怎么写也不记得了,好几年没有用了。早还给老师了。呵呵...
不知道你是不是在WINDOWS系统中写TRUBO PASCAL程序,建议还是用DELPHI写吧。同样的效果。

解决方案 »

  1.   

    很多早期语言都是用Input函数,不知道Turbo Pascal是不是。
      

  2.   

    //参考
    KeyPressed;
    ReadKey;
      

  3.   

    //不要忘记
    uses Crt, Dos;
      

  4.   

    {KeyPress.PAS}{Sample code for the KeyPressed function.}{ For Windows: }
    { uses WinCrt; }uses Crt;begin
     repeat
       Write('Xx');
     until KeyPressed;
    end.
      

  5.   

    楼上的不行!编译时出现"Unknown identifier"!有没有人会呀??