Program konversi angka desimal ke biner

Berikut merupakan Program konversi angka desimal ke biner menggunakan bahasa Pascal dengan menggunakan statement REPEAT.

• SOURCE CODE

Program konversi_desimal_ke_biner;
uses crt;
var
   Des, Desi : integer;
   Bin : string;
   UI : char;
begin
clrscr;
repeat
clrscr;
     writeln('Program Konversi Desimal ke Biner');
     writeln('======================');
     writeln;
     write('Masukkan Bilangan Desimal : ');readln(Des);
     Desi := Des;
     Bin := '';
     repeat
     if(Des Mod 2 = 0) then
     Bin := '0'+Bin
     else
     Bin := '1'+Bin;
     Des := Des Div 2;
     Until Des = 0;
     writeln;
     writeln(Desi,' Desimal = ',Bin,' Biner');
     writeln;
     write('Mau Ulang Lagi? [Y/T] :');readln(UI);
     UI := Upcase(UI);
     Until (UI <> 'Y');
readkey;
end.

• PENJELASAN SOURCE CODE

Program konversi_desimal_ke_biner;     {Judul Program}
uses crt;     {Deklarasi unit CRT}
var     {Variabel}
   Des, Desi : integer;     {Inisiasi variabel}
   Bin : string;     {Inisiasi variabel}
   UI : char;     {Inisiasi variabel}
begin     {Awal instruksi program}
clrscr;     {Membersihkan layar}
repeat     {Ulang kerjakan}
clrscr;     {Membersihkan layar}
     writeln('Program Konversi Desimal ke Biner');     {Cetak Program Konversi Desimal ke Biner}
     writeln('======================');     {Cetak ===========================}
     writeln;     {Cetak baris}
     write('Masukkan Bilangan Desimal  :');     {Cetak Masukkan Bilangan Desimal :}
     readln(Des);     {Baca variabel Des}
     Desi := Des;     {Desi = Des}
     Bin :='';     {Bin = ''}
     repeat     {Ulang kerjakan}
     if(Des Mod 2 = 0) then     {Jika Des mod 2 = 0 maka}
     Bin := '0' + Bin     {Counter penjumlahan Bin}
     else     {Kalau tidak}
     Bin := '1' + Bin;     {Counter penjumlahan Bin}
     Des := Des Div 2;     {Counter pembagian Des}
     Until Des = 0;     {Pembatasan repeat}
     writeln;     {Cetak baris}
     writeln(Desi,' Desimal = ',Bin,' Biner');     {Cetak variabel Desi, Desimal =, variabel Bin, Biner}
     writeln;     {Cetak baris}
     write('Mau Ulang Lagi ? [Y/T] :');     {Cetak Mau Ulang Lagi ? [Y/T] :}
     readln(UI);     {Baca variabel UI}
     UI := Upcase(UI);     {UI = Upcase(UI)}
     Until (UI <> 'Y');     {Pembatasan repeat}
readkey;     {Instruksi untuk menunggu}
end.     {Akhir instruksi program}

• PRINT SCREEN OUTPUT

Untuk mempermuda anda dalam mempelajari pemograman dengan menggunakan bahasa Pascal, admin telah menyediakan file Source code, Penjelasan source code, Output program, Flowchart dari source code, serta file pascalnya. Anda dapat mendownloadnya secara gratis di link download di bawah ini.

• Title Program          : Konversi angka desimal ke biner
• Source Code .pdf     : .:_Download_:.
• Flowchart .png        : .:_Download_:.
• Program .pas           : .:_Download_:.
• Password                 : kamuspascal.blogspot.com

Jika anda tidak tahu bagaimana cara mendownload file-file di atas klik Disini, untuk mempelajarinya.