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

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

case of не может приниимать значени из результата функции на прямую..

var
  x:Integer;
begin
 x:=Round(a/b);
case x of

[Matrix6993]

всеровно тут какая то ошибка x:=Round(a/b);

[Matrix6993]

x:=Round(a/b); <---тут курсор, и вот такая вот ошибка
[Error] Unit1.pas(39): Operator not applicable to this operand type

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

case of не может приниимать значени из результата функции на прямую..

это с какой стати?

ТС, a и b должны быть числами, а из InputBox переводите через StrToInt.

procedure TForm1.Button1Click(Sender: TObject);
var a,b:Integer;
begin
 a:=StrToInt(Edit1.Text);
 b:=StrToInt(Edit2.Text);
 if (b>a)
  then exit;//ну не может быть правильных ответов больше чем вопросов
 case Round(b/a*100) of
  80..100: ShowMessage('5');
  60..79:ShowMessage('4');
  40..59:ShowMessage('3')
  else ShowMessage('2');
 end;
end;

код компилируемый и рабочий, правда я тогда ошибся в одном.(умножение не добавил)

[Matrix6993]

спасибо большое все получилось!))

[Matrix6993]

Есть еще 1 вопрос по этому же модулю. нужно сделать так чтобы критерии оценки задал не сам разработчик программы, а сам пользователь их ввел.
код на данный момент такой как на верхнем сообщении!
вот сама форма как выглядит:

[Matrix6993]

нечаянно 2 раза форму вставил, простите!