Jumat, 07 Maret 2014
 |
| Pemrogramman - coding - Program konversi bilangan Desimal ke bilangan Biner |
Kali ini saya akan berbagi mengenai algoritma dan pemrogramman bahasa pascal mengonversi bilangan decimal ke bilangan biner. Untuk dapat mengonversi bilangan decimal ke biner kita harus memahami konsep dasar penggunaan div dan mod yang ada juga di dalam artikel saya yang sebelumnya, selain itu kita harus tau logika dalam menyelesaikan permasalahannya. Persoalannya sebagai berikut :
Carilah logika dan penyelesaian untuk mengonversi bilangan decimal ke bilangan biner. Dengan catatan bilangan decimal di masukkan oleh pengguna program !
Nah, kita ketahui
bilangan biner itu terdiri dari 8 digit, dan hanya terdiri dari 2 angka
yaitu 0 dan 1. Kalo saya menggunakan cara atau system bagi 2. Seperti
gambar dibawah ini (saya photo dari buku kuliah saya hehe) cara ini yang
paling gampang soalnya kalo mengonversi decimal ke biner menurut saya 
.
.
Nah
kita sudah tau kan logikanya seperti itu, ayoo kita langsung bikin
programnya. Berikut coding dalam bahasa pemrogramman pascalnya :
program Konversi_Desimal_ke_Biner________by_BayuWPP;
{I.S. : user memasukkan sebuah bilangan desimal}
{F.S. : menampilkan hasil konversi bilangan desimal ke biner}
//bayubayyz.blogspot.com by bayuwpp
uses crt;
var{kamus}
x : integer; {bilangan desimal}
a,b,c,d,e,f,g,h : integer;
sisa_a,sisa_b,sisa_c,sisa_d,sisa_e,sisa_f,sisa_g,sisa_h : integer;
begin
gotoxy(1,1);write(' Masukkan bilangan desimal : ');readln(x);
{proses mengkonversi desimal ke biner}
//proses mencari digit ke 1 *******#
a := x div 2;
sisa_a := x mod 2;
if (sisa_a = 1) then
begin
gotoxy(35,3);write('1');
end
else
begin
gotoxy(35,3);write('0');
end;//endif
//proses mencari digit ke 2 dari kanan ******#*
b := a div 2;
sisa_b := a mod 2;
if (sisa_b = 1) then
begin
gotoxy(34,3);write('1');
end
else
begin
gotoxy(34,3);write('0');
end;//endif
//proses mencari digit ke 3 dari kanan *****#**
c := b div 2;
sisa_c := b mod 2;
if (sisa_c = 1) then
begin
gotoxy(33,3);write('1');
end
else
begin
gotoxy(33,3);write('0');
end;//endif
//proses mencari digit ke 4 dari kanan ****#***
d := c div 2;
sisa_d := c mod 2;
if (sisa_d = 1) then
begin
gotoxy(32,3);write('1');
end
else
begin
gotoxy(32,3);write('0');
end;//endif
//proses mencari digit ke 5 dari kanan ***#****
e := d div 2;
sisa_e := d mod 2;
if (sisa_e = 1) then
begin
gotoxy(31,3);write('1');
end
else
begin
gotoxy(31,3);write('0');
end;//endif
//proses mencari digit ke 6 dari kanan **#*****
f := e div 2;
sisa_f := e mod 2;
if (sisa_f = 1) then
begin
gotoxy(30,3);write('1');
end
else
begin
gotoxy(30,3);write('0');
end;//endif
//proses mencari digit ke 7 dari kanan *#******
g := f div 2;
sisa_g := f mod 2;
if (sisa_g = 1) then
begin
gotoxy(29,3);write('1');
end
else
begin
gotoxy(29,3);write('0');
end;//endif
//proses mencari digit ke 8 dari kanan #*******
h := g div 2;
sisa_h := g mod 2;
if (sisa_h = 1) then
begin
gotoxy(28,3);write('1');
end
else
begin
gotoxy(28,3);write('0');
end;//endif
gotoxy(1,3);write(' Hasil konversi ke biner : ');
readln;
//by bayuWPP unikom
end.
Sekian, artikel yang saya buat mengenai mengonversi bilangan desimal ke bilangan biner. Semoga bermanfaat bagi kita semua ! Keep spirit and practice to be the young success programmer !
[PENGUMUMAN]
Kami membutuhkan bantuan anda untuk mengisi survei singkat ini. Tolong bantu ya untuk mengisi, gampang ko hanya mengisi nama, email sama 5 pertanyaan saja kawan. Bantu isi ya surveinya disini !!!.Terimakasih. Semoga bantuan temen temen mendapat balasan yang berlipat ganda dari Allah SWT, Amin
