Aprendendo a fazer equações em Perl
Publicado por victor (última atualização em 28/11/2018)
[ Hits: 1.371 ]
Homepage: kkk
Realiza equações de 1º e 2º grau em Perl.
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; }
Lista de números aleatórios não-repetidos de um intervalo em Perl
Cadastro usando arquivos .txt para guardar dados
Nenhum comentário foi encontrado.
Kernel turbinado e GNOME 49 dominam o giro do dia no mundo Linux
Novidades Linux: Kernel 6.17, distros em ebulição e segurança em foco
Kernel ganha novos linters Rust e distros avançam com recursos de IA
Firewire resiste, Bcachefs sai: destaques Linux do dia
Kernel 6.18 em foco, betas fervilhando e avanços em IA no Linux
Adicionando o repositório backports no Debian 13 Trixie
Como definir um IP estático no Linux Debian
systemd-resol... precisa ser reiniciado periodicamente (5)
Alguém que utilize o Warsaw do BB no Ubuntu 24.04 [RESOLVIDO] (6)
Fedora não reconhece James Donkey 102 Wireless Gaming Mouse (2)