soniibrol Corporation

Teman-teman dan saudaraku di Indonesia dan seluruh jagat raya, kali ini saya akan sharing sebuah listing program konversi bilangan desimal ke bilangan biner. Semoga bermanfaat. 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

Dengan selesainya Piala Dunia 2010 yg diselenggarakan oleh Afrika Selatan, selesai juga hidup di dunia malam saya. Kehidupan menjadi normal kembali. Hidup sehat kembali lagi. Tidur larut malam jadi berkurang. Kembali bangun pagi,dan menyambut sinar matahari. Sudah lama rasanya tidak mengurus blog ini. Efek dari piala dunia kali ya??? hahahha Tapi semuanya telah usai, dan kembali memulai hidup normal...