Цитата:
Сообщение от селин
написать программу, которая выводит сообщения "Нажмите клавишу в течение секунды" через случайные времени, ожидает нажатие 1 секунды и подсчитывает количество успешных нажатий.
|
К сожалению, эту дрянь по имени АВС у себя не держу, а вот на Turbo - пожалуйста:
Код:
uses crt;
var
i,m,interval,time:integer;
begin
Randomize;
m:=0;
for i:=1 to 10 do
begin
interval:=Random(5000);
delay(interval);
writeln('Press a key during 1 sec');
time:=0;
repeat
time:=time+10;
delay(10);
if KeyPressed then m:=m+1;
until KeyPressed or (time=1000);
if KeyPressed then ReadKey;
end;
Writeln('Key was pressed ',m,' times');
Readln
end.