Outro "bc script" para a "calculadora" GNU bc. Este script usa interações para determinar a raiz quadrada aproximada de um número. Não é lá essas coisas, mas...

Apesar da bc possuir uma função interna chamada 'sqrt' que calcula a raiz quadrada, resolvi implementar dessa forma visando mais o aprendizado mesmo!  =)

• Download raizq_bc
• Enviar nova versão

Esconder código-fonte

/*
 * Cálculo da raiz quadrada.
 * 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
 *
 * Método "One Liner"
 *
 * scale = <valor> ; sqrt(valor);
 */
scale = 2;

/* Modo interativo */
define raiz_quadrada(valor)
{
   auto x, y;

   x = valor + 1 / 2;
   y = (x + (valor / x)) / 2;

   while (y < x) {
      x = y;
      y = (x + (valor / x)) / 2;
   }

   return(y);
}

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

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

   raiz_quadrada(input);
}

quit;

rc.firewall

Transformador

Cálculo fatorial

Ler arquivo linha por linha

System Software 2.1 - Instale e remova repositórios e programas de forma simples