tasks a-s

Task/Roman-numerals-Encode/BASIC/roman-numerals-encode-1.basic

@@ -0,0 +1,20 @@
+DIM SHARED arabic(0 TO 12) AS Integer  => {1000, 900, 500, 400, 100, 90, 50,  40,  10,  9,  5,   4,  1 }
+DIM SHARED  roman(0 TO 12) AS String*2 => {"M", "CM", "D","CD", "C","XC","L","XL","X","IX","V","IV","I"}
+
+FUNCTION toRoman(value AS Integer) AS String
+    DIM i 	AS Integer
+    DIM result  AS String
+
+    FOR i = 0 TO 12
+        DO WHILE value >= arabic(i)
+	    result = result + roman(i)
+	    value  = value - arabic(i)
+	LOOP
+    NEXT i
+    toRoman = result
+END FUNCTION
+
+'Testing
+PRINT "2009 = "; toRoman(2009)
+PRINT "1666 = "; toRoman(1666)
+PRINT "3888 = "; toRoman(3888)

Task/Roman-numerals-Encode/BASIC/roman-numerals-encode-2.basic

@@ -0,0 +1,17 @@
+ 10 DATA 1000,"M",900,"CM"
+ 20 DATA 500,"D",400,"CD"
+ 30 DATA 100,"C",90,"XC"
+ 40 DATA 50,"L",40,"XL"
+ 50 DATA 10,"X",9,"IX"
+ 60 DATA 5,"V",4,"IV",1,"I"
+ 70 INPUT "Enter an arabic number: ";V
+ 80 LET VALUE=V
+ 90 LET V$=""
+100 FOR I=0 TO 12
+110 READ A,R$
+120 IF V<A THEN GO TO 160
+130 LET V$=V$+R$
+140 LET V=V-A
+150 GO TO 120
+160 NEXT I
+170 PRINT VALUE;"=";V$