Konversi Desimal ke Binary dengan Pascal

Haii..., ni saya ada ilmu sedikit yang belom tau cara konversi bilangan desimal ke binary denga menggunakan bahasa pemrograman Pascal, ini silahkan copy aja souce codenya..., moga bermanfaat yaa....

Uses Crt;
Var
Des,Desi: Integer;
Bin: String;
Ul:Char;
Begin
Repeat
Clrscr;
Writeln(‘======================================’);
Writeln('= Program Konversi Desimal Menjadi Biner =');
Writeln('======================================');
Writeln;
Write('Masukkan Bilangan Desimal: ');Readln(Des);
Desi:=Des;
Bin:=’ ‘;
Repeat
If(Des Mod 2 = 0) Then
Bin:='0'+Bin
Else
Bin:='1'+Bin;
Des:=Des Div 2;
Until Des=0;
Writeln;
Writeln(Desi,' Desimal = ',Bin,' Biner');
Writeln;
Write('Mau Ulang Lagi? [Y/T]: ');Readln(Ul);
Ul:=Upcase(Ul);
Until (Ul<>'Y');
Readln; End.

oiya, maaf ya kalo ada kesalahan dalam program ini...

Free Template Blogger collection template Hot Deals BERITA_wongANteng SEO theproperty-developer