ภาษาปาสคาล - เปลี่ยนอาร์เรย์ขององค์ประกอบ (การหมุน) - การสอบถามซ้ำ

นี่เป็นขั้นตอนแบบเรียกซ้ำซึ่งอนุญาตให้เปลี่ยนองค์ประกอบทั้งหมดของอาร์เรย์ไปทางขวาจากตำแหน่ง p

 การเลื่อนโพรซีเดอร์ (Var t: Tab; p, n: จำนวนเต็ม); เริ่มต้นถ้า p <= n จากนั้นเริ่มต้น Decaler (t, p + 1, n); t [p + 1]: = t [p]; end; end; 

ขอบคุณ Zouari Lazhar สำหรับคำแนะนำนี้