Высокоуровневые методы информатики и программирования. Сивохин А.В - 91 стр.

      InStringGrid.Cells[0,0]:='Номера';
      OutStringGrid.Cells[0,0]:='Номера';
      For iCol:=1 to InStringGrid.ColCount-1 do
       InStringGrid.Cells[iCol,0]:=IntToStr(iCol);
      For jRow:=1 to InStringGrid.RowCount-1 do
       InStringGrid.Cells[0,jRow]:=IntToStr(jRow);
      For iCol:=1 to OutStringGrid.ColCount-1 do
       OutStringGrid.Cells[iCol,0]:=IntToStr(iCol);
      For jRow:=1 to OutStringGrid.RowCount-1 do
       OutStringGrid.Cells[0,jRow]:=IntToStr(jRow);
      For iCol:=1 to InStringGrid.ColCount-1 do
       For jRow:=1 to InStringGrid.RowCount-1 do
        InStringGrid.Cells[iCol,jRow]:= FloatToStr((Random(199)-99));
      For iCol:=1 to OutStringGrid.ColCount-1 do
       For jRow:=1 to OutStringGrid.RowCount-1 do
        OutStringGrid.Cells[iCol,jRow]:= FloatToStr(0.0);
      For iCol:=0 to DynArraySize-1 do
       Begin
        InDynArray[iCol]:=0.0;
        OutDynArray[iCol]:=0.0;
       end;
     end;


     procedure TOrlovArrayForm.ClearInButtonClick(Sender: TObject);
     var
      iCol : Integer;//-для организации цикла по колонкам таблиц;
      jRow : Integer;//-для организации цикла по рядам(строкам) таблиц;
     begin
      For iCol:=1 to InStringGrid.ColCount-1 do
       For jRow:=1 to InStringGrid.RowCount-1 do
         InStringGrid.Cells[iCol,jRow]:= FloatToStr(0.0);
     end;

     procedure TOrlovArrayForm.ClearOutButtonClick(Sender: TObject);
     var
      iCol : Integer;//-для организации цикла по колонкам таблиц;
      jRow : Integer;//-для организации цикла по рядам(строкам) таблиц;
     begin
      For iCol:=1 to OutStringGrid.ColCount-1 do
       For jRow:=1 to OutStringGrid.RowCount-1 do
         OutStringGrid.Cells[iCol,jRow]:= FloatToStr(0.0);
     end;

     procedure TOrlovArrayForm.CalcButtonClick(Sender: TObject);
     var
      iCol : Integer;//-для организации цикла по колонкам таблиц;
68