مشروع الحاسب الوحده الاولى

المشروع الاول :

قم بتصميم برنامج لإيجاد القاسم المشترك الاكبر لعددين باستخدام نظرية اقليدس .

الخطوات :

Dim x , y , z, s As Inte ger

If x < y then 

x = Text1.Text

y = Text2.Text

Else

y = Text1,Text

x = Text2.Text

End If

z = Int (x / y(

If x = z*y then

Text3.text

Else

Do while x < > z*y

s =x-y*z

x = y

y = s

If s > o then z = Int ( x / y )

Loop

Text3.Text = y 

End If 

End sub

المشروع الثاني :

اسم الزبون : محمد عبدالعزيز 

الملابس:

القطعة            العدد            العدد الفردي            السعر الاجمالي

١- الثوب            ٦                     ٣                             ١٨

٢- الغترة            ٢                     ٢                             ٤

الخطوات الخوارزمية :

اجعل A = ٦

اجعل B = ٣

اطبع A

اجعل M = B*A

اذا كانت  ٦ < A توقف

وإلا اذهب إلى خطوة رقم ٣