110001000111011

Λατινικό σύστημα :

Δεκαδικό σύστημα : 

Δυαδικό σύστημα :

γράψτε τον αριθμό :

 Μετατροπή αριθμών από ένα 
 αριθμητικό σύστημα σε άλλο

με κεφαλαία Λατινικά π.χ. MCXIV

Ο αριθμός πρέπει να είναι
 μικρότερος από 4000.

μόνο με 0 και 1

LL1: {"I", "V", "X", "L", "C", "D", "M"}
LL2: {1, 5, 10, 50, 100, 500, 1000}
e = false
a = false
KKK1 = If(Length[KKK] > 12, Take[KKK, 1, 12], KKK)
abc3, DLat1 = ΛατινικόΣεΔεκαδικό(KKK1, LL1, LL2)
KKK2 = Sequence(Take[KKK1, n, n], n, 1, Length[KKK1])
KKK3 = Sequence(If[FromBase[Element[KKK2, n], 10] > 1, "0", Element[KKK2, n]], n, 1, Length[KKK2])
KKK4 = Sequence((FromBase[Element[KKK3, Length[KKK3] - n], 10] * 2^(n)), n, 0, Length[KKK1] - 1)
abc2 = Sum(KKK4)
f = false
abc1 = If(a, FromBase[KKK, 10], If[f, abc2, If[e, abc3, 0]])
Dek1 = If((a ∨ f ∨ e) ∧ (KKK ≠ ""), ToBase[abc1, 10], "")
mDek1 = Length(Dek1)
N: {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000, 2000, 3000}
L: {"", "I", "II", "III", "IV", "V", "VI", "VII", "VIII", "IX", "X", "XX", "XXX", "XL", "L", "LX", "LXX", "LXXX", "XC", "C", "CC", "CCC", "CD", "D", "DC", "DCC", "DCCC", "CM", "M", "MM", "MMM"}
mN = Length(N)
mL = Length(L)
u1 = Mod(abc1, 1000)
u2 = Mod(u1, 100)
u3 = Mod(u2, 10)
a4 = Div(u3, 1)
a3: (Div[u2, 10] * 10)
a2: (Div[u1, 100] * 100)
a1: (Div[abc1, 1000] * 1000)
L1 = Element(L, Length[KeepIf[x ≤ a1, N]])
L2 = Element(L, Length[KeepIf[x ≤ a2, N]])
L3 = Element(L, Length[KeepIf[x ≤ a3, N]])
L4 = Element(L, Length[KeepIf[x ≤ a4, N]])
W1 = Division(abc1, 2)
W2 = Division(Element[W1, 1], 2)
W3 = Division(Element[W2, 1], 2)
W4 = Division(Element[W3, 1], 2)
W5 = Division(Element[W4, 1], 2)
W6 = Division(Element[W5, 1], 2)
W7 = Division(Element[W6, 1], 2)
W8 = Division(Element[W7, 1], 2)
W9 = Division(Element[W8, 1], 2)
W10 = Division(Element[W9, 1], 2)
W11 = Division(Element[W10, 1], 2)
W12 = Division(Element[W11, 1], 2)
Wπηλίκα: {Element[W1, 1], Element[W2, 1], Element[W3, 1], Element[W4, 1], Element[W5, 1], Element[W6, 1], Element[W7, 1], Element[W8, 1], Element[W9, 1], Element[W10, 1], Element[W11, 1], Element[W12, 1]}
Wυπόλοιπα: {Element[W1, 2], Element[W2, 2], Element[W3, 2], Element[W4, 2], Element[W5, 2], Element[W6, 2], Element[W7, 2], Element[W8, 2], Element[W9, 2], Element[W10, 2], Element[W11, 2], Element[W12, 2]}
d1: Length[KeepIf[x ≠ 0, Wπηλίκα]] + 1
Wυπόλοιπα1 = Reverse(Take[Wυπόλοιπα, 1, d1])
Wυπόλοιπα2 = Sequence(ToBase[Element[Wυπόλοιπα1, n], 10], n, 1, d1)
Εισ1 = Textfield(KKK)
ADek1 = If(a, FromBase[Dek1, 10], 0)
Diad1 = If(f ∧ (KKK ≠ ""), ToBase[abc2, 10], "")
b = false
κείμενο8 = LaTeX(LL1, true, true)
Dek2: "" + (If[a ∨ e ∨ f, L1 + L2 + L3 + L4, ""]) + ""
Dek3 = If((a ∨ f ∨ e) ∧ (KKK ≠ ""), Sum[Wυπόλοιπα2], "")

Tool: ΛατινικόΣεΔεκαδικό
Δώστε τον αριθμό σε Λατινική μορφή
Input: K1, L1, L2
Output: Nteliko, K2

MMMLXXXIX

m = Length(K1)
L3 = Sequence(Take[K1, n, n], n, 1, m)
L2: {1, 5, 10, 50, 100, 500, 1000}
L1: {"I", "V", "X", "L", "C", "D", "M"}
v13 = Element(L2, IndexOf[Element[L3, 13], L1])
v12 = Element(L2, IndexOf[Element[L3, 12], L1])
w13 = If(v12  <  v13, v13 - (2 * v12), v13)
v11 = Element(L2, IndexOf[Element[L3, 11], L1])
w12 = If(v11  <  v12, v12 - (2 * v11), v12)
v10 = Element(L2, IndexOf[Element[L3, 10], L1])
w11 = If(v10  <  v11, v11 - (2 * v10), v11)
v09 = Element(L2, IndexOf[Element[L3, 9], L1])
w10 = If(v09  <  v10, v10 - (2 * v09), v10)
v08 = Element(L2, IndexOf[Element[L3, 8], L1])
w09 = If(v08  <  v09, v09 - (2 * v08), v09)
v07 = Element(L2, IndexOf[Element[L3, 7], L1])
w08 = If(v07  <  v08, v08 - (2 * v07), v08)
v06 = Element(L2, IndexOf[Element[L3, 6], L1])
w07 = If(v06  <  v07, v07 - (2 * v06), v07)
v05 = Element(L2, IndexOf[Element[L3, 5], L1])
w06 = If(v05  <  v06, v06 - (2 * v05), v06)
v04 = Element(L2, IndexOf[Element[L3, 4], L1])
w05 = If(v04  <  v05, v05 - (2 * v04), v05)
v03 = Element(L2, IndexOf[Element[L3, 3], L1])
w04 = If(v03  <  v04, v04 - (2 * v03), v04)
v02 = Element(L2, IndexOf[Element[L3, 2], L1])
w03 = If(v02  <  v03, v03 - (2 * v02), v03)
v01 = Element(L2, IndexOf[Element[L3, 1], L1])
w02 = If(v01  <  v02, v02 - (2 * v01), v02)
w01: v01
L7: {w01, w02, w03, w04, w05, w06, w07, w08, w09, w10, w11, w12, w13}
L8 = KeepIf(x > 0, L7)
Nteliko = Sum(L8)
K2 = ToBase(Nteliko, 10)