Pascal/Turbo Pascal - ¿?¿?¿?

{Esto es lo mínimo que puedo hacer sin tocar demasiado el programa fíjate que

para escribir de la forma de espiral se tiene que diseccionar la posición del cursor

a la zona deseada yo te lo realizo por mediación de una constante tu puedes intentarlo

de otra forma.

El array que pongo es para poder leer y presentar los datos.}

program matrices;

uses crt;

const

    espira : array[1..16] of array[1..2] of integer = (

      (1,1),(4,1),(7,1),(10,1),(10,3),(10,5),(10,7),

      (7,7),(4,7),(1,7),(1,5),(1,3),(4,3),(7,3),

      (7,5),(4,5));

type

tabla=array [1..4,1..4]of integer;

var

matiz:tabla;

t, y, i,j:integer;

numeros : array[1..16] of integer;

begin

clrscr;

for i:=1 to 4 do

for j:= 1 to 4 do

begin

gotoxy(25, 10); write('matriz[',i,',',j,']=');

gotoxy(38,10);readln(matiz[i,j]);

gotoxy(25,10);clreol;

end;

clrscr;

writeln('la matiz':31);

writeln; writeln;

  i := 1;

  for t := 1 to 4 do

    for y := 1 to 4 do

    begin

    numeros[i] := matiz[t,y];

    i := i + 1;

    end;

       t := 1;

       y := 1;

       for i := 1 to 16 do

       begin

       t := espira[i][1];

       y := espira[i][2];

       gotoxy(5 + t,5 + y);write(numeros[i]);

       end;

writeln;

readkey

end.

{Comento esta son las formas de manejar la espiral en modo texto o por lo menos bajo mi criterio

lo cual no quite que otro criterio pueda ser mejor.

Como podrás ver se efectúa de fuera a dentro y de dentro a fuera su presentación. }

program espiral;

 uses

   crt;

   const

      espira : array[1..16] of array[1..2] of integer = (

      (1,1),(6,1),(11,1),(16,1),(16,4),(16,7),(16,10),

      (11,10),(6,10),(1,10),(1,7),(1,4),(6,4),(11,4),

      (11,7),(6,7));

  var

    numeros : array[1..16] of integer;

    tec : char;

    valor : word;

    ii : integer;

   procedure presentafueradentro(cop, n : integer);

   var

     x1, y1 : integer;

   begin

       x1 := 20 + espira[cop][1];

       y1 := 10 + espira[cop][2];

       gotoxy(x1,y1);write(n);

   end;

   procedure presentadentrofuera(co, s : integer);

   var

     zs, x2, y2 : integer;

   begin

        zs := 17 - co;

        x2 := 50 + espira[zs][1];

        y2 := 10 + espira[zs][2];

        gotoxy(x2,y2);write(s);

   end;

   procedure entranumeros;

   var

      nu : integer;

   begin

       nu := 1;

       clrscr;

       writeln('  Entre 16 numeros ');

       writeln;

       while nu <> 17 do

       begin

       gotoxy(3,3);write(' N§ : ',nu,' : ');

       gotoxy(14,3);readln(numeros[nu]);

       gotoxy(14,3);clreol;

       presentafueradentro(nu, numeros[nu]);

       presentadentrofuera(nu, numeros[nu]);

       nu := nu + 1;

      end;

   end;

   procedure presentaenespiralfd;

   var

      t, y, i : integer;

   begin

       t := 1;

       y := 1;

       for i := 1 to 16 do

       begin

       t := espira[i][1];

       y := espira[i][2];

       gotoxy(5 + t,5 + y);write(numeros[i]);

  end;

 end;

   procedure presentaenespiraldf;

   var

      t, y, i : integer;

   begin

       t := 1;

       y := 1;

       for i := 16 downto 1 do

       begin

       t := espira[i][1];

       y := espira[i][2];

       gotoxy(45 + t,5 + y);write(numeros[(16 - i) + 1]);

  end;

 end;

  begin

      clrscr;

      entranumeros;

      clrscr;

      writeln('Pulse CTRL + F9');

      repeat

      tec := readkey;

      if tec = #0 then

      valor := word(ord(readkey)) shl 8

    else

      valor := ord(readkey);

      writeln(valor);

      until valor = 26112;

      clrscr;

      writeln;

      for ii := 1 to 16 do

      write('  ',numeros[ii]);

      writeln;

      presentaenespiralfd;

      presentaenespiraldf;

      gotoxy(4,18);write('Pulse [Enter]');

      readln;

  end.

 {La constante contiene las posiciones de los números en este caso pero que igual podrían

ser letras o signos ya que solo representa su posición en la espiral.

 El array números recejo los valores de la matriz para su presentación según su entrada.

  Los procedimientos presentafueradentro y presentadentrofuera realizan la presentación

 de los números en espiral de fuera a dentro y dentro a fuera solamente.

 El procedimiento entranumeros recibe los números del emisor y presenta en espiral

 tanto la de fuera dentro como la de dentro fuera.

 Las funciones presentaenespiralfd y presentaenespiraldf realizan la presentación del

contenido insertado cuando pulsas CTRL + F9 esa es su misión.

 Y el final controlamos la entrada de datos y la pulsación de las teclas CTRL + F9 .

 Los for son para realizar procesos que se repiten una cantidad fija de veces tanto en

 aumento como en decremento el caso de for  i := 1 to 16 do que se ejecutara 16 veces a

 adelante y  for i  := 16 downto 1 do a atrás.

 El ultimo for  ii := 1 to 16 do se encarga de recoger los valores del array y presentarlos

 en espiral.

Espero esto te sirva para comprender como funciona este pequeño programa.}