Diktat Bab 5 Latihan 5

5. {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