Aprendendo a fazer equações em Perl

Publicado por victor (última atualização em 28/11/2018)

[ Hits: 775 ]

Homepage: kkk

Download eq.pl




Realiza equações de 1º e 2º grau em Perl.

  



Esconder código-fonte

print"EQUAÇÕES EM PERL \n";
print"PARA PROSSEGUIR, ESCOLHA UMA DAS SEGUINTES OPÇÕES: \n";

print"EQUAÇÕES DE 1º GRAU ----> 1 \n";
print"EQUAÇÕES DE 2º GRAU ----> 2 \n";
chomp($escolha = <STDIN>);

if ($escolha == 1)
{

print"EQUAÇÕES DE 1º GRAU: \n";

print"DIGITE O VALOR DE A: \n";
chomp($a = <STDIN>);

print"DIGITE O VALOR DE B: \n";
chomp($b = <STDIN>);

print"O VALOR DE X É". ($B*-1)/$a;

}

if ($escolha == 2)
{

print"EQUAÇÕES DE 2º GRAU: \n";

print"DIGITE O VALOR DE A: \n";
chomp($a = <STDIN>);

print"DIGITE O VALOR DE B: \n";
chomp($b = <STDIN>);

$delta = ($b*$b)-($a*$c*4);
$x1 = (($b*-1) + sqrt($delta)) / $a*2;
$x2 = (($b*-1) - sqrt($delta)) / $a*2;

print"O VALOR DE X1 É" .$X1;
print"O VALOR DE X2 É" .$x2;

}




Scripts recomendados

Potenciação

Lendo o conteúdo de uma página da Internet

Anagrama usando Perl

localtime.pl

check_mem.pl - Plugin Nagios para checar consumo de RAM


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts