Pascal Language - Shift matrice de elemente (Rotation) -Recursion

Aici este o procedură recursivă care permite să se transfere toate elementele unei matrice la dreapta din poziția p .

 Schimbarea procedurii (Var t: Tab; p, n: întreg); Începeți dacă p <= n Atunci începeți Decaler (t, p + 1, n); t [p + 1]: = t [p]; Sfârșit; Sfârșit; 

Mulțumită lui Zouari Lazhar pentru acest sfat.