Mengubah Bilangan desimal menjadi Bilangan Romawi dengan bahasa pascal

Program bilangan romawi merupakan program untuk menconversi bilangan desimal menjadi bilangan romawi.

Berikut beberapa contoh bilangan romawi :

I = 1 XL = 40 D = 500

IV = 4 L = 50 CM = 900

V = 5 XC = 90 M = 1000

IX = 9 C = 100

X = 10 CD = 400

Berikut adalah source code dalam bahasa pascal untuk program conversi dari bilangan desimal ke bilangan romawi :

program Romawi;
uses wincrt;
const rom : array [1..13] of string  =
          ('M','CM','D','CD','C','XC','L','XL','X','IX','V','IV','I');
      des : array [1..13] of integer =
          (1000,900,500,400,100,90,50,40,10,9,5,4,1);
var
  bil,i: integer;
  roma       : string;
begin
  write('Masukan suatu bilangan [1..3999] : ');
  readln(bil);
  if (bil>0) and (bil<4000) then
    begin
      for i:=1 to 13 do
        begin
          while (bil>= des[i]) do
            begin
              bil  := bil - des[i];
              roma := roma + rom[i];           
            end;
        end; 
    writeln('angka romawi dari bilangan diatas adalah :',roma)
    end
    else
    writeln('Tidak diketahui simbol romawinya...');     
end.

Apabila program tersebut kita jalankan maka akan menghasilkan output seperti dibawah ini: