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

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

Assistente de instalação por apt!

Conversor de moedas

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

triangulo

data do servidor em perl

Comentários

Nenhum comentário foi encontrado.