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;
}

impares e pares

Scalar - Alguns dos usos mais comuns deste tipo de variável do Perl

Crivo de Eratóstenes Simples em Perl

Anagrama usando Perl

Lendo o conteúdo de uma página da Internet

Nenhum comentário foi encontrado.