Calculadora
Publicado por Rodrigo 05/09/2006
[ Hits: 9.591 ]
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; }
Saiba quanto de energia seu PC gasta aproximadamente por mês
Nenhum comentário foi encontrado.
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Meu Fork do Plugin de Integração do CVS para o KDevelop
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Cups: Mapear/listar todas as impressoras de outro Servidor CUPS de forma rápida e fácil
Criando uma VPC na AWS via CLI
Tem como instalar o gerenciador AMD Adrenalin no Ubuntu 24.04? (15)
Tenho dois Link's ( IP VÁLIDOS ), estou tentando fazer o failover... (0)
Pendrive não formata de jeito nenhum (4)