Exemplo 12

=============================================================
Exemplo 12:

Tem-se um conjunto de dados contendo a altura e o sexo (M ou F) de 50 pessoas.
Fazer um algoritmo que calcule e escreva:
(a) A media de altura das mulheres.
(b) O numero de homens.

=============================================================

// Seção de Declarações

var

pessoa,sexo,mulher:inteiro
altura,soma,media:real

// PESSOA é a variavel que vai controlar o numero total de pessoas "intrevistadas". SEXO vai receber o sexo. MULHER vai guardar o numero de mulheres presentes. SOMA vai receber a soma de todas as mulheres. Media vai ser a media de altura das mulheres.

inicio

// Seção de Comandos

para pessoa de 1 ate 50 faca
escreval("1 PARA HOMEM.")
escreval("2 PARA MULHER.")

leia(sexo)
mulher<-0

// Instrução de seleção que é satisfeita caso seja mulher. Toda vez que for satisfeita a variável MULHER é aumentada de 1.

se(sexo=2)entao                    
               mulher<-mulher+1
               escreval("Altura: ")
               leia(altura)
               soma<-soma+altura     // Soma de todas as altura das mulheres.
fimse

fimpara
media<-soma/mulher    
escreval("A media de altura das mulheres é: ",media)
escreval(" O numero de homens é: ",50-mulher)

// Como só guardamos o numero de mulheres então o resto da subtração será homem.

fimalgoritmo
=============================================================