Análise combinatória
Publicado por Reginaldo de Matias 08/11/2006
[ Hits: 30.490 ]
Homepage: http://mundodacomputacaointegral.blogspot.com/
O presente script efetua os cálculos usados em análise combinatória, tais como: arranjos simples, combinação simples e permutação, e além disso faz uso da função recursiva para o cálculo do fatorial.
/*Este programa efetua os cálculos usados em análise combinatória.
Arranjos Simples, Combinação Simples e Permutação.
by Reginaldo de Matias - Ciência da Computação - UDESC
Copyrigth - 2006
*/
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
unsigned long Fatorial(unsigned long n);
int main()
{
long n,p,aux;
long A,C,P;
char op;
system("color 9e"); system("title Análise Combinatória");
do{
printf("Software que calcula Arranjo,Combinacao e Permutacao\n\n");
do{
printf("Entre com o valor de n: ");
scanf("%li",&n);
printf("\nEntre com o valor de p: ");
scanf("%li",&p);
if(n<p || p<0)
printf("!!!ERRO!!! Dado incorreto!\nTente novamente!\n ");
}while(n<p || p<0);
aux = Fatorial(n);
A = (aux/Fatorial(n-p));
C = (Fatorial(n))/(Fatorial(p)*(Fatorial(n-p)));
P = Fatorial(n);
printf("Arranjo: A(%li,%li)= %li\n\n",n,p,A);
printf("Combinacao: C(%li,%li) = %li\n\n",n,p,C);
printf("Permutacao: P(%li) = %li\n\n",n,P);
printf("\nNovo calculo (S)/(N): ");
scanf("%s",&op);
}while(op == 'S' || op == 's');
printf("Copyright - 2006\n");
system("Pause");
}
unsigned long Fatorial(unsigned long n)
{
if(n==0 || n==1)
return 1;
return n*Fatorial(n-1);
}
Abrir cdrom pedindo direto ao sistema.
Monitorando o Preço do Bitcoin ou sua Cripto Favorita em Tempo Real com um Widget Flutuante
IA Turbina o Desktop Linux enquanto distros renovam forças
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Como realizar um ataque de força bruta para desobrir senhas?
Como usar Gpaste no ambiente Cinnamon
Atualizando o Fedora 42 para 43
SQLITE dificuldades em LINUX LMDE 64 bit que não reconhece biblioteca... (0)
Secure boot, artigo interessante, nada técnico. (5)
VOL já não é mais como antes? (9)
É normal não gostar de KDE? (13)
E aí? O Warsaw já está funcionando no Debian 13? [RESOLVIDO] (15)









