Delphi-Help

Главная Статьи Математика Найти числа B1,B2..Bn соответствующие средним арифметическим строк матрицы

Найти числа B1,B2..Bn соответствующие средним арифметическим строк матрицы

Оцените материал
(0 голосов)


Найти числа B1,B2..Bn соответствующие средним арифметическим строк матрицы

procedure TForm1.BitBtn1Click(Sender: TObject);
var
A:array of integer;
i,j:Integer;
begin
 SetLength(A,StringGrid1.RowCount);
 for i:=0 to StringGrid1.RowCount-1 do
 begin
  for j:=0 to StringGrid1.ColCount-1 do
   begin
     a[i]:=a[i]+StrToInt(StringGrid1.Cells[j,i]);
     StringGrid2.Cells[0,i]:=FloatToStr(a[i]/StringGrid1.RowCount);
   end;
 
 end;
Прочитано 5077 раз

Авторизация



Счетчики