Calcula equação de segundo grau completa
Publicado por Perfil removido (última atualização em 19/12/2012)
[ Hits: 5.651 ]
Script em Perl que calcula a equação de segundo grau completa.
#!/usr/bin/perl # By MMxM # Calcula equação de segundo grau completa print "\n\t*Calcula equacao de segundo grau completa*\n\n"; print "By MMxM\n\n"; print "a = "; $a = <STDIN>; print "b = "; $b = <STDIN>; print "c = "; $c = <STDIN>; raiz_delta(); sub raiz_delta(){ $delta = $b**2- 4*$a*$c; $raiz = sqrt($delta); x(); } sub x(){ $s = -$b + $raiz; $x = $s/2*$a; xx(); } sub xx(){ $ss = -$b - $raiz; $xx = $ss/2*$a; } print "\n\nx1 = $x\nx2 = $xx";
Saiba quanto de energia seu PC gasta aproximadamente por mês
Atenção a quem posta conteúdo de dicas, scripts e tal (2)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
Como Atualizar Fedora 39 para 40
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
redirecionando saida de comando touch para o AWK[AJUDA] (15)
iso de sistema 32 bit em atividade (25)
Problemas com o Lutris e o Wine no Slackware 15.0 (0)