Soma varios valores e mostra sua media

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

[ Hits: 9.265 ]

Download CalcMedia.pl




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

imprime numeros de forma crescente e decrescente [FOR]

check_mem.pl - Plugin Nagios para checar consumo de RAM

localtime.pl

Fatorial

Potenciação


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts