no 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

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

Program c++

#include <iostream>
#include <string>
using namespace std;
int main()
{
   int i;
     for(i=4;i>0;i--)
     cout<<" "<<i<<endl;
   
   return 0;
}