Dezimalzahlen in römische Zahlen

Dezimalzahlen in römische Zahlen

Dezimalzahlen in römische Zahlen : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Dieser Artikel veranschaulicht, wie eine bestimmte Anzahl in römischen Ziffern in Delphi zu konvertieren.
Funktion DecToRoman (iDecimal: Longint): string;
const
aRomans: Array [1..13] Zeichenfolge = (würde 'Ich', 'IV', 'V', 'IX', 'X', 'XL', 'L', 'XC', 'C', 'CD',', 'CM' bin ');
aArabics: Array [1..13] von Integer = (1, 4, 5, 9, 10, 40, 50, 90, 100, 400, 500, 900, 1000);
var
i: Ganzzahl;
beginnen
Ergebnis: = '';
für i: = 13 Downto 1 wollen
während (iDecimal > = aArabics [i]) fangen
iDecimal: = iDecimal - aArabics [i];
Ergebnis: = Ergebnis + aRomans [i];
Ende;
Ende;