Hola, tengo una matriz de m*n y, como dice el titulo, me pide encontrar el numero menor de cada fila.
Lo intente hacer, use dos botones (por las dudas de que con uno no me deje), al apretar el primero me carga valores en un stringgrid, el segundo boton, es para que en un memo me muestre el valor mas chico de cada fila, pero el segundo boton no anda.
aca el codigo:
Código Delphi
[-]const
n=10;
m=6;
type
Tmatriz= array [1..n, 1..m] of integer;
var
matriz:Tmatriz;
procedure TForm1.Button1Click(Sender: TObject);
var
i,j: integer;
begin
for i:= 1 to n do
begin
for j:= 1 to m do
begin
matriz[i,j]:= random(99)+1;
end;
end;
for i:= 1 to n do
begin
for j:=1 to m do
begin
Stringgrid1.Cells [i,0]:= IntToStr(i);
Stringgrid1.Cells [0,j]:= IntToStr(j);
Stringgrid1.Cells [i,j]:= IntToStr(matriz[i,j]);
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i,j:integer;
menor:string;
begin
menor:= Stringgrid1.Cells [1,1];
memo1.clear;
for j:= 1 to m do
begin
for i:= 1 to n do
begin
if Stringgrid1.Cells [i,j] < menor then
menor:=Stringgrid1.Cells [i,j];
end;
memo1.Lines.Add(menor);
end;
end;
Quisiera que me digan por que mi razonamiento en el boton2 esta mal,si se puede hacer todo en un solo boton, y la manera en que funciona un For dentro de otro For.
saludos, MUCHAS GRACIAS!!