delphi. Вычислить сумму элементов каждой строки матрицы А (n x m), определить наименьшее значение этих сумм и номер (первокурсник)

[hrustnik]

Всем привет, у меня пару ошибок и нужна ваша помощь
1.Вычислить сумму элементов каждой строки матрицы А (n x m), определить наименьшее значение этих сумм и номер соответствующей строки.
радиобатон1- сам вожу
радиобатон2- рандом

procedure TForm1.Button1Click(Sender: TObject);
begin
 sum:=0;
 memo1.lines.clear;
begin
with StringGrid1 do
  for i:=FixedCols to ColCount-1 do
  for j:=FixedRows to RowCount-1 do
    Cells[i, j]:='';
end;


if RadioButton1.Checked=true then
begin
n:=strtoint(Edit1.Text);
n1:=strtoint(Edit2.Text);
if (n<2) or (n>10) or (n1<2) or (n1>10) then
begin
    Showmessage('Кол-во строк и столбцов не больше 10 и не меньше 2');
    exit;
end;
for i:=0 to n do begin
for j:=0 to n1 do begin
x[i,j]:= strtoint(StringGrid1.Cells[i,j]);
begin
  sum:= sum + x[i,j];
  Memo1.Lines.Add('Сумма элементов '+inttostr(i)+'-ой строки = '+inttostr(sum));
end;
end;
end;
end;


if RadioButton2.Checked=true then
begin
randomize;
n:=random(8)+ 2;
n1:=random(8)+ 2;
Edit1.Text:=inttostr(n+1);
Edit2.Text:=inttostr(n1+1);

for i:=0 to n do begin
for j:=0 to n1 do begin
x[i+1,j+1]:= random(10)+2;
StringGrid1.Cells[j,i]:= FormatFloat('0.00',x[i+1,j+1]);
begin
  sum:= sum + x[i,j];
  Memo1.Lines.Add('Сумма элементов '+inttostr(i)+'-ой строки = '+inttostr(sum));
end;
end;

1. когда работаем рандом то в memo идут неправильные данные
2. самому вообще не ввести, пишет ошибку
буду благодарен

[Stilet]

когда работаем рандом то в memo идут неправильные данные

Не удивительно. Ты сумму не обнуляешь.

if RadioButton2.Checked then
begin
randomize;
n:=random(8)+ 2;
n1:=random(8)+ 2;
Edit1.Text:=inttostr(n+1);
Edit2.Text:=inttostr(n1+1);
With StringGrid1 do begin
 RowCount:=n+1;ColCount:=n1+1;
 for i:=0 to n do begin
  sum:=0;
  for j:=0 to n1 do begin
   x[i+1,j+1]:= random(10)+2;
   Cells[j,i]:= FormatFloat('0.00',x[i+1,j+1]);
   sum:= sum + x[i,j];
  end;
  Memo1.Lines.Add('Сумма элементов '+inttostr(i)+'-ой строки = '+inttostr(sum));
 end;
end;

самому вообще не ввести, пишет ошибку

Которую угадывать должны мы?
Ладно. "Ошибка. 404 Homo sappiens not found". Угадал?

Cells[j,i]:= FormatFloat('0.00',x[i+1,j+1]);

А можно поинтересоваться зачем тебе выводить целые числа в виде вещественных?

[hrustnik]

if RadioButton2.Checked then
begin
randomize;
n:=random(8)+ 2;
n1:=random(8)+ 2;
Edit1.Text:=inttostr(n+1);
Edit2.Text:=inttostr(n1+1);
With StringGrid1 do begin
RowCount:=n+1;ColCount:=n1+1;
for i:=0 to n do begin
sum:=0;
for j:=0 to n1 do begin
x[i+1,j+1]:= random(10)+2;
Cells[j,i]:= FormatFloat('0.00',x[i+1,j+1]);
sum:= sum + x[i,j];
end;
Memo1.Lines.Add('Сумма элементов '+inttostr(i)+'-ой строки = '+inttostr(sum));
end;
end;

Которую угадывать должны мы?
Ладно. "Ошибка. 404 Homo sappiens not found". Угадал?

неа,

[Stilet]

Напиши:

sum:= sum + x[i+1,j+1];

Ошибка твоя говорит о том что ты в ячейку не ввел число.

[hrustnik]

все равно та же ошибка (

[Аватар]

все равно та же ошибка (

x[i,j]:= strtoint(StringGrid1.Cells[i,j]);
           |
           |
           v
x[i,j]:= strtoint(StringGrid1.Cells[j,i]);

[hrustnik]

да блин, все равно ошибка

begin
n:=strtoint(Edit1.Text);
n1:=strtoint(Edit2.Text);
if (n<2) or (n>10) or (n1<2) or (n1>10) then
begin
    Showmessage('Кол-во строк и столбцов не больше 10 и не меньше 2');
    exit;
end;


With StringGrid1 do begin
 RowCount:=n+1;
 ColCount:=n1+1;
 for i:=0 to n do begin
  sum:=0;
  for j:=0 to n1 do begin
   x[i+1,j+1]:= strtoint(StringGrid1.Cells[j,i]);
   Cells[j,i]:= FormatFloat('0.00',x[i+1,j+1]);
   sum:= sum + x[i+1,j+1];
  end;
  Memo1.Lines.Add('Сумма элементов '+inttostr(i+1)+'-ой строки = '+inttostr(sum));
 end;
end;
end;

[Аватар]

А зачем RowCount и ColCount переопределяешь перед чтением из грида? И вообще он на этот момент заполонен нужной информацией?

[hrustnik]

"А зачем RowCount и ColCount переопределяешь перед чтением из грида?"
эту часть сообщения не понял
а про заполнение, то да, сначала заполняю матрицу, пишу размеры, такаю РАСЧЕТ и выползает ошибка

[Аватар]

Не нравится переопределяешь, тогда зачем присваиваешь этим свойствам n+1 и n1+1?