مشروع الوحدة السابعة مقدمة عن البرنامج : تطبيق لحساب القاسم المشترك الاكبر باستخدام نظرية اقليدس خطوات حل المسألة المدخلات : العددين x,y عمليات المعالجة : ايجاد القاسم المشترك الاكبر باستخدام قانون اقليدس المخرجات : القاسم المشترك -الاكبر |(gcd) الخطوات الخوارزمية 1- ادخل العددين y.x 2- اجعل i=1 3-اذا كانت x=>i اجعل i=i+1 4- اجعل i/x=b 5-اجعل c=y/i 6- اذا كانت b=c=0 اجعل gcd=i والا اذهب للخطوة رقم 3 7-اطبع gcd 8- النهاية مخطط الانسياب : النص البرمجي للبرنامج : public class formal private sub button1__click( byval sender as sestem object byval Dim x, y , i ,gcd As integer x = textbox1 . text y = textbox2 . text i - 1 do while i <= x i = i + 1 if ( x mod i ) = 0 and (y mod i ) =0 then gcd = i labe14.text = gcd end if loop end sub end class صور الواجهات المصممة وعمل كل واجهة
ماشاء الله جميله جداً
ردحذف