TrabalhosGratuitos.com - Trabalhos, Monografias, Artigos, Exames, Resumos de livros, Dissertações
Pesquisar

Comando enquanto algoritmo

Por:   •  30/7/2015  •  Trabalho acadêmico  •  1.058 Palavras (5 Páginas)  •  301 Visualizações

Página 1 de 5

Aluno: Matheus Mota Leonis –- UC14100761

Questão 01:

var

num, cont, acum: real

inicio

ESCREVAL ("Digite o número ou zero para sair")

Leia (num)

ENQUANTO (num <> 0) FACA

cont <- cont+1 //processo de contagem

acum <- acum + num

escreval ("Digite o número ou zero para sair")

leia (num)

FIMENQUANTO

ESCREVAL ("Foram digitados", cont, "números!")

// Seção de Comandos

Fimalgoritmo

Questão 02:

var

num, cont: inteiro

num1:real

inicio

ESCREVAL ("Digite o número ou zero para sair")

Leia (num)

ENQUANTO (num <> 0) FACA

   se(num mod 3)= 0 ENTAO

      cont <- cont+1 //processo de contagem

   FIMSE

   escreval ("Digite o número ou zero para sair")

   leia (num)

FIMENQUANTO

ESCREVAL ("Quantidade de números multiplos de 3:", cont, " números!")

// Seção de Comandos

Fimalgoritmo

Questão 03:

var

num, cont,acum: inteiro

num1, media:real

inicio

// Seção de Comandos

ESCREVAL ("Digite o número ou zero para sair")

Leia (num)

ENQUANTO (num <> 0) FACA

   se(num mod 3)= 0 ENTAO

      cont <- cont+1 //processo de contagem

      acum <- acum + num

   FIMSE

   escreval ("Digite o número ou zero para sair")

   leia (num)

FIMENQUANTO

se (num = 0) entao

   escreva("Não foram digitados números múltiplos de 3.")

senao

   media <- acum/cont

   ESCREVAL ("A média dos números multiplos de 3 é", media)

   FIMSE

fimalgoritmo

Questão 04:

var

num, contPos, contNeg, tContagem, acumPos, acumNeg, TTotal : inteiro

inicio

ESCREVAL ("Digite o número ou zero para sair")

Leia (num)

ENQUANTO (num <> 0) FACA

se (num > 0) entao

contPos <- contPos +1

senao

contNeg <- contNeg +1

fimse

tContagem <- contPos + contNeg

tTotal <- acumPos + acumNeg

escreval ("Digite o número ou zero para sair: ")

leia (num)

fimenquanto

escreval ("A quantidade de números positivos é:",contPos)

escreval ("A quantidade de números negativos é:",contNeg)

escreval ("A soma total dos números:",tContagem)

fimalgoritmo

Questão 05:

var

idade: inteiro

totalPessoas: inteiro

altura: real

totalAltura: real

media: real

inicio

idade <- 1

enquanto (idade <> 0) faca

         ESCREVAL ("Digite a sua idade ou zero para sair:")

                  Leia (idade)

         ESCREVAL ("Digite a sua altura:")

                  leia (altura)

         se(idade >= 50) entao

                  totalPessoas <- totalPessoas + 1

                  totalAltura <- altura + totalAltura

         fimse

fimenquanto

   media <- totalAltura / totalPessoas

escreval ("A média das alturas das pessoas com mais de 50 anos é:",media)

escreval ("A quantidade de Pessoas com mais de 50 anos:",totalPessoas)

escreval ("A soma da altura das Pessoas com mais de 50 anos:",totalAltura)

fimalgoritmo

Questão 6:

var

renda, totalRenda, totalFilhos, mediaFilhos, mediaRenda : real

filhos, opcao, totalFamilia : inteiro

inicio

// Seção de Comandos

   opcao <- 1

   escrevaL("         ==================== PESQUISA ELEITORAL ====================")

   enquanto (opcao <> 0) faca

            escreva("Informe o total da renda da familia:R$")

            leia(renda)

            escreva("Informe o total de filhos na familia:")

            leia(filhos)

            totalRenda <- totalRenda + renda

            totalFilhos <- totalFilhos + filhos

            totalFamilia <- totalFamilia + 1

            escreva("Deseja Sair? 0 - Sim \ 1 - Nao ")

            leia(opcao)

   fimenquanto

   mediaFilhos <- totalFilhos / totalFamilia

   mediaRenda <- totalRenda / totalFamilia

   escreval("Media das Rendas Familiar R$",mediaRenda)

   escreval("Media de filhos ",mediaFilhos)

fimalgoritmo

Questão 07:

var

idade: inteiro

sexo : caracter

ex: caracter

opcao: inteiro

Acumf, contf, mif, acumm, acumms, contms, contmn, mims, mimn:real

inicio

// Seção de Comandos

Escreval ("Digite zero em todos os campos para finalizar:")

escreva("Informe a sua idade: ")

leia(idade)

escreval ("sexo:f/m")

...

Baixar como (para membros premium)  txt (6.2 Kb)   pdf (65.9 Kb)   docx (12.6 Kb)  
Continuar por mais 4 páginas »
Disponível apenas no TrabalhosGratuitos.com