Calculadora
Publicado por Rodrigo 05/09/2006
[ Hits: 9.447 ]
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; }
Calculando a média entre dois valores
Assistente de instalação por apt!
Crivo de Eratóstenes Simples em Perl
Nenhum comentário foi encontrado.
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
E a guerra contra bots continua
Tradução do artigo do filósofo Gottfried Wilhelm Leibniz sobre o sistema binário
Conheça o firewall OpenGFW, uma implementação do (Great Firewall of China).
Instalando o FreeOffice no LMDE 6
Anki: Remover Tags de Estilo HTML de Todas as Cartas
Colocando uma opção de redimensionamento de imagem no menu de contexto do KDE
Não consigo acessar os modos de desempenho (2)
Ubuntu — tentando iniciar o windows? (0)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba