Algoritma konversi bilangan desimal ke binner


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