Pascal游戏编程，拼手速的游戏，求大神解答

思路：以G为界将键盘分为两半，左边的按键为甲的 *** 作，右边的按键为乙（假设是你）的 *** 作。既然是比速度，就要求不停地按，若不按的话，程序将一直等待 ！

程序如下：

uses crt,dos

var

    m,n:integer

    ch:char

    hh1,mm1,ss1,hec1:word

    hh2,mm2,ss2,hec2:word

begin

     m:=0 n:=0

 gettime(hh1,mm1,ss1,hec1)

     repeat

           ch:=readkey

           if pos(ch,'12345qwertasdfzxc')>0 then inc(m)

           if pos(ch,'67890yuiophjklbnm')>0 then inc(n)

           gettime(hh2,mm2,ss2,hec2)

           writeln(mm2:3,ss2:3,' ',ch)

     until hh2*3600+mm2*60+ss2>hh1*3600+mm1*60+ss1+60

     if n>m then writeln('you win !') else writeln('you lose !')

     readln

end.

全民拼手速游戏是一款很有趣的手速类游戏，可以锻炼玩家的反应能力和手速。进入这个游戏的方法很简单，首先你需要打开手机应用商店，然后在搜索栏中输入“全民拼手速”。然后，点击搜索按钮，就会出现和这个游戏相关的搜索结果，选择全民拼手速游戏并下载安装就可以了。安装完成后，打开游戏，点击“开始游戏”按钮进入游戏模式，你可以在游戏中不断挑战自我，提高游戏水平，享受快乐的游戏体验。

快手拼手速秒杀的方法为：

设备：iPhone12

系统：iOS14.6

软件：拼多多5.71.0

1、点击手机上的拼多多。

2、点击以下位置处的“限时秒杀”，如下图所示。

3、找到已拼量占比大或者即将售罄的商品，这种商品一般价格便宜。

4、点击右下角的“发起拼单”完成支付购买即可完成秒杀了，如下图所示。

---