Algoritmos do dia 26/05/2011

algoritmo "Repita_salario"
var
nome: caractere
soma,salario: real
inicio
salario <- 0
repita
escreval ("digite o nome do funcionário")
leia (nome)
escreval ("digite o salário do funcionário")
leia (salario)
soma <- (soma+salario)
escreval (soma)
ate salario < 0
fimalgoritmo


algoritmo "Números de 1 a 10 (com repita)"
var
par: inteiro
inicio
par <- 0
repita
escreval (par)
par <- par + 2
ate par > 100
fimalgoritmo


algoritmo "Números de 1 a 10 (com repita)"
var
nome: caractere
j: inteiro
n1,n2,n3,res: real
inicio
j <- 1
repita
j <- j + 1
escreval ("digite o nome do aluno")
escreval ("digite a nota do aluno da matéria1")
escreval ("digite a nota do aluno da matéria2")
escreval ("digite a nota do aluno da matéria3")
leia (nome,n1,n2,n3)
res <- (n1+n2+n3)/3
escreval (res)
ate j > 3
fimalgoritmo


algoritmo "Números de 1 a 10 (com repita)"
var j: inteiro
inicio
j <- 1
repita
escreva (j:3)
j <- j + 1
ate j > 10
fimalgoritmo