Programa que realiza o reajuste salarial de acordo com o cargo
Programa típico de disciplinas iniciais de programação, que dado um cargo de entrada e o salário atual, o programa retorna o valor do salário reajustado de acordo com o cargo.
Descrição
Programa típico de disciplinas iniciais de programação, que dado um cargo de entrada e o salário atual, o programa retorna o valor do salário reajustado de acordo com o cargo.
Program Reajuste;
Uses CRT;
Var
Salario: real;
Cargo: Integer;
Begin
Write(´Digite o cargo´);
read(Cargo);
Write(´Digite o salario´);
read(Salario);
{cargo 1 recebe o reajuste de 5%}
{cargo 2 recebe o reajuste de 10%}
{cargo 3 recebe o reajuste de 15%}
Case (Cargo) of
1: salario := Salario * 1,05;
2: salario := Salario * 1,10;
3: salario := Salario * 1,15;
End;
End.