Diktat Bab 5 Latihan 6

Deklarasi

            desimal, pembagi, bit : long

            pembagi=1073741824

 Deskripsi

            Read(desimal)

            while(pembagi>desimal)pembagi/=2

            do

            bit=desimal/pembagi

            then write(bit)

            desimal=desimal%pembagi

            pembagi/=2;

            while(pembagi>=1)

            write("\n")

Latihan ke2

Algoritma

Deklarasi :

            x, y, i, hasil : integer

Deskripsi :

            read x

            read y

            hasil <- 0

            for i <- to y do

                        hasil <- hasil + x

            end for

            write hasil

            end