KONVERSI BILANGAN BINER KE BILANGAN INTEGER??!!
2 posters
Page 1 of 1
KONVERSI BILANGAN BINER KE BILANGAN INTEGER??!!
Tolong saya memecahkan kasus ini:
Buatlah ALGORITMA(bukan pascal) untuk melakukan konversi pada pita karakter yg mengandung bilangan biner dan mengubahnya menjadi bilangan integer...
tolong..plis..plis...hehehe..thx before..
Buatlah ALGORITMA(bukan pascal) untuk melakukan konversi pada pita karakter yg mengandung bilangan biner dan mengubahnya menjadi bilangan integer...
tolong..plis..plis...hehehe..thx before..
113080211_danc- Posts : 8
Join date : 2008-12-03
Age : 33
Location : Bandung
Re: KONVERSI BILANGAN BINER KE BILANGAN INTEGER??!!
113080211_danc wrote:Tolong saya memecahkan kasus ini:
Buatlah ALGORITMA(bukan pascal) untuk melakukan konversi pada pita karakter yg mengandung bilangan biner dan mengubahnya menjadi bilangan integer...
tolong..plis..plis...hehehe..thx before..
Program ConvertToBiner;
Uses crt;
Var
w,x,y,z:integer;
sisa:integer;
xb,xc:string;
Procedure itungbasis (var x,y:integer);
begin
xb:=' ';
sisa:=0;
repeat
sisa:=x mod y;
x:=x div y;
xb:=char (sisa + $30) + xb;
until
(x=0);
writeln('X terhadap basis 1 adalah ',xb);
end;
Procedure itungbiner (var x:integer);
begin
xc:=' ';
sisa:=0;
repeat
sisa:=w mod 2;
w:=w div 2;
xc:=char (sisa + $30) + xc;
until
(w=0);
writeln('X terhadap basis 2 adalah ',xc);
end;
begin
clrscr;
write('Masukkan X= '); readln(x);
writeln;
write('Masukkan basis 1= '); readln(y);
write('Masukkan basis 2= '); readln(z);
writeln;
w:=x;
itungbasis(x,y);
itungbiner(x);
writeln;
readln;
end.
Bisa dicoba. Ini program dari pascal yg saya buat sendiri untuk tugas PTI. Harap maklum klo ada yg outputnya salah ntar.
Page 1 of 1
Permissions in this forum:
You cannot reply to topics in this forum
|
|