Reajuste de Salários

Prévia do material em texto

28. Escrever um algoritmo para uma empresa que decide dar um reajuste a seus 584 funcionários de acordo com os seguintes critérios:
a) 50% para aqueles que ganham menos do que três salários mínimos;
b) 20% para aqueles que ganham entre três até dez salários mínimos;
c) 15% para aqueles que ganham acima de dez até vinte salários mínimos;
d) 10% para os demais funcionários.
Leia o nome do funcionário, seu salário e o valor do salário mínimo. Calcule o seu novo salário reajustado. Escrever o nome do funcionário, o reajuste e seu novo salário. Calcule quanto à empresa vai aumentar sua folha de pagamento.
Var
I : inteiro
nome : Caracter
SalAtual, SalMinimo, reajuste, SalNovo, FPgto, QntSal : real
Inicio
// Seção de Comandos 
FPgto <- 0
escreva("Digite o valor do Salário Mínimo atual: ")
leia(SalMinimo)
para I de 1 ate 584 faca
 escreval("Digite o nome do funcionário: ")
 leia(nome)
 escreval("Digite o Salário Atual desse funcionario: ")
 leia(SalAtual)
 QntSal <- SalAtual / SalMinimo
 se (QntSal <= 3) entao
 reajuste <- SalAtual * 0.5
 SalNovo <- SalAtual + reajuste
 senao
 se (QntSal > 3) e (QntSal <= 10) entao
 reajuste <- SalAtual * 0.2
 SalNovo <- SalAtual + reajuste
 senao
 se (QntSal > 10) e (QntSal <= 20) entao
 reajuste <- SalAtual * 0.15
 SalNovo <- SalAtual + reajuste
 senao
 se (QntSal > 20) entao
 reajuste <- SalAtual * 0.2
 SalNovo <- SalAtual + reajuste
 fimse
 fimse
 fimse
 fimse
 escreval("O funcionário ",nome," tem reajuste de R$",reajuste)
 escreval("O novo salário será de R$",SalNovo)
 FPgto <- FPgto + reajuste
fimpara
escreval("Aumento na folha de pagamento da empresa é de R$",FPgto)
fimalgoritmo
29. Faça um algoritmo que receba o número do mês e mostre o mês correspondente. Valide mês inválido.
Var
mes: inteiro
Inicio
escreval("Digite o número do mês: ")
leia(mes)
escolha mes
caso 1
 escreval("Janeiro")
caso 2
 escreval("Fevereiro")
caso 3
 escreval("Março")
caso 4
 escreval("Abril")
caso 5
 escreval("Maio")
caso 6
 escreval("Junho")
caso 7
 escreval("Julho")
caso 8
 escreval("Agosto")
caso 9
 escreval("Setembro")
caso 10
 escreval("Outubro")
caso 11
 escreval("Novembro")
caso 12
 escreval("Dezembro")
outrocaso
 escreval("Mês inválido!")
fimescolha
fimalgoritmo
30. Faça um algoritmo que receba o nome a idade, o sexo e salário fixo de um funcionário. Mostre o nome e o salário líquido:
var
nome, sexo: caractere
idade, x: inteiro
salario: real
inicio
// Seção de Comandos 
escreva("Digite o nome do funcionário: ")
leia(nome)
x <- 1
enquanto x = 1 faca
 escreva("Digite o sexo (F/M): ")
 leia(sexo)
 se sexo <> "F" entao
 se sexo <> "M" entao
 x <- 1
 senao
 x <- 0
 fimse
 senao
 x <- 0
 fimse
fimenquanto
escreva("Digite a idade: ")
leia(idade)
escreva("Digite o salário: ")
leia(salario)
se sexo = "M" entao
 se idade >= 30 entao
 salario <- salario + 100
 senao
 salario <- salario + 50
 fimse
senao
 se idade >= 30 entao
 salario <- salario + 200
 senao
 salario <- salario + 80
 fimse
fimse
escreval(">>> Nome: ",nome)
escreval(">>> Salário: ",salario)
fimalgoritmo
31. Escrever um algoritmo que leia três valores inteiros distintos e os escreva em ordem crescente.
Var
num1, num2, num3: inteiro
ordena: vetor[1..3] de inteiro
Inicio
escreva("Digite o primeiro número: ")
leia(num1)
escreva("Digite o segundo número: ")
leia(num2)
escreva("Digite o terceiro número: ")
leia(num3)
se num1 > num2 entao
 ordena[3] <- num1
 ordena[2] <- num2
 se num3 > num1 entao
 ordena[3] <- num3
 ordena[2] <- num1
 ordena[1] <- num2
 senao
fimse
escreval("Os números em ordem crescente são: ")
escreval(">",ordena[1])
escreval(">",ordena[2])
escreval(">",ordena[3])
fimalgoritmo
32. Dados três valores A, B e C, em que A e B são números reais e C é um caractere, pede-se para imprimir o resultado da operação de A por B se C for um símbolo de operador aritmético; caso contrário deve ser impressa uma mensagem de operador não definido. Tratar erro de divisão por zero.
Var
A, B: real
C: caractere
Inicio
escreva("Digite o primeiro número: ")
leia(A)
escreva("Digite o segundo número: ")
leia(B)
escreva("Digite a operação desejada (+ - / *): ")
leia(C)
escolha C
 caso "+"
 escreval("A+B =",A+B)
 caso "-"
 escreval("A-B =",A-B)
 caso "*" =
 escreval("A*B =",A*B)
 caso "/"
 se B = 0 entao
 escreval("Erro, um número não pode ser dividido por 0!")
 senao
 escreval("A/B =",A/B)
 fimse
 outrocaso
 escreval("Operador não definido!")
fimescolha
fimalgoritmo
33. Escrever um algoritmo que leia três valores inteiros e verifique se eles podem ser os lados de um triângulo. Se forem, informar qual o tipo de triângulo que eles formam: equilátero, isóscele ou escaleno.Propriedade: o comprimento de cada lado de um triângulo é menor do que a soma dos comprimentos dos outros
dois lados. Triângulo Equilátero: aquele que tem os comprimentos dos três lados iguais; Triângulo Isóscele: aquele que tem os comprimentos de dois lados iguais. Portanto, todo triângulo equilátero é
também isóscele;Triângulo Escaleno: aquele que tem os comprimentos de seus três lados diferentes.
Var
la, lb, lc, triangulo: inteiro
Inicio
escreva("Digite o lado A do triângulo: ")
leia(la)
escreva("Digite o lado B do triângulo: ")
leia(lb)
escreva("Digite o lado C do triângulo: ")
leia(lc)
se la < (lc+lb) entao
 triangulo <- 1
senao
 se lb < (lc + la) entao
 triangulo <- 1
 senao
 se lc < (lb + la) entao
 triangulo <- 1
 fimse
 fimse
fimse
se triangulo = 1 entao
 se la = lb entao
 se lb = lc entao
 escreval("É um triângulo equilátero!")
 senao
 escreval("É um triângulo isóscele")
 fimse
 senao
 se lb = lc entao
 escreval("É um triângulo isóscele")
 senao
 escreval("É um triângulo escaleno")
 fimse
 fimse
fimse
fimalgoritmo
34. 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 professor. Sabe-se que o valor da hora/aula segue a tabela abaixo:
Professor Nível 1 R$12,00 por hora/aula
Professor Nível 2 R$17,00 por hora/aula
Professor Nível 3 R$25,00 por 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 entao
 escreval("O professor ganha",horas*12)
senao
 se nivel = 2 entao
 escreval("O professor ganha",horas*17)
 senao
 escreva("O professor ganha",horas*25)
 fimse
fimse
fimalgoritmo
37. Faça um algoritmo que leia o nome, o sexo, a altura e a idade de uma pessoa. Calcule e mostre nome e o seu peso
ideal de acordo com as seguintes características da pessoa:
var
 idealmulher: Real
 idealhomem: Real
 altura: Real
 sexo: String
 masculino
 feminino
Início
 escreva "Escreva a altura:"
 leia(altura)
 escreva "Escreva o sexo:"
 leia(sexo)
se sexo = masculino então
 idealhomem:= (72.7*altura)
 escreva ("O peso ideal é" , idealhomem)
senão se sexo = feminino então
 idealmulher = (62.1*altura)
 escreva ("O peso ideal é" , idealmulher)
fimse
fimalgoritmo
39. Dado o nome de um estudante, com o respectivo número de matrícula e as três notas acima mencionadas,desenvolva um algoritmo para calcular a nota final e a classificação de cada estudante. A classificação é dada
conforme a tabela abaixo:
Nota Final Classificação
[8,10] A
[7,8] B
[6,7] C
[5,6] D
[0,5] R
Imprima o nome do estudante, com o seu número, nota final e classificação.
var
idade, grupo: inteiro
nome, grupoRisco: caractere
inicio
// Seção de Comandos 
escreva(“Digite o nome: “)
leia(nome)
escreva(“Digite a idade: “)
leia(idade)
escreval(“Informe o Grupo de risco: “)
escreval(“(B)aixo / (M)édio / (A)lto “)
leia(grupoRisco)
se (idade >= 17) e (idade <= 70) entao
se idade <= 20 entao
 escolha grupoRisco
 caso “B”
 grupo <- 1
 caso “M”
 grupo <- 2
 caso “A”
 grupo <- 3
 fimescolha
senao
 se idade <= 24 entao
 escolha grupoRisco
 caso “B”
 grupo <- 2
 caso “M”
 grupo <- 3
 caso “A”
 grupo <- 4
 fimescolha
 senao
 se idade <= 34 entao
 escolha grupoRisco
 caso “B”
 grupo <- 3
 caso “M”
 grupo <- 4
 caso “A”
 grupo <- 5
 fimescolha
 senao
 se idade <= 64 entao
 escolha grupoRisco
 caso “B”
 grupo <- 4
 caso “M”
 grupo <- 5
 caso “A”
 grupo <- 6
 fimescolha
 senao
 escolha grupoRisco
 caso “B”
 grupo <- 2
 caso “M”
 grupo <- 3
 caso “A”
 grupo <- 4
 fimescolha
 fimse
 fimse
 fimse
fimse
senao
 escreval(“Idade fora da cobertura!”)
fimse
escreval(“Nome: “,nome)
escreval(“Idade: “,idade)
escreval(“Categoria: “,grupo)
fimalgoritmo