رسم المثلثات القائمة

[ثامر أبو بلقيس]

السلام عليكم ورحمة الله وبركاته

رسم المثلثات القائمة يحيل مباشرة لتذكر نظرية فيثاغورس
مربع الضلع الاول + مربع الضلع الثاني = مربع الوتر
-------------
لكن هنااا نريد حساب كل المثلثات الممكن رسمها و تحقق هذه النظرية
بأعداد طبيعية " غير عشرية "
---------------
ماهي المثلثات الممكن رسمها انطلاقا من حصر طول أحد الاضلاع
----------
ليكن الضلع أب لا يتجاوز 200 بدون تحديد وحدات قياس معينة

كود :
my_table = {};
for _=1,100 do
for u=1,5000 do
k=(_*_+u*u)^.5
y=k%1>0 or Table.Insert(my_table, 1, (_.." "..u.." "..k)) end
end
belkiss=""
for k ,f in pairs (my_table) do
belkiss=belkiss.."{"..f.."}".." "
end
Dialog.Message("Notice", belkiss);

موفق :abc_138:

[abohmam]

جزاك الله خيرا أخى ابا بلقيس

بارك الله في جهودك الدائمة

ان شاء الله يتم تفاعل من الأخوة المهتمين بهذا المجال

[ثامر أبو بلقيس]

شكرا على المرور الطيب
سيأتي يوم مَن يفهم و يبحث عما أكتب إن شاء الله :abc_138:

[أبو فارس]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .