Análise combinatória
Publicado por Reginaldo de Matias 08/11/2006
[ Hits: 29.763 ]
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); }
Calcula o raio de um objeto cilindrico
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
E a guerra contra bots continua
Tradução do artigo do filósofo Gottfried Wilhelm Leibniz sobre o sistema binário
Conheça o firewall OpenGFW, uma implementação do (Great Firewall of China).
Instalando o FreeOffice no LMDE 6
Anki: Remover Tags de Estilo HTML de Todas as Cartas
Colocando uma opção de redimensionamento de imagem no menu de contexto do KDE
Não consigo acessar os modos de desempenho (2)
Ubuntu — tentando iniciar o windows? (0)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba