Diktat Bab 5

Assalalmu"alaikum wr.wb

Pada kesempatan ini mari kita selesaikan soal pada diktat bab 5. Langsung saja, ayo kita selesaikan!!

KASUS 5.1

KASUS 5.2

KASUS 5.3

KASUS 5.4

KASUS 5.5

LATIHAN :

1. cetaklah bilangan 1 sampai dengan 4 menggunakan downto.

.{Bilangan (1-4 menggunakan dewonto) algoritma cetak angka}

Deklarasi

i         : integer

Deskripsi

For i ← 4 to 0 do

Write (i)

Endfor

2. buatlah translasi dalam bahasa C untuk algoritma 4.5. Apakah diperlukan modifikasi

algoritma ?

.{menentukan int 1 sampai 7, menentukan hari yang sesuai }

Deklarasi

Hari_ke      :int;

Hari  :string;

Deskripsi

          Read (hari_ke)

          Pilih(hari_ke)untuk

1 : hari ← |senin|;

2: hari ← |selasa|;

3: hari ← |Rabu|;

4: hari ← |Kamis|;

5: hari ← |Jumat|;

6: hari ← |Sabtu|;

7: hari ← |Minggu|;

End{pilih}

Write{hari}

3. Buatlah algoritma dan program untuk mencetak bilangan yang habis dibagi 3 dan 5

antara 1 sampai dengan 100.

{Membaca i (bilangan 1 sampai dengan 100), kemudian menentukan bilangan yang habis dibagi 3 dan 5}

Deklarasi

i           : integer           {bilangan 1 sampai dengan 100}

Deskripsi

Read i
I ß 1 sampai dengan 100
for (int i=1; i<=100; i++)
if (i mod 3==0)
Write i
Else (i mod 5==0)
Write i

4. 

5. Buatlah algoritma dan program untuk menghitung nilai dari permutasi dan kombinasi n

buah bola yang diambil r bola.

{Menghitung nilai permutasi dan kombinasi n buah bola yang diambil r bola}

 Deklarasi

          hasil,n,k : integer

          proses[2],yesno[2]; character

. Deskripsi

          Read(n,k)

          if(n<k)

          then write("Nilai n tidak boleh lebih kecil dari k")

          else

          write"(Pilih P (permutasi) atau C (kombinasi))"

          if(proses[0]=='p' || proses[0]=='P')

          hasil = faktorial(n)/faktorial(n-k);

          then write("\n \n")

          then write(n,"P",k," : ",hasil)

         

          else if (proses[0]=='c' || proses[0]=='C')

          hasil = faktorial(n)/(faktorial(k) * faktorial(n-k));

          then write("\n \n")

          then write(n,"C",k," : ",hasil)

         

          else

          then write("\n\tAnda tidak memilih P atau C")

          then write("\n\tIngin mengulang? <y/n> ")

          Read(yesno[0])

          if (yesno[0]=='Y'||yesno[0]=='y')

          Y=1

          else if (yesno[0]=='N'||yesno[0]=='n'||yesno[0]!='Y'||yesno[0]!='y')

          Y=0

6. Buatlah algoritma dan program untuk mengkonversi bilangan desimal menjadi bilangan

biner. Petunjuk : Gunakan operator mod dan div !

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")

7. Buatlah algoritma, flowchart dan program untuk menampilkan permutasi dari 3 huruf.

Misalnya diberikan : abc

output :

abc

bca

bac, dan seterusnya

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

􀀐 􀀎 􀀐 􀀎􀀖􀀎