Exemplo algoritmo

Prévia do material em texto

Exemplo :
Escreva um algoritmo que receba números (x) inteiros e positivos e conte quantos são pares(p) e impares (i). O critério de parada é a digitação do zero (0)
Algoritmo “Verifica números”
Var 
X,P,I: inteiro
Inicio
P<-0
I<-0
REPITA
Escreval("Digite um número")
Leia(x)
Se(x>0) entao
Se(x mod 2=0)entao
P<-P+1
Senao
I<-I+1
Fimse
Senao
Se(X<0) entao
Escreval ("Digite número positivo")
Fimse
Fimse
Ate(x=0)
Escreval ("Foram digitados",P," números pares e ",I," ímpares.")
Escreval ("Foram digitados", P+1," números validos.")
Fimalgoritmo
Exemplo 2
Escreva um algoritmo que encontre o quinto numero maior que 100, cuja divisão por 11 tenha resto 5.
algoritmo "Encontra número"
var
num,contador: inteiro
inicio
num<-100
contador<-0
repita
se(num mod 11=5) entao
contador<-contador+1
escreval("O",contador," o é",num)
fimse
num<-num+1
ate(contador=5)
fimalgoritmo
exemplo 3
Construa um algoritmo que receba um numero indeterminado de valores e apresente, ao final, qual o maior numera digitado. O critério de parada é 0(zero).
Algoritmo “Maior número”
var
num,maior:inteiro
inicio
maior< - 0
REPITA
Escreva(“Digite um número”)
Leia(num)
Se(num>maior) entao
Maior< - num
Fimse
Ate(num=0)
Escreval (“O número maior digitado”, maior)
Fimalgoritmo
Exemplo 4
Construa um algoritmo que receba um numero indeterminado de valores e apresente, ao final, qual o menor numera digitado. O critério de parada é 0(zero).
Algoritmo “Menor número”
var
num,m,v:inteiro
inicio
v< - 1
REPITA
Escreva(“Digite um número”)
Leia(num)
Se(v=1) entao
M< - num
Senao
Se ((num<M) e (num<>0)) entao
M<-num
Fimse
Fimse
V< - 2
Ate(num=0)
Escreval (“O menor número digitado”, m)
Fimalgoritmo