Delphi.Нужно найти сумму

[Ponce de leon]

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

[Serge_Bliznykov]

и что вызывает сложности - как найти индекс столбца с минимальным элементом или как сумму элементов найти?
Покажите, хотя бы ваш код, как Вы заполняете стрингрид...

[Ponce de leon]

заполняю с помощью файла.вот процедура:

procedure TForm3.N2Click(Sender: TObject);
begin

if OpenDialog1.Execute then
assignfile(f,OpenDialog1.FileName);
reset(f);
for i:=1 to n do
for j:=1 to n do
 begin
  read(f,a[i,j]);
  StringGrid1.Cells[j,i]:=inttostr(a[i,j]);
 end;
end;

[Аватар]

А если этот минимальный не один и в разных столбцах?

[Ponce de leon]

хм, если 2 минимальных то находит сумму этих 2 столбцов.

[Аватар]

И если во всех - то сумму всех? Как-то не вяжется найти сумму столбца в ед.числе с суммой всех столбцов, или двух, не важно

[Ponce de leon]

Мне нужно найти сумму столбца с минимальным элементом, а если этих элементов 2, то найти сумму этих столбцов.

[Serge_Bliznykov]

Сообщение от Ponce de leon

заполняю с помощью файла.вот процедура:

для начала исправьте ошибку в процедуре - после Execute нужно начинать процедурный блок Begin - end, иначе, если диалог открытия файлов закроют "крестиком" (или кнопкой "отмена") - в коде будет катастрофа.
ну и переменные цикла лучше делать локальными переменными.

сравните:

procedure TForm3.N2Click(Sender: TObject);
var i, j : integer;
begin
if OpenDialog1.Execute then begin
   assignfile(f,OpenDialog1.FileName);
   reset(f);
   for i:=1 to n do
    for j:=1 to n do
     begin
        read(f,a[i,j]);
        StringGrid1.Cells[j,i]:=inttostr(a[i,j]);
     end;
    CloseFile(f);
  end;
end;

а вот насчёт суммы ВСЕХ столбцов, содержащих минимальное значение - я бы уточнил. Вы даже не представляете, насколько это усложняет алгоритм решения данной задачи!

[Ponce de leon]

Спасибо за поправку) а на счёт задачи, хотя бы "найти сумму столбца где находится минимальный элемент" хоть что-то что бы было, а то завтра лабу сдавать, а так сделаю матрицу с 1 минимальный элементом.

[Serge_Bliznykov]

вот код для поиска столбца с минимальным значением (первым слева направо, если их несколько)

var i, j, IndexMinColumn, IndexMinRow : integer;
  Summa : integer;
begin
  IndexMinColumn := 1; {считаем 1-й столбец с минимальным}
  IndexMinRow := 1;  {считаем 1-й в столбце минимальный}
  for i:=1 to n do
    for j:=1 to n do
     begin
        if IntToStr(StringGrid1.Cells[j,i])<IntToStr(StringGrid1.Cells[IndexMinColumn,IndexMinRow]) then begin
         IndexMinColumn := j;
         IndexMinRow := i
     end;
end;