массивы

[serj-07]

Помогите результаты вложит во 2 массив по элементам

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Longint;
  fx,fx1,f,f1,f2,h,fy,fyy: real;
   begin
     i:=2;
     f:= StrToFloat (StringGrid1.cells [i,1]);
     f1:= StrToFloat (StringGrid1.cells[i+1,1]);
     f2:= StrToFloat (StringGrid1.cells[i-1,1]) ;
     fx:=  StrToFloat (StringGrid1.cells [i,0]);
     fx1:= StrToFloat (StringGrid1.cells [i-1,0]);
     h:=fx-fx1;
     fy:=0;
     fyy:=0;
     for i:=1 to n-2 do
     begin
        fy:= 1/h*1/2*(f1-f+f-f2);
        fyy:=1/(h*h)*(f1-f-f+f2);
        fy:=fy+1;
        fyy:=fyy+1;
     end;
   StringGrid2.Cells[i,0]:= floatToStr(fy);
   StringGrid2.Cells[i,1]:= floatToStr(fyy);
  end;

Спасибо.

[Lokos]

Сообщение от serj-07

Помогите результаты вложит во 2 массив по элементам

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Longint;
  fx,fx1,f,f1,f2,h,fy,fyy: real;
   begin
     i:=2;
     f:= StrToFloat (StringGrid1.cells [i,1]);
     f1:= StrToFloat (StringGrid1.cells[i+1,1]);
     f2:= StrToFloat (StringGrid1.cells[i-1,1]) ;
     fx:=  StrToFloat (StringGrid1.cells [i,0]);
     fx1:= StrToFloat (StringGrid1.cells [i-1,0]);
     h:=fx-fx1;
     fy:=0;
     fyy:=0;
     for i:=1 to n-2 do
     begin
        fy:= 1/h*1/2*(f1-f+f-f2);
        fyy:=1/(h*h)*(f1-f-f+f2);
        fy:=fy+1;
        fyy:=fyy+1;
     end;
   StringGrid2.Cells[i,0]:= floatToStr(fy);
   StringGrid2.Cells[i,1]:= floatToStr(fyy);
  end;

Спасибо.

ну напиши заместо fy и прочих имя масива[адрес ячейки]
Или возможно я не совсем понял что надо сделать

[serj-07]

Задача: Вычислить 1,2 производную функции табличным способом.

В StringGrid1. я заношу значения x,y. FOR прогоняет решения для 1,2 производной кроме крайних.
В StringGrid2. должны быть результаты для каждого х.

[serj-07]

переделал все равно не получается

[Lokos]

а где у тебя объявляется и инициализируется переменная n которая используется в цикле for

[serj-07]

var
  Form1: TForm1;
     a: Mass;
     b: Mass;
     n: Longint;
implementation


	
	

procedure TForm1.Button1Click(Sender: TObject);

 begin
  try
  n:= StrToInt (Trim (Edit1.Text));