ثامر أبو بلقيس
06-03-2014, 07:30 PM
السلام عليكم ورحمة الله
نتذكر أخي الثلاثية الفيثاغورسية
وهي ثلاثة أطوال تصلح كأطوال لمثلث قائم الزاوية
بحيث يكون مربع طول الضلع الأول + مربع طول الضلع الثاني = مربع طول الضلع الثالث
مثال : أطوال أضلاع مثلث هي : 5 , 12 , 13
بالحساب نجد : مربع 5 + مربع12 = مربع 13
أي : 25+144 =169 لذلك نقول 5 , 12 , 13 ثلاثية فيثاغورسية
=====
وفيمايلي خطوات ايجاد ثلاثية فيثاغورسية انطلاقا من معرفة طول واحد
هنااا حالتين
أولاً : إذا كان العدد فردياً
1) ربّع العدد
2) اقسم العدد الناتج إلى عددين متتاليين
3) يكون العدد الأصلي والعددين الناتجين ثلاثية فيثاغورسية
ثانيا ً :إذا كان العدد زوجياً
1) ربع العدد
2) اقسم العدد الناتج على 2
3) جزئ العدد الناتج إلى عددين فرديين أو زوجيين متتاليين
4) تكون الأعداد الناتجة ثلاثية فيثاغورسية
====================================
وبمساعدة أخي ياسر هاهي ترجمة لهذه الخوارزمية البسيطة
استغل انبوت و أكتب فيه طول معين
قد نوفق في ايجاد ثلاثية تحقق القاعدة
x = Input.GetText("Input1");
v1= x^2
v2= Math.Floor((x*x)/2);
if Math.Mod(x,2)~=0 then
Dialog.Message("Notice", x..","..v2..","..v2+Math.Mod(v1, 2));
else
d2 = x^2/2
d3 =(d2-2)/2
Dialog.Message("Notice",x..","..d3..","..d3+2);
end
السلام عليكم
نتذكر أخي الثلاثية الفيثاغورسية
وهي ثلاثة أطوال تصلح كأطوال لمثلث قائم الزاوية
بحيث يكون مربع طول الضلع الأول + مربع طول الضلع الثاني = مربع طول الضلع الثالث
مثال : أطوال أضلاع مثلث هي : 5 , 12 , 13
بالحساب نجد : مربع 5 + مربع12 = مربع 13
أي : 25+144 =169 لذلك نقول 5 , 12 , 13 ثلاثية فيثاغورسية
=====
وفيمايلي خطوات ايجاد ثلاثية فيثاغورسية انطلاقا من معرفة طول واحد
هنااا حالتين
أولاً : إذا كان العدد فردياً
1) ربّع العدد
2) اقسم العدد الناتج إلى عددين متتاليين
3) يكون العدد الأصلي والعددين الناتجين ثلاثية فيثاغورسية
ثانيا ً :إذا كان العدد زوجياً
1) ربع العدد
2) اقسم العدد الناتج على 2
3) جزئ العدد الناتج إلى عددين فرديين أو زوجيين متتاليين
4) تكون الأعداد الناتجة ثلاثية فيثاغورسية
====================================
وبمساعدة أخي ياسر هاهي ترجمة لهذه الخوارزمية البسيطة
استغل انبوت و أكتب فيه طول معين
قد نوفق في ايجاد ثلاثية تحقق القاعدة
x = Input.GetText("Input1");
v1= x^2
v2= Math.Floor((x*x)/2);
if Math.Mod(x,2)~=0 then
Dialog.Message("Notice", x..","..v2..","..v2+Math.Mod(v1, 2));
else
d2 = x^2/2
d3 =(d2-2)/2
Dialog.Message("Notice",x..","..d3..","..d3+2);
end
السلام عليكم