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

• Download eq.pl
• Enviar nova versão

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;

}

Obtendo horas do sistema

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

Assistente de instalação por apt!

Cálculo de área de uma figura geométrica

Saiba quanto de energia seu PC gasta aproximadamente por mês

Nenhum comentário foi encontrado.