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