Program Koversi dari Desimal ke Biner

untuk yang pemula memang sulit untuk mengerti binary, apa lagi jika anda harus mengkonversi bilangan desimal puluhan ribu ke dalam binary itu akan lama sekali namun sekarang anda tidak perlu bersusah payah menghitung itu semua, dengan adanya program ini kita dapat mengkonversi bilangan ribuan dan puluhan ribu dengan mudah dan cepat, namun program ini hanya bersifat membantu jadi jangan terlalu terpaku pada program ini jadi anda harus tetap belajar sendiri Keep spirit !!!. ok langsung aja dah gan lihat script program konversi dari desimal ke biner ini.

program biner; uses crt; var masukan : integer; FUNCTION INTTOSTR(I: LONGINT): STRING; VAR S: STRING; BEGIN STR(I, S); INTTOSTR := S; END; function binear(intangka : integer) : string; VAR INTNILAI :LONGINT; INTLEN :INTEGER; J :INTEGER; STRHASIL :STRING; STREND :STRING[1]; STRSUB : STRING; BEGIN STRHASIL := ''; STREND := ''; STRSUB := ''; REPEAT INTNILAI := INTANGKA MOD 2; INTANGKA := INTANGKA DIV 2; STRHASIL := STRHASIL + IntToStr(intnilai); UNTIL INTANGKA = 1; INTLEN := LENGTH(STRHASIL); STREND := IntToStr(INTANGKA); FOR J := INTLEN DOWNTO 1 DO STRSUB := STRSUB + COPY(STRHASIL, J, 1); BINEAR := STREND + STRSUB; END; begin clrscr; write('Masukan Angka : '); read(masukan); write('Hasil Konversi ke Biner Adalah : ',binear(masukan)); read(masukan); end.
Anda bisa copy paste tersebut kedalam program pascal anda lalu jalankan.