Pascal Language - Elementtien muutosryhmä (kierto) -kurssi

Tässä on rekursiivinen prosessi, joka sallii siirtää kaikki ryhmän elementit oikealle paikasta p .

 Menettely Shift (Var t: Tab; p, n: kokonaisluku); Aloita jos p <= n Sitten aloita dekaleri (t, p + 1, n); t [p + 1]: = t [p]; end; end; 

Kiitos Zouari Lazharille tästä vinkistä.