خوارزمية إقليدس

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

                           بسم الله الحكيم الخبير
               
                                                               
الرزمة    اختبارات؛

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

الصنف      اختبار  {	

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


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

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

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

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

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

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

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

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

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

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