Cálculo fatorial

Publicado por Osama Jr. 06/06/2009

[ Hits: 9.921 ]

Homepage: Não tenho

Download fatorial_bc




Mais um "bc script" que calcula o fatorial dum número utilizando-se de interações.

P.S.: Este método "one liner" =) também faz a mesma coisa: seq -s \* <valor> | bc

  



Esconder código-fonte

/*
 * Cálculo Fatorial.
 * Algoritmo adaptado a "calculadora" GNU bc.
 *
 * Uso: <bc script>
 * Para sair: <ctrl + d> ou <use um caractere não numérico>
 *
 * Autor: /bin/laden - 22/04/2009.
 *
 * Mais detalhes: <man bc> ou <www.google.com> =P
 *
 * Modo recursivo:
 *
 * define fatorial(valor)
 *  {
 *      if (valor <= 1) return(1);
 *      return(fatorial(valor - 1) * valor);
 *  }
 */

/* Modo interativo */
define fatorial(valor)
{
   auto x, y;
   x = 1;
   y = 1;
   
   while (y++ < valor) x = x * y;
   
   return(x);
}

while (1) {
   print "Fatorial de: ";
   input = read();

   /* "Input" inválido */
   if (!input) break;
   
   fatorial(input);
}
quit;

Scripts recomendados

Cálculo de Índice de Massa Corporal

mordor.sh

Um Gerenciador de dispositivos que fiz

Exploitdb Upgrade

Copiando o conteudo de um CDROM ou DVDROM.


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts