[lmikle]

Ну, сама функция как-то так:

Код:

function F(A : Integer; X : Double) : Double;
begin
  Case A Of
    -1 : Result := (X*X*X-A)/10
    2 : Result := sqr(cos(X)) + A;
    5 : Result := sqrt(x+A);
    Else Raise Exception.CreateFmt('Значение A=%d не поддерживается.',[A]);
  End;
end;

Ну и использование как-то так:

Код:

var
  x, v : Double;
begin
  A := StrToInt(Edit1.Text);
  x := -3;
  while x <= 3 Do
    begin
      v := F(A,x); // ну далее v хочешь в массив, хочешь распечатать и т.д.
      x := x + .5
    end;