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.

• Download reajuste.pas
• Enviar nova versão

Esconder código-fonte

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.

Cáculo de Fatorial, utilizando-se de Repeat - Until

usando vetor e procedimentos

Executar comando do DOS.

Números perfeitos

Criptografador(Conceito criptografia)Lazarus