Lista 5 Algoritimos

algoritmo contagemTC0;
// Síntese
// Objetivo: Contar quantos números foram digitados
// Entrada : Número qualquer
// Saída : Contagem

principal

//declarações real num; inteiro cont;

//instruções
//Inicializando a contagem cont = 0;

//Entrada de dados escreval("Digite o primeiro número ou 0(zero) para sair: "); leia(num); enquanto (num != 0) faca

//Processo de contagem cont = cont + 1;

//repetição de entrada de dados para o looping escreval("Digite outro número ou zero (0) para sair: "); leia(num); fimEnquanto

//imprimi resultado escreval("Foram digitados ", cont, " números");

fimPrincipal

algoritmo contagemTC0multiplos3;
// Síntese
// Objetivo: Contar quantos multiplos de 3 foram digitados
// Entrada : Número qualquer
// Saída : Contagem

principal

inteiro cont, num, verMult;

cont = 0;

//Inicializando a contagem escreva("Digite um numero(digite 0(ZERO)) para sair:"); leia(num); //0 é a tecla de controle enquanto (num != 0 ) faca

//verificação se o numero é multiplo de 3 verMult=num mod 3;

// se for multiplo de 3 adiciona +1 na contagem se(verMult==0) entao cont = cont + 1; fimSe //Repetindo entrada de dados escreva("Digite um numero(digite 0(zero) para sair:"); leia(num); fimEnquanto

//imprimindo resultado escreva("Foram digitados ",cont," multiplos de 3.");

fimPrincipal

algoritmo contagemTC0multiplos3eMedia;
// Síntese
// Objetivo: Contar quantos multiplos de 3 foram digitados
// Entrada : Número qualquer
// Saída : Contagem

principal

inteiro cont, num, verMult, total, media;

cont = 0; soma = 0;

//Inicializando a contagem escreva("Digite um numero(digite 0(ZERO)) para sair:"); leia(num); //0 é a tecla de controle enquanto (num != 0 ) faca

//verificação se o numero é multiplo de 3 verMult=num mod 3;

// se for multiplo de 3 adiciona +1 na contagem e soma na variavel total se(verMult==0) entao cont = cont + 1; soma = soma+num; fimSe //Repetindo entrada de dados escreva("Digite um