Magic squares of doubly even order: Difference between revisions
Magic squares of doubly even order (view source)
Revision as of 02:27, 12 November 2023
, 7 months ago→{{header|Amazing Hopper}}
Line 298:
dim( #(n*n) ) matriz de ceros 'sqr'
generar cuadrado mágico (n);
ir a sub ( meter en tabla, sqr, #(n+1)
imprimir '"Magic square order ",n,\
"\nMagic constant : ",#((n * n + 1) * n / 2),\
Line 309:
subrutinas
sub( meter en tabla, s, n
i=n,rareti(i, 'i')
retener 'n', insertar columnas en 's'
|