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


Baixar apostila de Perl em PDF
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:
Converter Fahrenheit para Celsius em Perl

!!! 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";

Nenhum comentário:

Tutoriais de Programação