ActiveDelphi

[MatheusSodre]

program Calculo_Salario;

{$APPTYPE CONSOLE}

uses
SysUtils;

Var
nome: string[40];
func: string[12];
cargo, base, percent, valor, sal:real;
N:char;
BEGIN
N:='S';
while (n='S') or (n='s') do
begin
writeln(' PREPARA CURSOS - MATHEUS ');
writeln;
writeln(' SISTEMA DE CALCULO DE FOLHA DE PAGAMENTO');
writeln('________________________________________________________________________________');
writeln;
writeln('Digite o codigo referente ao cargo do Funcionario, ',nome,' :');
writeln('(1) Marketing | (2) Vendas | (3) Secretario | (4) Caixa | (5) Gerente |(6) Diretor');
readln(cargo);
writeln('Informe o valor do salario base do funcionario: ');
readln(base);
percent:=0;
If (cargo = 1 ) then
begin
func:='Marketing';
percent:=50;
valor:=(base*percent)/100;
sal:=base+valor;
end
Else
If (cargo = 2 )then
begin
func:='Vendas';
percent:=45;
valor:=(base*percent)/100;
sal:=base+valor;
end
else
If (cargo = 3 )then
begin
func:='Secretario';
percent:=35;
valor:=(base*percent)/100;
sal:=base+valor;
end
else
If (cargo = 4 ) then
begin
func:='Caixa';
percent:=25;
valor:=(base*percent)/100;
sal:=base+valor;
end
else
If (cargo = 5 ) then
begin
func:='Gerente';
percent:=15;
valor:=(base*percent)/100;
sal:=base+valor;
end
else
If (cargo = 5 ) then
begin
func:='Diretor';
percent:=0;
valor:=(base*percent)/100;
sal:=base+valor;
end;
End.