Calculando a média entre dois valores [Perl]

Calculando a média entre dois valores

Publicado por Wesley Fonseca 28/02/2009

[ Hits: 12.237 ]

Homepage: www.quimica.ufg.br/mestrado

Download media.pl

0 0

Denuncie Favoritos Indicar

Este é um script simples, onde o usuário digita dois valores e obtem a média entre os mesmos.

O script mostra conceitos simples como inserção, armazenamento e processamento de valores. Útil para quem está dando os primeiros passos e quer entender melhor o Perl.

Esconder código-fonte

#/usr/bin/perl

#este script calcula a media entre dois valores digitados

print "Digite um numero:";
$A = <STDIN>;         #o STDIN gera uma linha para a entrada do valor,esse valor é atribuido
                    #a variavel $A
chomp ($A);         #a funçao chomp lê e  armazena o valor digitado
print "Digite outro numero:";
$B = <STDIN>;
chomp ($B);         #aqui ficará armazenado o valor digitado
$media = (($A) + ($B))/2;
print "A média entre os valores é: $media\n";

#bugs ou melhoramentos?!? ==> wesfonseca@gmail.com
#e viva o linux!

Scripts recomendados

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

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

Cadastro usando arquivos .txt para guardar dados

data do servidor em perl

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

Comentários

[1] Comentário enviado por carlosjunges em 28/02/2009 - 20:33h

Sinceramente, não vejo necessidade alguma de postar algo como isso. Já que qualquer um é capaz de fazer (x + x)/2 em qualquer linguagem.

1 0

[2] Comentário enviado por samirmss23 em 18/12/2009 - 14:53h

Eu discordo pra mim foi de grande serventia.... esse tipo de explo é simples e mostra como funciona a linguaguem pra que nao tem nehuma noção de nada em programação em ... outra coisa cara na primeira linha q declara a linguagem ta faltando !
esta assim #/usr/bin/perl

O certo seria assim #!/usr/bin/perl

Valeu!!!!

0 0

[3] Comentário enviado por leandrox em 07/04/2010 - 16:38h

É válido para iniciantes na linguagem Perl enteder as funções STDIN, chomp

Vlw.

0 0

[4] Comentário enviado por carlosjunges em 07/04/2010 - 19:21h

sim, voces têm razão, foi um equivoco meu dizer que não tinha utilidade, perdão.
O script tem sim grande valia para iniciantes na área.
Desculpe pelo comentário mal elaborado de antes.

0 0