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: 7.234 ]

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

Cálculo do MDC em Perl para quantidade ilimitada de parâmetros

Renomeando arquivos de forma padronizada

Calcula equação de segundo grau completa

Graficos com barras em Perl

Cadastro usando arquivos .txt para guardar dados

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