Calcula equação de segundo grau completa

Publicado por Perfil removido (última atualização em 19/12/2012)

[ Hits: 5.766 ]

Download segundo.pl




Script em Perl que calcula a equação de segundo grau completa.

  



Esconder código-fonte

#!/usr/bin/perl

# By MMxM
# Calcula equação de segundo grau completa

print "\n\t*Calcula equacao de segundo grau completa*\n\n";
print "By MMxM\n\n";
print "a = ";
$a = <STDIN>;
print "b = ";
$b = <STDIN>;
print "c = ";
$c = <STDIN>;

raiz_delta();
sub raiz_delta(){
$delta = $b**2- 4*$a*$c;
$raiz = sqrt($delta);
x();
}

sub x(){
$s = -$b + $raiz;
$x = $s/2*$a;
xx();
}

sub xx(){
$ss = -$b - $raiz;
$xx = $ss/2*$a;
}

print "\n\nx1 = $x\nx2 = $xx";

Scripts recomendados

Graficos com barras em Perl

localtime.pl

Cálculo do MDC em Perl para quantidade ilimitada de parâmetros

Usando comandos shell com Perl

Cadastro usando arquivos .txt para guardar dados


  

Comentários
[1] Comentário enviado por cesar em 21/12/2012 - 11:13h

Muito bom.

[]'s


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts