Программа тестер, не могу придумать как сделать чтоб тест закончился(

Мне нужно чтобы из ini файла в случайном порядке читались вопросы, например 3 штуки 1 тест, сделала, чтоб было не по порядку, теперь не могу придумать условие окончание теста, крутит все по кругу)

Randomize;
if ResponseQuest = OtvetUserStr then
begin
Inc(IntQuestTrue);
end
else
begin
inc(IntQuestFalse);
end;

for k:=1 to 3 do
randomize;
IntnextQuest[i]:=Random(9)+1;
Memo1.Lines.Clear;
Quests:=TIniFile.Create(ExtractFilePath( Application.ExeName)+'Quests.ini');
Memo1.Lines.Add(Quests.ReadString('Quest '+IntToStr(IntnextQuest[i]), 'Quest', 'Тест окончен!'));
Memo1.Lines.Add(Quests.ReadString('Quest '+IntToStr(IntnextQuest[i]), 'A', ' '));
Memo1.Lines.Add(Quests.ReadString('Quest '+IntToStr(IntnextQuest[i]), 'B', ' '));
Memo1.Lines.Add(Quests.ReadString('Quest '+IntToStr(IntnextQuest[i]), 'C', ' '));
ResponseQuest:=(Quests.ReadInteger('Ques t'+IntToStr(IntnextQuest[i]), 'Otvet',0));


if (ВОТ СДЕСЬ ЧТО-ТО ДОЛЖНО БЫТЬ, ЧТОБЫ ПОСЛЕ 3Х ВОПРОСОВ ТЕСТИРОВАНИЕ ЗАКАНЧИВАЛОСЬ) then
ShowMessage('Тест окончен!'+#13+'Правильных ответов: '+IntToStr(IntQuestTrue)+#13+'Не правильных ответов: '+IntToStr(IntQuestFalse));
{ Start.Enabled:=true; }
IntQuestTrue:=0;
IntQuestFalse:=0;

end;

0

Хотя тут есть ошибки, но окончание теста можно сделать проверку:

0

Сообщение от Одиночка Хотя тут есть ошибки, но окончание теста можно сделать проверку: Delphi 1 If (IntQuestTrue+IntQuestFalse)=3 Then

Я пробывала, почему-то не вышло,, попробую еще раз, но хз что ваще делать((( Через пару дней надо сдать дипломную О_о

0

Не вижу здесь зацикливания. Как вообще вызывается этот код? Предположу, что это клик какой-то кнопкой, которая меняет на следующий вопрос.
В таком случае, почему вы в конце этого кода обнуляете переменные, подсчитывающие количество правильных и неправильных ответов? Наверное там нужно написать:
И какой смысл делать 3 раза?
Если хотите, чтобы вопросы не повторялись создайте множество. Сначала очистить его. Потом каждый раз заносить номер вопроса, который выдаётся. А при поиске проверять, если вопрос уже есть в множестве - повторять Random.

1

Сообщение от Одиночка Не вижу здесь зацикливания. Как вообще вызывается этот код? Предположу, что это клик какой-то кнопкой, которая меняет на следующий вопрос. В таком случае, почему вы в конце этого кода обнуляете переменные, подсчитывающие количество правильных и неправильных ответов? Наверное там нужно написать: Delphi 1 2 3 4 5 6 7 if If (IntQuestTrue+IntQuestFalse)=3 then Begin    ShowMessage('Тест окончен!'+#13+'Правильных ответов: '+IntToStr(IntQuestTrue)+#13+'Не правильных   ответов: '+IntToStr(IntQuestFalse));   { Start.Enabled:=true; }   IntQuestTrue:=0;   IntQuestFalse:=0; End; И какой смысл делать 3 раза? Delphi 1 2 for k:=1 to 3 do  randomize; Если хотите, чтобы вопросы не повторялись создайте множество. Сначала очистить его. Потом каждый раз заносить номер вопроса, который выдаётся. А при поиске проверять, если вопрос уже есть в множестве - повторять Random.

Не знаю каким чудом, но у меня все получилось!))) Спасибо всем за помощь)

0