[HaBo]

 Public Sub numbers()


MsgBox "Römische Zahl:" & vbCrLf & vbCrLf & convert((InputBox("Dezimalzahl:", "Dez > Röm Converter";)))

End Sub


Public Function convert(value As Integer)

Dim result, roman(14) As String
roman(0) = "A"
roman(1) = "MA"
roman(2) = "M"
roman(3) = "CM"
roman(4) = "D"
roman(5) = "CD"
roman(6) = "C"
roman(7) = "XC"
roman(8) = "L"
roman(9) = "XL"
roman(10) = "X"
roman(11) = "IX"
roman(12) = "V"
roman(13) = "IV"
roman(14) = "I"

Dim dez(14) As Integer
dez(0) = 5000
dez(1) = 4000
dez(2) = 1000
dez(3) = 900
dez(4) = 500
dez(5) = 400
dez(6) = 100
dez(7) = 90
dez(8) = 50
dez(9) = 40
dez(10) = 10
dez(11) = 9
dez(12) = 5
dez(13) = 4
dez(14) = 1

For i = 0 To 14
While (value / dez(i)) >= 1
result = result & roman(i)
value = value - dez(i)
Wend
Next

convert = result
End Function

PRINT "Bitte geben Sie eine ganze Dezimalzahl ein,"
PRINT "f",CHR(252),"r die berechnung ins R",CHR(246),"mische Zahlensystem."
INPUT "Eingabe: ",E
E=INT(E)

Dim rz$(29),dez(29)
rz$(1) = "A"
rz$(2) = "MA"
rz$(5) = "M"
rz$(6) = "CM"
rz$(9) = "D"
rz$(10) = "CD"
rz$(13) = "C"
rz$(14) = "XC"
rz$(17) = "L"
rz$(18) = "XL"
rz$(21) = "X"
rz$(22) = "IX"
rz$(25) = "V"
rz$(26) = "IV"
rz$(29) = "I"

dez(1) = 5000
dez(2) = 4000
dez(5) = 1000
dez(6) = 900
dez(9) = 500
dez(10) = 400
dez(13) = 100
dez(14) = 90
dez(17) = 50
dez(18) = 40
dez(21) = 10
dez(22) = 9
dez(25) = 5
dez(26) = 4
dez(29) = 1

result$=""
I=1
WHILE I<>29
WHILE E-dez(I)>=0.0000
IF MOD(I,2)=1 THEN {
	result$ = result$+rz$(I,1)
} ELSE {
	result$ = result$+rz$(I,2)
}
E = E - dez(I)
WEND
IF MOD(I,2)=0 THEN {
	I+=3
} ELSE {
	I++
}
WEND

PRINT result$

/*Wandelt eingegebene Zahlen in
 roemische Zahlen um*/
 
import java.util.Scanner;

public class romZa
{
[	public static void main(String[] args){
		
		Scanner input=new Scanner(System.in);
		
		
		System.out.println("Please enter number: ");
		int z=input.nextInt();
		
		converter c=new converter(z);
		
		System.out.println(c.convert());
		
		
		System.out.println("Please enter roman number: ");
		input.nextLine();
		String y=input.nextLine();
		
		backConverter b=new backConverter(y);
		
		System.out.println(b.convert());
	}
}

/*
Zeichen 	I 	V 	X 	L 	C 	D 	M
Wert 		1 	5 	10 	50 	100 	500 	1000
    IV = 4 (statt IIII)
    IX = 9 (statt VIIII)
    XL = 40 (statt XXXX)
    XC = 90 (statt LXXXX)
    CD = 400 (statt CCCC)
    CM = 900 (statt DCCCC) 
*/


public class converter{
	private int number;
	private String rom="";
	
	public converter(int z){
		number=z;
	}
	
	public String convert(){
	
		while(number>0){
			
			if(number>=1000){
				rom=rom+"M";
				number-=1000;
			}
			else if(number==900){
				rom+="CM";
				number-=900;
			}
			else if(number>=500&&number<1000){
				rom+="D";
				number-=500;
			}
			else if(number==400){
				rom+="CD";
				number-=400;
			}
			else if(number>=100&&number<500){
				rom+="C";
				number-=100;
			}
			else if(number==90){
				rom+="XC";
				number-=90;
			}
			else if(number>=50&&number<100){
				rom+="L";
				number-=50;
			}
			else if(number==40){
				rom+="XL";
				number-=40;
			}
			else if(number>=10&&number<50){
				rom+="X";
				number-=10;
			}
			else if(number==9){
				rom+="IX";
				number-=9;
			}
			else if(number>=5&&number<9){
				rom+="V";
				number-=5;
			}
			else if(number==4){
				rom+="IV";
				number-=4;
			}
			else if(number>=1&&number<4){
				rom+="I";
				number-=1;
			}
		}
		return rom;
	}
}

/*
Zeichen 	I 	V 	X 	L 	C 	D 	M
Wert 		1 	5 	10 	50 	100 	500 	1000
*/

public class backConverter{

	private int number;
	private String rom;
	private int len;
	
	public backConverter(String rom){
		this.rom=rom;
		len=rom.length();
	
	}
	
	public int convert(){
		
		char[] sign=new char[len];
		
		
		for(int i=len-1;i>=0;i--){
			sign[i]=rom.charAt(i);
			
					
		}
		
		while(len>0){
		
			if(sign[len-1]=='I'){
				number+=1;
			}
			else if(sign[len-1]=='V'){
				number+=5;
			}
			else if(sign[len-1]=='X'){
				number+=10;
			}
			else if(sign[len-1]=='L'){
				number+=50;
			}
			else if(sign[len-1]=='C'){
				number+=100;
			}
			else if(sign[len-1]=='D'){
				number+=500;
			}
			else if(sign[len-1]=='M'){
				number+=1000;
			}
		
		
		len--;
		}
		return number;
		
	}
}