تويت
p = String.ToNumber(Input.GetText("Input1"));
g =""
x=1
repeat
p,n =Math.Floor(p/3),Math.Mod(p,3)
x=x+1;g=g..n;
until p <=0
Dialog.Message("Notice", string.reverse (g));
function Num_Sys(num,sys)
p = String.ToNumber(num);
g =""
repeat
p,n =Math.Floor(p/sys),Math.Mod(p,sys)
g=g..n;
until p <=0
return string.reverse (g)
end
result = Num_Sys(30,3)
Dialog.Message("Notice", result);
function Num_Sys(num,sys)
result = Num_Sys(30,6)
Dialog.Message("Notice", result);
الأنظمة العددية تبدأ من الثنائى و تنتهى بالنظام الرابع و الستينى (على حد علمى قد يكون هناك أكثر .. لا أعلم ) 
p = String.ToNumber(Input.GetText("Input1"));
my_table = {"A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T"};
g ="";x=1
repeat
p,n =Math.Floor(p/30),Math.Mod(p,30)
x=x+1
if n >= 10 and n < 20 then
x1 = String.Mid(n, 1, 1)+ String.Mid(n, 2, 1)
n =my_table[x1]
elseif n >= 20 then
x2 = n-9
n =my_table[x2]
end
g=g..n
until p <=0
Dialog.Message("Notice", string.reverse (g));
local floor,insert = math.floor, table.insert
function basen(n,b)
n = floor(n)
if not b or b == 10 then return tostring(n) end
local digits = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
local t = {}
local sign = ""
if n < 0 then
sign = "-"
n = -n
end
repeat
local d = (n % b) + 1
n = floor(n / b)
insert(t, 1, digits:sub(d,d))
until n == 0
return sign .. table.concat(t,"")
end
----------------------------------------
Dialog.Message("Notice", basen("99999999999999",36));
local floor,insert = math.floor, table.insert
function basen(n,b)
n = floor(n)
if not b or b == 10 then return tostring(n) end
local digits = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
local t = {}
repeat
local d = (n % b) + 1
n = floor(n / b)
insert(t, 1, digits:sub(d,d))
until n == 0
return table.concat(t,"")
end
function Num_Sys(num,sys)
num = math.floor(num)
if not sys or sys == 10 then return tostring(num) end
local Numbers = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
local t = {}
repeat
local d = (num % sys) + 1
num = math.floor(num / sys)
table.insert(t, 1, string.sub(Numbers, d, d))
until num == 0
return table.concat(t,"")
end
"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
CLJ6^2N1[
function Num_Sys(num,sys)
num = math.floor(num)
if not sys or sys == 10 then return tostring(num) end
local Numbers = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz+/"
local t = {}
repeat
local d = (num % sys) + 1
num = math.floor(num / sys)
table.insert(t, 1, Numbers:sub(d,d))
until num == 0
return table.concat(t,"")
end
تعليق