Aprendendo a fazer equações em Perl [Perl]

Aprendendo a fazer equações em Perl

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

[ Hits: 1.478 ]

Homepage: kkk

Download eq.pl

1 0

Denuncie Favoritos Indicar

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

impares e pares

Scalar - Alguns dos usos mais comuns deste tipo de variável do Perl

Separa os dígitos de um número

Múltiplos de 7 - Decrescente

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

Comentários

Nenhum comentário foi encontrado.