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.920 ]

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

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

Obtendo horas do sistema

Escrevendo varias linhas em um arquivo qualquer

Saiba quanto de energia seu PC gasta aproximadamente por mês

Cálculo de área de uma figura geométrica

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