Registriert seit: 14. Apr 2009
Ort: Jena
103 Beiträge
Delphi 3 Professional
|
Nocheinmal Römische Zahlen
17. Mai 2009, 11:34
Ergänzung zum Beitrag "Library->Algorithmen->Dezimalzahlen in Römische Zahlen umwandeln und umgekehrt"
Jede Folge von Ziffern stellt eine arabische Zahl dar.
In Römischen Zahlen unterliegt aber die Folge der römischen Ziffern starken Einschränkungen. Beispielweise schrieb sicher kein Römer 'IIIIIIIII', 'VVVVVVVVVVX', 'XXXXXVVVVVVIIIIIII'...
Sie werden jedoch alle von der Function RomanToDec gewandelt, ohne Hinweis, dass sie keine Römischen Zahlen sind.
Abhilfe: Nach der Wandlung in Römische Zahl <RömZahll> zurückwandeln und das Ergebnis mir der Eingabe vergleichen. Stimmen sie nicht überein, dann
Fehlermeldung '<Eingabe> ist keine römische Zahl für <RömZahll> '.
Ich poste einmal ein Demo
|