Pascal Language - Shift array of elements (Rotasjon) -Rekursjon

Her er en rekursiv prosedyre som tillater å skifte alle elementene i en matrise til høyre fra posisjonen p .

 Prosedyre Shift (Var t: Tab; p, n: heltall); Begynn Hvis p <= n Start Begynnelsesbrev (t, p + 1, n); t [p + 1]: = t [p]; Slutt; Slutt; 

Takk til Zouari Lazhar for dette tipset.