quinta-feira, 9 de dezembro de 2010

Program CALCULO_SALARIO;
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('                             SCRIPT BRASIL');
      writeln;
      writeln('               SISTEMA DE CALCULO DE FOLHA DE PAGAMENTO');
      writeln('____________________________________________________________');
      writeln;
      writeln('Digite o nome do Funcionário: ');
      readln(nome);
      writeln('Digite o código referente ao cargo do Funcionário, ',nome,' :');
      writeln('(1)Escrituário     (2)Secretário     (3)Caixa     (4)Gerente');
      readln(cargo);
      writeln('Informe o valor do salário base do funcionário: ');
      readln(base);
      percent:=0;
      If (cargo = 1 ) then
        begin
          func:='Escrituário';
          percent:=50;
          valor:=(base*percent)/100;
          sal:=base+valor;
        end
     Else
       If (cargo = 2 )then
        begin
          func:='Secretário';
          percent:=35;
          valor:=(base*percent)/100;
          sal:=base+valor;
        end
        else
          If (cargo = 3 )then
            begin
              func:='Caixa';
              percent:=20;
              valor:=(base*percent)/100;
              sal:=base+valor;
            end
            else
              If (cargo = 4 ) then
                begin
                  func:='Gerente';
                  percent:=10;
                  valor:=(base*percent)/100;
                  sal:=base+valor;
                end;
           
           writeln;
           writeln;
           writeln('----------------------------------------------------------------------------');
           writeln('                             CONTRA CHEQUE');
           writeln('_________________________________________________________');
           writeln;
           writeln('Nome do Funcionário: ',nome);
           writeln('Cargo: ',func);
           writeln('Salário base: R$ ',base:5:2);
           writeln('Porcentagem de aumento: ',percent:2:0,'%');
           writeln('valor do aumento: R$ ', valor:5:2);
           writeln;
           writeln('Total de Proventos: R$ ',sal:5:2);
           writeln;
           writeln('Valor corrigido: R$ ',sal:5:2);
           writeln;
           writeln;
           writeln;
           writeln('Líquido a Receber: R$ ',sal:5:2);
           writeln;
           writeln('----------------------------------------------------------------------------');
           writeln;         
           writeln('Deseja calcular outra conta? (s/n)');
           readln(n);
             if (n='n') or (n='N') then
                begin
                   writeln;
                   writeln;
                   writeln('                        Saindo do sistema...');
                   writeln('                     Sistema sendo encerrado...');
                   writeln;
                   writeln;
                   writeln('                       SISTEMA ENCERRRADO!!!');
                   writeln('                    PRESSIONE "ENTER" PARA SAIR');
                end;
   end;
End.

É bem simples mas eu gosto,espero que gostem tb, t+

0 comentários:

Postar um comentário