Создание программы-теста в паскале.

[storm16112]

Доброго времени суток.Стоит задача:написать программу,которая работает как тест по информатике.При запуске должно появляться окно,в котором стоит вопрос и 4 варианта ответов.Внизу должны находиться 4 кнопки(варианта ответов:а,б,в,г).По нажатию на определенную кнопку(с правильным ответом) должно появляться сообщение о том,что был дан верный ответ,после должен появляться другой вопрос.Всего подобных вопросов должно быть минимум 10.
Если кому не составит труда,прошу помощи с написанием самой программы или хотя бы объяснить принцип работы алгоритма,отвечающего за то,чтобы появлялся сдедущий вопрос при правильном нажатие.
P.S.Также буду рад и самой программе с исходником.
P.S.S.Можно также предложить вариант решения на делфи.

[Vanta11a]

Все же на Pascal`e, т.е. в консоли, или Delphi потянет?

В чем проблема то? С выводом вопроса на экран?

[storm16112]

Сообщение от Vanta11a

Все же на Pascal`e, т.е. в консоли, или Delphi потянет?

В чем проблема то? С выводом вопроса на экран?

Можно,даже нужно в делфи,изначально неправильно выразился.

[Vanta11a]

У меня есть тест на Delphi, грузящий базу вопросов, выбирающий 30 из них и собирающий ответы. Переход возможен, правда на любой вопрос, но не суть.

Покажите свои наработки, чтоль. Ну хоть скриншот интерфейса теста как Вы его видите. Потом уже будет понятно, чем Вам помогать.

Как вариант - можете заплатить денежку, чтобы Вам тест написали.

[storm16112]

Сам интерфейс по сути значения не имеет,он просто должен состоять из 2 частей:1)вопросы и варианты ответов,2)4 кнопки,с помощью которых стоит отвечать.
Хотя я был бы не против,если бы мне подкинули исходники подобно,даже без графического интерфейса(консольный вариант),чтобы я ознакомился.

[Vanta11a]

Ну вот интерфейс. Кнопки через RadioButtonGroup реализованы. Переход на вопросы - через PushButton`ы.
Внутри крутится массив, в который сохраняются ответы.
После окончания теста массив полученных ответов сравнивается с эталонным, после чего вывод результата.

[storm16112]

Часть кода,которая отвечает за 1 и 2 страницы не могли бы сбросить,я немного переработаю?(даже сам алгоритм,позволяющий сделать данного вида программу)

[Vanta11a]

Какие 2 страницы? Вы о чем? Тут одна единственная форма.
Алгоритм:
1) Считать из базы все вопросы (в общий массив)
2) Выбрать N случайных (в новый массив)
3) Перемешать выбранные вопросы (в новом массиве)
4) Запустить тест с первого вопроса (новый_массив[1])

Вывод вопроса:
1) Определить номер нужного вопроса (исходя из имени PushButton`a в моем случае)
2) Очистить на форме элементы вывода
3) Вывести вопрос и варианты ответов, с учетом проверки массива ответов (отвечали на этот вопрос или нет, если отвечали - выделить ранее выбранный ответ)

Нажатие на кнопку с номером вопроса:
1) Сохранить в массив полученных ответов выбранный для предыдущего вопроса ответ
2) Вызвать функцию вывода вопроса

Нажатие кнопки окончания теста:
1) Сравнить массив введенных ответов с эталонными ответами

Все. Вперед, на баррикады.

p.s. в качестве спонсорской помощи код выборки 30 вопросов из N:

procedure FormQuestions();
var iterator,temp_int : integer;
    tmp_array : array [1..30] of integer;
    number_array : array of integer;
    tmp_len,tmp_index1,tmp_index2,tmp_item : integer;
begin
  SetLength(number_array,Length(allQuestionsArray));
  for iterator := 0 to Length(allQuestionsArray) do
    number_array[iterator] := iterator;
  tmp_len := Length(number_array);
  for iterator := 0 to 1000 do
  begin
    tmp_index1 := random(tmp_len);
    tmp_index2 := random(tmp_len);
    tmp_item := number_array[tmp_index1];
    number_array[tmp_index1] := number_array[tmp_index2];
    number_array[tmp_index2] := tmp_item;
  end;
  for iterator := 1 to 30 do
  begin
    questionsArray[iterator] := allQuestionsArray[number_array[iterator - 1]];
  end;
end;

Весь исходник стоит 500 рублей.

[storm16112]

Спасибо за помощь