تويت
-
-
قبل وضع الحل للاستراحة البرمجية السابقة
أدعوك للاستمتاع بالبحث عن نقل تناضري لمحتويات الخلايا
في عنصر Grid لايحتوي على خلايا fixed
بحيث تنتقل المحتويات متناضرة الأولى في الاخيرة و الثانية في ما قبل الأخير
وهكذا والانتباه لعمود الوسط
ساكتب تلميح
لنقل المحتويات الأولى إلى الأخيرة و ابني عليها برنامجك
بالتوفيقكود:x=0 p=Grid.GetRowCount("Grid1"); s=Grid.GetColumnCount("Grid1"); for i=x,p do c= Grid.GetCellText("Grid1", i, 0); Grid.SetCellText("Grid1", i,s-1 , c, true); end
تحتاجها في الطباعة مثلاتعليق
-
[gdwl]السؤال كان هكذا :
عندك 30 رقما ولتكن : خمسة عشرة 2 و خمسة عشرة 1
سأقوم بتشكيله من هذه الأرقام لعدد:
وهذه تشكيلة ثانيةكود PHP:111111111111111222222222222222
السؤال : هات برنامجا يحسب عدد كل التشكيلات الممكن تكوينها من هذين الرقمين لتكوين عدد يتكون من الرقمين 1 و 2[/gdwl]كود PHP:222222222222222111111111111111
الجواب : عدد التشكيلات 155117520
[gdwl]الحل كالتالي :
نتمنى لك استراحة طيبة عزيزي الزائركود PHP:local function fact(n)
if (n == 0) then
return 1;
else
return n*fact(n-1);
end
end
x = Input.GetText("Input1");
result = Dialog.Message("Notice",fact(x)/(fact(x/2)*(fact(x-x/2))));
[/gdwl]
تعليق
-
عزيزي الزائر بعد طرح معالجة مشكل
نقل تناضري داخل العنصر grid كاستراحة
هاهو حل لكن باهمال العمود الأول
هل يمكن معالجة اهمال العمود الأولــكود PHP:p=Grid.GetRowCount("Grid1");
s=Grid.GetColumnCount("Grid1");
for i=0,Math.Floor(s/2) do
for j = 0 , p do
k1= Grid.GetCellText("Grid1", j,i );
k2= Grid.GetCellText("Grid1", j,s-i );
Grid.SetCellText("Grid1", j,s-i , k1, true);
Grid.SetCellText("Grid1", j,i, k2, true);
end
end
أي يكون تناظر حقيقي هناااك خلل بسيط أين ؟
تعليق
-
حتى نمر معك عزيزي إلى طرح آخر
هذا هو الحل وقد تبدوا حلولا أجمل
مع ملاحظة أن هذا يعنى بالأعمدة اذا كان عددها فردياكود PHP:p=Grid.GetRowCount("Grid1");
s=Grid.GetColumnCount("Grid1");
for i=0,Math.Floor(s/2) do
for j = 0 , p do
k1= Grid.GetCellText("Grid1", j,i );
k2= Grid.GetCellText("Grid1", j,s-(i+1) );
Grid.SetCellText("Grid1", j,s-(i+1), k1, true);
Grid.SetCellText("Grid1", j,i, k2, true);
end
end
أما اذا كان زوجيا فلك أن تستنتج الحل ؟؟ بعدها
يبقى لدي تساؤل : كيف ننزع صفة fixed على العمود الأول
وجعلها في الأخير
لا تستغرب أخي أني أسال و أحاول الاجابة فراحتي في هذه الصفحة
السلام عليكمالتعديل الأخير تم بواسطة ثامر أبو بلقيس; الساعة 03-04-2014, 06:34 PM.تعليق
-
السلام عليكم ورحمة الله وبركاته
تشعر بالرتابة و الملل
افتح عزيزي الزائر مشروعا جديد
ولتكن لديك المجموعة التالية س = {1,2,3}
حاول استخراج كل احتمالات بكود عام التي من الممكن أن تشكل مجموعات جزئية للمجموعة
كالتالي :
{} المجموعة الخالية
{1}
{2}
{3}
{1,2}
{1,3}
{2,3}
{1,2,3}
نلتقي بود
تعليق
-
تعليق
-
السلام عليكم ورحمة الله وبركاته
عزيزي الزائر للاجابة على الاستراحة السابقة و للحصول
على المجموعات الجزئية للمثال السابق
لكن يبقى هذا كود صالح الا على مجموعة عناصرها أقل أو تساوي 3كود PHP:a = {1,2,3}
n = Table.Count(a);
table_values = Table.Concat(a, ",", 1, TABLE_ALL);
p =""
r = ""
for f = 1,n do
r=r.."{"..a[f].."}".."\r\n"
end
for i = 1,n do
for j = 1 , i do
if i ~= j then
p=p.."{"..a[i]..","..a[j].."}".."\r\n"
end
end
end
Dialog.Message("Notice","{}".."\r\n"..r.. p.."{"..table_values.."}");
أين الكود العام الذي سيسمح لنا بمعالجة كل التوقعات
لناااا لقاء إن شاء الله
سلام عزيزي الزائــر
تعليق
-
[hide][/hide]
تعليق
-
السلام عليكم ورحمة الله وبركاته
عزيزي الزائر لمحت في الموقع تلك الوجوه الضاحكة و المستعملة
في كثير الردود وربما بنفس النحو
جميل وبافتراض أن كل وجه يمثل رأس مثلث
ماهو عدد المثلثات التي يمكن تكوينها ؟
حاول كتابة برنامج يحسب الاحتمالات متفاديا استقامية ثلاث نقاط
لأنها لن تشكل مثلثا بالورقة و القلم أو رياضيا باستعمال الاحتمالات
قد تجد مثلا 23 مثلثا لكن المطلوب كتابة برمجية
موفقتعليق
-
غالبا ما أضع الوجوه الباسمة فى تشكيل مشابه
لذلك سأجيب
5 مثلثات
كل الوجوه معا تشكل المثلث الكبير
كل وجه باسم و معه وجهان غاضبان يشكلان مثلث (3 مثلثات)
الثلاثة وجوه الغاضبة تشكل مثلث
1+3+1 = 5
سأقدم حل يعتمد على عدد المستويات و ليس عدد النقاط
لأن عدد النقاط هو فى حد ذاته معضلة
فى مثالك ثلاثة صفوف من النقاط
تمثل مستويين من المثلثات
مشروع جديد
ضع 2 إنبوت
ضع زر
ضع هذا الكود فى الزر
ضع فى إنبوت 1 الرقم 2 لتجد الناتج 5 فى إنبوت2كود PHP:x = Input.GetText("Input1");
x = String.ToNumber(x);
n = x * ((x + 2) * (2*x + 1)) / 8
n = Math.Floor(n);
Input.SetText("Input2", n);
هنا
أربعة صفوف من النقاط و هى تشكل ثلاثة مستويات من المثلثات
نفذ الكود السابق
عدد المثلثات 13
هذا الكود يتجنب إحتساب نفس المثلث أكثر من مرة
و يعتبر أن المثلث أ ب ج هو نفسه ب ج أ هو نفسه ج أ ب
و لو كانت عدد المستويات = 1000
سنحصل على ما يزيد عن 250 مليون مثلث غير متكررتعليق
-
بارك الله فيك أستاذي خالد
لنختلف قليلا وسأأخذ المثال الاول
أخبرتني أستاذ بأن العدد 5 فنحن نريد ايجاد كل المثلثات
الممكن تكوينها دون التركيز على متساوية الاضلاع فقط
فيمكننا تشكيل مثلثات قائمة كثيرة حتى و إن مر أحد أضلاعها
بوجه ضاحك بمعنى العدد أكثر و قد يتطلب استعمال التوفيقة
للحصول على العدد المطلوب مسجلا احتجاج كل المثلثات القائمة
مرورك عطر
تعليق
-
السلام عليكم ورحمة الله وبركاته
في المشاركة الاخيرة لك اخي ثامر اليست عدد المثلثات 9
تعليق
-
أخي صالحي في المثال المطروح العدد 17 مثلثا
لو نعوض كل وجه بنقطة أو حرف سيتضح أكثر المشهد
مرور عطر بارك الله فيك
تعليق
-
لن يكون الحل سهل
بالتوفيقتعليق
تعليق