Pascal - Invertir los elementos de una matriz

Septiembre 2017

A continuación veremos un procedimiento recursivo que permite invertir los elementos de una parte de una matriz entre la posición p y n:
Procedure Invertir (Var t : Tab; p, n : Integer);
Var aux : Real;
Begin                         
     If p < n Then
     Begin
          aux := t[p];
          t[p] := t[n];
          t[n] := aux;
          Inverser (t, p + 1, n - 1);          
     End;
End;

Consulta también

Publicado por Carlos-vialfa. Última actualización: 2 de octubre de 2009 a las 00:21 por Carlos-vialfa.
El documento «Pascal - Invertir los elementos de una matriz» se encuentra disponible bajo una licencia Creative Commons. Puedes copiarlo o modificarlo libremente. No olvides citar a CCM (es.ccm.net) como tu fuente de información.