Selamat Datang Orang Gila !!! .:: Welcome Lunatic ::.

Fungsi Delphi Konversi Angka ke Romawi

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"

Semoga Bermanfaat !

Menurut anda tentang blog ini?