Roman Numeral Converter - Cemetech | Forum

» Forum > Calculator Programming > TI-BASIC

»
» View previous topic :: View next topic

readroof2
Advanced Member (Posts: 214)

Roman Numeral Converter
21 Aug 2015 05:18:59 pm

I was thinking about making a Roman-Arabic numeral converter for the TI-84+CSE/CE. I found one at http://www.ticalc.org/archives/files/fileinfo/202/20226.html on ticalc, but I couldn't find one in the archives. Would this be a waste of time, or a valuable addition to the Cemetech archives? I think I already have an idea of how I would do it:

Please reply with feedback! I will make a demo and screenshots.

lirtosiast
1
Power User (Posts: 338)

21 Aug 2015 06:40:11 pm

I know it isn't good form to give code instead of help, but I wrote this two-way converter a while ago, borrowing a code snippet from Ed H. It's not very flashy, but it's functional and very small, so I suggest you use it as the core of your program.

Code:

"IVXLCDM"→Str3


Input Str1 


expr("0"+Str1→N


If N


Then      ;Str1 is an Arabic numeral


" "→Str1


For(I,0,log(N


.1int(N→N


10fPart(N→A


While A


.1sum({22,42,74}(A={4,5,9→B


A-1-int(B→A


sub(Str3,2I+5fPart(B)+1,1)+Str1→Str1


End


End


Else        ;Str1 is a Roman numeral


.5seq(inString(Str3,sub(Str1,X,1)),X,1,length(Str1


sum(10^(int(Ans))(.5+fPart(Ans)-2(Ans<ΔList(cumSum(augment(Ans,{0


End


Ans

iPhoenix
3
friendly neighborhood site admin (Posts: 1918)

23 Oct 2016 02:22:17 pm

lirtosiast wrote:

I know it isn't good form to give code instead of help, but I wrote this two-way converter a while ago, borrowing a code snippet from Ed H. It's not very flashy, but it's functional and very small, so I suggest you use it as the core of your program.

Code:

"IVXLCDM"→Str3


Input Str1 


expr("0"+Str1→N


If N


Then      ;Str1 is an Arabic numeral


" "→Str1


For(I,0,log(N


.1int(N→N


10fPart(N→A


While A


.1sum({22,42,74}(A={4,5,9→B


A-1-int(B→A


sub(Str3,2I+5fPart(B)+1,1)+Str1→Str1


End


End


Else        ;Str1 is a Roman numeral


.5seq(inString(Str3,sub(Str1,X,1)),X,1,length(Str1


sum(10^(int(Ans))(.5+fPart(Ans)-2(Ans<ΔList(cumSum(augment(Ans,{0


End


Ans

Couldn't one implement the part where you multiply the value by 1000 by adding a line over the top? I'm thinking a program that draws Text() commands slightly over one another so that there is a Minus sign over the letter. I'm probably going to attempt this at some point, but I doubt I'll get to it before someone else.

DJ Omnimaga
Guru-in-Training (Posts: 2859)

23 Oct 2016 10:36:55 pm

Since it's Halloween soon, this is kinda relevant:
https://www.cemetech.net/projects/uti/viewtopic.php?p=58792#58792
https://www.cemetech.net/projects/uti/viewtopic.php?p=138098#138098

iPhoenix
3
friendly neighborhood site admin (Posts: 1918)

24 Oct 2016 02:33:07 pm

DJ_O wrote:

Since it's Halloween soon, this is kinda relevant:
https://www.cemetech.net/projects/uti/viewtopic.php?p=58792#58792
https://www.cemetech.net/projects/uti/viewtopic.php?p=138098#138098

Cool!

Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.

» Go to Registration page

Reply to topic

»
» View previous topic :: View next topic

Page 1 of 1

» All times are UTC - 5 Hours