Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ модель экзамена

Автор: Anastacia Adesso 13.11.2006 15:58

Нашла http://forum.pascal.net.ru/index.php?showtopic=13573 программу..
Почти то что нужно мне.. Но возможно ли как то её сделать под таким условием-
после 9 ученика (или перед 10) один (самй первый отвеченный) билет кладётся в стопку с неотвеченными.
И так всё время - входит 11, кладётся второй билет (который уже стал как бы первым неотмеченным).

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

Автор: volvo 13.11.2006 16:19

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

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


Прикрепленные файлы
Прикрепленный файл  __examen.pas ( 1.01 килобайт ) Кол-во скачиваний: 228

Автор: Anastacia Adesso 13.11.2006 16:30

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

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

Автор: volvo 13.11.2006 16:38

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

Автор: Anastacia Adesso 13.11.2006 16:45

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

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

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

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

Автор: volvo 13.11.2006 17:15

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