هيا بنا نقفز قفزة صغيرة بالعمل خلال مشروع عملي معًا! يعرّفك هذا الفصل ببعض مفاهيم الخاورازم من خلال توضيح كيفية استخدامها في برنامج حقيقي. هذفنا هو كتابة خوارزمية أقليدس للبحث عن القاسم المشترك الاكبر لعددين صحيحين.

                           بسم الله الحكيم الخبير
               
                                                               


استعمل 			الخوارزم.وسائط.شاشة



   الدالة  الاصل() {
       المتغير ا صحيح  := 164
       المتغير ب صحيح  := 232
       المتغير الباقي صحيح  := 0	


       كرر {
               الباقي := ا نمط ب
               ا := ب
               ب := الباقي		
               
       } مادام الباقي ليس= 0
               
       شاشة::اكتب("القاسم المشترك الاكبر ل ا و ب هو : ") 
       شاشة::اكتب(ا)
       
   }
   
                                                                               

لحساب القاسم المشترك الاكبر نحتاج الى تعريف عددين ا و ب مع اعطائهما قيمتين صحيحتين مثلا على التوالي : 164 و 232.

    
       المتغير ا صحيح  := 164
       المتغير ب صحيح  := 232
                                                                                

ونحتاج ايضا الى عدد نضع فيه باقي القسمة : الباقي.

    
      المتغير الباقي صحيح  := 0	
                                                                                

لحساب باقي القسمة نستعمل عامل الرياضيات نمط . نقوم بحساب باقي قسمة العددين ا على ب،

    
     الباقي := ا نمط ب
                                                                                

فاذا ساوى الصفر فان ا هو القاسم الشترك الاكبر والا فاننا نكرر العملية باستبدال ا ب ب و ب ب الباقي حتى نحصل على الباقي مساوٍ ل 0.
هكذا يكر البرنامج التعليمات حتى نحصل على الباقي مساوٍ ل 0 فينتهي التكرار ومن تم نكتب النتيجة باستعمال الدالة اكتب الموجودة في الصنف شاشة.

ملحوظة : العامل ':=' يقوم بوضع قيمة المتغير على اليسار في المتغير على اليمين . مثالا : ا := ب تعني ان ا ياخذ قيمة ب.

عندما نحتاج الى متغير فاننا نستعين بالمفردة المتغير كما في الرياضيات عندما نود استعمال كائنات او اعداد رياضية.
يمكنك الان الاستمتاع بحساب قواسم اخرى بتغيير قيمة المتغيرات ا و ب ثم تنفيذ الخوارزمية.