Algortima :
Procedure biner(x: array[20] of interger)
Deklarasi
I,y=0 :integer
while n0 do
x:array[y]= n mod 2
n=n/2
y=y+1
endwhile
for I <- y-1 to 1
i=i-1
write(x[i])
endfor
procedure koma (a : float, z: integer)
Deklarasi
I,y : integer
for I <- 1 to z do
i=i+1
if (a*10 5)
a=a*2
y=0
else
a=a*2
a=a-1
y=1
endif
write(y)
endfor
procedure main
Deklarasi :
X: array[100] of integer
n,z : integer
a : float
Deskripsi
Read(n)
Biner(x,n)
Read(a,z)
Write(a,z)
0 Response to "Algoritma konversi bilangan desimal ke binner"
Post a Comment