Algoritmo

ALGORITMO "EXERCICIO_01"
VAR
NOME, SEXO: CARACTERE
X, H, M: INTEIRO
INICIO
PARA X DE 1 ATE 5 FACA
ESCREVAL("DIGITE O NOME: ")
LEIA(NOME)
ESCREVAL("DIGITE O SEXO, H - HOMEM OU M - MULHER: ")
LEIA(SEXO)
ESCOLHA SEXO
CASO "H"
H <- H + 1
CASO "M"
M <- M + 1
OUTROCASO
ESCREVAL("SEXO SÓ PODE H OU M!")
FIMESCOLHA
FIMPARA
ESCREVAL("TOTAL DE",H," HOMENS")
ESCREVAL("TOTAL DE",M," MULHERES")
FIMALGORITMO

ALGORITMO "EXERCICIO_03"
VAR X, N :INTEIRO
PORC :REAL
INICIO
ESCREVAL ("DIGITE UM NUMERO")
LEIA (N)
ESCREVAL("")
PARA X DE 0 ATE N FACA
ESCREVAL(X)
SE (X % 2) = 0 ENTAO PORC <- ((X/2)/N)*100) FIMSE
FIMPARA
ESCREVAL ("")
ESCREVAL ("PORCENTAGEN DE N° PARES IMPRESSOS:",PORC,"%")
FIMALGORITMO

ALGORITMO "EXERCÍCIO4"
VAR
I,R,N,SOMA:INTEIRO
INICIO
N <- 0
SOMA <- 0
ESCREVA ("DIGITE UM NÚMERO INTEIRO: ")
LEIA (R)
PARA I DE 1 ATE R FACA
SE (I%2=0)ENTAO
ESCREVAL (I)
SOMA <- SOMA + I
N <- N+1
FIMSE
FIMPARA
ESCREVAL ("A SOMA É:",SOMA)
SE (N=0) ENTAO
ESCREVA ("NENHUM NÚMERO É MULTIPLO DE 2!")
FIMSE
FIMALGORITMO

ALGORITMO "EXERCÍCIO5"
VAR
I,SOMA:INTEIRO
INICIO
SOMA <- 0
PARA I DE 1 ATE 650 FACA
SE(I%3=0) ENTAO
ESCREVAL (I)
SOMA <- SOMA +I
FIMSE
FIMPARA
ESCREVA ("SOMA", SOMA)
FIMALGORITMO

ALGORITMO "EXERCÍCIO6"
VAR
I,NUM,N:INTEIRO
INICIO
I <- 1
N <- 0
ESCREVA ("DIGITE UM NÚMERO INTEIRO: ")
LEIA (NUM)
REPITA
SE (I%2=0) E (I%5=0) ENTAO
ESCREVAL (I," É MULTIPLO DE 2 E 5.")
N <- N+1
FIMSE
I <- I+1
ATE (I>NUM)
SE (N=0) ENTAO
ESCREVA ("NENHUM NÚMERO É MULTIPLO DE 2 E 5!")
FIMSE
// SEÇÃO DE COMANDOS
FIMALGORITMO

ALGORITMO "LAÇO_INFINITO" //EXERCICIO 10 (ESTRUTURA ENQUANTO)
VAR
SOMA: NUMERICO
INICIO
SOMA <- 1
ENQUANTO SOMA < 10 FACA
SOMA <-SOMA + 2
FIMENQUANTO
ESCREVA (SOMA)
FIMALGORITMO

ALGORITMO "LAÇO_INFINITO" //EXERCICIO 10
VAR
SOMA :NUMERICO
INICIO
SOMA <- 1
REPITA
SOMA <- SOMA + 2
ATE SOMA > 10