Program Pascal Tutorial Konversi Bilangan Desimal Ke Bilangan Romawi

Haaiii sahabat Dynakom.... !!

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 Dynakom pada tau kan dengan bilangan romawi?

Kalau belum tau, nih admin bagi program tutorialnya. Tapi, pastikan terlebih dahulu sahabat Dynakom 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;

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;

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 Dynakom silahkan copy bahasa program tersebut, lalu paste kan ke PASCAL nya, tapi paste di PASCAL berbeda dengan word, sahabat Dynakom 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