Posted by : Bayu Wijaya Permana Putra 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 :-B.
1
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

Leave a Reply

Subscribe to Posts | Subscribe to Comments

Welcome to BIG !!!

Butuh Solusi IT ?

Service Komputer/ Laptop ? atau Installasi Jaringan Komputer ? atau Solusi Algoritma dan Pemrogramman ? atau Pembuatan Aplikasi Android/ Web/ Dekstop ?

Contact Me
Call or Message
+6285 8715 000 98

Find BIG on Facebook

You Can Support BIG !

BIG adalah media informasi berbasis web dalam blog yang memberikan berbagai macam informasi, tutorial, dan ilmu pengetahuan, terutama dalam bidang IT dan Pemrogramman

Anda bisa memberikan donasi melalui transfer langsung ke rekening dibawah ini! Berapapun jumlah donasi yang Anda kirim saya ucapkan terima kasih banyak dan akan sangat bermanfaat agar blog ini semakin berkembang.

Bank :
No. Rekening : 0307429851
A/N : Bayu Wijaya Permana Putra

Popular Post

Copyright © 2013 Bayyz Informatics Gallery. Diberdayakan oleh Blogger.

Followers

- Copyright © Big Informatics Gallery by Bayu Wijaya Permana Putra - Powered by Blogger - Supported by Google -