هذه دالة للتحويل للنظام الثنائي مكتوبة بلغة ألف:
دالة عدد ثنائي (عدد أ )
عدد ب = 0
عدد ج
عدد ك = 1
كلما ( أ >= 1 )
ج = أ
كلما ( ج > 1 ) ' هذا التكرار من أجل الحصول على باقي قسمة العدد على 2
ج = ج - 2
نهاية كلما
إذا ( ج = 1 )
ب = ب + ك
أ = أ - 1
أ = أ / 2
أو
أ = أ / 2
نهاية إذا
ك = ك * 10
نهاية كلما
رجوع ب
نهاية دالة
وضع العدد ج لكي نجد من خلاله باقي قسمة العدد أ على 2 وذلك بطرح منه 2 كل مرة حتى يصل إلى القيمة 1 أو 0 فإذا بقي 1 يعني أن باقي القسمة هو واحد وكذلك مع 0 يعني أن باقي القسمة هو 0
ربما فيما بعد إن استطعت كتابة واحدة بلغة سي++ وأضعها في الردود لأنها ستكون أقصر وأسرع ثم تحويلها للغة ألف
تفضلوا في تطويرها وشكرا لكم
