Equação do 2°

Descrição

Esconder código-fonte

/usr/bin/perl -w
#autor : m4rc1054nt05
#programa que calcula equação do 2° grau

print "\t\t\tEquação do 2° grau\n\n\n";

@array[1..3];

for ( $i=1; $i<=3; $i++ ){
   print "Digite o $i valor\n";
   chomp ( $array[$i] = <STDIN> );
}

$delta = $array[2]*$array[2] -4*$array[1]*$array[3];

   if ( $delta < 0 ){
     print "valor nulo\n"
   }
   else {

  if ( $delta == 0 ){
    $a1 = - ($array[2] - $delta) /2*$array[1];
    print "o resultado de x1 e x2 sao $a1\n";
  }

   else {
     $count = 0;

   until ( $count2 >= $delta ) {
     $count2 = $count * $count;
   
   if ( $count2>= $delta ){
     $delta = $count;
   }

   else {
     ++$count;
  }
}
    $a1 = - ($array[2] - $delta) /2*$array[1];
    $a2 = - ($array[2] + $delta) /2*$array[1]; 

  print "O valor da equação e $a1 $a2 \n"; 
 }
}