Cálculo fatorial

Publicado por Osama Jr. 06/06/2009

[ Hits: 9.902 ]

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

Menu + Relógio em tempo real

Script que calcula média entre duas provas

Tornando pen drive bootável

Monta CDROM

Alterar valores de jogos em Flash


  

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