ثامر أبو بلقيس
16-07-2013, 05:11 AM
السلام عليكم
أولا الترجمة هي هكذا الضرب الأثيوبي فحافظت على نفس التسمية
عند إطلاعي على الفكرة و مما لا شك فيه أن عملية الضرب بسيطة جدا
في الاوتوبلاي و الغاية هنا الإطلاع لا غير
لمعرفة كيفية إجراء الضرب يدويا وفق هذه الطريقة شاهد الملف المرئي
http://www.gulfup.com/?m1UT5n
و لتحقيقها في الاوتوبلاي ضع الكود التالي في Global function
function halve(a)
return a/2
end
function double(a)
return a*2
end
function isEven(a)
return Math.Mod(a, 2) == 0
end
function ethiopian(x, y)
local result = 0
while (x >= 1) do
if not isEven(x) then
result = result + y
end
x = math.floor(halve(x))
y = double(y)
end
return result;
end
ثم ضع أنبوت 1 و انبوت 2 وزر ضع تحته الكود :
x = Input.GetText("Input1");
x = String.ToNumber(x);
y = Input.GetText("Input2");
y = String.ToNumber(y);
ethiopian(x, y)
result = Dialog.Message("Notice",ethiopian(x, y));
ستحقق إجراء العملية بهذه الطريقة
سلام :abc_152:
أولا الترجمة هي هكذا الضرب الأثيوبي فحافظت على نفس التسمية
عند إطلاعي على الفكرة و مما لا شك فيه أن عملية الضرب بسيطة جدا
في الاوتوبلاي و الغاية هنا الإطلاع لا غير
لمعرفة كيفية إجراء الضرب يدويا وفق هذه الطريقة شاهد الملف المرئي
http://www.gulfup.com/?m1UT5n
و لتحقيقها في الاوتوبلاي ضع الكود التالي في Global function
function halve(a)
return a/2
end
function double(a)
return a*2
end
function isEven(a)
return Math.Mod(a, 2) == 0
end
function ethiopian(x, y)
local result = 0
while (x >= 1) do
if not isEven(x) then
result = result + y
end
x = math.floor(halve(x))
y = double(y)
end
return result;
end
ثم ضع أنبوت 1 و انبوت 2 وزر ضع تحته الكود :
x = Input.GetText("Input1");
x = String.ToNumber(x);
y = Input.GetText("Input2");
y = String.ToNumber(y);
ethiopian(x, y)
result = Dialog.Message("Notice",ethiopian(x, y));
ستحقق إجراء العملية بهذه الطريقة
سلام :abc_152: