Модуль - расчета оценки

[Matrix6993]

Ребят помогите пожалуйста с программой! Нужно разработать модуль расчета оценки (вычисление и вывод оценки на экран).
Алгоритм: При запуске программы выводиться a:= InputBox 'Введите количество вопросов' - ввели; Далее тут же выводиться b:InputBox 'Введите количество правильных ответов'; а:=100% (так как общее количество вопросов и = 100 процентам); высчитываем процент правильных ответов и выводим оценку в Label (процентное соотношение: от 100-80% правильных ответов = оценка 5, от 79-60 = 4, от 59-40 = 3, менее 40 = 2)
Спасибо заранее!

[Человек_Борща]

а результаты тестирования, которые исп. при расчете % правильности, из воздуха берутся?

[Matrix6993]

Сообщение от Человек_Борща

а результаты тестирования, которые исп. при расчете % правильности, из воздуха берутся?

При запуске программы выводиться a:= InputBox 'Введите количество вопросов' - ввели; Далее тут же выводиться b:InputBox 'Введите количество правильных ответов'; (эта прога без теста,мне нужен только такой модуль, тут 1 форма, а вместо теста вводиться кол-во вопросов и кол-во правильных ответов в инпут боксы при запуске)

[Matrix6993]

Можете конечно предложить свой вариант программы

[Человек_Борща]

Процент правильности ответа на вопрос, определяется выбранным вариантом ответа на него.

10 правильных вопросов - 100%

10 делим на 100 получаем, сколько приходится процентов на каждый ответ, далее от полученного коффициента отнимает множитель правильного ответа, и полученное делим на кол-во ответов. Далее к правильному ответу прибовляем ранее вычтенный множитель.

При составлении результата теста суммируем выбранные коэффциенты ответов и множим на 100 получаем процент правильности теста.


P.S. 50% овета на вопрос, содержится в самом вопросе.| Каков вопрос, таков ответ. © кто-то с этого форума

[Пепел Феникса]

if (b>a) then exit;//ну не может быть правильных ответов больше чем вопросов
case Round(b/a) of
 80..100: ShowMessage('5');
 60..79:ShowMessage('4');
 40..59:ShowMessage('3')
 else ShowMessage('2');
end;

так чтоль?

[Matrix6993]

хорошо пусть будет так! только помогите пожалуйста! мне очень нужна эта программа!

[Пепел Феникса]

только помогите пожалуйста! мне очень нужна эта программа!

пример кода я вам дал, ввод данных и переделку под себя уж сами сделайте.

[Matrix6993]

Спасибо большое !
Но он почему то выдает ошибку здесь
case Round(b/a) of

[Matrix6993]

короче похоже тут что то с типами напутано вот он и не может разобраться, да и я что тоже не могу! Может посмотрите, вот исходник

Код.
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
a,b:string;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
a:=InputBox('Введите количество вопросов','');
label4.caption:=(a);
b:=InputBox('Введите кол-во правильных ответов','');
label5.caption:=(b);
if (b>a) then exit;
case Round(b/a) of
80..100:ShowMessage('5');
60..79:ShowMessage('4');
40..59:ShowMessage('3')
else ShowMessage('2');
end;
end;

end.