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

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

Форум «Всё о Паскале» _ Задачи _ Тест

Автор: Granit 10.11.2006 21:45

надо чтобы ответы менялись местами, всего три варианта ответа.. я делаю так:

RANDOMIZE;
readln(f,st);
j:=random(2)+1;
for i:=1 to 3 do
readln(f,b[i]);
tmp:=b[1];b[1]:=b[j];b[j]:=tmp;
writeln(st);
for i:=1 to 3 do
writeln(' ',i,'. ',b[i]);
write('Введите номер ответа: ');
readln(answer);
if answer=j then inc(s);

проблема в том что меняются местами только 1 и 2 ответы, 3 всегда остается неизменным... в файле вопросы и ответы, расположены так (первый ответ всегда правильный):
  ВОПРОС№1
первый ответ
второй ответ
третий ответ
ВОПРОС№2
первый ответ
второй ответ
третий ответ


и т.д.

Автор: Malice 10.11.2006 21:51

Ну так поставь "j:=random(3)+1;" smile.gif

Автор: Granit 10.11.2006 22:04

Цитата(Malice @ 10.11.2006 17:51) *

Ну так поставь "j:=random(3)+1;" smile.gif


просто я думал, если будет рандом = 3 и ещё + 1, тогда вообще не будет правильного ответа...
а так все работает ! smile.gif
спасибо!

ЗЫ.тему можно закрывать.