Duas datas

Questão 10

Faça um programa que receba o código correspondente ao cargo de um funcionário e seu salário atual e mostre o cargo, o valor do aumento e seu novo salário. Os cargos estão na tabela a seguir.

Tabela 1

Deveremos desenvolver um código em linguagem R com o objetivo de apresentar o cargo do funcionário, o percentual de aumento e o valor correspondente ao aumento do salário.

es2q10=function(cod,sal_atual){
  if(cod==1){
  cat("O cargo deste funcionário é Escrituário.")
  cat("\nO valor do aumento deste funcionário é R$",sal_atual*0.50,"reais.")
  cat("\nO novo salário após um aumento de 50% é de R$",sal_atual*1.50,"reais.")
  }
}

Para rodarmos o código acima, deveremos entrar com o valor exibido na tabela 1. Desta forma, para um código (cod=1) e um salário de R$ 100, temos:

es2q10(1,100)

## O cargo deste funcionário é Escrituário.
## O valor do aumento deste funcionário é R$ 50 reais.
## O novo salário após um aumento de 50% é de R$ 150 reais.

O restante do código é apresentado em seguida:

es2q10=function(cod,sal_atual){
  if(cod==1){
  cat("O cargo deste funcionário é Escrituário.")
  cat("\nO valor do aumento deste funcionário é R$",sal_atual*0.50,"reais.")
  cat("\nO novo salário após um aumento de 50% é de R$",sal_atual*1.50,"reais.")
  }
  if(cod==2){
  cat("O cargo deste funcionário é Secretário.")
  cat("\nO valor do aumento deste funcionário é de R$",sal_atual*0.35,"reais.")
  cat("\nO novo salário após um aumento de 35% é de R$",sal_atual*1.35,"reais.")
  }
  if(cod==3){
  cat("O cargo deste funcionário é Caixa.")
  cat("\nO valor do aumento deste funcionário é de R$",sal_atual*0.20,"reais.")
  cat("\nO novo salário após um aumento de 20% é de R$",sal_atual*1.20,"reais.")
  }
  if(cod==4){
  cat("O cargo deste funcionário é Gerente.")
  cat("\nO valor do aumento deste funcionário é de R$",sal_atual*0.10,"reais.")
  cat("\nO novo salário após um aumento de 10% é de R$",sal_atual*1.10,"reais.")
  }
  if(cod==5){
  cat("O cargo deste funcionário é Diretor.")
  cat("\nO valor do aumento deste funcionário é de R$",sal_atual*0.0,"reais.")
  cat("\nO novo salário após um aumento de 0,0% é de R$",sal_atual*0.00,"reais.")
  }
}

Escolhendo-se um código(cod=4) e um salário atual (sal_atual=100),temos:

es2q10(4,100)

## O cargo deste funcionário é Gerente.
## O valor do aumento deste funcionário é de R$ 10 reais.
## O novo salário após um aumento de 10% é de R$ 110 reais.