Flávia Palma- Engenharia de Produção
Por: Flavia Palma • 5/10/2020 • Trabalho acadêmico • 356 Palavras (2 Páginas) • 110 Visualizações
Flávia Palma- Engenharia de Produção
a) Faça um algoritmo para ler dois números inteiros e imprimir todos os números entre eles.
Algoritmo "entre numeros"
Var
f, numero1 , numero2 :inteiro
Inicio
escreva ("informe o primeiro numero ")
leia (numero1)
escreva ("informe o segundo numero ")
leia (numero2)
numero1 <- numero1 +1
numero2 <- numero2 -1
para f de numero1 ate numero2 faca
escreva (f)
se (f< numero2) entao
escreva (",")
fimse
fimpara
Fimalgoritmo
b) Faça um algoritmo para ler dois números inteiros e imprimir todos os números ímpares entre eles.
Algoritmo "entre numeros impares e pares "
Var
f, numero1 , numero2 :inteiro
Inicio
escreva ("informe o primeiro numero ")
leia (numero1)
escreva ("informe o segundo numero ")
leia (numero2)
numero1 <- numero1 +1
numero2 <- numero2 -1
para f de numero1 ate numero2 faca
se (f mod 2 )= 1 entao
escreva (f)
se (f < numero2) entao
escreva (",")
fimse
fimse
fimpara
Fimalgoritmo
c) Calcular a soma dos números entre 1 a 1000.
Algoritmo "soma entre dois numeros "
Var
f, numero1 , numero2,soma :inteiro
Inicio
escreva ("informe o primeiro numero ")
leia (numero1)
escreva ("informe o segundo numero ")
leia (numero2)
soma <- 0
f <- numero1
enquanto (f <= numero2) faca
soma <- soma+ f
f <- +1
f <- f + numero1
escreva ("a soma dos numeros inclusive dos valores", numero1 "e" numero2 "e" soma)
fimalgoritmo
d) Ler um conjunto de números, onde o flag é um número igual a 0 (zero) e calcular e e imprimir a soma dos números lidos.
Algoritmo "soma de numeros "
Var
numero,soma,flag:inteiro
Inicio
escreva ("informe o primeiro numero ")
leia (numero)
flag<- numero
soma<-0
enquanto (flag <> 0),faca
fimenquanto
soma<- soma + numero
escreva ( informe outro numero)
leia (numero)
flag<- numero
fimenquanto
escreval (" a sma dos numeros informados pelo usuario foi" ,soma)
Fimalgoritmo
e) Ler um conjunto de notas onde o flag é -1 e imprimir a menor nota.
Algoritmo "menor nota "
Var
nota,menor,flag:real
Inicio
escreva ("informe o primeiro nota ")
leia (nota)
flag<- nota
menor nota<-10
enquanto (flag <> - 1),faca
se (nota < menor) entao
fimse
menor<- nota
escreva ( informe outra nota)
leia (nota)
...