Soma varios valores e mostra sua media [Perl]

Soma varios valores e mostra sua media

Publicado por breek (última atualização em 02/03/2012)

[ Hits: 9.318 ]

Download CalcMedia.pl

0 0

Denuncie Favoritos Indicar

Criado para auxiliar no uso do for( ).

Seu proposito é: Calcular a media de vários valores inseridos pelo usuário.

Esconder código-fonte

#!/usr/bin/perl
#--------------------------------------------------------------------------------------------------------
#
# @Author: breek
# @Code: CalcMedia.pl
# @Version: 0.1.0
# @Date: 21/02/2012
#
#--------------------------------------------------------------------------------------------------------

#=================================================#
# Este script calcula a média de varios valores. 
#=================================================#

use strict;
use warnings;

my $Quantidade;
my $Contador;   #Incremento: (1+1)
my $Valor;
my $Soma;
my $Media;

# Receber a [quantidade de numeros] #
print "Quantos valores sarao calculados: ";
$Quantidade = <>;
chomp $Quantidade;
system ( "cls" );


# for() - mesmo estilo do C #
# Somando valores #
for( $Contador = 1; $Contador <= $Quantidade; $Contador++ )
{
   print "Digite o valor: ";
   $Valor = <>;
   chomp $Valor;
   
   $Soma += $Valor; # Soma = Soma + Valor #
   
   system( "cls" );
}

#Calculo da media #
$Media = $Soma / $Quantidade;

# Mostrando resultado. Finalizando #
print "\n";
print "A soma e: $Soma \n";
print "A media e: $Media \n";

exit;

Scripts recomendados

Escrevendo varias linhas em um arquivo qualquer

Calc.pl

Cálculo do MDC em Perl

Múltiplos de 7 - Decrescente

check_mem.pl - Plugin Nagios para checar consumo de RAM

Comentários

Nenhum comentário foi encontrado.