Calcula equação de segundo grau completa

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

[ Hits: 5.360 ]

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

triangulo

Lista de números aleatórios não-repetidos de um intervalo em Perl

Anagrama usando Perl

imprime numeros de forma crescente e decrescente [FOR]

localtime.pl


  

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

Muito bom.

[]'s


Contribuir com comentário