• Lenguaje

    Pascal

  • Descripción

    Un empleador tiene un salario inicial de $2,500 y recibe un incremento de 15% anual durante 6 años. ¿Cuál es su salario al cabo de 6 años? ¿Qué salario ha recibido en cada uno de los 6 años?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program IncrementoAlSalarioDeUnEmpleador;
uses crt, math;

var i : integer;
var salario_inicial, salario_recibido, year : real;
begin
    for i:=1 to 6 do
    begin
        writeln ('PROCESO ', i);
        salario_inicial := 2500;
        year := i;
        salario_recibido := salario_inicial*power(1.15,year);
        writeln ('Valor de salario inicial: ', salario_inicial:0:6);
        writeln ('Valor de salario recibido: ', salario_recibido:0:6);
        writeln ('Valor de year: ', year:0:6);
        writeln;
    end;
end.