Cálculo fatorial

Publicado por Osama Jr. 06/06/2009

[ Hits: 10.192 ]

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

Reconhecendo e abrindo midia

Script de controle do serviço TFTP

Removendo o ambiente Mate Desktop completamente

mordor.sh

Script Menu


  

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