[Vigor]

Всем здрасти.Прошу помощи вот по какому поводу: есть начальная величина х и некоторая функция у и шаг по х-h , нужно посчитать величину х(x+h) до тех пор пока она не станет Xmax и записать все к примеру 10 значений, затем для всех этих 10 значений посчитать значение функции у и тоже записать. Потом аналогичную операцию выполнить для (x+h)-значения функции для (x+h) и (x+h\2)-значения функции для (x+h\2).Решение может быть простое, но я с Delphi встречаюсь очень редко, так что прошу не ругаться))

[AlexSku]

вот примерная рыба:

Код:

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    aX, aY: array[1..10] of Real;
    function funY(x: Real): Real;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.funY(x: Real): Real;
begin
  // Result:= ...
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  x0: Real = 0.0;
  h: Real = 0.1;
var
  i: Integer;
begin
  for i:= 1 to 10 do
  begin
    aX[i]:= x0 + (i-1)*h;
    aY[i]:= funY(aX[i]);
  end;
end;