Kamis, 09 Juni 2011

Program Konversi Bilangan Bulat dalam Basis 10 ke Basis Lain

Ini contoh program konversi bilangan bulat dengan menggunakan program Pascal. Semoga bermanfaat.

program konversi_bulat_dari_10_k_n;
uses wincrt;
var
i,j,n:integer;
k,m:string;
ul:char;
begin
write('KONVERSI BILANGAN BULAT DARI BASIS 10 KE BASIS N');
writeln;
writeln;
repeat
write('Masukan bilangan yang akan dikonversikan: '); readln (i);
write('Masukan basis tujuan (2 sampai 9): '); readln (n);
j:=i;
k:='';
repeat
str(i mod n, m);
k:=m+k;
i:=i div n;
until i=0;
writeln('Hasil konversinya ',j);
writeln ('Jadi, ',j,' (10) = ', k,' (',n,')');
writeln;
writeln;
write('Ulangi lagi? (Y/T)');readln(Ul);
Ul:=Upcase(Ul);
writeln;
writeln;
until (Ul<>'Y');
end.