Pascal Language - Shift niz elementov (rotacija) -Rekurs

Tukaj je rekurzivni postopek, ki omogoča premik vseh elementov matrike v desno od položaja p .

 Premik postopka (Var t: Tab; p, n: celo število); Začnite Če p <= n Potem začnite z dekodirnikom (t, p + 1, n); t [p + 1]: = t [p]; End; End; 

Hvala Zouariju Lazharju za ta nasvet.