Soma varios valores e mostra sua media
Publicado por breek (última atualização em 02/03/2012)
[ Hits: 9.418 ]
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
Crivo de Eratóstenes Simples em Perl
Nenhum coment�rio foi encontrado.
Como aprovar Pull Requests em seu repositório Github via linha de comando
Como gerar um podcast a partir de um livro em PDF
Automatizando digitação de códigos 2FA no browser
Resolver problemas de Internet
Como compartilhar a tela do Ubuntu com uma Smart TV (LG, Samsung, etc.)
Organizando seus PDF com o Zotero
Erro no realm join [Resolvido]
Um programa para baixar vídeos: Parabolic
Como Definir o Painel Principal em Múltiplos Monitores no Linux Mint
BlueMail não abre no Kubuntu 25.04 (1)
Driver de rede realtek 8821ce bugado (8)
Atalhos duplicados (sobras de instalações anteriores) (5)
tentando instalar em um notebook antigo o Linux LegacyOS_2023... (6)