-
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
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.
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.