Ohne Titel

inicio

tv_l<­ "n"

"Televisão desligada (s/n)?: "

tv_l

enquantotv_l = "n" faca

cont<­ cont + 1

Qual canal estão assistindo?

ncanal

Quantas pessoas estão assistindo?

se(ncanal = 4)

c4<­ c4 + 1

ncanal = 5)

c5<­ c5 + 1

ncanal = 7)

c7<­ c7 + 1

ncanal = 12)

c12<­ c12 + 1

pc4 <­ c4 / cont * 100 pc5 <­ c5 / cont * 100 pc7 <­ c7 / cont * 100 pc12 <­ c12 / cont * 100

"O número de casas pesquisadas é: ",cont)

"A audiência da emissora do canal 4 é: ",c4)

"A audiência da emissora do canal 5 é: ",c5)

"A audiência da emissora do canal 7 é: ",c7)

"A audiência da emissora do canal 12 é: ",c12)

"A percentagem do canal 4 é: ",pc4," %")

"A percentagem do canal 5 é: ",pc5," %")

"A percentagem do canal 7 é: ",pc7," %")

"A percentagem do canal 12 é: ",pc12," %")