Calculadora
Publicado por Rodrigo 05/09/2006
[ Hits: 9.685 ]
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; }
Cálculo de área de uma figura geométrica
Renomeando arquivos de forma padronizada
Nenhum comentário foi encontrado.
tux-gpt - Assistente de IA para o Terminal
Instalação e configuração do Chrony
Programa IRPF - Guia de Instalação e Resolução de alguns Problemas
Como instalar no Linux Jogos da Steam só para Windows
Instalando o Team Viewer no Debian Trixie - problema no Policykit
O Que Fazer Após Instalar Ubuntu 25.04
Alguém poderia me ajudar a escolher peças pra montar um desktop? (30)
Como fzr Downgrade em um pacote específico (5)
Inspiração para desenhar no Linux (1)
Os empreguim de meu Deus estão cada vez mais tecnológicos (6)