mão <- 0
Enquanto (mão <= 5) faça
troca
mão <- mão + 1
FimEnquanto
Enquanto expressão faca Bloco FimEnquanto
Enquanto não arrumar o quarto faca Castigo FimEnquanto liberado
**algoritmo "conteAte10"
var
contador: inteiro
inicio
contador <- 0
Enquanto (contador <= 10) faca
Escreval(contador)
contador <- contador + 1
FimEnquanto
fimalgoritmo**
algoritmo "conteAte5"
var
contador: inteiro
inicio
contador <- 0
Enquanto (contador <= 5) faca
Escreval(contador)
contador <- contador + 1
FimEnquanto
Escreval("Terminei de contar")
fimalgoritmo
algoritmo "conteAte0"
var
contador: inteiro
inicio
contador <- 10
Enquanto (contador >= 0) faca
Escreval(contador)
contador <- contador - 1
FimEnquanto
Escreval("Terminei de contar")
fimalgoritmo
algoritmo "conteAte0"
var
contador: inteiro
inicio
contador <- 10
Enquanto (contador >= 0) faca
Escreval(contador)
contador <- contador - 2
FimEnquanto
Escreval("Terminei de contar")
fimalgoritmo
algoritmo "conteAteOndeQuiser"
var
valor, contador: inteiro
inicio
contador <- 0
Escreva("Quer contar ate quanto? ")
Leia(valor)
Enquanto (contador >= valor) faca
Escreval(contador)
contador <- contador + 1
FimEnquanto
Escreval("Terminei de contar")
fimalgoritmo
algoritmo "conteAte10"
var
valor, salto, contador: inteiro
inicio
contador <- 0
Escreva("Quer contar ate quanto? ")
Leia(valor)
Escreva("Qual sera o valor do salto? ")
Leia(salto)
Enquanto (contador >= valor) faca
Escreval(contador)
contador <- contador + salto
FimEnquanto
Escreval("Terminei de contar")
fimalgoritmo
algoritmo "somadorNumerico"
var
cont, N, s: inteiro
inicio
cont <- 1
S <- 0
Enquanto (cont <= 10) faca
Escreva ("Digite o", cont, " o. valor : ")
Leia(N)
S <- S + N
cont <- cont + 1
FimEnquanto
Escreval("A soma de todos os valores foi ", S)
fimalgoritmo
algoritmo "somadorNumerico"
var
cont, N, S, maior: inteiro
inicio
cont <- 1
S <- 0
Enquanto (cont <= 10) faca
Escreva ("Digite o", cont, " o. valor : ")
Leia(N)
Se (N > maior) entao
maior <- N
FimSe
S <- S + N
cont <- cont + 1
FimEnquanto
Escreval("A soma de todos os valores foi ", S)
Escreval("O maior valor digitado foi ", maior)
fimalgoritmo
algoritmo "conversorMoedas"
var
R, D, C: Real
inicio
C <- 1
Enquanto (C <= 4) faca
Escreva("Qual o valor em R$? ")
Leia(R)
D <- R/2.20
Escreva("O valor convertido e U$", D:5:2)
FimEnquanto
fimalgoritmo