إعـــــــلان

**عبود عبود عبود عبود** · 10-10-2013, 08:08 PM

خطأ كتابى يرجى تفادية

المشاركة الأصلية بواسطة وائل المصمم مشاهدة المشاركة

بسم الله الرحمان الرحيم

الرحمــــن

مشكور على البرنامج

**ثامر أبو بلقيس ثامر أبو بلقيس** · 10-10-2013, 08:19 PM

أخي وائل جميل جدا واشجعك كثيرا كثيرا

ممكن أن أطلب منك أن تجرب العددين مثلا :
45
و
455454

لتحديد القاسم المشترك الأكبر

لاحظ أن البرنامج سيبقى يدور و ربما لا يصل للإجابة
ابقى في تواصل سأفيدك

**ثامر أبو بلقيس ثامر أبو بلقيس** · 10-10-2013, 08:36 PM

بعدما تفتح مشروعا جديدا

ازرع في GLOBAL FUNCTION
الكود التالي :

كود:

function PGCD(a, b)
   local min, max = math.min(a, b), math.max(a, b)
   while(min ~= max) do
      min, max = math.min(min, max), math.max(min, max)
      max = max - min
   end
   return min
end

في صفحة العمل ضع أنبوتين 1 و 2
وزر لحساب القاسم المشترك الأكبر لما كتب في الانبوتين
ازرع في هذا الزر الكود التالي :

كود:

x = Input.GetText("Input1");
y = Input.GetText("Input2");
Dialog.Message("Notice",PGCD(x, y))

و بالتالي بعد المعاينة ستحصل على برنامج يحسب القاسم المشترك الأكبر
بطريقة سريعة باستغلال نظرية الأعداد بعيدا عن خوارزمية أقليدس "الطرح المتتالي"

موفق أخي و استمر في البرمجة الخدماتية بدون محتويات

جرب العددين السابقين ولاحظ الفرق

**أبو يوسف أبو يوسف** · 11-10-2013, 10:23 AM

جزاك الله خيرا أخانا المصمم

وبارك الله فيك

**admin admin** · 12-10-2013, 03:09 PM

جزاك الله خيرا أخانا وائل

اداة جميلة ماشاء الله

والشكر لأخينا ثامر على متابعتة وإثراءه للموضوع

إعـــــــلان

برنامج القاسم المشترك الأكبر

برنامج القاسم المشترك الأكبر

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك