-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
En una empresa pagan un salario de $100 la primera semana, pero doblan el salario cada semana, es decir, $100 la primera semana; $200 la segunda semana; $400 la tercera semana; ... Hasta $(2n-1)/100 la n-ésima. Determine y escriba el salario por cada semana y el salario pagado hasta la fecha por espacio de n semanas.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Proceso SalarioPorCadaSemana2
salario_pagado <- 0;
Escribir Sin Saltar "Ingresa el valor de n:";
Leer n;
Para i<-1 Hasta n Con Paso 1 Hacer
Escribir "PROCESO ", i;
Si =1 Entonces
salario <- 100;
SiNo
salario <- salario*2;
FinSi
salario_pagado <- salario_pagado+salario;
salario_hasta_la_fecha <- salario_pagado;
Escribir "Valor de salario: ", salario;
Escribir "Valor de salario hasta la fecha: ", salario_hasta_la_fecha;
Escribir "";
FinPara
Escribir "Valor de salario pagado: ", salario_pagado;
FinProceso
salario_pagado <- 0;
Escribir Sin Saltar "Ingresa el valor de n:";
Leer n;
Para i<-1 Hasta n Con Paso 1 Hacer
Escribir "PROCESO ", i;
Si =1 Entonces
salario <- 100;
SiNo
salario <- salario*2;
FinSi
salario_pagado <- salario_pagado+salario;
salario_hasta_la_fecha <- salario_pagado;
Escribir "Valor de salario: ", salario;
Escribir "Valor de salario hasta la fecha: ", salario_hasta_la_fecha;
Escribir "";
FinPara
Escribir "Valor de salario pagado: ", salario_pagado;
FinProceso