Program Konversi Bilangan

Program mengkonversikan bilangan dengan pascal, berikut saya sertakan source kodenya. Bagi para pembaca yang ingin belajar dan mencoba silakan baca di bawah trim's..

Satu tips dari saya, jika para pembaca ingin / hendak membuat program yang semacam ini, buatlah prossedur atau fungsi pada setiap pengkonversian bilangan sehingga pada main programnya anda tinggal memanggil nama prosedur atau fungsi yang telah anda buat pertama tadi

semoga bermanfaat....(^_^)

Uses wincrt;

Var

dec , bildec : integer;

konversikan : char;

procedure biner(dec, bildec : integer);

var bin : string;

begin

bin:='';

repeat

  if(dec mod 2 = 0) then bin:='0'+bin

  else bin:='1' + bin;

  dec:=dec div 2;

until dec=0;

writeln;

writeln('(',bildec,') desimal = ',bin,' (Biner)');

end;

procedure heksa(dec, bildec : integer);

var heks : string;

h : integer;

begin

Heks:='';

repeat

   h:=dec mod 16;

   case h of

   0: heks:= '0' + Heks;

   1: heks:= '1' + Heks;

   2: heks:= '2' + Heks;

   3: heks:= '3' + Heks;

   4: heks:= '4' + Heks;

   5: heks:= '5' + Heks;

   6: heks:= '6' + Heks;

   7: heks:= '7' + Heks;

   8: heks:= '8' + Heks;

   9: heks:= '9' + Heks;

   10: heks:= 'A' + Heks;

   11: heks:= 'B' + Heks;

   12: heks:= 'C' + Heks;

   13: heks:= 'D' + Heks;

   14: heks:= 'E' + Heks;

   15: heks:= 'F' + Heks;

   end;

   dec:=dec div 16;

until dec=0;

writeln('(',bildec,') desimal = ',Heks,' (Heksadesimal)');

end;

procedure oktal(dec, bildec : integer);

var oktal : string;

    o : integer;

begin

oktal:='';

repeat

   o:=dec mod 8;

   case o of

   0:oktal:='0'+oktal;

   1:oktal:='1'+oktal;

   2:oktal:='2'+oktal;

   3:oktal:='3'+oktal;

   4:oktal:='4'+oktal;

   5:oktal:='5'+oktal;

   6:oktal:='6'+oktal;

   7:oktal:='7'+oktal;

   end;

   dec:= dec div 8;

until dec=0;

writeln('(',bildec,') desimal = ',oktal,' (Oktal)');

end;

begin

repeat

clrscr;

writeln('***********************************************************************');

writeln('* Program Konversi Desimal ke Heksadesimal, Biner dan Oktal  * ');

writeln('*                                 by : Bisma Alfian I                                         * ');

writeln('*********************************************************************** ');

writeln;

Write('Masukkan Suatu Bilangan Desimal : ');Readln(dec);

bildec:=dec;

biner(dec,bildec);

heksa(dec,bildec);

oktal(dec,bildec);

writeln;writeln;

write('Anda ingin konversikan lagi [Y/N]? : ');readln(konversikan);

until upcase(konversikan)<>'Y';

end.