Как быть с boolean? (программа в Delphi)

[2Nboy]

Требуется вычислить значения функции применяя оператор CASE

y= (x^2)-3.2 если x<5
y= sqrt(x-2) если x>8
y=0.5 d в остальных случаях.

Написал я программу

var
Form1: TForm1;
y:Extended;
o:Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
o:=StrToInt(Edit1.Text);
case o of
1,2,3,4: y:=o*o-3.2;
5,6,7,8: y:=Sqrt(o-2);
else y:=0,5;
end;
Label3.Caption:='ó='+FloatToStr(y);
end;
end.
Но она не понимает отрицательных чисел на вводе. Препод сказал нужно применить ещё одну переменную b: boolean!
Подскажите пожалуйста как переписать код!

[t2skler]

Сообщение от 2Nboy

Требуется вычислить значения функции применяя оператор CASE

y= (x^2)-3.2 если x<5
y= sqrt(x-2) если x>8
y=0.5 d в остальных случаях.

Написал я программу

var
Form1: TForm1;
y:Extended;
o:Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
o:=StrToInt(Edit1.Text);
case o of
1,2,3,4: y:=o*o-3.2;
5,6,7,8: y:=Sqrt(o-2);
else y:=0,5;
end;
Label3.Caption:='ó='+FloatToStr(y);
end;
end.
Но она не понимает отрицательных чисел на вводе. Препод сказал нужно применить ещё одну переменную b: boolean!
Подскажите пожалуйста как переписать код!

Понимает и присваивает значение y 0.5. Только небольшая ошибка в присваивании.

procedure TForm1.Button1Click(Sender: TObject);
begin
  o := StrToInt(Edit1.Text);
  case o of
    1..4:
      y := o * o - 3.2;
    5..8:
      y := Sqrt(o - 2);
  else
    y := 0.5;
  end;
  Label3.Caption := 'o=' + FloatToStr(y);
end;

[2Nboy]

Нет.
Вот правильный код:
var
Form1: TForm1;
y:Extended;
o:Integer;
b:boolean;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

o:=StrToInt(Edit1.Text);
b:=o<5;
case b of
true: y:=o*o-3.2;
false: y:= 0.5;
end;
begin
b:=o>8;
case b of
true: y:=Sqrt(o-2);

end;

[veniside]

Вот правильный код:

case b of
true: y:=o*o-3.2;
false: y:= 0.5;
end;

спрячьте этот ужос подальше и никому не показывайте )

case b of
true: y:=Sqrt(o-2);
end;

а это вполне достойное пополнение коллецкии шЫдевров форума )