Написать программу на Delphi по задаче...

[Johny58]

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

[саша40]

1. Сначала надо найти этот элемент(определить номер строки и столбца в которой он находится).
2. Затем в цикле уже по столбцам cлаживать значение элементов.
Вот что-то подобное, для VCL.

function GetSumm(Mass: array of array of Integer; N: Integer): Integer; //параметры функции: твой массив и его размер
var 
min: integer; //значение минима
x,y: integer; //координаты минимального(x-номер столбца, y- номер строки)
i,k: integer; //cчетчики для циклов
begin
min:=Mass[0,0]; //присваиваем наименьший, вдруг первый и есть наименьший
x:=0;
y:=0;
//теперь ищем "настоящий минимум"
for i:=0 to N-1 do //ищем по столбцам
begin
for k:=0 to N-1 do //по строке 
begin
if Mass[k,i]<min then begin min:=Mass[k,i]; x:=k; y:=i; end;
end;
end;
//нашли
//теперь можно найти и сумму
for i:=0 to N-1 do 
begin
Result:=Result + Mass[x,i];
end;
//вот и всё. Если я правильно расчитал
end;

[Johny58]

Сообщение от саша40

1. Сначала надо найти этот элемент(определить номер строки и столбца в которой он находится).
2. Затем в цикле уже по столбцам cлаживать значение элементов.
Вот что-то подобное, для VCL.

function GetSumm(Mass: array of array of Integer; N: Integer): Integer; //параметры функции: твой массив и его размер
var 
min: integer; //значение минима
x,y: integer; //координаты минимального(x-номер столбца, y- номер строки)
i,k: integer; //cчетчики для циклов
begin
min:=Mass[0,0]; //присваиваем наименьший, вдруг первый и есть наименьший
x:=0;
y:=0;
//теперь ищем "настоящий минимум"
for i:=0 to N-1 do //ищем по столбцам
begin
for k:=0 to N-1 do //по строке 
begin
if Mass[k,i]<min then begin min:=Mass[k,i]; x:=k; y:=i; end;
end;
end;
//нашли
//теперь можно найти и сумму
for i:=0 to N-1 do 
begin
Result:=Result + Mass[x,i];
end;
//вот и всё. Если я правильно расчитал
end;

Можно через двумерный массив ввести, без использования функций GetSumm(Mass: array of array of Integer; N: Integer)?

[Mad_Cat]

Можно через двумерный массив ввести, без использования функций GetSumm(Mass: array of array of Integer; N: Integer)?

Можно, вводите! И я б запоминал только индексы, значение то тут в принципе не нужно, а понадобится его по индексам вытащить можно!

[Johny58]

Сообщение от Mad_Cat

Можно, вводите! И я б запоминал только индексы, значение то тут в принципе не нужно, а понадобится его по индексам вытащить можно!

Ввел через StringGrid, но теперь типы не совпадают

procedure TForm1.Button1Click(Sender: TObject);
const
n=3;
var
 Mass: array[0..n,0..n] of integer;
 min: integer;
 x,y,result: integer;
 i,k: integer;
begin
min:=strtoint(StringGrid1.Cells[0,0]);
x:=0;
y:=0;
  for i:=0 to N-1 do
    begin
      for k:=0 to N-1 do
        begin
          if StringGrid1.Cells[k,i]<min
          then
            begin min:=StringGrid1.Cells[k,i];
            x:=k;
            y:=i;
            end;
    end;
        end;
          for i:=0 to N-1 do
            begin
              Result:=Result + StringGrid1.Cells[x,i];
            end;
end;
end.

[Johny58]

Собственно, код получился, но почему эта ошибка, после запуска рассчетов уже в программе?

procedure TForm1.Button1Click(Sender: TObject);
const
n=3;
var
 Mass: array[0..n,0..n] of integer;
 min: integer;
 x,y,result: integer;
 i,k: integer;
begin
min:=strtoint(StringGrid1.Cells[0,0]);
x:=0;
y:=0;
for i:=0 to N-1 do
  for k:=0 to N-1 do
    if strtoint(StringGrid1.Cells[k,i])<min then
      begin
      min:=strtoint(StringGrid1.Cells[k,i]);
      x:=k;
      y:=i;
      end;
for i:=0 to N-1 do
  Result:=Result + strtoint(StringGrid1.Cells[x,i]);
end;
end.

[Аватар]

Потому что пустая строка is not a valid integer value

[Johny58]

Сообщение от Аватар

Потому что пустая строка is not a valid integer value

Никак не могу найти эту пустую строку, не подскажите, где она?

[Аватар]

Подскажу - в какой-то ячейке грида. Бряк в начало метода и пошагово ищи

[phomm]

strtoint(StringGrid1.Cells[Ё, Ж]) заменить везде на StrToIntDef(StringGrid1.Cells[Ё, Ж], 0)
тогда при проблеме конвертирования любой строки в число вернётся просто 0