SERGE_BLIZNUK
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ugansk Pasha
Цитата:| у меня тоже сегодня праздник Денюха |
с днём Рождения!!!
Цитата:| А в общем процесс пошел.... |
И ещё раз поздравляю!!!
и попробуйте такой код (писал прямо в броузере, поэтому возможны описки/ошибки...):
Код: for i:=1 to nq do begin
а что, вы собираетесь ВСЕ ВОПРОСЫ ВЫДАТЬ?! так они банально не поместяться на экране!
очищаем экран
ClrScr;
writeTextXY(10, 1, $1F, sQ[i]);
for j:=1 to na[i] do begin
str(j:3,s); {это мы номер ответа в строчку преобразовали! теперь в s - порядковый номер}
s:=s + '. ' + sA[i,j];
writeTextXY(36,5+j,$1E,s);
end;
writeTextXY(10,10,$1F,'Тут будет ввод правильного ответа: ....');
ReadLn(NumberAnswer);
end; |
akaGM
Цитата:| у меня сегодня праздник... |
Поздравляю!!!!!
а с чем, позвольте поинтересоваться? (если не секрет, конечно) ;-))))
|
просто у меня единственное не получается подстветить выбранный вариант 
