Membuat Program Konversi Bilangan Desimal ke Biner dengan Pascal

Bingung membuat program konversi bilangan desimal ke bilangan biner? gak perlu binggung disini saya akan mencoba membantu anda. Anda hanya cukup memakai program Turbo Pascal.Bagi anda yang belum memiliki program Turbo Pascal anda bisa download disini http://community.borland.com/article/0,1410,20803,00.html

Setelah itu, anda tinggal mengocopy paste listing program dibawah ini :

program konversiDecToBin;
var bilangan : integer;

function decToBin(desimal : integer) : string;
var hasilBagi, sisa : integer;
bin : char;
bilBiner : string;
begin
hasilBagi := desimal div 2;
bilBiner := '';

{ syarat perulangan : selama hasil bagi lebih besar sama dengan 1 }

while (hasilBagi >= 1) do
begin
sisa := desimal mod 2;
if (sisa = 0) then bin := '0'
else if (sisa = 1) then bin := '1';

{ menggabung sisa pada setiap perulangan untuk membentuk digit biner}

bilBiner := bin + bilBiner;

desimal := hasilBagi;
hasilBagi := desimal div 2;
end;
decToBin := '1' + bilBiner;
end;

begin
bilangan := 200;
write('Bilangan binernya : ', decToBin(bilangan));
readln;
end.

Setelah itu tekan tombol Ctrl + F9 untuk mengeksekusi program diatas,, gampang kan???
hehehehe,,,,
GOOD LUCK . . . .

keburuh dingin neh ....