Pascal Language - Obrátenie prvkov rekurzie poľa

Tu je rekurzívny postup, ktorý umožňuje elementom obrátiť časť tabuľky medzi polohou p a n:

 Postup Invert (Var t: Tab; p, n: Integer); Var aux: Real; Začiatok Ak p <n Potom Begin aux: = t [p]; t [p]: = t [n]; t [n]: = aux; Inverser (t, p + 1, n - 1); Koniec; Koniec; 

Vďaka Zouari Lazhar za tento tip