Soma varios valores e mostra sua media
Publicado por breek (última atualização em 02/03/2012)
[ Hits: 9.434 ]
Criado para auxiliar no uso do for( ).
Seu proposito é: Calcular a media de vários valores inseridos pelo usuário.
#!/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;
Aprendendo a fazer equações em Perl
imprime numeros de forma crescente e decrescente [FOR]
Lendo o conteúdo de uma página da Internet
Nenhum coment�rio foi encontrado.
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Dando - teoricamente - um gás no Gnome-Shell do Arch Linux
Como instalar o Google Cloud CLI no Ubuntu/Debian
Mantenha seu Sistema Leve e Rápido com a Limpeza do APT!
Procurando vídeos de YouTube pelo terminal e assistindo via mpv (2025)
Jogos baixados na Central de Aplicativos mas que não abrem (1)
debian com wayland, configuracao de teclado. Mudou Tudo! [RESOLVIDO] (1)
Iinstalar o Scanner Kodak i940 no Linux Mint 19/20? (3)
Pastas da raiz foram para a área de trabalho [RESOLVIDO] (11)