помогите с конструктором тестов, нужна помощь Опции

[glebik]

нужна прога - конструктор тестов на pascal
в ней используются разные типы вопросов,программа создаёт и проводит тест . помогите пожалуйста ,если есть готовая прога или наработки.

Сообщение отредактировано: glebik - 11.02.2007 14:13

[Алена]

Смотри, что надо сделать: в функции get_answer есть вложенная процедура print_options, которая отвечает за вывод вариантов ответа... Так вот. Эту процедуру немного переделываем:

  procedure print_options(b: boolean; var new_ans: integer);
  var
    i, k, X: integer;
    values: set of 1 .. max_answers;
    shuffle: array[1 .. max_answers] of integer;
  begin
    // Добавляем перемешивание - shuffling
    if b then begin
      values := [];
      for i := 1 to max_answers do begin
        repeat
          X := random(max_answers) + 1;
        until not (X in values);
        Include(values, X);
        shuffle[i] := X;
      end;

      // и возвращаем новый правильный ответ
      new_ans := shuffle[R.good_ans2];
    end;

    // ну, а здесь - распечатываем варианты ответа (в зависимости от B,
    // или перемешанные, или нет)
    for i := 1 to R.ans_count do begin
      if b then k := shuffle[i] else k := i;
      write(i:2, ') ', R.answers[k] + ' ');
    end;
  end;

Но этого недостаточно. Теперь надо еще переделать все вызовы print_options на вот такие:

во всех местах Case, кроме ans_2 перемешивать варианты не надо, поэтому вызываешь так:

print_options(false, new_ans);

а в случае ans_2, там где перемешать-таки надо, делаешь:

    ans2:
      begin
        print_options(true, new_ans);
        writeln;
        write('your choice: '); readln(choice);

        // вот тут теперь сравнивается не с R.good_ans2, а с new_ans
        get_answer := (choice = new_ans); 
      end;

(new_ans - новая переменная, типа Integer)