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

• Download calc
• Enviar nova versão

Esconder código-fonte

#!/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;
}

Lista de números aleatórios não-repetidos de um intervalo em Perl

Cadastro usando arquivos .txt para guardar dados

Graficos com barras em Perl

Separa os dígitos de um número

"Codificação" de texto em Perl

Nenhum comentário foi encontrado.