طباعة سلسلة عددية متناظرة

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

السلام عليكم ورحمة الله وبركاته
شد انتباهي في مواقع مختصة في لغات برمجية
قد لا أعرف منها الا الاسم ...
تساؤل مفاده صياغة كود لطباعة الشكل التالي بأسهل الطرق
100000000000001
010000000000010
001000000000100
000100000001000
000010000010000
000001000100000
000000101000000
000000010000000
000000101000000
000001000100000
000010000010000
000100000001000
001000000000100
010000000000010
100000000000001

هل يمكن تحقيق ذلك برمجيا قد تكتب الكود التالي :
g=
[[
100000000000001
010000000000010
001000000000100
000100000001000
000010000010000
000001000100000
000000101000000
000000010000000
000000101000000
000001000100000
000010000010000
000100000001000
001000000000100
010000000000010
100000000000001
]]
Dialog.Message("Notice",g);

و معاينته أي نعم يحقق المطلوب لكنه ليس كود برمجي ... مرفوض

هات محاولة ... اذ لا تستهويك أسئلة من هذا النوع أنا كذلك لا تستهويني ألوان الأزرار
موفق :abc_138:

[عبد الهادي بهاب]

و لا انا ايضا ............لكن لا تنتظر مني الحل :abc_152:

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

و لا انا ايضا ............لكن لا تنتظر مني الحل :abc_152:

و يمنع استعمال المصفوفات ... ان فكرت في كتابة الحل يوما
موفق :abc_138:

[عبد الهادي بهاب]

و صلت الى معادلة للنصف الأول اي حتى رقم

000000010000000

حتى اعكس الكود الى صلاة المغرب

[عبد الهادي بهاب]

و يمنع استعمال المصفوفات ... ان فكرت في كتابة الحل يوما
موفق :abc_138:

لالالالالا ..........لازالت في القسمة و كود String.repeat

و المشكل في الجزء الثاني

[عبد الهادي بهاب]

و يمنع استعمال المصفوفات ... ان فكرت في كتابة الحل يوما
موفق :abc_138:

محاولة ......... ضع في الصفحة 15 انبوت ........فارغ
في زر نضع الكود التالي :


Input.SetText("Input1", "100000000000001");
for i=2,7 do p=i-1; t = 10^(p-1);tt = 10^i;
g = String.ToNumber(Input.GetText("Input"..p))-t;
g = g/tt;
g = (g+1)*10^p;
Input.SetText("Input"..i, String.Repeat("0",p)..g);
end
Input.SetText("Input8", "000000010000000");
for d=9,15 do f = 16-d
Input.SetText("Input"..d, Input.GetText("Input"..f));
end



بالتوفيق

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

01 - عدد الاسطر 15
02- :abc_085:الحل مرفوض :abc_085: من جهة المطلوب ايسر الطرق و من جهة استعمال الوسائط
كالانبوتات المخفية و غيرها تخلى عنها في محاولاتك البرمجية تستعمل الا في حالة اذا كان الحل مستحيلا
اذن حتى العناصر المساعدة للتخزين مرفوضة تحب تكسار الراس حاول و قد يكون الامر ابسط مما تتصور

لكنها تبقى حل جيد

[عبد الهادي بهاب]

01 - عدد الاسطر 15
02- :abc_085:الحل مرفوض :abc_085: من جهة المطلوب ايسر الطرق و من جهة استعمال الوسائط
كالانبوتات المخفية و غيرها تخلى عنها في محاولاتك البرمجية تستعمل الا في حالة اذا كان الحل مستحيلا
اذن حتى العناصر المساعدة للتخزين مرفوضة تحب تكسار الراس حاول و قد يكون الامر ابسط مما تتصور

لكنها تبقى حل جيد

http://4.bp.blogspot.com/_NXcBCAky1QQ/SwrvsWKOGfI/AAAAAAAAA6o/5Dbhz_t6Wkc/s1600/%D8%B3%D9%86%D9%81%D9%88%D8%B1+%D8%BA%D8%B6%D8%A8% D8%A7%D9%86.jpg

انا اكره تكسار الراس

http://www.lacreativeboutique.fr/wp-content/uploads/2013/06/Casse-tete-invitations-evenement.jpg

[عبد الهادي بهاب]

المهم امحو كل شيء و اترك فقط

:abc_012::abc_012:............لكنها تبقى حل جيد.............:abc_088::abc_088:

[عبد الهادي بهاب]

هل الامر يتعلق بدالة الاستبدال
String.replace

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

بالنسبة لي اخي لم استعمل
الا دالة for للتعبير عن حلقتين و الشرط if
--------------- لكن هذا ليس معناه الحل الاجمل او الوحيد:abc_088: ----------
نقرأ الأفكــــار لنستفيد :abc_138:

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

السلام عليكم ورحمة الله وبركاته
إلى أن يتحرك الموقع و تكون هناك قابلية لتقبل التمرينات
بخلفية التعلم ها هي محاولة لما طرحت حتى يغلق الموضوع طرحا وحلا .... تقديري :abc_138:
g=''
for i=1,15 do
for j=1,15 do
if j == i or j == 16 -i then
g=g.."1";else g=g.."0"
end;end;g=g.."\r\n"
end
Dialog.Message("Notice",g);

فقط .

[عبد الهادي بهاب]

السلام عليكم ورحمة الله وبركاته
إلى أن يتحرك الموقع و تكون هناك قابلية لتقبل التمرينات
بخلفية التعلم ها هي محاولة لما طرحت حتى يغلق الموضوع طرحا وحلا .... تقديري :abc_138:
g=''
for i=1,15 do
for j=1,15 do
if j == i or j == 16 -i then
g=g.."1";else g=g.."0"
end;end;g=g.."\r\n"
end
Dialog.Message("Notice",g);

فقط .

فقط .........جميل جدا .......... يعني اذا اردنا عدد اكبر غير فقط 15 و 16 و كل شيء تمام

http://a.top4top.net/p_74c5xx1.png

شكرا جزيلا ..........الله لا تخطيك يا ابو خلود ..........حتى تكتشف لقطة اخرى ننتظر تمارين اخرى

[ياسرهتهت]

السلام عليكم ورحمة الله وبركاته
إلى أن يتحرك الموقع و تكون هناك قابلية لتقبل التمرينات
بخلفية التعلم ها هي محاولة لما طرحت حتى يغلق الموضوع طرحا وحلا .... تقديري :abc_138:
g=''
for i=1,15 do
for j=1,15 do
if j == i or j == 16 -i then
g=g.."1";else g=g.."0"
end;end;g=g.."\r\n"
end
Dialog.Message("Notice",g);

فقط .

---------
بسم الله الرحمن الرحيم
يحرمني النت هذه الايام من المتابعة والتعلم
لك كل الشكر والتقدير استاذي الفاضل ابوبلقيس
هل لو تكرمت وسمح وقتك ان تشرح اسطر هذا
الكود الذي ذكرت بشيء من التفصيل
موفق بإذن الله ... لك مني أجمل تحية .
:abc_138::abc_138:

[عبد الهادي بهاب]

---------
بسم الله الرحمن الرحيم
يحرمني النت هذه الايام من المتابعة والتعلم
لك كل الشكر والتقدير استاذي الفاضل ابوبلقيس
هل لو تكرمت وسمح وقتك ان تشرح اسطر هذا
الكود الذي ذكرت بشيء من التفصيل
موفق بإذن الله ... لك مني أجمل تحية .
:abc_138::abc_138:

على السريع .........في الحلقة الاولى من 1 الى 15 سيتغير i ........اثناء تغير المتغير j من 1 ايضا من1 الى 15 او 15 نحو 1 لانه عكسي .اذا تساوى القميتين نضيف لنص السترينج g ....رقم 1 ..........و اذا لم يتحقق الشرط نضيف للموجود 0 ............حتى تكتمل الحلقتين ........بحيث كلما انتهت البوكل اي من 1الى 15 يسجل الناتج في سطر في الديالوج ...........ثم يبدا البوكل الثاني ....وهكذا......و الله اعلم

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

على السريع .........في الحلقة الاولى من 1 الى 15 سيتغير i ........اثناء تغير المتغير j من 1 ايضا من1 الى 15 او 15 نحو 1 لانه عكسي .اذا تساوى القميتين نضيف لنص السترينج g ....رقم 1 ..........و اذا لم يتحقق الشرط نضيف للموجود 0 ............حتى تكتمل الحلقتين ........بحيث كلما انتهت البوكل اي من 1الى 15 يسجل الناتج في سطر في الديالوج ...........ثم يبدا البوكل الثاني ....وهكذا......و الله اعلم

بالضبط :abc_138: