Decimal to roman numbers converter

[Ashish]

@bplus great! :)
You documented my part of my code very well... I will need your help in future. LOL

[Ashish]

This is my approach for converting Roman into Arabic Number System.

Code: QB64: [Select]

1. _TITLE "Roman To Arabic Convertor : By Ashish" 'Roman To Arabic Convertor : By Ashish  [2 Sep, 2020]
2. 'NOTE:RomanToArabic~&() function assume that roman number passed to it does not have any error (except for non-roman literal)
3. DO
4.     INPUT "> ", roman$
5.     PRINT RomanToArabic~&(roman$)
6. LOOP UNTIL roman$ = ""
7.  
8. FUNCTION RomanToArabic~& (r$)
9.     DIM x~%, y~%, mult AS _BYTE
10.     y~% = 9
11.     FOR i~& = 1 TO LEN(r$)
12.         x~% = INSTR("IVXLCDM ", UCASE$(MID$(r$, i~&, 1)))
13.         IF x~% = 0 THEN
14.             PRINT "ERROR": EXIT FUNCTION
15.         ELSE
16.             IF LEN(r$) = 1 AND i~& = 1 THEN
17.                 RomanToArabic~& = 2 ^ (INT((x~% - 1) / 2)) * 5 ^ (INT(x~% / 2)): EXIT FUNCTION
18.             ELSE
19.                 IF x~% = 8 THEN
20.                     mult = 1
21.                 ELSE
22.                     IF mult = 1 THEN
23.                         RomanToArabic~& = RomanToArabic~& * (2 ^ (INT((x~% - 1) / 2)) * 5 ^ (INT(x~% / 2)))
24.                         mult = 0
25.                     ELSE
26.                         RomanToArabic~& = RomanToArabic~& + (2 ^ (INT((x~% - 1) / 2)) * 5 ^ (INT(x~% / 2)))
27.                         IF y~% < x~% THEN RomanToArabic~& = RomanToArabic~& - 2 * (2 ^ (INT((y~% - 1) / 2)) * 5 ^ (INT(y~% / 2)))
28.                     END IF
29.                 END IF
30.             END IF
31.         END IF
32.         IF x~% <> 8 THEN y~% = x~%
33.     NEXT
34. END FUNCTION
35.  

[Juan Tamarit]

This is my approach for converting Roman into Arabic Number System.

Code: QB64: [Select]

1.         x~% = INSTR("IVXLCDM ", UCASE$(MID$(r$, i~&, 1)))
2.  

This line is artistic

[bplus]

Nice work! @Ashish

I ran some tests and looked good, I will study what you did tomorrow.