Calculadora
Publicado por Rodrigo 05/09/2006
[ Hits: 9.463 ]
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; }
Crivo de Eratóstenes Simples em Perl
Usando comandos shell com Perl
Calculando a média entre dois valores
Nenhum comentário foi encontrado.
Atualizar o macOS no Mac - Opencore Legacy Patcher
Crie alias para as tarefas que possuam longas linhas de comando - bash e zsh
Criando um gateway de internet com o Debian
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Aprenda a criar músicas com Inteligência Artificial usando Suno AI
Instalando Zoom Client no Ubuntu 24.04 LTS
Instalando Zoom Client no Fedora 40
Instalando Navegador Firefox no Debian 12
Bloqueando propagandas no Youtube e outros sites com o uBlocker Origin
Dificuldade em ler binário (12)
Em que pasta/arquivo ficam as configurações das janelas em derivados d... (2)
Não consigo atualizar minha GPU (1)