|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
Результаты опроса: 656565 | |||
в | 4 | 66.67% | |
ввв | 3 | 50.00% | |
Опрос с выбором нескольких Голосовавшие: 6. Вы еще не голосовали в этом опросе |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Перевод в процентное соотношение
Здравствуйте, помогите пожалуйста.
Я не могу перевести в программе баллы за тест в проценты. Помогите пожалуйста! |
#2
|
||||
|
||||
уважаемая, это не форум телепатов. опишите подробнее.
а как взять процент от числа вам скажет любой школьник Я за здоровый экстрим! Спасибо за "спасибо") |
#3
|
|||
|
|||
Я создала тест, он выводит результат в виде количества верных ответов. Мне нужно, чтобы результат выводился в процентах.
Помогите, пожалуйста. |
#4
|
||||
|
||||
Ь - количество вопросов
Ъ - количество верных ответов % = (Ъ/Ь)*100 Пишу программы за еду. __________________ |
#5
|
|||
|
|||
Код:
procedure TForm1.OtvetgotovClick(Sender: TObject); var s:string; begin if radiogroup1.ItemIndex =-1 then begin showmessage('Ничего не выбрано'); exit; end; s:=radiogroup1.Items.Strings[radiogroup1.ItemIndex]; // for i:=1 to max_otvetov-1 do // begin //n 200 // if otvet.Text=vse_voprosy[nomer].otvety[i] then if s=vse_voprosy[nomer].otvet then begin //n 201 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 s:=((vse_voprosy/tek_vopros)*100); messagedlg('Вы закончили тест по предмету ОС ваша оценка '+inttostr(form1.resultat),mtconfirmation,[mbok],0); student.resultat:=inttostr(form1.resultat); form1.zapis_v_data_base; image1.Destroy; 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); otvety_na_voprosy[tek_vopros]:=false; tek_vopros:=tek_vopros+1; Последний раз редактировалось M.A.D.M.A.N., 23.01.2014 в 14:42. |
#6
|
||||
|
||||
вместо переменных Ь и Ъ подставь свои
Пишу программы за еду. __________________ |
#7
|
|||
|
|||
Спасибо...
|