Römische Zahlen in Dezimal Zahlen umwandeln
lima-city → Forum → Programmiersprachen → Basic
beispiel
benutzer
code
helfen
konkrete fragen
leute
paar
programm
resultat
schule
sender
stellen
string
system
text
umwandeln
zahl
-
Hallo Leute wir müssen in der Schule ein Programm schreiben mit welche man Römische Zahlen in Dezimal Zahlen umwandeln kann. Wäre froh wenn Ihr mir helfen könntet
Dezimal Zahlen in Römische Zahlen umwandeln habe ich geschafft. Hier der Code.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btninr.Click
Dim benutzer As Integer
Dim anzC As Integer
Dim RestC As Integer
Dim anzL As Integer
Dim RestL As Integer
Dim anzX As Integer
Dim RestX As Integer
Dim anzV As Integer
Dim RestV As Integer
Dim AnzI As Integer
Dim resultat As String = \"\"
benutzer = tbnormal.Text
anzC = benutzer / 100
RestC = benutzer Mod 100
anzL = RestC / 50
RestL = RestC Mod 50
anzX = RestL / 10
RestX = RestL Mod 10
anzV = RestX / 5
RestV = RestX Mod 5
AnzI = RestV / 1
Dim i As Integer
For i = 1 To anzC
resultat = resultat & \"C\"
Next i
For i = 1 To anzL
resultat = resultat & \"L\"
Next i
For i = 1 To anzX
resultat = resultat & \"X\"
Next i
For i = 1 To anzV
resultat = resultat & \"V\"
Next i
For i = 1 To AnzI
resultat = resultat & \"I\"
Next i
tbrömisch.Text = resultat
End Sub -
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage
-
Eigentlich ist der Weg von Dezimal -> Römisch leichter als anders herum.
Zunächst ein paar Beispiele:
XI = 10 + 1
IX = 10 - 1
VIII = 5 + 1 + 1 + 1
II = 1 + 1
CXXIV = 100 + 10 + 10 - 1 + 5
Du wertest nun diesmal eine Zeichenfolge aus, nicht wie zuvor eine Zahl.
Und nun musst du konkrete Fragen stellen, damit man dir weiterhelfen kann. -
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage
