Algoritmo no VisualG

algoritmo "1ª Prova"

// Função: Calcular a audiência.

// Autor:

// Data: 24/04/2015

// Seção de Declarações

var

amostra, qtde, canal: inteiro

ch5, ch7, ch10, ch12: inteiro

per5, per7, per10, per12: real

inicio

// Seção de Comandos

amostra <- 0

ch5 <- 0

ch7 <- 0

ch10 <- 0

ch12 <- 0

repita

escreva("Digite o número do canal: ")

leia (canal)

escreva("Digite a quantidade de pessoas: ")

leia (qtde)

//Quantidade de pessoas da amostra:

amostra <- (amostra + qtde)

se(canal = 5) entao

ch5 <- (ch5 + qtde)

senao

se (canal = 7) entao

ch7 <- (ch7 + qtde)

senao

se (canal = 10) entao

ch10 <- (ch10 + qtde)

senao

se(canal = 12) entao

ch12 <- (ch12 + qtde)

fimse

fimse

fimse

fimse

ate (canal = 0)

escreval("Quantidade de Pessoas da Amostra: ", amostra)

//Calculando o percentual de audiência do canal 5:

per5 <- ((ch5 * 100)/amostra)

escreval("Percentual de audiência do Canal 5:", per5, "%")