модель экзамена, исправление Опции

[Anastacia Adesso]

Нашла вот тут программу..
Почти то что нужно мне.. Но возможно ли как то её сделать под таким условием-
после 9 ученика (или перед 10) один (самй первый отвеченный) билет кладётся в стопку с неотвеченными.
И так всё время - входит 11, кладётся второй билет (который уже стал как бы первым неотмеченным).

Или программа зациклится на таком..
Да и ещё порядок учеников постоянный в этой проге..
А как их рандомизировать?
 BIL.PAS ( 449 байт ) Кол-во скачиваний: 350

[volvo]

Или программа зациклится на таком..

С чего бы это? Она еще и НЕ на таком не зациклится, если ее хорошо попросить

Ты про такой порядок?

[Anastacia Adesso]

volvo
Теоретически, да. Правда нужно было чтоб при Run Run эти буквы (имена студентов) тоже менялись.
Но это ладно.

Спасибо. Помог!!!

[volvo]

Randomize первой строкой программы, и будет тебе счастье... А отлаживать я предпочитаю на повторяющихся последовательностях (без Randomize)

[Anastacia Adesso]

Ага.. Я уже заметила и поставила..
И радуюсь жизни

ааааа подожди пожалуйста!!!!

А вот здесь для чего нужен exclude ?

     for skaits:=1 to 26 do begin
     repeat
      skol:=chr(ord('A')+random(26));
     until skol in eksamens;
     exclude(eksamens,skol);

[volvo]

Ну, студент же уже пришел в кабинет. Значит, его нужно вычеркнуть из списка тех, кто БУДЕТ сдавать экзамен, чтоб второй раз он же не заявился