function Yx(x: extended): extended;
begin
if x <= 1 then Yx := x
else if x <= 2 then Yx := x*x
else Yx := 2 + x;
end;
Пример вызова: на форме TEdit и TButton, для кнопки обработчик OnClick:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
x, y: extended;
begin
if not TryStrToFloat(Edit1.Text, x) then begin
ShowMessage('Число введено неверно!');
Exit;
end;
y := Yx(x);
ShowMessage('y('+FloatToStr(x)+') = '+FloatToStr(y));
end;