بحث المصادر الحرة

مشروع الوحدة السابعة 

مقدمة عن البرنامج :

تطبيق لحساب القاسم المشترك الاكبر باستخدام نظرية اقليدس

خطوات حل المسألة 

المدخلات : العددين 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

صور الواجهات المصممة وعمل كل واجهة 

عمل الطالب : عبدالله صالح الصواط 
الشعبة : 6 
الرقم في الكشف : 6