Inserindo o nome de aluno e calculando média de suas notas [Perl]

Inserindo o nome de aluno e calculando média de suas notas

Publicado por Wesley Fonseca 28/02/2009

[ Hits: 6.946 ]

Homepage: www.quimica.ufg.br/mestrado

Download mediah.pl

0 0

Denuncie Favoritos Indicar

Esse script mostra ao iniciante em perl como trabalhar com variáveis do tipo real (números) e caracteres (texto) no mesmo script e ainda uma palhinha de matemática.

Esconder código-fonte

#/usr/bin/perl
#este script lê o nome e 3 notas de um aluno e retorna sua média harmonica
#a media harmonica é dada por 3/(1/a + 1/b + 1/c)

print "Digite o nome do aluno:";
$nome = <STDIN>;      #aqui gera o campo para digitar o nome
chomp ($nome);         #e aqui o nome é armazenado em $nome
print "Digite a 1ª nota:";
$a = <STDIN>;         #aqui gera o campo para digitar a nota
chomp ($a);         #e aqui a nota "a" é armazenada,para as outra notas vale o mesmo.
print "Digite a 2ª nota:";
$b = <STDIN>;
chomp ($b);
print "Digite a 3ª nota:";
$c = <STDIN>;
chomp ($c);
$mediah = 3/(1/($a) + 1/($b) + 1/($c));#formula que calcula a media harmonica.
print "A média harmônica do aluno $nome é $mediah\n";#imprimindo na tela o nome e a nota 


#sugestoes,bugs,melhoras?!? ==> wesfonseca@gmail.com

Scripts recomendados

Assistente de instalação por apt!

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

Soma varios valores e mostra sua media

Usando comandos shell com Perl

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

Comentários

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

Olá amigo, vi seu script e detectei alguns erros. A pragma chomp não atribui valor a nenhuma variavel, e sim o stdin. Chomp serve apenas para tirar qualquer ultimo caractére que existir, no caso \n.
Não utilize acentos em seus scripts, a nao ser se voce usar o módulo Encore, que é facilmente encontrado no CPAN. Mas mesmo assim não aconselho.
Tente utilizar algum loop para tornar possível a soma de mais de um aluno sem precisar interpretar novamente o script.

Abraços,
Krlos

0 0