A Lista de Algoritmos
Por: Junior Nogueira • 26/11/2018 • Trabalho acadêmico • 1.253 Palavras (6 Páginas) • 230 Visualizações
algoritmo "questao 1"
// Disciplina : Algoritmos e Programação
// Professor : M.Sc. Lennon C. Chaves
// Autor(a) : Alberto Junior Nogueira de Sousa
// Data atual : 30/09/2018
Var
cargo:inteiro
salario,sparcial:real
Inicio
escreval("digite 1 para gerente")
escreval("digite 2 para tecnico")
escreval("digite 3 para outros")
escreval("Escolha o cargo: ")
leia(cargo)
escreval("digite o salario: ")
leia(sparcial)
se (cargo = 1) entao
salario <- sparcial+(sparcial*30)/100
escreval("Salario do gerente é: " ,salario)
fimse
se (cargo = 2) entao
salario <- sparcial+(sparcial*50)/100
escreval("Salario do tecnico é: " ,salario)
fimse
se (cargo = 3) entao
salario <- sparcial+(sparcial*20)/100
escreval("Outros salarios: " ,salario)
fimse
Fimalgoritmo
Algoritmo "questao 02"
// Disciplina : Algoritmos e Programação
// Professor : M.Sc. Lennon C. Chaves
// Autor(a) : Alberto Junior Nogueira de Sousa
// Data atual : 30/09/2018
Var
a,b,c:real
equacao,produto:real
Inicio
escreval("A")
leia(a)
escreval("B")
leia(b)
escreval("C")
leia(c)
equacao <- 3*(a+b)/(a*c)- c+b
produto <- a*b*c
escreval(" RESULTADO EQUAÇÃO: ",equacao)
escreval(" RESULTADO PRODUTO: ",produto)
se (equacao > produto) entao
escreval("Equação maior que abc")
fimse
se (equacao = produto) entao
escreval("Equação igual ao produto abc:")
fimse
se (equacao < produto) entao
escreval("Equação e menor que o produto abc")
fimse
Fimalgoritmo
Algoritmo "questao 3"
// Disciplina : Algoritmos e Programação
// Professor : M.Sc. Lennon C. Chaves
// Autor(a) : Alberto Junior Nogueira de Sousa
// Data atual : 30/09/2018
Var
salarioBruto,salarioMinimo,inss:real
salarioFinal,salarioLiquido:real
Inicio
escreval("Digite o salario bruto: ")
leia(salarioBruto)
escreval("Digite o salario minimo: ")
leia(salarioMinimo)
salarioFinal <- salarioMinimo*3
se salarioBruto <= salarioFinal entao
inss <- (salario_bruto*8)/100
salarioLiquido <- salarioBruto-inss
escreval("salario liquido: ", salarioLiquido)
escreval("inss: ", inss)
fimse
se salarioBruto > salarioFinal entao
inss <- (salarioBruto*10)/100
salarioLiquido <- salarioBruto-inss
se inss < salarioMinimo entao
escreval("salario liquido: ", salarioLiquido)
escreval("inss: ",inss)
senao
inss<- sMinimo
salarioLiquido <- salarioBruto-salarioMinimo
escreval("salario liquido: ", salarioLiquido)
escreval("inss: ",inss)
fimse
fimse
Fimalgoritmo
Algoritmo "Questao 4"
// Disciplina : Algoritmos e Programação
// Professor : M.Sc. Lennon C. Chaves
// Autor(a) : Alberto Junior Nogueira de Sousa
// Data atual : 30/09/2018
Var
teste1,teste2,teste3,teste4:real
tr1,tr2,tr3,tr4:real
mediaTeste,mediaFinal,mediaTrabalho:real
Inicio
escreval("Trabalho 01")
leia(tr1)
escreval("Trabalho 02")
leia(tr2)
escreval("Trabalho 03")
leia(tr3)
escreval("Trabalho 04")
leia(tr4)
escreval("Nota 01")
leia(teste1)
escreval("Nota 02")
leia(teste2)
escreval("Nota 03")
leia(teste3)
escreval("Nota 04")
leia(teste4)
mediaTeste<-(teste1+teste2+teste3+teste4)/4
mediaTrabalho<-(tr1+tr2+tr3+tr4)/4
mediaFinal <- ((mediaTeste*0.8)+(mediaTrabalho*0.2))
se mediafinal >= 6 entao
escreval("NOTA FINAL: ",mediaFinal)
escreval("aprovado")
senao
escreval("NOTA FINAL: ",mediaFinal)
escreval("reprovado")
fimse
Fimalgoritmo
Algoritmo "questao 5"
// Disciplina : Algoritmos e Programação
// Professor : M.Sc. Lennon C. Chaves
// Autor(a) : Alberto Junior Nogueira de Sousa
// Data atual : 30/09/2018
Var
x,y,z:REAL
Inicio
escreval("valor x")
leia(x)
escreval("valor y")
leia(y)
escreval("valor z")
leia(z)
se (x
escreval("e um triangulo")
senao
escreval("nao e um triangulo")
fimse
Fimalgoritmo
Algoritmo "questao 6"
// Disciplina : Algoritmos e Programação
// Professor : M.Sc. Lennon C. Chaves
...