Сумма столбца, в котором находится минимальный элемент StringGrid

Posted by obzor under Delphi

Нужно найти сумму столбца, в котором находится минимальный элемент StringGrid.

Serge_Bliznykov

Смотрите,  в этом идиотском StringGrid’е переставлены местами индексы строк и столбцов, там сначала идёт индекс столбца, а потом индекс строки.
при обращении к матрице принято писать наоборот — сначала номер строки, потом номер столбца.

Поэтому пробуйте так:

begin
    IndexMinColumn := 1;
    IndexMinRow := 1;
    for i:=1 to n do
       for j:=1 to n do
         if a[ i ][j] < a[IndexMinRow][IndexMinColumn] then
         begin
           IndexMinRow := i;
           IndexMinColumn := j;
         end;

    ShowMessage('Столбец номер '+IntToStr(IndexMinColumn)+
       ' имеет минимальное значение = '+IntToStr(a[IndexMinRow][IndexMinColumn]));

    summa := 0; {надо обязательно обнулить переменную, где будем накапливать сумму}
    for i := 1 to n do
       summa:=summa+a[ i ][IndexMinColumn];  

    StringGrid2.Cells[1,1] := inttostr(summa);
end;

тема на форуме

Похожие статьи

• Добавить строку с верха вниз StringGrid
• Изменение размера динамического StringGrid
• Зашифровать данные из StringGrid
• Выгрузить данные из stringGrid в ms word
• Сохранить таблицу из StringGrid в MS Word
• Проверить stringrid на пустоту
• Сложить столбец в Stringgrid
• Копировать данные StringGrid в другой StringGrid
• Добавить checkbox в stringrid
• Суммы столбцов в StringGrid