ограничение по времени

[bunner]

Как в паскале при составлении теста установить ограничение по времени, что бы тест выполнялся допусти не больше 5 минут

[Sazary]

имхо нормального таймера не получится..
Можно использовать gettime в связке с keypressed (чтобы узнать, не ответил ли проверяемый)

[Sazary]

Вот примерчик набросал.. Чисто для демонстрации.
Нужно нажать 'y' в течение 5 секунд (программа выведет "Good"), иначе скажет, что время вышло.

uses crt,dos;
var ch : char;
k : integer;
h,m,ms,sc,sc2 : word;

begin
clrscr;
k:=0;
writeln('Nazhmite "y" v techenie 5 sekund');
gettime(h,m,sc,ms);
while k<10 do
  begin
  if keypressed then
    begin
    ch := readkey;
    if ch = 'y' then break;
    end;
  gettime(h,m,sc2,ms);
  if sc2-sc<0 then sc2 := 60+sc2-sc
  else sc2 :=  sc2-sc;
  if sc2>=5 then break;
  end;
if ch <> 'y' then writeln('Vremya vyshlo!')
else writeln('Good!');
readln;
end.

[bunner]

а как это связать с тестом...

var RightCount:byte;
answer:byte;

begin
RightCount := 0;
writeln(' Enter');
writeln('klklk?');
writeln('1 - klk');
writeln('2 - klklk');
writeln('3 - klklk');
writeln('4 - klklk');
readln(answer);
if (answer = 1) then inc(RightCount);

writeln('klkl');
writeln('1 - klkl');
writeln('2 - klkl');
writeln('3 - klklk');
writeln('4 - klkl');
readln(answer);
if (answer = 2) then inc(RightCount);


writeln('klklkl: ', RightCount);
readln;

end.

[Sazary]

Примерно так.
n - время на прохождение. Должно быть от 1 до 59 (секунд). Если нужно больше, то там уже нужно сравнивать минуты..

uses crt,dos;
const n = 20; { не больше 59 }
var RightCount:byte;
answer:char;
h,m,ms,sc,sc2 : word;
fl : boolean;

begin
clrscr;
gettime(h,m,sc,ms);
RightCount := 0;
writeln(' Enter');
fl := true;
while true do
 begin
 writeln('klklk?');
 writeln('1 - klk');
 writeln('2 - klklk');
 writeln('3 - klklk');
 writeln('4 - klklk');
 while true do
 begin
  if keypressed then
    begin
    answer := readkey;
    if answer in ['1'..'4'] then break;
    end;
  gettime(h,m,sc2,ms);
  if sc2-sc<0 then sc2 := 60+sc2-sc
  else sc2 :=  sc2-sc;
  if sc2>=5 then
    begin
    fl := false;
    break;
    end;
  end;
 if not fl then break;
 if (answer = '1') then inc(RightCount);

 writeln('klkl');
 writeln('1 - klkl');
 writeln('2 - klkl');
 writeln('3 - klklk');
 writeln('4 - klkl');
 while true do
 begin
  if keypressed then
    begin
    answer := readkey;
    if answer in ['1'..'4'] then break;
    end;
  gettime(h,m,sc2,ms);
  if sc2-sc<0 then sc2 := 60+sc2-sc
  else sc2 :=  sc2-sc;
  if sc2>=5 then
    begin
    fl := false;
    break;
    end;
  end;
 if not fl then break;
 if (answer = '2') then inc(RightCount);

 break;
 end;
if not fl then writeln('Vremya vyshlo!')
else writeln('klklkl: ', RightCount);
readln;
end.