المتابعون للمدونة

السبت، 27 يونيو 2020

حل فزورة باستخدام البرمجة


حل فزورة باستخدام البرمجة

هذه فزورة صعبة الحل يدويا، لأنها تحتوي على معادلات غير خطيةة (فيها باقي القسمة)، لهذا كتبت كود فيجوال بيزيك لحلها.

الفزورة:
اشترى ثلاثة أشخاص عددا من التفاح، وكان معهم حمارهم.. واتي عليهم الليل فناموا.
استيقظ الشخص الأول وقسم التفاح إلي ثلاثة أقسام متساوية فتبقت واحده زائدة. فأكل هو نصيبه وأعطي الواحدة للحمار.
ثم استيقظ الثاني فقسم المتبقي علي ثلاثة أقسام وتبقت واحده أعطاها للحمار بينما اكل هو نصيبه.
ثم استيقظ الثالث بعدهما فقسم الموجود ثلاثة أقسام وتبقت واحده أعطاها للحمار.
وفي الصباح استيقظ الثلاثة وقسموا التفاح المتبقي عليهم فتبقت واحده أعطوها للحمار، وأكل هو نصيبه.
فكم كان عدد التفاح منذ البداية (مطلوب أصغر عدد).
 
الكود:
Sub main( )
        Dim x = 1
        Do
            x += 3
            Dim y = (x \ 3) * 2
            If y Mod 3 = 1 Then
                Dim z = (y \ 3) * 2
                If z Mod 3 = 1 Then
                    Dim w = (z \ 3) * 2
                    If w Mod 3 = 1 Then Exit Do
                End If
            End If
        Loop
        Console.WriteLine(x)
End Sub

ليست هناك تعليقات:

إرسال تعليق

ملحوظة: يمكن لأعضاء المدونة فقط إرسال تعليق.

صفحة الشاعر