Einzelnen Beitrag anzeigen

Dipl Phys Ernst Winter

Registriert seit: 14. Apr 2009
Ort: Jena
103 Beiträge
 
Delphi 3 Professional
 
#1

Nocheinmal Römische Zahlen

  Alt 17. Mai 2009, 10: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
Angehängte Dateien
Dateityp: zip r_mvsarabisch_144.zip (129,5 KB, 8x aufgerufen)
Autor: DP Ernst Winter
  Mit Zitat antworten Zitat