Тестирование в Turbo Pascale

[Irenna]

Необходимо составить тест,который будет подсчитывать количество балов и оценивать(т.е. на первой странице должно быть написано тест,на тему:…,а также строка,в каторой можно писать любое Ф.И.О., после заполнения строки Ф.И.О.,должна появится друга страница на которой будет тест с выбором ответа,позволяющий выбрать курсором ответ
(тест:1.Sпрямоугольника=:а)а*b; b)а/b; с)2*а*b. 2.Sквадрата=:а)2*а; b)4*а; с)а*а; 3.Sкруга=:а) P*R*R;b) P/R;c)P*R),после прохождения теста на третей странице должно выводится вы не прошли тест,или прошли тест и набрали 2б-средний ур.,а на последней стр.должно выводится предложение не хотите ли вы еще раз пройти тест(да,нет))(можн исп. Граф. режим).

[Хыиуду]

1. Устное предупреждение за неинформативное название темы.
2. Создаем массив вопросов и массив номеров правильных ответов. В цикле проходим по всем вопросам, выводим очередной вопрос на экран, считываем номер ответа пользователя, если номер совпадает с номером правильного ответа - даем 1 балл, после окончания всех вопросов подсчитываем количество баллов. Про "выбрать курсором" забудьте навсегда.
3. Что непонятно?

[Irenna]

немогу понять, как 4тоб ч/з несколько сек. появилась др. стр. с тестом))))

[BHy4ok]

немогу понять, как 4тоб ч/з несколько сек. появилась др. стр. с тестом))))

[syntax='Pascal']
sleep(1000);
[/syntax]

[Irenna]

Я не пойму,как нужно правильно составить тест с вариантами ответов,так чтоб после ответов на вопросы програма могла подсчитывать правильное количество ответов и оценить их.

[Хыиуду]

Смотрите мое предыдущее сообщение
Примерно так

Код: Выделить всё

const questions:array[1..3] of string=['Sпрямоугольника=:а)а*b; b)а/b; с)2*а*b', 'Sквадрата=:а)2*а; b)4*а; с)а*а', 'Sкруга=:а) P*R*R;b) P/R;c)P*R'];
const answers:array[1..3] of char=['a','c','a'];
...........
for i:=1 to 3 do
begin
  writeln(questions[i]);
  readln(c);
  if c=answers[i] then inc(balls);
end;

Предупреждая следующий вопрос: нет, целиком код не напишу

[Irenna]

Пасиб)))))))inс -это значит общий??????))))))))))))

[BHy4ok]

Пасиб)))))))inс -это значит общий??????))))))))))))

inc(i) Это тоже самое, что и -- i:=i+1;
Вам для начала не помешало бы почитать основы.

[QuadroX]

За небольшое вознаграждение дам полный код программы с комментариями.

ICQ: 323787261.