Código para una tabla

[[Al González]]

¡Claro! Empieza por crear en Delphi un programa así (texto del archivo principal del proyecto):

Código Delphi [-]
Program Tarea;

Var
  Tabla... // <-- Aquí declara una matriz (en Delphi se conoce como array) de 10 filas por 10 columnas. Tabla será el contenedor de los 100 números.

Begin
End.

Avisa cuando tengas eso listo para así continuar, o bien pregunta sin pena si surgen nuevas dudas.

Un saludo.

[Wendolyn]

var
icol, irow: integer;

begin
for irow := 1 to 10 do
for icol:= 1 to 10 do
begin
StringGrid1.Cells [icol,irow]:= IntToStr(Random(100)+1);

end;


end;

end.



Hice esto y al parecer funcionó... peeero ahora necesito que se sumen las filas y las columnas

[[AgustinOrtu]]

Es buena idea utilizar los controles visuales solamente para lo que fueron concebidos, es decir, presentar datos.

El string grid podrías obviarlo de momento, lo que realmente necesitas hacer es lo que te dijo al, crear una estructura que contenga los números y después si es necesario sumarlos

De esta forma podrías presentar los datos en cualquier lado, por ejemplo, por consola, en un string grid, en un memo, etc

[Wendolyn]

Y en español???

O sea que no los puedo sumar como los hice?

[[AgustinOrtu]]

Esa fue la respuesta en español, la respuesta en Delphi (y que creo que es la que querias) seria algo asi:

Código Delphi [-]
program Tarea;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  TRango = 1..10;
  TTabla = array [TRango, TRango] of Integer;

var
  Tabla: TTabla;

procedure Llenar;
var
  I, J: Integer;
begin
  Writeln('Llenando tabla');
  Randomize;
  for I := 1 to 10 do
    for J := 1 to 10 do
      Tabla[I, J] := Random(100);
end;

procedure Imprimir;
var
  I, J: Integer;
begin
  Writeln('Imprimiendo tabla');
  Writeln;

  for I := 1 to 10 do
  begin
    Writeln('Fila ' + IntToStr(I));
    for J := 1 to 10 do
      Writeln(Format('[%d, %d] = %d', [I, J, Tabla[I, J]]));

    Writeln;
  end;
end;

function Sumar: Integer;
var
  I, J: Integer;
begin
  Result := 0;
  for I := 1 to 10 do
    for J := 1 to 10 do
      Result := Result + Tabla[I, J];
end;

begin
  try
    Llenar;
    Imprimir;
    Writeln('La suma de todas las filas y columnas es ' + IntToStr(Sumar));

    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

[Wendolyn]

Ay qué amable!!
Muchas gracias.
Y sí, al parecer quise decir Idioma Delphi :/

[Casimiro Noteví]

Copia->Pega y cuando te haga falta otra vez... estarás toda la vida pidiendo.
Que sepas que si aprendes a programar, aunque sea básicamente, tendrás una perspectiva muy distinta de las cosas, y hablo de biotecnología, donde he colaborado con algunos maestros del tema. Para ellos, no saber programar era un handicap (desventaja) enorme, se les cerraba muchas puertas y posibilidades de hacer las cosas. Y no hablo económicamente, sino de la forma de pensar y solucionar los problemas que se le planteaban.