Program Konversi Bilangan Desimal Ke Biner Di Pascal

Assalamualaikum warohmatullah wabarokatuh

Program Konversi_Decimal_to_Biner;

uses crt;

var

bil : integer;

function decToBin (desimal : integer):string;

var hasilbagi, sisa : integer;

bin : char;

bilBiner : string;

begin

hasilbagi :=desimal div 2;

bilBiner :='';

while (hasilbagi >= 1) do

begin

sisa := desimal mod 2;

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

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

bilBiner:=bin+bilBiner;

desimal:=hasilbagi;

hasilbagi:=desimal div 2;

end;

decToBin:='1'+bilBiner;

end;

begin

textbackground(1);

clrscr;

textcolor(4);

writeln(' ____----____----____----____----____ ');

writeln(' | | ');

writeln(' | KONVERSI BILANGAN DESIMAL KE BINER | ');

writeln(' |--------------------------------------------| ');

writeln(' | | ');

textcolor(5);

writeln(' | Oleh : Maz Fahrozhie (Umar Fadil) | ');

textcolor(4);

writeln(' |___________---------------__________| ');

writeln;

writeln(' ');

textcolor(6);

write('Masukan Bilangan :');

readln(bil);

write('Bilangan Binernya :',decToBin(bil));

readkey;

end.

//contoh program konversi bilangan desimal ke biner #include #include #include void toBiner(int n) { if(n>1) { toBiner(n/2); } cout<>a; cout<
Original Source : http://blog.creanivate.com/2009/10/program-konversi-bilangan-desimal-ke.html
Copyright blog.creanivate.com

//contoh program konversi bilangan desimal ke biner #include #include #include void toBiner(int n) { if(n>1) { toBiner(n/2); } cout<>a; cout<
Original Source : http://blog.creanivate.com/2009/10/program-konversi-bilangan-desimal-ke.html
Copyright blog.creanivate.com

//contoh program konversi bilangan desimal ke biner #include #include #include void toBiner(int n) { if(n>1) { toBiner(n/2); } cout<>a; cout<
Original Source : http://blog.creanivate.com/2009/10/program-konversi-bilangan-desimal-ke.html
Copyright blog.creanivate.com