Exercícios de lógica de programação (visual g)

Exercícios de Lógica de Programação feitos em laboratório

1)Escreva um programa de menu usando a estrutura REPITA, contendo as seguintes informações:
1 – Incluir
2 – Alterar
3 – Consultar
4 – Excluir
5 – Sair
Ao digitar o número 5, o programa deverá ser encerrado.

algoritmo "Menu"

var Opcao :Inteiro

inicio Repita Escreval() Escreval("C A D A S T R O D E C L I E N T E S") Escreval("1 - Incluir") Escreval("2 - Alterar") Escreval("3 - Consultar") Escreval("4 - Excluir") Escreval("5 - Sair") Escreval() Escreva("Digite uma opcao: ") Leia(Opcao) Se (Opcao = 1) Entao Escreval("MODULO DE INCLUSAO EM DESENVOLVIMENTO.") Senao Se (Opcao = 2) Entao Escreval("MODULO DE ALTERAÇAO EM DESENVOLVIMENTO.") Senao Se (Opcao = 3) Entao Escreval("MODULO DE CONSULTA EM DESENVOLVIMENTO.") Senao Se (Opcao = 4) Entao Escreval("MODULO DE EXCLUSAO EM DESENVOLVIMENTO.") Fimse Fimse Fimse Fimse Ate(Opcao = 5)
Fimalgoritmo

2)Construa um algoritmo que calcule a média aritmética de um conjunto de números pares que forem fornecidos pelo usuário. O valor de finalização será a entrada do número “0”. Observe que nada impede que os usuários forneçam quantos números ímpares quiser, com a ressalva que eles não poderão ser acumulados. Para esta atividade, use a estrutura REPITA.

algoritmo "Atividade 1"

var Numero, Contador, QtdPar, QtdImpar, QtdNum:Inteiro inicio Contador <- 0 QtdPar <- 0 QtdImpar <- 0 QtdNum <- 0 Escreva("Informe um numero inteiro ou digite 0 para sair: ") Leia(Numero) Repita QtdNum <- QtdNum + 1 Se (Numero mod 2 = 0) Entao QtdPar <- QtdPar + 1 Senao QtdImpar <- QtdImpar + 1 Fimse Leia(Numero)