Hola franco_cvm
Cita:
Empezado por franco_cvm
Quisiera que me digan por que mi razonamiento en el boton2 esta mal
|
Por que tomas un mínimo antes de entrar a los ciclos, cuando tendrías que hacerlo una vez por cada fila. Te hice un código de ejemplo comentado para que puedas analizarlo:
Código Delphi
[-]
const
MAX_COL = 10;
MAX_ROW = 6;
type
TMatriz = array [1..MAX_COL, 1..MAX_ROW] of Integer;
var
Matriz: TMatriz;
procedure TForm1.FormCreate(Sender: TObject);
var
c, r : Integer;
begin
Randomize();
StringGrid1.ColCount := MAX_COL;
StringGrid1.RowCount := MAX_ROW;
for r := 1 to MAX_ROW do
for c := 1 to MAX_COL do
begin
Matriz[c, r] := Random(99) + 1;
StringGrid1.Cells[c-1, r-1] := IntToStr(Matriz[c, r]); end;
Memo1.Clear; end;
procedure TForm1.Button1Click(Sender: TObject);
var
c, r, Minimo: Integer;
begin
for r := 1 to MAX_ROW do begin
Minimo := Matriz[1, r]; for c := 2 to MAX_COL do if Matriz[c, r] < Minimo then Minimo := Matriz[c, r]; Memo1.Lines.Add(IntToStr(Minimo)); end;
end;
Saludos