Pascal Language - Posun poľa prvkov (Rotation) -Recursion
Tu je rekurzívny postup, ktorý umožňuje posunúť všetky prvky poľa doprava z pozície p .
Procedúra Shift (Var t: Tab; p, n: integer); Začiatok Ak p <= n Potom začnite odfarbovač (t, p + 1, n); t [p + 1]: = t [p]; Koniec; Koniec;
Vďaka Zouari Lazhar za tento tip.