BAB 10 Operasi Matematika

Program konversi desimal ke biner :

PROGRAM bit;
USES crt;
VAR
   pencacah,bil : byte;
BEGIN
     clrscr;
     writeln('MENAMPILKAN KODE BINER');
     writeln('Masukkan sebuah bilangan antara 0 s/d 255');
     readln(bil);

     writeln;
     writeln('01234567');
     FOR pencacah := 1 TO 8 DO
     BEGIN
          write(bil AND 1);
          bil := bil SHR 1;
     END;
readln;
END.