[Gungnir]

Сообщение от 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;

Спасибо за ответ, но я это уже сделал,я не понимаю как из полученных данных получить массив?Если вас не затруднит,можете посмотреть мою работу во вложении?Массив нужен для работы с критериями,я так понимаю что я не правильно вывел данные.