[tim537]

Составить функцию обчисления:

[PhoeniX]

Код:

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;