Pular para o conteúdo

Calculando a média entre dois valores

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.
Wesley Fonseca wesfonseca
Hits: 12.271 Categoria: Perl Subcategoria: Introdução
  • Download
  • Nova versão
  • Indicar
  • Denunciar

Descrição

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.
Download media.pl Enviar nova versão

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!

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

Conversor de moedas

Cadastro usando arquivos .txt para guardar dados

Anagrama usando Perl

Potenciação

#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.
#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!!!!
#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.
#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.

Contribuir com comentário

Entre na sua conta para comentar.