Calculadora
Publicado por Rodrigo 05/09/2006
[ Hits: 9.639 ]
Essa é uma calculadora com funções básicas feita para estudo e prática de Perl. Funções: Somar, subtrair, dividir, multiplicar, exponenciar, delta. Ø Rodrigo Ø - [New Generation Crew] - www.firefiles.kit.net
#!/usr/bin/perl #Programa: RØD Calculator #Versão: 1.0 #SO's: Linux e Windows. #Descrição: Calculadora com funções básicas #Coded By: Ø Rodrigo Ø - [New Generation Crew] $ver="v. 1.0"; #Versão do programa print "\n+------------[RØD Calculator]-------------+\n"; print "|---------------------------------$ver--|\n"; print "| |\n"; print "| Calculadora com funços básicas |\n"; print "| |\n"; print "| Coded By Ø Rodrigo Ø |\n"; print "+-----------------------------------------+\n\n"; sleep 3; &opcao; sub opcao(){ system("clear"); print " +=====[Menu de Opções]=====+\n"; print " | [+] Somar |\n"; print " | [-] Subtrair |\n"; print " | [*] Multiplicar |\n"; print " | [/] Dividir |\n"; print " | [D] Delta |\n"; print " | [E] Exponenciação |\n"; print " | |\n"; print " | [X] Sair |\n"; print " +--------------------------+\n"; print " Digite a opção desejada: "; $opcao=<STDIN>; chomp ($opcao); if ($opcao eq "+") { &somar; } elsif ($opcao eq "-") { &subtrair; } elsif ($opcao eq "*") { &multiplicar; } elsif ($opcao eq "/") { &dividir; } elsif ($opcao eq "D" || $opcao eq "d") { δ } elsif ($opcao eq "E" || $opcao eq "e") { &elevar; } elsif ($opcao eq "X" || $opcao eq "x") { exit; } else { print "\nOpção inválida, tente novamente!\n"; <STDIN>; &opcao; } sub somar(){ print "\nDigite o primeiro valor: "; $valor1=<STDIN>; chomp($valor1); print "\nDigite o segundo valor: "; $valor2=<STDIN>; chomp($valor2); $result=$valor1+$valor2; print "\nO resultado é: $result\n"; &ok; } sub subtrair(){ print "\nDigite o primeiro valor: "; $valor1=<STDIN>; chomp($valor1); print "\nDigite o segundo valor: "; $valor2=<STDIN>; chomp($valor2); $result=$valor1-$valor2; print "\nO resultado é: $result\n"; &ok; } sub multiplicar(){ print "\nDigite o primeiro valor: "; $valor1=<STDIN>; chomp($valor1); print "\nDigite o segundo valor: "; $valor2=<STDIN>; chomp($valor2); $result=$valor1*$valor2; print "\nO resultado é: $result\n"; &ok; } sub dividir(){ print "\nDigite o primeiro valor: "; $valor1=<STDIN>; chomp($valor1); print "\nDigite o segundo valor: "; $valor2=<STDIN>; chomp($valor2); $result=$valor1/$valor2; $resto=$valor1%$valor2; print "\nO resultado é: $result\n"; if ($resto >= 1) { print "\nO resto da divisão é: $resto\n"; &ok; } } sub delta(){ print "\nDigite o valor de A: "; $a = <STDIN>; print "\nDigite o valor de B: "; $b = <STDIN>; print "\nDigite o valor de C: "; $c = <STDIN>; $delta = $b ** 2 - 4 * $a * $c; print "\nO Delta é: $delta\n"; &ok; } sub elevar(){ print "\nDigite o valor: "; $valor1=<STDIN>; chomp($valor1); print "\nElevar á: "; $valor2=<STDIN>; chomp($valor2); $result=$valor1**$valor2; print "\nO resultado é: $result\n"; &ok; } } sub ok(){ <STDIN>; &opcao; }
Calcula equação de segundo grau completa
Soma varios valores e mostra sua media
check_mem.pl - Plugin Nagios para checar consumo de RAM
Nenhum comentário foi encontrado.
Passkeys: A Evolução da Autenticação Digital
Instalação de distro Linux em computadores, netbooks, etc, em rede com o Clonezilla
Título: Descobrindo o IP externo da VPN no Linux
Armazenando a senha de sua carteira Bitcoin de forma segura no Linux
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Instalando Brave Browser no Linux Mint 22
vídeo pra quem quer saber como funciona Proteção de Memória:
Encontre seus arquivos facilmente com o Drill
Mouse Logitech MX Ergo Advanced Wireless Trackball no Linux
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
VMs e Interfaces de Rede desapareceram (12)
Instalação do drive do adaptador wiffi (7)