لغة باسكال - قلب عناصر مجموعة العودية

فيما يلي إجراء متكرر يسمح للعناصر بعكس جزء من الجدول بين الموضع p و n:

 عكس الإجراء (Var t: Tab؛ p، n: Integer)؛ Var aux: Real؛ ابدأ إذا كانت p <n ، ثم ابدأ aux: = t [p] ؛ t [p]: = t [n] ؛ t [n]: = aux؛ المقلوب (t ، p + 1 ، n - 1) ؛ النهاية؛ النهاية؛ 

شكراً لزواري لزهر على هذه النصيحة