Belajar Online

Kumpulan program PASCAL untuk Array Matriks

Pembahasan:
program konversi ini menggunakan 2 array konstanta, array Romawi dan array Desimal. Ketika sebuah bilangan desimal dimasukkan, maka bilangan tersebut akan diuji dan dibandingkan dengan array Desimal. Jika angka >= angka desimal pada array, maka angka - desimal dan dilakukan penulisan Romawi pada variabel string.

Listing Program :
program convert;
uses crt;
const romawi: array[1..13] of string=
              ('M','CM','D','CD','C','XC','L','XL','X','IX','V','IV','I');
      desimal: array[1..13] of integer=
               (1000,900,500,400,100,90,50,40,10,9,5,4,1);
var angka,i:integer;
    konversi:string;
begin
    clrscr;
    readln(angka);
    for i:=1 to 13 do begin
        while (angka>=desimal[i]) do begin
           angka:=angka-desimal[i];
           konversi:=konversi+romawi[i]
        end;
    end;
    writeln(konversi);
    readkey;
end.