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.

Script que verifica se um número é primo ou não

mostrar a meior e a menor temperatura do ano com vetor

Calculadora de notas (Pascal)

validando um triângulo e classificando-o como equilátero, isoceles ou escaleno.

Operações básicas da matemática