delphi алгоритм развлетвляющей структуры

[world12_tk]

Здраствуйте уважаемые форумчанины.... У меня тут возник маленький вопрос.... spamer помог мне в исправлении ошибка на проверку четности переменной i. Когда я начал писать отчет я увидел, что переменная i может быть любым числом, точнее вещественным... Тогда mod не работает... не поможете исправить?
вот код примера:

procedure TForm1.Button1Click(Sender: TObject);
var
 x,i,temp : Integer;
 fun,ma:Extended;
begin
  i:=StrToInt(Edit1.Text);
  Memo1.Lines.Add(' i='+Edit1.Text);
  x:=StrToInt(Edit2.Text);
  Memo1.Lines.Add(' x='+Edit2.Text);
  case RadioGroup1.ItemIndex of
    0: fun:=(Exp(x)-Exp(-x))/2;
    1: fun:=sqr(x);
    2: fun:=Exp(x);
  end;
  temp := i mod 2;
  if (temp=0) and (x>0) then
    ma:=i*sqrt(fun)
  else
    if (temp<>0) and (x<0) then
      ma:=i/2*sqrt(abs(fun))
    else
      ma:=sqrt(abs(i*fun));
  Memo1.Lines.Add(' maxabs='+FloatToStrF(ma,ffFixed,8,3))
end;

Заранее спасибо

[Serge_Bliznykov]

world12_tk, не занимайтесь ерундой и не болтайте глупости.
вот, например, с википедии:

Сообщение от Википедия

Чётность в теории чисел — способность целого числа делиться без остатка на 2.

поясняю - понятия чётный и нечётный в математике определены ТОЛЬКО ДЛЯ ЦЕЛЫХ ЧИСЕЛ.
всё остальное - от лукавого... можно, конечно, придумать, что если последняя ЦИФРА числа делится на два, то число чётное, но это будет самодеятельность. На месте преподавателя я только бы только за это на пару баллов оценку снизил...