[dimi_87]

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

смысл теста: есть 100(к примеру) вопросов которые записаны в файле(в данном случае файле баз данных). Следом за вопросом зписаны и варианты ответов. А затем цифра правильного ответа.
Фрагмент этого файла:
"Вопр_ОЭ/1 Какая сталь обыкновенного качества относится к кипящей?
1. Сталь не полностью раскисленная марганцем при выплавке, и содержащая не более 0,05% кремния.
2. Содержащая кремния от 0,05 до 0,17%.
3. Содержащая более 10 мл. водорода на 100 г. металла.
end of question
1
end"
и так далее. Сам тест считывает из этого файла в случайном порядке 20 вопросов. В конце выводится результат : "Вы набрали 20 балов из 20" и этот результат записывается в файл. Сейчас внимание!!кульминация!!)
Нужно чтоб этот результат выводился не просто как сколько правильных ответов, а по следующей схеме: номер Вопроса - верно или не верно, и написан общий процент правильных ответов.
Очень Нужно!!! Помогите!! Если сделаете все красиво финансово отблагадорю.

[lmikle]

Да сам справишься.
Смотри куда считываются эти 20 вопросов.
Сделай там поле для хранения того правильно ли ответили. При ответе на вопрос заноси туда значение.
в месте, где выводится результат бежишь циклом по массиву/списку и выводишь результат в файл, заодно считая процент.
Все.

[dimi_87]

спасибо дружище. но боюсь не поднять мне этого. я вообще учусь на кафедре сварочного производства) в школе изучал паскаль. делфи как то давно баловался(по книжке). вот на кафедре попросили тест сделать.
нашел исходник в инете. сделал что смог под себя. а дальше встал....

[dimi_87]

да кстати....dimkaant@yandex.ru это мыло на всякий случай.

[lmikle]

Блин, форум ответ сожрал, скотина...
щаз повторю.

[lmikle]

Добавления помечены знаками // !!!

Массив для хранения инфы

Код:

1 2 3 4 5 6 7 8 9 10 11

private { Private declarations }   vse_voprosy:array[1..max_voprosov]of tvse_voprosy;   ispol_voprosy:array[1..voprosov_v_teste] of integer;     RightAnswers : Array [1..voprosov_v_teste] of Boolean; //!!!     schitano_voprosov:integer;   tek_vopros,nomer:integer;   file_s_voprosami:text;   otvety_na_voprosy:array[1..voprosov_v_teste] of boolean;

Вывод результата:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46

procedure tform1.zapis_v_data_base;     function BoolToStr(AValue : Boolean) : String;   begin     If AValue Then Result := 'правильный' Else Result := 'неправильный';   end;   var   file_db:textfile;   I : Integer;   C : Integer; begin  if fileexists(put_k_data_base+rasshirenie_file_data_base) then   begin    assignfile(file_db,put_k_data_base+rasshirenie_file_data_base);    append(file_db);   end   else    begin     assignfile(file_db,put_k_data_base+rasshirenie_file_data_base);     rewrite(file_db);    end;      writeln(file_db,'Имя '+student.name);  writeln(file_db,'Фамилия '+student.familiya);  writeln(file_db,'Организация '+student.group);  writeln(file_db,'Дата '+datetostr(date));  writeln(file_db,'Время '+timetostr(time));  writeln(file_db,'Результат '+student.resultat);  writeln(file_db,'        ');    writeln(file_db,'Расшифровка результата:');  C := 0;  For I := 1 To voprosov_v_teste Do   Begin     writeln(file_db,'Вопрос № ' + IntToStr(I) + ' - Ответ ' + BoolToStr(RightAnswers[i]));     If RightAnswers[i] Then Inc(C);   End;  writeln(file_db,'Всего '+IntToStr(Round(100*C/voprosov_v_teste))+'% правильных ответов');  writeln(file_db,'        ');     { flush(file_db);}  closefile(file_db); end;

Заполнение массива:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45

procedure TForm1.OtvetgotovClick(Sender: TObject); var i:integer; begin    for i:=1 to max_otvetov-1 do   begin    //n 200    if otvet.Text=vse_voprosy[nomer].otvety[i] then      begin    //n 201         RightAnswers[tek_vopros] := True; // !!!       messagedlg('Ответ правильный',mtconfirmation,[mbok],0);       otvety_na_voprosy[tek_vopros]:=true;       tek_vopros:=tek_vopros+1;         otvet.SetFocus;       if tek_vopros=voprosov_v_teste+1 then   begin  //n 202    messagedlg('Вы закончили тест по предмету ОС ваша оценка '+inttostr(form1.resultat),mtconfirmation,[mbok],0);    student.resultat:=inttostr(form1.resultat);    form1.zapis_v_data_base;    close;   end;  //k 202   form1.vivod_voprosa;       exit;      end;   // k 201   end;    // k 200  if not(otvety_na_voprosy[tek_vopros]) then   begin   //n 203    messagedlg('Ответ неправильный',mtconfirmation,[mbok],0);    RightAnswers[tek_vopros] := False; // !!!    otvety_na_voprosy[tek_vopros]:=false;    tek_vopros:=tek_vopros+1;      if tek_vopros=voprosov_v_teste+1 then   begin    //n 204    messagedlg('Вы закончили тест по предмету ОС ваша оценка '+inttostr(form1.resultat),mtconfirmation,[mbok],0);     student.resultat:=inttostr(form1.resultat);     form1.zapis_v_data_base;     close;   end;     // k 204   form1.vivod_voprosa;   end;     // k 203    otvet.SetFocus; end;

[lmikle]

Собственно, я бы сделал покрасивее, не на массивах, а на списках.
Точнее, редактор вопросов у меня давно сделан, но все никак не сделаю саму тестилку. По задумке поддерживается любое кол-во вопросов с любым кол-вом ответов, причем могут быть вопросы как с одним правильным ответом, так и с несколькими.

[dimi_87]

сПАсибо большое!!! щас попробую!!! как сделаю отпишусь

[lmikle]

Ну, вообще-то, я проверил. Работает. Ты только в правльных местах вставь.

И эт-та... правильные вопросы перемешай

[dimi_87]

Блин....ну ты красавчик!!!!!!!! работает!!
ты уж извиняй....у меня последний к тебе вопрос...что нужно прописать чтоб вот этот вот результат выводился на экран по окончанию тетса...

[lmikle]

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

Блин....ну ты красавчик!!!!!!!! работает!!
ты уж извиняй....у меня последний к тебе вопрос...что нужно прописать чтоб вот этот вот результат выводился на экран по окончанию тетса...

Мэ-э-э... в процке вывода результата в файл собери все в одну строку, а потом его ShowMessage или MessageDlg. Или сбор повтори там, где у тебя выводится сообщение о конце теста.

Собирать можно через #13#10 - это перевод строки.

[dimi_87]

даааа......ладно щас попробую.....

[dimi_87]

не получается....ошибку выдает..может я не то делаю..

[lmikle]

Скорее всего.
Ты где хочешь вывести это сообщение?

[dimi_87]

там же где он говорит что тест закончен вы набрали столько то ответов