حل فزورة باستخدام
البرمجة
هذه فزورة صعبة الحل يدويا، لأنها تحتوي على معادلات غير خطيةة
(فيها باقي القسمة)، لهذا كتبت كود فيجوال بيزيك لحلها.
الفزورة:
اشترى ثلاثة أشخاص عددا من التفاح، وكان معهم حمارهم.. واتي
عليهم الليل فناموا.
استيقظ الشخص الأول وقسم التفاح إلي ثلاثة أقسام متساوية فتبقت
واحده زائدة. فأكل هو نصيبه وأعطي الواحدة للحمار.
ثم استيقظ الثاني فقسم المتبقي علي ثلاثة أقسام وتبقت واحده أعطاها
للحمار بينما اكل هو نصيبه.
ثم استيقظ الثالث بعدهما فقسم الموجود ثلاثة أقسام وتبقت واحده
أعطاها للحمار.
وفي الصباح استيقظ الثلاثة وقسموا التفاح المتبقي عليهم فتبقت
واحده أعطوها للحمار، وأكل
هو نصيبه.
فكم كان عدد التفاح منذ البداية (مطلوب أصغر عدد).
الكود:
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
Console.WriteLine(x)
End Sub
ليست هناك تعليقات:
إرسال تعليق
ملحوظة: يمكن لأعضاء المدونة فقط إرسال تعليق.