Rascunho - Algoritmos Prova
Rascunho - Algoritmos Prova
var
i, j : inteiro
nomes : vetor [1..5] de caracter
troca : caracter
Inicio
para i de 1 ate 5 faca
escreva (i, "º Nome: ")
leia ( nomes [ i ] )
fimpara
para i de 1 ate 4 faca
para j de i +1 ate 5 faca
se (nomes [ i ] > nomes [ j ] ) entao
troca <- nomes [ i ]
nomes [ i ] <- nomes [ j ]
nomes [ j ] <- troca
fimse
fimpara
fimpara
para i de 1 ate 5 faca
escreval ( i, "º Nome: ", nomes [ i ] )
fimpara
fimalgoritmo
2) Escreva um algoritmo que leia um vetor com 5 posições de número inteiro. Em seguida
receba um novo valor do usuário e verifique se este valor se encontra em que vetor, e se
não foi localizado
Var
NUMERO: VETOR [1..5] de inteiro
I, num, cont : INTEIRO
Inicio
cont <- 0
para i de 1 ate 5 faca
escreva ("Digite um número: ")
leia (NUMERO [ i ] )
fimpara
para i de 1 ate 5 faca
escreva (NUMERO [ i ] )
fimpara
escreval (" ")
escreva ("Digite o número a ser localizado: ")
leia (num)
para i de 1 ate 5 faca
se (NUMERO [ i ] = num) então
cont <- cont + 1
fimse
fimpara
se (cont > 0 ) então
escreval ("numero encontrado ",cont," veze(s)")
senao
escreval ("numero não foi localizado")
fimse
Fimalgoritmo
3) Crie um procedimento que receba um número como parâmetro e escreva a tabuada
desse número
var
numero : inteiro
procedimento tabuada (valor : inteiro)
var
i:inteiro
inicio
escreval ("*** Tabuada de ", valor, " ***")
escreval ()
para i de 1 ate 10 faca
escreval (i," * ",numero," = ",i*numero)
fimpara
fimprocedimento
inicio
escreva ("Digite um número: ")
leia (numero)
tabuada (numero)
fimalgoritmo
4) faça um algoritmo que calcula o somatório de todos os números não nulos fornecidos.
Ao digitar o zero é encerrado o somatório e exibido o valor total.
var
total : inteiro
função SomaVarios : inteiro
var
numero, soma : inteiro
inicio
soma <- 0
escreva ("Digite um número: ")
leia (numero)
enquanto (numero > 0) faca
soma <- soma + numero
escreva ("Digite um número: ")
leia (numero)
fimenquanto
retorne soma
fimfuncao
inicio
total <- SomaVarios
escreva ("O valor da soma é: ", total)
fimalgoritmo
5) Elabore uma função que receba três valores reais como parâmetro e retorne a média
desses valores.
var
numero1, numero2, numero3, resultado : real
função Media (n1, n2, n3 : real) : real
var
calculoMedia : real
inicio
calculoMedia <- (n1 + n2 + n3) / 3
retorne calculoMedia
fimfuncao
inicio
escreval ("Digite 3 números: ")
leia (numero1)
leia (numero2)
leia (numero3)
resultado <- Media (numero1, numero2, numero3)
escreva ("O valor da média é: ", resultado)
fimalgoritmo
6) A escola Aprender faz o pagamento de seus professores por hora aula. Faça um
algoritmo que calcule e exiba o salário de um funcionário. Sabe-se que o valor da hora aula
segue a tabela abaixo:
Professor Nível 1 recebe R$ 12,00 hora aula
Professor Nível 2 recebe R$ 17,00 hora aula
Professor Nível 3 recebe R$ 25,00 hora aula
Var
nivel, horas : inteiro
Inicio
escreval ("Escola APRENDER")
escreva ("Digite o nível do professor (1/2/3) : ")
leia (nivel)
escreva ("Digite o número de horas trabalhadas : ")
leia (horas)
se nivel = 1 então
escreval ("O professor ganha " ,horas * 12 :10 : 2)
senao
se nivel = 2 entao
escreval ("O professor ganha ",horas * 17 : 10 : 2)
senao
escreval ("O professor ganha ",horas * 25 : 10 :2)
fimse
fimse
fimalgoritmo
7) Escreva um algoritmo que leia 7 números e ao final informe quantos números estão no
intervalo entre 5 (inclusive) e 125 (inclusive)
Var
x, num, intervalo: inteiro
Inicio
para x de 1 ate 7 faca
escreval ("Digite um número: ")
leia(num)
se num >= 7 entao
se num <= 125 entao
intervalo <- intervalo + 1
fimse
fimse
fimpara
escreval ("Ao total, foram digitados", intervalo," números no intervalo entre 5/125 ")
fimalgoritmo