dah lama ne g ngeblog lagi, minggu kemarin gua ngeblog tentang membuat Karakter menjadi bilangan biner menggunakan VB nah sekarang gua mw ngepost mengubah desimal ke biner menggunakan pascal nah langsung saja scriptnya...
Uses wincrt;
Var Des : Integer;
Bin : String;
Begin
Write (‘Masukan Bilangan Desimal : ‘);
ReadLn (Des);
Bin := ‘ ‘;
Repeat
Begin
{Menghitung Biner Dari Sisa Hasil Bagi}
If Des mod 2 = 0 Then Bin := ‘0′ + Bin
Else Bin := ‘1′ + Bin;
{Membagi Bulat Bil Desimal}
Des := Des div 2;
End;
Until Des = 0;
WriteLn (‘Bilangan Biner : ‘,Bin);
End
Nah jika sudah selesai coba jalankan, oh ya temen2 Fungsi mod di atas adalah untuk membagi tapi hasil bagi masih ada sisa, contoh 5 mod 2 hasilnya ada 2 sisa 1,
Uses wincrt;
Var Des : Integer;
Bin : String;
Begin
Write (‘Masukan Bilangan Desimal : ‘);
ReadLn (Des);
Bin := ‘ ‘;
Repeat
Begin
{Menghitung Biner Dari Sisa Hasil Bagi}
If Des mod 2 = 0 Then Bin := ‘0′ + Bin
Else Bin := ‘1′ + Bin;
{Membagi Bulat Bil Desimal}
Des := Des div 2;
End;
Until Des = 0;
WriteLn (‘Bilangan Biner : ‘,Bin);
End
Nah jika sudah selesai coba jalankan, oh ya temen2 Fungsi mod di atas adalah untuk membagi tapi hasil bagi masih ada sisa, contoh 5 mod 2 hasilnya ada 2 sisa 1,
No comments:
Post a Comment