“Konversi Bilangan Desimal ke Biner”

Pengantar Teknologi Informasi

Tugas II

Disusun oleh:

Nama                                                    : Imam Prasetyo

NIM                                                      : 121051046

Jurusan                                                  : Teknik Informatika

Fakultas                                                : Teknologi Industri

Algoritma

“Konversi Bilangan Desimal ke Biner”

Langkah 1            : Masukkan bilangan decimal (a).

Langkah 2            : Membagi bilangan decimal dengan angka 2 (a div 2)

Langkah 3            : Ulangi langkah 2 hingga hasil>=1.

Langkah 4            : Menentukan sisa.

Langkah 5            : Jika sisa = ‘0’ maka cetak 0.

Langkah 6            : Jika sisa = ‘1’ maka cetak 1.

Langkah 7            : Merangkai sisa dari setiap pembagian.

Langkah 8            : Mencetak bilangan biner.

Langkah 9             : Selesai.

Flowchart

Program

program konversi_desimal_ke_biner;

uses wincrt;

var a:integer;

    hasil,sisa:integer;

    bin:char;

    biner:string;

    x:string;

begin

write('Masukkan bilangan desimal: ');readln(a);

hasil:=a div 2;

while (hasil>=1) do

      begin

      sisa:=a mod 2;

      if (sisa=0) then bin :='0'

      else if (sisa=1) then bin:='1';

      biner:=bin+biner;

      a:=hasil;

      hasil:=a div 2;

      end;

x:='1'+biner;

begin

write('Bilangan binernya: ',x);

readln;

end;

end.

Print Screen