Exercícios Básicos de Perl (resolvidos e comentados)

Baixar e estudar pela apostila em PDF

Questões de Programação Perl

1. Crie um script que pede um número ao usuário e mostre o dobro dele.

2. Crie um script que pede um número ao usuário e mostre seu quadrado.

3. Crie um script que pede o raio de uma circunferência e exiba o diâmetro, comprimento da circunferência e a área do círculo.

4. Crie um script em Perl que solicita ao usuário duas notas e exibe a média.

5. Faça o mesmo do exercício anterior, mas com 3 notas.

6. Faça um script que simula uma calculadora, em Perl. Ela deve pedir dois números ao usuário e em seguida deve exibir o resultado da soma, subtração, multiplicação, divisão, média e o resto da divisão do primeiro pelo segundo.

7. Crie dois scripts, um que recebe a temperatura em Celsius e converte para Fahrenheit, e outro que faça o contrário. As fórmulas matemáticas são:

!!! ATENÇÃO !!!
Pessoal, abaixo tem as soluções.
Mas sugiro fortemente que tente resolver as questões acima, se esforcem, pensem, pesquisem, tentem mais uma vez...se errarem ou o código sair feio e grande, não tem problema, é ASSIM MESMO no começo!

Faz parte da jornada!
Insista, quebre a cabeça, é assim que se vira um bom programador e não vendo vídeos no Youtube de gente programando, se aprende é tentando mesmo, os bons são forjados assim, na raça, na tentativa, ok?

Abaixo, seguem as soluções.

Soluções comentadas das questões de Perl

1.

#!/usr/bin/perl

print "Numero: ";
$num = <STDIN>;
chomp($num);
print "Dobro: ",2*$num, "\n";

2.

#!/usr/bin/perl

print "Numero: ";
$num = <STDIN>;
chomp($num);
print "Quadrado: ",$num*$num, "\n";

3. A fórmula do diâmetro é o dobro do raio, vamos armazenar o raio na variável $rad.
Do comprimento é: 2 x pi x raio, que fica em Per: 2 * 3.14 * $rad
Fórmula da área: pi x raio² = 3.14 * $rad *$rad

#!/usr/bin/perl

print "Raio: ";
$rad = <STDIN>;
chomp($rad);
print "Diâmetro   : ", 2*$rad, "\n";
print "Comprimento: ", 2*3.14*$rad, "\n";
print "Área       : ", 3.14*$rad*$rad, "\n";

4. Vamos armazenar as notas nas variáveis $num1 e $num2.
A fórmula da média é: ($num1 + $num2)/
Cuidado para não fazer: $num1 + $num2/2 , se fizer assim, pela regra da precedência de operadores, a divisão será feita primeiro, na variável $num2, e depois a soma, fazendo o cálculo errado.

Pra não ter erro e deixar o código bem organizado, use parêntesis, ok?

#!/usr/bin/perl

print "Nota 1: ";
$num1 = <STDIN>;
print "Nota 2: ";
$num2 = <STDIN>;

chomp($num1);
chomp($num2);

$media = ($num1 + $num2)/2;
print "Média: ",$media, "\n";

Você consegue fazer usando menos variáveis?
5.

#!/usr/bin/perl

print "Nota 1: ";
$num1 = <STDIN>;
print "Nota 2: ";
$num2 = <STDIN>;
print "Nota 3: ";
$num3 = <STDIN>;

chomp($num1);
chomp($num2);
chomp($num3);

$media = ($num1 + $num2 + $num3)/3;
print "Média: ",$media, "\n";

6.

#!/usr/bin/perl

print "Primeiro numero: ";
$num1 = <STDIN>;
print "Segundo numero : ";
$num2 = <STDIN>;

chomp($num1);
chomp($num2);

print "Soma            : ",$num1+$num2, "\n";
print "Subtração       : ",$num1-$num2, "\n";
print "Multiplicação   : ",$num1*$num2, "\n";
print "Divisão         : ",$num1/$num2, "\n";
print "Média           : ",($num1+$num2)/2, "\n";
print "Resto da divisão: ",$num1%$num2, "\n";

7.

Celsius para Fahrenheit:

#!/usr/bin/perl

print "Temperatura em graus Celsius: ";
$C = <STDIN>;
chomp($C);

$F = (9*$C/5) + 32;

print "Temperatura em Fahrenheit: ",$F, "\n";

Fahrenheit para Celsius:

#!/usr/bin/perl

print "Temperatura em Fahrenheit: ";
$F = <STDIN>;
chomp($F);

$C = 5*($F-32)/9;

print "Temperatura em Celsius: ",$C, "\n";