Создание модуля - расчет оценки

[Matrix6993]

Добрый вечер! У меня тут одна проблемка образовался, помогите пожалуйста с решением! Вот форму я создал а как это все запрограммировать я не знаю! Модуль должен расчитывать оценку, критерии оценки вводит сам пользователь, кол-во вопросов и правильных ответов тоже вводит пользователь!

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

Пишите, контакт в подписи.
Помогу чем смогу. Естественно не бесплатно, судя по:

Вот форму я создал а как это все запрограммировать я не знаю!

[Matrix6993]

У меня есть код программы, но есть в нем какая то ошибка которую я понять не могу.
Код.

procedure TForm1.Button2Click(Sender: TObject);
var a,b,x,y,z,c,i,n,v:integer;
begin
 a:=StrToInt(Edit1.Text);   //кол-во вопросов
 b:=StrToInt(Edit2.Text);   //кол-во правильных
 x:=StrToInt(Edit3.Text);   //на 5 от
 y:=StrToInt(Edit4.Text);   //на 5 до
 z:=StrToInt(Edit5.Text);   //на 4 от
 c:=StrToInt(Edit6.Text);   //на 4 до
 i:=StrToInt(Edit5.Text);   //на 3 от
 n:=StrToInt(Edit6.Text);   //на 3 до
if (b>a) then exit;         //кол-во вопросов не может быть больше кол-ва правильных ответов
v:=100;
case Round(b/a*v) of
 x..y:label6.caption:=('5');
 z..c:label6.caption:=('4');
 i..n:label6.caption:=('3');
 else label6.caption:=('2');
end;
Button1.Visible:=true;
Button2.Visible:=false;
end;

end.

ТО что я выделил, это места где обнаружены ошибки. Сама ошибка такова: "Constant expression expected".
Помогите пожалуйста разобраться и исправить эти ошибки.
Заранее спасибО!

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

переведите ошибку и все поймете.

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

case Round(b/a*v) of //Определите при помощи скобок, что должно произойти первым: умножение а затем деление или деление и умножение. это играет роль.
x..y:label6.caption:=('5');
z..c:label6.caption:=('4');
i..n:label6.caption:=('3');
 end else label6.caption:=('2');

[Matrix6993]

ошибку то я перевел(Постоянное выражение ожидается), но всеровно не понятно!


Ошибка то не в скобках, там норм все, ошибка в переменныХ!

[Serge_Bliznykov]

не проверял, но, судя по ошибке case НЕ ПОЗВОЛЯЕТ использовать переменные

пишите "в лоб", через операторы сравнения:
примерно так:

xxx := Round(b/a*v);
if (xxx>=x) and (xxx<=y) then label6.caption:=('5')
else 
  if (xxx>=z) and (xxx<=c) then label6.caption:=('4')
  else 
    if (xxx>=i) and (xxx<=n) then label6.caption:=('3')
    else label6.caption:=('2');

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

Serge_Bliznykov, о_О

var
 ky:Integer;
begin
ky:=Round(a/b*c);
case ky of
,,,,,
end else
  ,,,,
end;

Ес опеРаторами сравнения, то куда in дели?

If ky in [x..y] then
    .... 
   else
      If ky in [x..c] then
        ....
       else
        If ky in [i..n] then
          ...
         else
           .....

[Serge_Bliznykov]

var
 ky:Integer;
begin
ky:=Round(a/b*c);
case ky of
,,,,,
end else
  ,,,,
end;

А проверить?!
Это НЕ РАБОТАЕТ!
Автор темы же сказал - переменные НЕ ДОПУСКАЮТСЯ:
Это некомпилируемый код:

case ky of
  x..y: label6.caption:='5'
end;

Ес опеРаторами сравнения, то куда in дели?

ну, в данном случае (целые числа) вполне можно использовать (хотя я и не вижу сильного отличия от операции сравнения), но, возможно, так и элегантнее.

НО, дело в том, что если ВДРУГ автор темы решит, что ему нужны вещественные числа для границ интервалов - то вариант с IN перестанет работать, а вариант с if > < - не перестанет. на мой взгляд, это вариант гибче.
А ещё лучше - я бы сформировал массив с граничными значениями отметки
и в цикле проверял по нему. Это намного гибче и защищённей (нельзя ввести пересекающиеся интервалы, оставить какой-то интервал "непокрытым" - тогда бал, из этого интервала принесёт двойку, хотя этот бал может быть больше чем балы на 4-ку, например.. и т.д.

Ну а выбирать автору темы, конечно.

[Matrix6993]

Спасибо огромное за помощь ребят, вариант Serge_Bliznykov подошел больше, спасибо вам отдельное!