program generate permutasi(kombinotorik)

#include <stdio.h>
#include <conio.h>
#include <stdlib.h>

using namespace std;


    int hasil;
    //fungsi faktorial
                int faktorial (int nilai)
            {
                hasil = nilai;
                while(nilai>1)
                {
                              hasil = hasil*(nilai-1);
                              nilai = nilai-1;
                              }
                              return hasil;
                              }
    main()
    {
          int p,nq,max,x,i,j,n,k,r,s,tr,no ;
          int a[100];
          div_t xx;
         
          for (i=0;i<100;i++)
          {
                             a[i] =0;
                             }
    //Tampilkan pembuka
    printf("\n                         ****PROGRAM GENERATE PERMUTASI****\n\n");
    printf(" SAPTO NUGROHO (11018043) \n");
    printf("-------------------------------------\n");
   
    //input nilai n(jumlah data <maksimal 100>)
            printf("Masukan nilai n : ");
            scanf("%d",&n);
    //input data ke dalam array
            for(i=1;i<=n;i++)    //ulangi semua data hingga data ke-n
            {
            printf("Masukan nilai himpunannya a[%d] : ",i);
            scanf("%d",&a[i]);
            }
           
    //input nilai r
            printf("nilai r : ");
            scanf("%d",&tr);
           
    //hitung nilai permutasi
    p=faktorial(n);
    nq=faktorial(n-tr);
    if(nq==0)nq=1;
    max=p/nq;
   
    printf("nilai permutasi : %d\n\nHasil generate permutasinya adalah...\n",max);
   
    getche();//fungsi membaca karakter keyboard
    no=1;//variabel untuk menampilkan nomor
   
         //men-generate permutasi dengan
         //algoritma generate next-permutation

   
    //genered sabanyak nilai permutasi
    for(x=1;x<=max;x++)
    {
                       printf("%3d. ",no);
                       for(i=1;i<=tr;i++)
                       printf("%d",a[i]);
                       printf("\n",a[i]);
                       no++;
                     
                       j=n-1;
                       while(a[j] > a[j+1])
                                  j=j-1 ; //j adalah subcript terbesar dengan aj<aj+1
                       k=n;
                       while(a[j] > a[k])
                                  k=k-1 ; //ak adalah integer terkecil dan lebih besar dari aj
                                 
    //tukar aj dan ak
    i=a[k];
    a[k]=a[j];
    a[j]=i;
   
    r=n;
    s=j+1;
    while (r>s)
    {
          //tukar ar dan as
          i=a[r];
          a[r]=a[s];
          a[s]=i;
         
          r=r-1;
          s=s+1;
          }
          }
         
       
         
    system("PAUSE");
    return EXIT_SUCCESS;
}