تمرين ...انشاء جدول الضرب

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

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

تمرين 1 : هل يمكن من خلال كود انشاء جدول الضرب من 1 الى 12
كود او ملف مفتوح

http://www.teachersuperstore.com.au/wp-content/uploads/2012/12/Times-Table.jpg

لا يهم الشكل لكن الكود

-------------------------
تمرين2 : ماهس الكود الذي يستخرج لنا الثنائيات المتساوية
مثال
(4x6)(8x3)(6x4)(3x8)(12x1)(1x12)

-----------
ممكن من خلال التمرين ان تصمم برنامج للرياضيات تعليمي
تحياتي
:abc_152::abc_152::abc_152:

[نسيم الجزائر]

g =""
number =24
for x =1,12 do
for y= 1,12 do
b = x*y
if b ==number then
g=g.."("..x.." x "..y..")".." = "..b.."\r\n"
end
end
end
Dialog.Message("Notice", g);


موفق:abc_145:

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

مثال جدول الضرب من 1 إلى 9
g1=""
t=0
for k =1,9 do
for i=1,9 do
number = k*i
g1=g1..k.."x"..i.."="..number.."\t"
t=t+1
if t == 9 then
g1=g1.."\r\n"
t=0
end
end
end
Dialog.Message("Notice", g1);

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

الثنائيات الزوجية المتساوية جداءً
g =""
for u=1,144 do
for x =1,12 do
for y= 1,12 do
number = x*y
if x ~= y and number ==u then
g=g.."("..x.." x "..y..")".." = "..number.."\r\n"
end
end
end
end
Debug.Clear()
Debug.ShowWindow(true);
Debug.Print(g);

[فرح صالحي]

موفق بإذن الله ..:abc_022:. لك مني أجمل تحية .

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

g =""
number =24
for x =1,12 do
for y= 1,12 do
b = x*y
if b ==number then
g=g.."("..x.." x "..y..")".." = "..b.."\r\n"
end
end
end
Dialog.Message("Notice", g);
موفق:abc_145:

فيه خطأ ....كودك لا يعطي سوى احتمالات قليلة
تعديل على الكود ليشمل كل الاحتمالات و بشكل افضل يظهر كلها


g =""
for x =1,12 do
for y= 1,12 do
g= g.."("..x.." x "..y..")".." = "..x*y.." / "
end
end
Dialog.Message("Notice", g);

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

مثال جدول الضرب من 1 إلى 9
g1=""
t=0
for k =1,9 do
for i=1,9 do
number = k*i
g1=g1..k.."x"..i.."="..number.."\t"
t=t+1
if t == 9 then
g1=g1.."\r\n"
t=0
end
end
end
dialog.message("notice", g1);

روعة مرتب بشكل دقيق و جميل

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

الثنائيات الزوجية المتساوية جداءً
g =""
for u=1,144 do
for x =1,12 do
for y= 1,12 do
number = x*y
if x ~= y and number ==u then
g=g.."("..x.." x "..y..")".." = "..number.."\r\n"
end
end
end
end
debug.clear()
debug.showwindow(true);
debug.print(g);


واوو.....جميل جدا ..دائما حاضر و فنان ربي يجفظكم سيدي الكريم
ارجو ان ينقل الى الشروحات و الدروس بعنوان واضح مثلا ( كود جدول الضرب )
كما ارجو ان يجد طريقا لاستغلاله

[نسيم الجزائر]

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

-------------------------
تمرين2 : ماهس الكود الذي يستخرج لنا الثنائيات المتساوية
مثال
(4x6)(8x3)(6x4)(3x8)(12x1)(1x12)




الثنائيات الموجودة في سؤالك ... هل كلها متساوية ؟

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

الثنائيات الموجودة في سؤالك ... هل كلها متساوية ؟

تحية طيبة الشيخ نسيم .قصدت استخراج الثنائيات المتساوية كل على حدى

مثاله الكود الذي استخدمه الاستاذ ثامر

[يوسف البراهيم]

تحية طيبة الشيخ نسيم .قصدت استخراج الثنائيات المتساوية كل على حدى

مثاله الكود الذي استخدمه الاستاذ ثامر

لو سمحت عزيزي عبدالهادي شنو الخطأ في هذا

انا اريد وضع عدد معين في input و تطلع لي جميع الاعداد اللي حاصل ضربها هذا العدد

يعني مثلا لو وضع في input

12
تظهر لي جميع الاعداد التي حاصلها ضربها يساوي 12
ولو وضعت 24

تظهر لي جميع الاعداد التي حاصلها ضربها يساوي 24

https://up.top4top.net/downloadf-818ogq9f1-rar.html

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

تظهر لي جميع الاعداد التي حاصلها ضربها يساوي 24
]

تعديل على الكود في الزر
اولا عندما تتعامل مع القيم الحسابية استعمل دائما string.tonumber اي القيمة العددية للنص او بشكل اخر tonumber
اي البرنامج لما اعطيه x = input.gettext(hhh) يعني النص لكن لذا سبقتها بعبارة string.tonumber فعو يتعامل مع الارقام

ثم نعدل من 1 الى قسمة الانوبت

g =""
number =String.ToNumber( Input.GetText("Input1"));

for x =1,number do
for y= 1,number do
b = x*y
if b == number then
g=g.."("..x.." x "..y..")".." = "..b.."\r\n"
end
end
end
Dialog.Message("Notice", g);

جرب و غير قيمة الانبوت للعدد الذي تريد

[يوسف البراهيم]

الله يعطيك الف عافية

كل يوم نتعلم حاجة جديدة من عندك

الف الف الف الف شكر