Aprendendo a fazer equações em Perl

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

[ Hits: 1.175 ]

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

localtime.pl

Potenciação

Verificar se usuário é root

Renomeando arquivos de forma padronizada

Escrevendo varias linhas em um arquivo qualquer


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts