cubo magico o caja magica

[roman]

Empezado por Andres202010

hola a todos, soy nuevo en esto de la programacion, estudio informatica, y estaba buscando la solucion a este ejercicio q me dieron de tarea, la verdad q no tngo ni idea de como hacerlo, es en matrices y delphi...
Ejemplo. Se tiene que llenar una matriz nxn, siempre y cuando sea impar, con numeros del 1 a n, dependiendo del tamaño de la matriz, un nro en cada espacio, donde no tiene q repetirse ningun numero, y donde la suma de los elementos de cualquier fila sea el mismo resultado que la suma de los elementos de cualquier columna, incluso los elementos de la diagonal principal y secundaria obtienen el mismo resultado.
Si alguien me puede ayudar estare muy agradecido...
Si falta algun dato mas solo pregunten,
muchas gracias.

Esto se resuelve en dos pasos:

1. Buscar o deducir el algoritmo para hacerlo de forma manual (no sé si esto es a lo que se refiere Ñuño).
2. Traducir tal algoritmo a código.

A mi juicio, el primer paso es el más difícil pero google puede ayudar un poco:

http://es.wikipedia.org/wiki/Cuadrado_m%C3%A1gico

En particular, el método siamés luce bastante sencillo e incluso viene codificado en python que, aunque lo desconozcas, puede darte idea de cómo hacerlo en delphi.

// Saludos

[roman]

Y bueno, tengo algo de tiempo libre, a ver si jala esto:

Código Delphi [-]
type
  TMatriz = array of array of Integer;

function CuadradoMagico(N: Integer): TMatriz;
var
  D, I, J: Integer;

begin
  // Nos aseguramos que N sea impar
  if not Odd(N)then
    raise Exception.CreateFmt('%d no es un número impar', [N]);

  // Fijamos la dimensión de la matriz
  SetLength(Result, N, N);

  // Limpiamos la matriz
  for I := 0 to N - 1 do
    for J := 0 to N - 1 do
      Result[I, J] := 0;

  // Posición inicial
  I := 0; J := (N - 1) div 2;

  for D := 1 to N*N do
  begin
    Result[I, J] := D;

    // Si la casilla de arriba a la derecha ya está ocupada, bajamos de fila
    if Result[(((I - 1) mod N) + N) mod N, (J + 1) mod N] <> 0 then
      Inc(I)
    else
    // Vamos a la casilla de arriba a la derecha. Si nos salimos del cuadrado
    // entonces nos colocamos en el extremo opuesto
    begin
      I := (((I - 1) mod N) + N) mod N;
      J := (J + 1) mod N;
    end;
  end;
end;

Ejemplo de uso, usando un StringGrid para mostrar los resultados:

Código Delphi [-]
var
  N, I, J: Integer;
  M: TMatriz;

begin
  N := StrToIntDef(Edit1.Text, 3);
  M := CuadradoMagico(N);

  StringGrid1.RowCount := N;
  StringGrid1.ColCount := N;

  for I := 0 to N - 1 do
    for J := 0 to N - 1 do
      StringGrid1.Cells[J, I] := IntToStr(M[I, J]);
end;

// Saludos

[Andres202010]

muchas gracias por responder, y perdon por poner la peticion en cualquier sitio, busque la categoria mas adecuada pero no la encontre, asi que la puse en OPPP, pido disculpas, y agradecer nuevamente a las personas que respondieron :P