Pascal Language - Shift array of elements (Rotation) -Recursion

Berikut adalah prosedur rekursif yang membolehkan untuk mengalihkan semua elemen array ke kanan dari kedudukan p .

 Shift Prosedur (Var t: Tab; p, n: integer); Mulakan Jika p <= n Kemudian Mula Decaler (t, p + 1, n); t [p + 1]: = t [p]; Akhir; Akhir; 

Terima kasih kepada Zouari Lazhar untuk mendapatkan tip ini.