Pascal Language - Obračanje elementov rekurzije matrike

Tukaj je rekurzivni postopek, ki omogoča elementom, da obrnejo del tabele med položajem p in n:

 Postopek Invert (Vart: Tab; p, n: Integer); Var aux: Real; Začnite Če p <n Potem začnite z aux: = t [p]; t [p]: = t [n]; t [n]: = pom. Inverzor (t, p + 1, n - 1); End; End; 

Hvala Zouariju Lazharju za ta nasvet