Question

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

PROGRAM NAME;
VAR N,B,C:INTEGER;
BEGIN
uses display;
repeat
if iskey() then N:=N+1;
until false;
FOR B:=1 TO 999999 DO
C:=C+1;
IF N>B
THEN
WRITE('YOU WIN')
ELSE WRITE('YOU LOSE');
END.
具体为：记录按键盘的次数，双人玩的，在同一键盘上，看谁按得次数多，限时60秒，求解，谢谢，在线等

Answer 1

思路：以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.