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 pascal 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.
Baca juga : Program Pascal Untuk Konversi Desimal ke Romawi ke Biner ke Hexadesimal
Program Koversi dari Desimal ke Biner anda sekarang sudah selesai, baca juga tutorial program pascal lainnya.
0 komentar