Program Tutorial Konversi Bilangan Desimal Ke Bilangan Romawi

 

 

Haaiii sahabat ... !!

Naah, kali ini, sesuai judul, admin mau berbagi program tutorial konversi bilangan Desimal ke  bilangan romawi nih. Desimal disini dari 1, 2 ,..., n (n nya ditentukan sesuai keinginan)

Sahabat  pada tau kan dengan bilangan romawi?

Kalau belum tau, nih admin bagi program tutorialnya. Tapi, pastikan terlebih dahulu sahabat sudah instal PASCAL di komputer atau PC nya ya..

Bahasa program

Uses Crt;

Const

     r : array [1..13] of String = ('M','CM','D','CD','C','XC','L','XL','X','IX','V','IV','I');

     d : array [1..13] of integer = (1000,900,500,400,100,90,50,40,10,9,5,4,1);

     p : array [1..4] of integer = (1000,100,10,1 );

     k : array [1..7] of integer = (1000,500,100,50,10,5,1);

Var

     h : array [1..4] of integer;

  a,j,bb,bd,bdb,i,kl,hd : Integer;

          ch : Char;

 pilihan,Nama,Rom,T : String;

Begin

Clrscr;

       write('Silahkan masukkan nama Anda : '); readln(nama);

       clrscr;

       gotoxy(20,10);writeln(nama,', Selamat Datang di " Konversi Bilangan Romawi" ');

       readln;

       clrscr;

       gotoxy(20,10);writeln('Apakah ',Nama,' sudah tau angka-angka romawi ? ');

       readln;

       clrscr;

       writeln('           Berikut daftar angka dasar romawi');

       writeln('           =================================');

       writeln;

       for i := 1 to 13 do writeln('             ',r[i]:3,' = ',d[i]:5);

       readln;

       clrscr;

       gotoxy(10,10);writeln('Apakah ',nama,' ingin tau cara mengkonversi bilangan desimal ke romawi ?');

       writeln;

       writeln('          =>> silahkan tekan Enter <<=');

       readln;

       repeat

       clrscr;

       Writeln('             Langkah-langkah Menkonversi Desimal Menjadi Romawi');

       Writeln('             ==================================================');

       Writeln;

       Writeln('1. Masukkan Bilangan Antara [1..3999]');

       write('   Bilangan Desimal = ');Readln(bd); if bd>=4000 then

       begin

        gotoxy(23,5);clreol;

        readln(bd);

       end;

       writeln;

       write('2. Pisahkan setiap bilangan bulat menjadi : ');

       Writeln;

       writeln;

       kl:=bd;

       bdb := bd;

       For i:=1 To 4 Do

        Begin

         hd := bd div p[i];

         h[i] := hd*p[i];

         if h[i] <> 0 then write(h[i]:7);

         bd := bd mod p[i];

        End;

        writeln;

        writeln;

        readln;

        writeln('3.Kemudian jadikan setiap bilangan di atas ke bentuk angka dasar romawi ');

        writeln;

        Rom:='';

        If (bdb>0) And (bdb<4000) Then

         Begin

           For i:=1 To 13 Do

                Begin

                 While (bdb>=d[i]) Do

                  Begin

                   bdb:=bdb-d[i];

                   write(d[i]:7);

                   Rom:=Rom+r[i]

                  End;

                 End;

                writeln;

         end;

         writeln;

      writeln('    <<Just Press Enter>>');

      readln;

      gotoxy(20,20); Writeln('  Tadaaa... Angka Romawinya Adalah = ',Rom);

      readln;

      clrscr;

      gotoxy(20,10); write ('Terima Kasih ',nama,', SEMOGA BERMANFAAT ^_^');

      readln;

      clrscr;

      gotoxy(20,10);write('Apakah ',nama,' mau melakukan konversi lagi ? [Y/N] ');

      repeat ch := readkey; until Upcase (ch) in ['Y','N'];

      until Upcase(ch) = 'N';

end.

 

Nah, itu dia bahasa programnya..

FYI, bahasa program ini adalah tugas akhir admin waktu mata kuliah pemrograman komputer loh :D hehe

Sahabat  silahkan copy bahasa program tersebut, lalu paste kan ke PASCAL nya, tapi paste di PASCAL berbeda dengan word, sahabat  tidak bisa menggunakan Ctrl+V disini.

Langkah paste ke PASCAL sebagai berikut :

copy bahasa program à buka PASCAL à klik file à klik new à klik edit à klik paste from windows

kemudian run programnya.

Semoga bermanfaat :)

See yea