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.

Rompecompiladores Ackerman

Calculadora básica no Lazarus

Calculo do Fatorial Utilizando-se de for

Calculadora Empresarial (Baseada nas fórmulas de Logística)Lazarus

Raiz Quadrada.