Roman numerals/Encode: Difference between revisions
Content added Content deleted
(Roman numerals/Encode in Gambas) |
(Added Chipmunk Basic) |
||
Line 1,195: | Line 1,195: | ||
3888 MMMDCCCLXXXVIII |
3888 MMMDCCCLXXXVIII |
||
</pre> |
</pre> |
||
==={{header|Chipmunk Basic}}=== |
|||
{{works with|Chipmunk Basic|3.6.4}} |
|||
{{trans|GW-BASIC}} |
|||
<syntaxhighlight lang="qbasic">100 cls |
|||
110 dim arabic(12), roman$(12) |
|||
120 for j = 0 to 12 : read arabic(j),roman$(j) : next j |
|||
130 data 1000,"M", 900,"CM", 500,"D", 400,"CD", 100,"C", 90,"XC" |
|||
140 data 50,"L",40,"XL",10,"X",9,"IX",5,"V",4,"IV",1,"I" |
|||
187 avalor = 1990 : print avalor "= "; : gosub 220 : print roman$ ' MCMXC |
|||
188 avalor = 2008 : print avalor "= "; : gosub 220 : print roman$ ' MMXXII |
|||
189 avalor = 1666 : print avalor "= "; : gosub 220 : print roman$ ' MDCLXVI |
|||
200 end |
|||
210 rem Encode to Roman |
|||
220 roman$ = "" : i = 0 |
|||
230 while (i <= 12) and (avalor > 0) |
|||
240 while avalor >= arabic(i) |
|||
250 roman$ = roman$+roman$(i) |
|||
260 avalor = avalor-arabic(i) |
|||
270 wend |
|||
280 i = i+1 |
|||
290 wend |
|||
300 return</syntaxhighlight> |
|||
{{out}} |
|||
<pre>1990 = MCMXC |
|||
2008 = MMVIII |
|||
1666 = MDCLXVI</pre> |
|||
==={{header|Commodore BASIC}}=== |
==={{header|Commodore BASIC}}=== |