LISTA (1)

Prévia do material em texto

ALGORITMOS
2011 - semestre 1
Escreva um algoritmo no tradutor que imprima todos os números inteiros de 0 a 50.
{ALGORITMO....: ex 1 	}
{AUTOR........: EVERSON 	}
{DATA.........: 16/5/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE NUM INTEIRO
inicio
 
 {Inicialização das variáveis}
 NUM <- 0
 
 {Código do Algoritmo}
 LEIA (NUM)
 ENQUANTO NUM < 50 FACA
 NUM <- NUM + 1
 MOSTRE (NUM)
 MOSTRE ('_')
 
 FIM-ENQUANTO
 PAUSA
 
 
fim 
Escreva um algoritmo no tradutor que imprima todos os números inteiros do intervalo fechado de 1 a 100.
{ALGORITMO....: ex 2CID 	}
{AUTOR........: EVERSON 	}
{DATA.........: 16/5/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE NUM INTEIRO
inicio
 
 {Inicialização das variáveis}
 NUM <- 1
 
 {Código do Algoritmo}
 LEIA (NUM)
 ENQUANTO NUM < 100 FACA
 NUM <- NUM + 1
 MOSTRE (NUM)
 MOSTRE ('_')
 
 FIM-ENQUANTO
 PAUSA
 
 
fim 
Escreva um algoritmo no tradutor que imprima todos os números inteiros de 100 a 1 (em ordem decrescente).
{ALGORITMO....: ex 3CID 	}
{AUTOR........: EVERSON 	}
{DATA.........: 16/5/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE NUM INTEIRO
inicio
 
 {Inicialização das variáveis}
 NUM <- 101
 
 {Código do Algoritmo}
 ENQUANTO NUM > 1 FACA
 NUM <- NUM - 1
 MOSTRE (NUM)
 MOSTRE ('_')
 
 FIM-ENQUANTO
 PAUSA
 
 
fim 
Escreva um algoritmo no tradutor que imprima todos os números inteiros de 100 a 200.
{ALGORITMO....: ex 4CID 	}
{AUTOR........: EVERSON 	}
{DATA.........: 16/5/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE NUM INTEIRO
inicio
 
 {Inicialização das variáveis}
 NUM <- 99
 
 {Código do Algoritmo}
 ENQUANTO NUM < 200 FACA
 NUM <- NUM + 1
 MOSTRE (NUM)
 MOSTRE ('_')
 
 FIM-ENQUANTO
 PAUSA
 
 
fim 
Escreva um algoritmo no tradutor que imprima todos os números inteiros de 200 a 100 (em ordem decrescente).
{ALGORITMO....: ex 5CID 	}
{AUTOR........: EVERSON 	}
{DATA.........: 16/5/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE NUM INTEIRO
inicio
 
 {Inicialização das variáveis}
 NUM <- 200
 
 {Código do Algoritmo}
 ENQUANTO NUM > 100 FACA
 NUM <- NUM - 1
 MOSTRE (NUM)
 MOSTRE ('_')
 
 FIM-ENQUANTO
 PAUSA
fim 
Escreva um algoritmo no tradutor que imprima todos os números múltiplos de 5, no intervalo fechado de 1 a 500.
{ALGORITMO....: ex 6CID 	}
{AUTOR........: EVERSON 	}
{DATA.........: 16/5/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE NUM INTEIRO
inicio
 
 {Inicialização das variáveis}
 NUM <- 0
 
 {Código do Algoritmo}
 ENQUANTO NUM < 500 FACA
 NUM <- NUM + 5
 MOSTRE (NUM)
 MOSTRE ('_')
 
 FIM-ENQUANTO
 PAUSA
fim 
Escreva um algoritmo no tradutor que imprima todos os números pares do intervalo fechado de 1 a 100.
{ALGORITMO....: ex 7CID 	}
{AUTOR........: EVERSON 	}
{DATA.........: 16/5/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE NUM INTEIRO
inicio
 
 {Inicialização das variáveis}
 NUM <- 0
 {Código do Algoritmo}
 ENQUANTO NUM <= 100 FACA
 SE NUM RESTO 2 = 0 ENTAO
 MOSTRE (NUM)
 MOSTRE ('_')
 FIM-SE
 NUM <- NUM + 1
 FIM-ENQUANTO
 PAUSA
fim 
Escreva um algoritmo no tradutor que imprima o quadrado dos números no intervalo fechado de 1 a 20.
{ALGORITMO....: EX 8 CID	}
{AUTOR........: EVERSON 	}
{DATA.........: 17/5/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE CONT, NUM, QUADRA INTEIRO
inicio
 
 {Inicialização das variáveis}
 CONT <- 0
 NUM <- 0
 QUADRA <- 0
 {Código do Algoritmo}
 PARA CONT DE 1 ATE 20 FACA
 NUM <- NUM + 1
 QUADRA <- NUM * NUM
 MOSTRE (QUADRA,'-')
 FIM-PARA
 
fim 
Escreva um algoritmo no tradutor que imprima todos os números ímpares do intervalo fechado de 1 a 100.
{ALGORITMO....: 9 	}
{AUTOR........: EVERSON 	}
{DATA.........: 24/5/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE NUM INTEIRO
inicio
 
 {Inicialização das variáveis}
 NUM <- 0
 {Código do Algoritmo}
 ENQUANTO NUM <= 99 FACA
 NUM <- NUM + 1
 SE NUM RESTO 2 <> 0 ENTAO
 MOSTRE (NUM,'-')
 FIM-SE
 FIM-ENQUANTO
 PAUSA
 
 
fim 
Escreva um algoritmo no tradutor que receba dez números do usuário e imprima a metade de cada número.
{ALGORITMO....: 10 	}
{AUTOR........: EVERSON 	}
{DATA.........: 24/5/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE NUM,CONT INTEIRO
DECLARE DIVI REAL
inicio
 {Inicialização das variáveis}
 NUM <- 0
 {Código do Algoritmo}
 ENQUANTO CONT < 10 FACA
 MOSTRE-PL ('INFORME UM NUMERO: ')
 LEIA-PL (NUM)
 DIVI <- NUM / 2
 MOSTRE-PL (DIVI:10:2)
 CONT <- CONT + 1
 LEIA (CONT)
 FIM-ENQUANTO
 PAUSA
fim
Escreva um algoritmo no tradutor que receba dez números do usuário e imprima o quadrado de cada número.
{ALGORITMO....: 11 	}
{AUTOR........: EVERSON 	}
{DATA.........: 24/5/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE NUM,CONT INTEIRO
DECLARE QUADRADOO REAL
inicio
 {Inicialização das variáveis}
 NUM <- 0
 {Código do Algoritmo}
 ENQUANTO CONT < 10 FACA
 MOSTRE-PL ('INFORME UM NUMERO: ')
 LEIA-PL (NUM)
 QUADRADOO <- NUM * NUM
 MOSTRE-PL (QUADRADOO:10:2)
 CONT <- CONT + 1
 LEIA (CONT)
 FIM-ENQUANTO
 PAUSA
fim
Escreva um algoritmo no tradutor que receba dez números do usuário e imprima o cubo de cada número.
{ALGORITMO....: 12 	}
{AUTOR........: EVERSON 	}
{DATA.........: 24/5/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE NUM,CONT INTEIRO
DECLARE CUBO REAL
inicio
 {Inicialização das variáveis}
 NUM <- 0
 {Código do Algoritmo}
 ENQUANTO CONT < 10 FACA
 MOSTRE-PL ('INFORME UM NUMERO: ')
 LEIA-PL (NUM)
 CUBO <- NUM * NUM * NUM
 MOSTRE-PL (CUBO:10:2)
 CONT <- CONT + 1
 LEIA (CONT)
 FIM-ENQUANTO
 PAUSA
fim
Escreva um algoritmo no tradutor que receba quinze números do usuário e imprima o dobro de cada número.
{ALGORITMO....: 13 	}
{AUTOR........: EVERSON 	}
{DATA.........: 24/5/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE NUM,CONT INTEIRO
DECLARE DOBRO REAL
inicio
 {Inicialização das variáveis}
 NUM <- 0
 {Código do Algoritmo}
 ENQUANTO CONT < 10 FACA
 MOSTRE-PL ('INFORME UM NUMERO: ')
 LEIA-PL (NUM)
 DOBRO <- NUM * 2
 MOSTRE-PL (DOBRO:10:2)
 CONT <- CONT + 1
 LEIA (CONT)
 FIM-ENQUANTO
 PAUSA
fim
Criar um algoritmo no tradutor que imprima todos os números de1 até 100, inclusive, e a soma de todos eles.
{ALGORITMO....: ex 14CID 	}
{AUTOR........: EVERSON 	}
{DATA.........: 16/5/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE NUM, SOMA INTEIRO
inicio
 {Inicialização das variáveis}
 NUM <- 0
 SOMA <- 0
 {Código do Algoritmo}
 ENQUANTO NUM < 100 FACA
 NUM <- NUM + 1
 SOMA <- SOMA + NUM
 MOSTRE (NUM)
 MOSTRE ('_')
 FIM-ENQUANTO
 MOSTRE-PL (' A SOMA DE TODOS OS NUMEROS E ',SOMA)
 PAUSA
fim
Criar um algoritmo no tradutor que imprima todos os números de 1 até 100, inclusive, e a soma da metade de cada número.
{ALGORITMO....: ex 15CID 	}
{AUTOR........: EVERSON 	}
{DATA.........: 16/5/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE NUM INTEIRO
DECLARE SOMA REAL
inicio
 {Inicialização das variáveis}
 NUM <- 0
 SOMA <- 0
 {Código do Algoritmo}
 ENQUANTO NUM < 100 FACA
 NUM <- NUM + 1
 SOMA <- SOMA + NUM
 MOSTRE (NUM)
 MOSTRE ('_')
 FIM-ENQUANTO
 MOSTRE-PL (' A METADE DA SOMA DE TODOS OS NUMEROS E ',SOMA/2:10:2)
 PAUSA
fim
Criar um algoritmo no tradutor que imprima todos os números de 1 até 100, inclusive, e a soma do cubo desses números.
{ALGORITMO....: ex 14CID 	}
{AUTOR........: EVERSON 	}
{DATA.........: 16/5/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE NUM, CUBO INTEIRO
DECLARE SOMA REAL
inicio
 {Inicialização das variáveis}
 NUM <- 0
 SOMA <- 0
 {Código do Algoritmo}
 ENQUANTO NUM < 100 FACA
 NUM <- NUM + 1
 CUBO <- NUM * NUM * NUM
 SOMA <- SOMA + CUBO
 MOSTRE (NUM)
 MOSTRE ('_')
 FIM-ENQUANTO
 MOSTRE-PL (' A SOMA DO CUBO DE TODOS OS NUMEROS E ',SOMA:10:2)
 PAUSA
fim
Criar um algoritmo no tradutor que imprima todos os números de 1 até 100, inclusive, e a média da soma de todos eles.
{ALGORITMO....: ex 17CID 	}
{AUTOR........: EVERSON 	}
{DATA.........: 16/5/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE NUM INTEIRO
DECLARE SOMA, MEDIA REAL
inicio
 {Inicialização das variáveis}
 NUM <- 0
 SOMA <- 0
 {Código do Algoritmo}
 ENQUANTO NUM < 100 FACA
 NUM <- NUM + 1
 SOMA <- SOMA + NUM
 MEDIA <- SOMA /NUM
 MOSTRE (NUM)
 MOSTRE ('_')
 FIM-ENQUANTO
 MOSTRE-PL (' A SOMA DO CUBO DE TODOS OS NUMEROS E ',MEDIA:10:2)
 PAUSA
fim
Criar um algoritmo no tradutor que leia um número (NUM), e depois leia NUM números inteiros e imprima o maior deles. Suponha que todos os números lidos serão positivos.
{ALGORITMO....: SemNome1 	}
{AUTOR........: 	}
{DATA.........: 2/6/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE NUM, MAIOR, MENOR INTEIRO
inicio
 
 {Inicialização das variáveis}
 NUM <- 0
 MAIOR <- 0
 
 {Código do Algoritmo}
 MOSTRE ('DIGITE UM NUMERO: ')
 LEIA (NUM)
 ENQUANTO NUM <> 0 FACA
 SE NUM > MAIOR ENTAO
 MAIOR <- NUM
 MOSTRE-PL ('O MAIOR NUMERO E: ',MAIOR)
 SENAO
 MOSTRE-PL ('DIGITE UM NUMERO: ')
 LEIA (NUM)
 FIM-SE
 FIM-ENQUANTO
 
 
fim 
Criar um algoritmo no tradutor que leia um número (NUM), e depois leia NUM números inteiros e imprima o menor deles.
{ALGORITMO....: SemNome1 	}
{AUTOR........: 	}
{DATA.........: 6/6/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE NUM, MENOR, CONT INTEIRO
inicio
 
 {Inicialização das variáveis}
 NUM <- 0
 MENOR <- 0
 {Código do Algoritmo}
 REPITA
 MOSTRE ('ENTRE COM UM NUMERO: ')
 LEIA (NUM)
 CONT <- CONT + 1
 SE NUM < MENOR ENTAO
 MENOR <- NUM
 FIM-SE
 ATE-QUE CONT = 5
 MOSTRE-PL (' O MENOR NUMERO E: ',MENOR)
 PAUSA
 
fim 
Criar um algoritmo no tradutor que leia dez números inteiros e imprima o maior e o menor número da lista.
{ALGORITMO....: SemNome1 	}
{AUTOR........: 	}
{DATA.........: 6/6/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE NUM, MENOR, CONT, MAIOR INTEIRO
inicio
 
 {Inicialização das variáveis}
 NUM <- 0
 MENOR <- 0
 MAIOR <- 0
 {Código do Algoritmo}
 REPITA
 MOSTRE ('ENTRE COM UM NUMERO: ')
 LEIA (NUM)
 CONT <- CONT + 1
 SE NUM < MENOR ENTAO
 MENOR <- NUM
 SENAO
 SE NUM > MAIOR ENTAO
 MAIOR <- NUM
 FIM-SE
 FIM-SE
 ATE-QUE CONT = 10
 MOSTRE-PL (' O MENOR NUMERO E: ',MENOR)
 MOSTRE-PL (' O MAIOR NUMERO E: ',MAIOR)
 PAUSA
fim
Criar um algoritmo no tradutor que leia dez números inteiros e imprima o primeiro e o segundo maior número da lista.
{ALGORITMO....: SemNome1 	}
{AUTOR........: 	}
{DATA.........: 6/6/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE NUM, MENOR, CONT, MAIOR, SMAIOR INTEIRO
inicio
 
 {Inicialização das variáveis}
 NUM <- 0
 MENOR <- 0
 MAIOR <- 0
 SMAIOR <- 0
 {Código do Algoritmo}
 REPITA
 MOSTRE ('ENTRE COM UM NUMERO: ')
 LEIA (NUM)
 CONT <- CONT + 1
 SE NUM < MENOR ENTAO
 MENOR <- NUM
 FIM-SE
 SE NUM > SMAIOR ENTAO
 SMAIOR <- NUM
 FIM-SE
 SE MAIOR > SMAIOR ENTAO
 SMAIOR <- MAIOR
 FIM-SE
 ATE-QUE CONT = 10
 MOSTRE-PL (' O MENOR NUMERO E: ',MENOR)
 MOSTRE-PL (' O MAIOR NUMERO E: ',MAIOR)
 MOSTRE-PL (' O SEGUNDO MAIOR NUMERO E: ',SMAIOR)
 PAUSA
fim
Criar um algoritmo no tradutor que leia os limites inferior e superior de um intervalo e imprima todos os números pares no intervalo aberto e sua somatória. Suponha que os dados digitados são para um intervalo crescente, ou seja, o primeiro valor deve ser menor que o segundo.
{ALGORITMO....: SemNome1 	}
{AUTOR........: 	}
{DATA.........: 6/6/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE NUM, CONT, PARR, SOMA INTEIRO
inicio
 
 {Inicialização das variáveis}
 NUM <- 0
 PARR <- 0
 SOMA <- 0
 {Código do Algoritmo}
 REPITA
 MOSTRE ('ENTRE COM UM NUMERO: ')
 LEIA (NUM)
 CONT <- CONT + 1
 SE NUM RESTO 2 = 0 ENTAO
 PARR <- NUM
 SOMA <- SOMA + NUM
 FIM-SE
 MOSTRE-PL (PARR,' E PAR!!!')
 ATE-QUE CONT = 10
 MOSTRE-PL (' A SOMA DOS NUMEROS PARES E: ',SOMA)
 PAUSA
fim 
Criar um algoritmo no tradutor que leia um número (NUM) e então imprima os múltiplos de 3 e 5, ao mesmo tempo, no intervalo fechado de 1 a NUM.
{ALGORITMO....: SemNome1 	}
{AUTOR........: 	}
{DATA.........: 6/6/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE NUM, CONT, PARR, SOMA INTEIRO
inicio
 
 {Inicialização das variáveis}
 NUM <- 0
 PARR <- 0
 SOMA <- 0
 {Código do Algoritmo}
 MOSTRE ('ENTRE COM UM NUMERO: ')
 LEIA (NUM)
 REPITA
 CONT <- CONT + 1
 NUM <- NUM + 1
 SE (NUM RESTO 3 = 0) E (NUM RESTO 5 = 0) ENTAO
 MOSTRE (NUM,'-')
 FIM-SE
 ATE-QUE CONT = 100
 PAUSA
fim 
Escreva um algoritmo no tradutor que leia 200 números inteiros e imprima quantos são pares e quantossão ímpares.
{ALGORITMO....: SemNome1 	}
{AUTOR........: 	}
{DATA.........: 6/6/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE NUM, CONT, PARR, IMPARR INTEIRO
inicio
 {Inicialização das variáveis}
 NUM <- 0
 PARR <- 0
 IMPARR <- 0
 {Código do Algoritmo}
 REPITA
 MOSTRE ('ENTRE COM UM NUMERO: ')
 LEIA (NUM)
 CONT <- CONT + 1
 SE (NUM RESTO 2 = 0) ENTAO
 PARR <- PARR + 1
 SENAO
 IMPARR <- IMPARR + 1
 FIM-SE
 ATE-QUE CONT = 200
 MOSTRE-PL ('PAR= ',PARR)
 MOSTRE-PL ('IMPAR= ',IMPARR)
 PAUSA
fim
Escreva um algoritmo no tradutor que receba 15 números e imprima quantos números maiores que 30 foram digitados.
{ALGORITMO....: SemNome1 	}
{AUTOR........: 	}
{DATA.........: 6/6/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE NUM, CONT, MAIOR30 INTEIRO
inicio
 {Inicialização das variáveis}
 NUM <- 0
 MAIOR30 <- 0
 CONT <- 1
 {Código do Algoritmo}
 REPITA
 MOSTRE ('ENTRE COM UM NUMERO: ')
 LEIA (NUM)
 CONT <- CONT + 1
 SE (NUM > 30) ENTAO
 MAIOR30 <- MAIOR30 + 1
 FIM-SE
 ATE-QUE CONT = 15
 MOSTRE-PL ('EXISTEM ',MAIOR30,' NUMEROS MAIORES QUE 30. ')
 PAUSA
fim
Escreva um algoritmo no tradutor que leia 20 números e imprima a soma dos positivos e o total de números negativos.
{ALGORITMO....: SemNome1 	}
{AUTOR........: 	}
{DATA.........: 6/6/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE NUM, CONT, POS, NEG INTEIRO
inicio
 {Inicialização das variáveis}
 NUM <- 0
 POS <- 0
 NEG <- 0
 CONT <- 1
 {Código do Algoritmo}
 ENQUANTO CONT <= 20 FACA
 MOSTRE ('ENTRE COM UM NUMERO: ')
 LEIA (NUM)
 CONT <- CONT + 1
 SE (NUM > 0) ENTAO
 POS <- POS + NUM
 SENAO
 SE (NUM < 0) ENTAO
 NEG <- NEG + 1
 FIM-SE
 FIM-SE
 FIM-ENQUANTO
 MOSTRE-PL ('EXISTEM ',NEG,' NUMEROS NEGATIVOS. ')
 MOSTRE-PL ('A SOMA DOS NUMEROS POSITIVOS E ',POS)
 PAUSA
fim
Escreva um algoritmo no tradutor para calcular o fatorial do número N, cujo valor é obtido através do usuário pelo teclado.
{ALGORITMO....: SemNome1 	}
{AUTOR........: 	}
{DATA.........: 6/6/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE NUM, CONT, FATORIAL, ACUM INTEIRO
inicio
 {Inicialização das variáveis}
 NUM <- 0
 CONT <- 1
 ACUM <- 0
 FATORIAL <- 0
 {Código do Algoritmo}
 MOSTRE ('ENTRE COM UM NUMERO: ')
 LEIA (NUM)
 ENQUANTO CONT <= NUM FACA
 CONT <- CONT + 1
 ACUM <- ACUM + NUM
 FATORIAL <- CONT * ACUM
 MOSTRE (CONT,'-')
 MOSTRE-PL (FATORIAL)
 FIM-ENQUANTO
 PAUSA
fim
Escreva um algoritmo para ler 10 valores, e conte quantos destes valores são negativos e quantos são positivos, escrevendo esta informação. 
{ALGORITMO....: SemNome1 	}
{AUTOR........: 	}
{DATA.........: 6/6/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE NUM, CONT, POS, NEG INTEIRO
inicio
 {Inicialização das variáveis}
 NUM <- 0
 POS <- 0
 NEG <- 0
 CONT <- 1
 {Código do Algoritmo}
 ENQUANTO CONT <= 10 FACA
 MOSTRE ('ENTRE COM UM NUMERO: ')
 LEIA (NUM)
 CONT <- CONT + 1
 SE (NUM > 0) ENTAO
 POS <- POS + 1
 SENAO
 SE (NUM < 0) ENTAO
 NEG <- NEG + 1
 FIM-SE
 FIM-SE
 FIM-ENQUANTO
 MOSTRE-PL ('EXISTEM ',NEG,' NUMEROS NEGATIVOS. ')
 MOSTRE-PL ('EXISTEM ',POS,' NUMEROS POSITIVOS. ')
 PAUSA
Fim
A prefeitura de uma cidade fez uma pesquisa entre seus habitantes, coletando dados sobre o salário e número de filhos. A prefeitura deseja saber:   
a) média do salário da população; 
b) média do número de filhos; 
c) maior salário; 
O final da leitura de dados se dará com a entrada de um salário negativo.  
{ALGORITMO....: SemNome1 	}
{AUTOR........: 	}
{DATA.........: 6/6/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE SAL, NUM, CONT, ACUM, ACFILHOS, FILHOS INTEIRO
DECLARE MEDIASAL, MEDIAFI, MAIOR REAL
inicio
 {Inicialização das variáveis}
 NUM <- 0
 MEDIAFI <- 0
 SAL <- 0
 FILHOS <- 0
 CONT <- 0
 ACUM <- 0
 ACFILHOS <- 0
 MAIOR <- 0
 MEDIASAL <- 0
 {Código do Algoritmo}
 ENQUANTO SAL >= 0 FACA
 MOSTRE ('DIGITE O VALOR DO SEU SALARIO: ')
 LEIA (SAL)
 MOSTRE ('DIGITE O NUMERO DE FILHOS: ')
 LEIA (FILHOS)
 CONT <- CONT + 1
 ACUM <- ACUM + SAL
 ACFILHOS <- ACFILHOS + FILHOS
 MEDIASAL <- ACUM / CONT
 MEDIAFI <- ACFILHOS / CONT
 SE (SAL > MAIOR) ENTAO
 MAIOR <- SAL
 FIM-SE
 FIM-ENQUANTO
 MOSTRE-PL ('A MEDIA DE SALARIO E: ',MEDIASAL:10:2)
 MOSTRE-PL ('A MEDIA DE FILHOS E: ',MEDIAFI:10:2)
 MOSTRE-PL ('O MAIOR SALARIO E DE ',MAIOR:10:2)
 PAUSA
fim
 
Construa um algoritmo para calcular a média aritmética de vários valores inteiros positivos, informados pelo usuário. O final da leitura acontecerá quando for lido um valor negativo. 
{ALGORITMO....: SemNome1 	}
{AUTOR........: 	}
{DATA.........: 6/6/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE NUM, CONT, ACUM, VALOR INTEIRO
DECLARE MEDIA REAL
inicio
 {Inicialização das variáveis}
 NUM <- 0
 MEDIA <- 0
 VALOR <- 0
 CONT <- 0
 ACUM <- 0
 {Código do Algoritmo}
 ENQUANTO VALOR >= 0 FACA
 MOSTRE ('DIGITE UM VALOR: ')
 LEIA (VALOR)
 CONT <- CONT + 1
 ACUM <- ACUM + VALOR
 MEDIA <- ACUM / CONT
 FIM-ENQUANTO
 MOSTRE-PL ('A MEDIA E: ',MEDIA:10:2)
 PAUSA
fim
Em uma eleição presidencial existem quatro candidatos. Os votos são informados por meio de códigos. Os dados utilizados para a contagem dos votos obedecem à seguinte codificação:   
1,2,3,4 = voto para os respectivos candidatos; 
5 = voto nulo; 
6 = voto em branco;
Elabore um algoritmo que leia o código do candidato em um voto. Calcule e mostre: 
- total de votos para cada candidato; 
- total de votos nulos; 
- total de votos em branco;
- qual candidato obteve maio número de votos.
Como finalizador do conjunto de votos, tem-se o valor 0.
{ALGORITMO....: SemNome1 	}
{AUTOR........: 	}
{DATA.........: 6/6/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE CAND, CAN, VOTO, CAND1, CAND2, CAND3, CAND4, CAND5, CAND6 INTEIRO
inicio
 {Inicialização das variáveis}
 VOTO <- 0
 CAN <- 1
 CAND1 <- 0
 CAND2 <- 0
 CAND3 <- 0
 CAND4 <- 0
 CAND5 <- 0
 CAND6 <- 0
 {Código do Algoritmo}
 ENQUANTO CAN >= 1 FACA
 MOSTRE ('DIGITE O NUMERO DO CANDIDATO: ')
 LEIA (CAN)
 SE CAN = 1 ENTAO
 CAND1 <- CAND1 + 1
 SENAO
 FIM-SE
 SE CAN = 2 ENTAO
 CAND2 <- CAND2 + 1
 SENAO
 FIM-SE
 SE CAN = 3 ENTAO
 CAND3 <- CAND3 + 1
 SENAO
 FIM-SE
 SE CAN = 4 ENTAO
 CAND4 <- CAND4 + 1
 SENAO
 FIM-SE
 SE CAN = 5 ENTAO
 CAND5 <- CAND5 + 1
 SENAO
 FIM-SE
 SE CAN = 6 ENTAO
 CAND6 <- CAND6 + 1SENAO
 FIM-SE
 FIM-ENQUANTO
 MOSTRE-PL ('O TOTAL DE VOTOS PARA O CANDIDATO N 1: ',CAND1)
 MOSTRE-PL ('O TOTAL DE VOTOS PARA O CANDIDATO N 2: ',CAND2)
 MOSTRE-PL ('O TOTAL DE VOTOS PARA O CANDIDATO N 3: ',CAND3)
 MOSTRE-PL ('O TOTAL DE VOTOS PARA O CANDIDATO N 4: ',CAND4)
 MOSTRE-PL ('O TOTAL DE VOTOS NULOS: ',CAND5)
 MOSTRE-PL ('O TOTAL DE VOTOS BRANCOS: ',CAND6)
 PAUSA
fim
Escreva um algoritmo que calcule a média aritmética das 3 notas dos alunos de uma sala. O algoritmo deverá ler, além das notas, o código do aluno e deverá ser encerrado quando o código do aluno for igual a zero. Mostre a mensagem "APROVADO" se a média for maior ou igual a 5 e "REPROVADO" se a média for menor que 5. Repita a operação até que o código lido seja negativo
.
{ALGORITMO....: SemNome1 	}
{AUTOR........: 	}
{DATA.........: 6/6/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE COD, NOTA1, NOTA2, NOTA3 INTEIRO
DECLARE MEDIA REAL
inicio
 {Inicialização das variáveis}
 COD <- 1
 NOTA1 <- 0
 NOTA2 <- 0
 NOTA3 <- 0
 {Código do Algoritmo}
 ENQUANTO COD >= 1 FACA
 MOSTRE-PL ('DIGITE O CODIGO DO ALUNO: ')
 LEIA (COD)
 MOSTRE-PL ('DIGITE O VALOR DA 1 NOTA DO ALUNO: ')
 LEIA (NOTA1)
 MOSTRE-PL ('DIGITE O VALOR DA 2 NOTA DO ALUNO: ')
 LEIA (NOTA2)
 MOSTRE-PL ('DIGITE O VALOR DA 3 NOTA DO ALUNO: ')
 LEIA (NOTA3)
 MEDIA <- NOTA1 + NOTA2 + NOTA3 / 3
 SE MEDIA >= 5 ENTAO
 MOSTRE-PL (' ALUNO APROVADO ')
 SENAO
 MOSTRE-PL (' ALUNO REPROVADO ')
 FIM-SE
 FIM-ENQUANTO
 MOSTRE-PL ('OBRIGADO POR UTILIZAR ESSE SOFTWARE')
 PAUSA
fim
Escreva um algoritmo para receber diversos números. Calcule a média dos números pares digitados pelo usuário. Termine a leitura de dado se o usuário digitar zero (0). 
{ALGORITMO....: SemNome1 	}
{AUTOR........: 	}
{DATA.........: 6/6/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE NUM, CONT, ACUM INTEIRO
DECLARE MEDIA REAL
inicio
 {Inicialização das variáveis}
 NUM <- 1
 CONT <- 0
 ACUM <- 0
 {Código do Algoritmo}
 ENQUANTO NUM >= 1 FACA
 MOSTRE-PL ('DIGITE UM NUMERO: ')
 LEIA (NUM)
 SE NUM RESTO 2 = 0 ENTAO
 CONT <- CONT + 1
 ACUM <- ACUM + NUM
 MEDIA <- ACUM / CONT
 FIM-SE
 FIM-ENQUANTO
 MOSTRE ('A MEDIA DOS NUMEROS PARES E',MEDIA:10:2)
 MOSTRE-PL ('OBRIGADO POR UTILIZAR ESSE SOFTWARE')
 PAUSA
fim
Escreva um algoritmo que leia 20 valores e encontre o maior e o menor deles. Mostre o resultado. 
{ALGORITMO....: SemNome1 	}
{AUTOR........: 	}
{DATA.........: 6/6/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE NUM, CONT, MAIOR, MENOR INTEIRO
inicio
 {Inicialização das variáveis}
 NUM <- 0
 CONT <- 0
 MAIOR <- 0
 MENOR <- 0
 
 {Código do Algoritmo}
 ENQUANTO CONT <= 20 FACA
 MOSTRE-PL ('DIGITE UM NUMERO: ')
 LEIA (NUM)
 CONT <- CONT + 1
 SE NUM > MAIOR ENTAO
 MAIOR <- NUM
 SENAO
 SE NUM < MENOR ENTAO
 MENOR <- NUM
 FIM-SE
 FIM-SE
 FIM-ENQUANTO
 MOSTRE-PL ('O MENOR NUMERO E: ',MENOR)
 MOSTRE-PL ('O MAIOR NUMERO E: ',MAIOR)
 PAUSA
fim
Escrever um algoritmo que leia um número não determinado de valores e calcule:
- a média aritmética dos valores lidos;
- a quantidade de valores positivos;
- a quantidade de valores negativos;
- e o percentual de valores negativos e positivos. 
Mostre os resultados. 
{ALGORITMO....: SemNome1 	}
{AUTOR........: 	}
{DATA.........: 6/6/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE NUM, CONT, MAIOR, MENOR, ACUM, POS, ACPOS, ACNEG, NEG INTEIRO
DECLARE MEDIA, PORC, PORCENTAGEMN, PORCENTAGEMP REAL
inicio
 {Inicialização das variáveis}
 NUM <- 0
 CONT <- 0
 ACUM <- 0
 MEDIA <- 0
 POS <- 0
 ACPOS <- 0
 PORC <- 0
 ACNEG <- 0
 NEG <- 0
 PORCENTAGEMP <- 0
 PORCENTAGEMN <- 0
 {Código do Algoritmo}
 ENQUANTO CONT <= 20 FACA
 MOSTRE-PL ('DIGITE UM NUMERO: ')
 LEIA (NUM)
 CONT <- CONT + 1
 ACUM <- ACUM + NUM
 MEDIA <- ACUM / CONT
 SE NUM > 0 ENTAO
 POS <- POS + 1
 ACPOS <- ACPOS + NUM
 PORC <- ACPOS / 100
 PORCENTAGEMP <- PORC / POS
 SENAO
 NEG <- NEG + 1
 ACNEG <- ACNEG + NUM
 PORC <- ACNEG / 100
 PORCENTAGEMN <- PORC / NEG
 
 FIM-SE
 FIM-ENQUANTO
 MOSTRE-PL ('A MEDIA DOS VALORES LIDOS E: ',MEDIA:10:2)
 MOSTRE-PL ('A QUANTIDADE DE VALORES NEGATIVOS E: ',NEG)
 MOSTRE-PL ('A QUANTIDADE DE VALORES POSITIVOS E: ',POS)
 MOSTRE-PL (PORCENTAGEMN:10:2, 'PORCENTO SAO NEGATIVOS')
 MOSTRE-PL (PORCENTAGEMP:10:2, 'PORCENTO SAO POSITIVOS')
 PAUSA
fim
Escrever um algoritmo que leia uma quantidade desconhecida de números e conte quantos deles estão nos seguintes intervalos: intervalo 1 - [0.25], intervalo 2 - [26,50], intervalo 3 - [51,75] e intervalo 4 - [76,100]. A entrada de dados deve terminar quando for lido um número negativo. 
{ALGORITMO....: SemNome1 	}
{AUTOR........: 	}
{DATA.........: 7/6/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE NUM, CONT, CONT1, CONT2, CONT3, CONT4 INTEIRO
inicio
 
 {Inicialização das variáveis}
 NUM <- 0
 CONT <- 0
 CONT1 <- 0
 CONT2 <- 0
 CONT3 <- 0
 CONT4 <- 0
 
 {Código do Algoritmo}
 ENQUANTO CONT <= 5 FACA
 MOSTRE-PL ('DIGITE UM NUMERO: ')
 LEIA-PL (NUM)
 CONT <- CONT + 1
 SE (NUM > 0) E (NUM <= 25) ENTAO
 CONT1 <- CONT1 + 1
 SENAO
 FIM-SE
 SE (NUM > 25) E (NUM <= 50) ENTAO
 CONT2 <- CONT2 + 1
 SENAO
 FIM-SE
 SE (NUM > 50) E (NUM <= 75) ENTAO
 CONT3 <- CONT3 + 1
 SENAO
 FIM-SE
 SE (NUM > 75) E (NUM <= 100) ENTAO
 CONT4 <- CONT4 + 1
 FIM-SE
 FIM-ENQUANTO
 MOSTRE-PL ('intervalo 1 - [0.25]= ',CONT)
 MOSTRE-PL ('intervalo 2 - [26.50]= ',CONT2)
 MOSTRE-PL ('intervalo 3 - [51.75]= ',CONT3)
 MOSTRE-PL ('intervalo 4 - [76.100]= ',CONT4)
 PAUSA
 
 
fim 
Faça um algoritmo que leia uma quantidade não determinada de números positivos. Calcule:
- a quantidade de números pares e ímpares;
- a média de valores pares.
O número que encerrará a leitura será zero. 
{ALGORITMO....: SemNome1 	}
{AUTOR........: 	}
{DATA.........: 7/6/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE NUM, CONT, CONT1, CONT2, CONT3, CONT4, ACUMULADOR INTEIRO
DECLARE MEDIA REAL
inicio
 
 {Inicialização das variáveis}
 NUM <- 0
 CONT <- 1
 CONT1 <- 0
 CONT2 <- 0
 CONT3 <- 0
 CONT4 <- 0
 ACUMULADOR <- 0
 
 {Código do Algoritmo}
 ENQUANTO CONT <> 0 FACA
 MOSTRE-PL ('DIGITE UM NUMERO: ')
 LEIA-PL (NUM)
 CONT <- CONT + 1
 SE (NUM > 0) ENTAO
 CONT1 <- CONT1 + 1
 SENAO
 FIM-SE
 SE (NUM RESTO 2 = 0) ENTAO
 CONT2 <- CONT2 + 1
 ACUMULADOR <- ACUMULADOR + NUM
 SENAO
 FIM-SE
 SE (NUM RESTO 2 <> 0) ENTAOCONT3 <- CONT3 + 1
 SENAO
 FIM-SE
 LEIA (CONT)
 FIM-ENQUANTO
 MEDIA <- ACUMULADOR / CONT2
 MOSTRE-PL ('NUMEROS PARES: ',CONT2)
 MOSTRE-PL ('NUMEROS IMPARES: ',CONT3)
 MOSTRE-PL ('A MEDIA DE VALORES PARES E: ',MEDIA:10:2)
 PAUSA
 
 
fim 
Faça um algoritmo que leia vários números inteiros e calcule o somatório dos números negativos. O fim da leitura será indicado pelo número 0. 
{ALGORITMO....: SemNome1 	}
{AUTOR........: 	}
{DATA.........: 7/6/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE NUM, CONT1, CONT2, ACUMULADOR INTEIRO
DECLARE MEDIA REAL
inicio
 
 {Inicialização das variáveis}
 NUM <- 1
 CONT1 <- 0
 CONT2 <- 0
 ACUMULADOR <- 0
 
 {Código do Algoritmo}
 ENQUANTO NUM <> 0 FACA
 MOSTRE-PL ('DIGITE UM NUMERO: ')
 LEIA-PL (NUM)
 SE (NUM > 0) ENTAO
 CONT1 <- CONT1 + 1
 SENAO
 FIM-SE
 SE (NUM < 0) ENTAO
 CONT2 <- CONT2 + 1
 ACUMULADOR <- ACUMULADOR + NUM
 SENAO
 FIM-SE
 FIM-ENQUANTO
 MOSTRE-PL ('EXITEM: ',CONT2,' NUMEROS NEGATIVOS SUA SOMA E: ',ACUMULADOR)
 PAUSA
fim 
Faça um algoritmo que leia vários números inteiros e positivos e calcule o produtório dos números pares. O fim da leitura será indicado pelo número 0. 
{ALGORITMO....: SemNome1 	}
{AUTOR........: 	}
{DATA.........: 7/6/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE NUM, ACUMULADOR INTEIRO
inicio
 
 {Inicialização das variáveis}
 NUM <- 1
 ACUMULADOR <- 0
 
 {Código do Algoritmo}
 ENQUANTO NUM <> 0 FACA
 MOSTRE-PL ('DIGITE UM NUMERO: ')
 LEIA-PL (NUM)
 SE (NUM > 0) ENTAO
 SE (NUM RESTO 2 = 0) ENTAO
 ACUMULADOR <- ACUMULADOR + NUM
 SENAO
 FIM-SE
 FIM-SE
 FIM-ENQUANTO
 MOSTRE-PL ('O PRODUTORIO DOS NUMEROS PARES E:',ACUMULADOR)
 PAUSA
fim 
Foi feita uma pesquisa entre os habitantes de uma região. Foram coletados os dados de idade, sexo (M/F) e salário. Faça um algoritmo que informe:   
a) a média de salário do grupo; 
b) maior e menor idade do grupo; 
c) quantidade de mulheres com salário acima de R$1000,00.
Encerre a entrada de dados quando for digitada uma idade negativa. 
{ALGORITMO....: SemNome1 	}
{AUTOR........: 	}
{DATA.........: 7/6/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE IDADE, M1000, MAIORID, MENORID, GRUPO INTEIRO
DECLARE ACUMULADOR, MEDIA, SALARIO REAL
DECLARE SEXO CARACTER
inicio
 
 {Inicialização das variáveis}
 IDADE <- 0
 ACUMULADOR <- 0
 SEXO <- ''
 M1000 <- 0
 MAIORID <- 0
 MENORID <- 1
 MEDIA <- 0
 SALARIO <- 0
 GRUPO <- 0
 
 
 {Código do Algoritmo}
 ENQUANTO IDADE >= 0 FACA
 MOSTRE-PL ('INFORME A SUA IDADE: ')
 LEIA-PL (IDADE)
 MOSTRE-PL ('QUAL O SEXO DA PESSOA: ')
 LEIA-PL (SEXO)
 MOSTRE-PL ('INFORME O VALOR DO SEU SALARIO: ')
 LEIA-PL (SALARIO)
 ACUMULADOR <- ACUMULADOR + SALARIO
 GRUPO <- GRUPO + 1
 SE (SEXO = 'F') ENTAO
 SE (SALARIO > 1000) ENTAO
 M1000 <- M1000 + 1
 FIM-SE
 SENAO
 FIM-SE
 SE (IDADE > MAIORID) ENTAO
 MAIORID <- IDADE
 FIM-SE
 SE (IDADE < MENORID) ENTAO
 MENORID <- IDADE
 FIM-SE
 FIM-ENQUANTO
 MEDIA <- ACUMULADOR / GRUPO
 MOSTRE-PL (' A MEDIA DE SALARIO DO GRUPO E: ',MEDIA:10:2)
 MOSTRE-PL (' A MAIOR IDADE DO GRUPO E: ',MAIORID)
 MOSTRE-PL (' A MENOR IDADE DO GRUPO E: ',MENORID)
 MOSTRE-PL (' EXISTEM ',M1000,' MULHERES COM SALARIO ACIMA DE 1000 REAIS!')
 PAUSA
fim 
Foi realizada uma pesquisa de algumas características físicas da população de certa região, a qual coletou os seguintes dados referentes a cada habitante para serem analisados: 
- sexo (masculino ou feminino) 
- cor dos olhos (azuis, verdes ou castanhos) 
- cor dos cabelos (louros, castanhos, pretos) 
- idade
 Faça um algoritmo que determine e escreva:   
- a maior idade dos habitantes; 
- a quantidade de indivíduos do sexo feminino cuja idade está entre 18 e 35 anos; 
- a quantidade de indivíduos que tenham olhos verdes e cabelos pretos. 
O final do conjunto de habitantes é reconhecido pelo valor 0 entrada como idade.
{ALGORITMO....: SemNome1 	}
{AUTOR........: 	}
{DATA.........: 7/6/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE IDADE, M1000, F1000, MAIORID, MENORID, CABELOSEOLHOS, CONTF, CONTM, CONTO, CONTC INTEIRO
DECLARE SEXO, OLHOS, CABELOS CARACTER
inicio
 
 {Inicialização das variáveis}
 IDADE <- 1
 SEXO <- ''
 M1000 <- 0
 F1000 <- 0
 MAIORID <- 0
 CABELOSEOLHOS <- 0
 CABELOS <- ''
 {Código do Algoritmo}
 ENQUANTO IDADE <> 0 FACA
 MOSTRE-PL ('QUAL O SEXO DA PESSOA (M OU F): ')
 LEIA-PL (SEXO)
 MOSTRE-PL ('INFORME A COR DOS SEUS OLHOS(AZUIS, VERDES OU CASTANHOS): ')
 LEIA-PL (OLHOS)
 MOSTRE-PL ('INFORME A COR DOS SEUS CABELOS(LOIROS, CASTANHOS OU PRETOS): ')
 LEIA-PL (CABELOS)
 MOSTRE-PL ('INFORME A SUA IDADE OU (0) PARA SAIR: ')
 LEIA-PL (IDADE)
 SE (SEXO = 'F') ENTAO
 CONTF <- CONTF + 1
 SE (IDADE >= 18) E (IDADE <= 35) ENTAO
 F1000 <- F1000 + 1
 FIM-SE
 SENAO
 FIM-SE
 SE (SEXO = 'M') ENTAO
 CONTM <- CONTM + 1
 SENAO
 FIM-SE
 SE (OLHOS = 'VERDES') E (CABELOS = 'PRETOS') ENTAO
 CABELOSEOLHOS <- CABELOSEOLHOS + 1
 FIM-SE
 SE (IDADE > MAIORID) ENTAO
 MAIORID <- IDADE
 FIM-SE
 FIM-ENQUANTO
 MOSTRE-PL (' A MAIOR IDADE DOS HABITANTES E: ',MAIORID)
 MOSTRE-PL (' quant de indivíduos do sexo F cuja idade esta entre 18 e 35 anos: ',F1000)
 MOSTRE-PL (' quant de indivíduos que tem olhos verdes e cabelos pretos: ',CABELOSEOLHOS)
 PAUSA
fim 
FAÇA UM ALGORITMO QUE SOLICITE AO USUARIO E SEJA CRIADO UM VETOR COM 5 POSIÇÕES, COM A SEQUENCIA DE 10 NUMEROS A PARTIR DO NUMERO INFORMADO PELO USUARIO.
{ALGORITMO....: SemNome1 	}
{AUTOR........: 	}
{DATA.........: 31/5/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE CONT, NUM INTEIRO
DECLARE VET1 VETOR [1..10] CONTEM-INTEIRO
inicio
 
 {Inicialização das variáveis}
 CONT <- 0
 NUM <- 0
 {Código do Algoritmo}
 PARA CONT DE 1 ATE 10 FACA
 VET1[CONT] <- 0
 FIM-PARA
 MOSTRE ('ENTRE COM UM NUMERO: ')
 LEIA (NUM)
 PARA CONT DE 1 ATE 10 FACA
 VET1[CONT] <- NUM
 NUM <- NUM + 1
 MOSTRE-PL (VET1[CONT])
 FIM-PARA
 PAUSA
fim 
EXERCICIO 2 VETOR MOSTRA A SEQUENCIA DE NUMEROS PARES!
{ALGORITMO....: SemNome1 	}
{AUTOR........: 	}
{DATA.........: 31/5/2011 	}
{DESCRIÇÃO....: 	}
{Declaração das variáveis}
DECLARE CONT, NUM INTEIRO
DECLARE VET1 VETOR [1..10] CONTEM-INTEIRO
inicio
 
 {Inicialização das variáveis}
 CONT <- 0
 NUM <- 0
 {Código do Algoritmo}
 PARA CONT DE 1 ATE 10 FACA
 VET1[CONT] <- 0
 FIM-PARA
 MOSTRE ('ENTRE COM UM NUMERO: ')
 LEIA (NUM)
 SE NUM RESTO2 <> 0 ENTAO
 NUM <- NUM + 1
 FIM-SE
 
 PARA CONT DE 1 ATE 10 FACA
 VET1[CONT] <- NUM
 NUM <- NUM + 2
 MOSTRE-PL (VET1[CONT])
 FIM-PARA
 PAUSA
fim