Exercício 06 Estrutura de Seleção 2 - Pascal

6) 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.

Program Cond06 ;
var
 s_final,salario: real;
 codigo: integer;
 Begin
  Writeln('Codigo |    Cargo    | Perentual  ');
  Writeln('  1 -- | Escrituario |   50%');
  Writeln('  2 -- | Secretario  |   35%');
  Writeln('  3 -- | Caixa       |   20%');
  Writeln('  4 -- | Gerente     |   10%');
  Writeln('  5 -- | Diretor     |   0 %');
   Write('Codigo: ');
   readln(codigo);
   Write('Salario: ');
   readln(salario);
    if codigo = 1 then
     s_final := salario + (salario*50/100)
    else if codigo = 2 then
     s_final := salario + (salario*35/100) 
    else if codigo = 3 then 
     s_final := salario + (salario*20/100)
    else if codigo = 4 then     
     s_final := salario + (salario*10/100)
    else if codigo = 5 then 
      s_final := salario
    else Writeln('Codigo Invalido');
  Writeln('Salario Final: ',s_final:0:2);  
 Writeln('                     by Marcus Vinicius');    
    
 End.

Categories: Pascal , Programação