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

[وائل المصمم]

http://im42.gulfup.com/jM5zV.png
بسم الله الرحمان الرحيم و الصلاة و السلام على أشرف المرسلين سيدنا محمد الأمين

وعلى آله وصحبه الطيبين الطاهرين وعلى من تبعهم بإحسان الى يوم الدين أما بعد

نبدأ معكم اليوم سلسلة جديدة من المواضيع حول برامج أقوم ببرمجتها

وسوف أقوم بوضع دروس حول كيفية تصميمها بأسهل الطرق وبشرح مفهوم و سلس

برنامج اليوم هو برنامج تقوم أنت بكتابة رقمين فيه وهو يقوم باعطائك القاسم المشترك الأكبر

بين هذين العددين لن أطيل عليكم الآن أترككم مع بقية هذا الموضوع
http://im42.gulfup.com/VzyJw.png
1-] يقوم البرنامج بالحصول على القاسم المشترك الأكبر

للعددين عن طريق عملية الطرح المتتالية.

2-] لايمكنك أن تكتب فيه ماعدا الأرقام أي لاتستطيع كتابة الحروف.

3-] حجم البرنامج صغير حيث أن حجمه هو 5.06 MB.

4-] البرنامج متوافق مع جميع أنظمة الوندوز.
http://im42.gulfup.com/s3H8E.png

http://im32.gulfup.com/6qV0P.png

http://im39.gulfup.com/RWmZY.png

http://im33.gulfup.com/tSFLE.png

http://im36.gulfup.com/ymwNt.png

لتحميل البرنامج عبر رابط مباشر أنقر هنا (https://ia601002.us.archive.org/24/items/wail_Pgcd/%d8%a8%d8%b1%d9%86%d8%a7%d9%85%d8%ac%20%d8%a7%d9%8 4%d9%82%d8%a7%d8%b3%d9%85%20%d8%a7%d9%84%d9%85%d8% b4%d8%aa%d8%b1%d9%83%20%d8%a7%d9%84%d8%a3%d9%83%d8 %a8%d8%b1.rar)

http://im36.gulfup.com/J9EQn.png
الحمد لله الذي أعاننا على هذا العمل الهادف والذي نسأل الله أن يكون ذا فائدة للتلاميذ

ولاتنسوا قوله صلى الله عليه وسلم -:<الدال على الخير كفاعله>

ونلتقي في برنامج جديد في موضوع جديد والسلام عليكم و رحمة الله و بركاته

http://im35.gulfup.com/eople.png

[عبود عبود]

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

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


الرحمــــن



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

[ثامر أبو بلقيس]

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

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

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

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

[ثامر أبو بلقيس]

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

ازرع في 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))

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

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

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

[أبو يوسف]

جزاك الله خيرا أخانا المصمم:abc_152: وبارك الله فيك

[abohmam]

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

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

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