Pascal Language - elementide nihutamine (rotatsioon) -kurss
Siin on rekursiivne protseduur, mis võimaldab massiivi kõiki elemente positsioonist p .
Menetluse nihutamine (Var t: Tab; p, n: täisarv); Alusta Kui p <= n Seejärel alusta dekalkerit (t, p + 1, n); t [p + 1]: = t [p]; Lõpp; Lõpp;
Tänu Zouari Lazharile selle näpunäite eest.