Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Результаты опроса: 656565
в 4 66.67%
ввв 3 50.00%
Опрос с выбором нескольких Голосовавшие: 6. Вы еще не голосовали в этом опросе

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 23.01.2014, 10:10
slavnayaalb slavnayaalb вне форума
Прохожий
 
Регистрация: 23.01.2014
Сообщения: 4
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Перевод в процентное соотношение

Здравствуйте, помогите пожалуйста.
Я не могу перевести в программе баллы за тест в проценты.
Помогите пожалуйста!
Ответить с цитированием
  #2  
Старый 23.01.2014, 10:57
Аватар для Mrak
Mrak Mrak вне форума
Местный
 
Регистрация: 26.01.2013
Адрес: МО
Сообщения: 438
Версия Delphi: XE2
Репутация: 17
По умолчанию

уважаемая, это не форум телепатов. опишите подробнее.
а как взять процент от числа вам скажет любой школьник
__________________
Я за здоровый экстрим!
Спасибо за "спасибо")
Ответить с цитированием
  #3  
Старый 23.01.2014, 11:14
slavnayaalb slavnayaalb вне форума
Прохожий
 
Регистрация: 23.01.2014
Сообщения: 4
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Я создала тест, он выводит результат в виде количества верных ответов. Мне нужно, чтобы результат выводился в процентах.
Помогите, пожалуйста.
Ответить с цитированием
  #4  
Старый 23.01.2014, 11:17
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
Радость

Ь - количество вопросов
Ъ - количество верных ответов
% = (Ъ/Ь)*100
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #5  
Старый 23.01.2014, 11:31
slavnayaalb slavnayaalb вне форума
Прохожий
 
Регистрация: 23.01.2014
Сообщения: 4
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Код:
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  
Старый 23.01.2014, 11:33
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
Смех

вместо переменных Ь и Ъ подставь свои
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #7  
Старый 23.01.2014, 11:39
slavnayaalb slavnayaalb вне форума
Прохожий
 
Регистрация: 23.01.2014
Сообщения: 4
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Спасибо...
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 11:15.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter