Seringkali dalam pembuatan program kita memerlukan penomoran dalam output yang kita rancang menngunakan angka romawi, karena itu penulis memberikan tips ini dan telah diuji pada pemrograman delphi.
function IntToRoman(m: integer): string;
const
k=10;
roman_unit:array[1..k] of string = ('','I','II','III','IV','V','VI','VII','VIII','IX');
roman_tens:array[1..k] of string = ('','X','XX','XXX','XL','L','LX','LXX','LXXX','XC');
roman_hund:array[1..k] of string = ('','C','CC','CCC','CD','D','DC','DCC','DCCC','CM');
roman_thou:array[1..6] of string = ('','M','MM','MMM','MMMM','MMMMM');
var
n, v,w,x,y:integer;
begin
n:=m;
if n<1>5999 then
result:='5999';
v := ((n - (n mod 1000)) div 1000)+1;
n := (n mod 1000);
w := ((n - (n mod 100)) div 100)+1;
n := (n mod 100);
x := ((n - (n mod 10)) div 10)+1;
y := (n mod 10) + 1;
result:= roman_thou[v] + roman_hund[w] + roman_tens[x] + roman_unit[y];
end;
Contoh Penggunaan :
application.messagebox(IntToRoman(2),48,'Konversi Integer ke romawi');
Hasil :
tampil kotak pesan dengan isi : "II"
