Pseudocódigo XI

Ejercicios Pseudocódigo

Suponga que un individuo desea invertir su  capital en un banco y desea saber cuanto dinero ganara después de un mes si el banco paga a razón de 2% mensual.

1 Proceso InteresMensual

2      //Invertir un capital en un banco al 2%mensual

3      //Cuanto dinero ganara despues de un mes

4      Definir capital, ganas como real;

5      Escribir "Introduce el capital";

6      Leer capital;

7      ganas <- capital * 0.02;

8      Escribir "Ganas son: ", ganas;

9 FinProceso

Un vendedor recibe un sueldo base mas un 10% extra por comisión de sus ventas, el vendedor desea saber cuanto dinero obtendrá por concepto de comisiones por las tres ventas que realiza en el mes y el total que recibirá en el mes tomando en cuenta su sueldo base y comisiones.

1 Proceso NominaVendedor

2      //Un vendedor un sueldo base + 10% de sus ventas

3      //queire conocer las comisiones de 3ventas de estemes

4      // y el total que cobrara.

5      Definir Ventas, VentaActual Como Real;

6      Definir Base, Comisiones, Nomina Como Real;

7      Definir i como entero;

8      Escribir "Dime su sueldo base (<1200)";

9      Leer Base;

10     Ventas <- 0;

11     Para i<-1 Hasta 3 Hacer

12           Escribir "Dime la ", i ,"ª venta";

13           Leer VentaActual;

14           Ventas <- Ventas + VentaActual;

15     FinPara

16     Comisiones <- Ventas * 0.10;

17     Nomina <- Base + Comisiones;

18     Escribir "Nomina " , Nomina, " Comisiones ", Comisiones;

19

20 FinProceso

Un hombre desea saber cuanto dinero se genera por concepto de intereses sobre la cantidad que tiene en inversión en el banco. El decidirá reinvertir los intereses siempre y cuando estos excedan a 7000€, y en ese caso desea saber cuanto dinero tendrá finalmente en su cuenta.

1 Proceso HombreRico

2      //Un hombre desea saber cuanto dinero se genera por concepto de intereses

3      //sobre la cantidad que tiene en inversión en el banco.

4      //El decidirá reinvertir los intereses siempre y cuando estos

5      //excedan a 7000€, y en ese caso desea saber cuanto dinero

6      //tendrá finalmente en su cuenta.

7      Definir Capital, Intereses, InteresP , Interes Como Real;

8      //Definir Intereses Como entero;

9      Escribir "Dime el capital a invertir:";

10     Leer Capital;

11     Escribir "Dime el interés que te dan en el banco en %";

12     Leer Interes;

13     InteresP <- Interes / 100; // 2,56% --> 0.0256

14     Intereses <- (Capital * InteresP);

15     Si (Intereses >= 7000) Entonces //poner la pasta 1 año mas.

16           Escribir "Reinvertir un los intereses un año mas.", Intereses;

17           Capital <- Capital + Intereses; // Esto lo que tenemos este año.

18           Intereses <- Capital * InteresP; // Intereses del año que viene.

19           Capital <- Capital + Intereses; // Capital del año que viene.

20           Escribir "A final del año que viene tendrás ", Capital , " Euros";

21 Sino

22           Escribir "No reinvertir un los intereses un año mas.", Intereses;

23           Capital <- Capital + Intereses;

24           Escribir "A final del año que viene tendrás ", Capital , " Euros";

25     FinSi

26 FinProceso

Determinar si un alumno aprueba a suspende un curso, sabiendo que aprobara si su promedio de tres calificaciones es mayor o igual a 70, en caso contrario suspenderá.

1 Proceso AprobarOSuspender

2      // Determinar si un alumno aprueba a suspende un curso,

3      //sabiendo que aprobara si su promedio de tres calificaciones

4      //es mayor o igual a 70 suspende en caso contrario.

5

6      Definir i , Nota,SumaNota, NotaFinal Como Entero;

7      SumaNota <- 0;

8      Para i<-1 Hasta 3 hacer

9             Escribir "Dime la nota del " , i , " examen.";

10            Leer Nota;

11            SumaNota <- SumaNota + Nota;

12     FinPara

13     NotaFinal <- SumaNota/ 3;

14     si NotaFinal >= 70 Entonces

15           Escribir "Estas aprobado con un ", NotaFinal;

16     Sino

17           Escribir "No vemos en septiembre, tienes un ", NotaFinal;

18     FinSi

19 FinProceso

Un obrero necesita calcular su salario semanal, el cual se obtiene de la sig. manera: 

Si trabaja 40 horas o menos se le paga $16 por hora Si trabaja mas de 40 horas se le paga $16 por cada una de las primeras 40 horas y $20 por cada hora extra.

1 Proceso SalarioObrero

2      //Un obrero necesita calcular su salario semanal,

3      //el cual se obtiene de la sig. manera:

4      //Si trabaja 40 horas o menos se le paga $16 por hora

5      //Si trabaja mas de 40 horas se le paga $16 por

6      //cada una de las primeras 40 horas y $20 por cada hora extra.

7      Definir Horas, Horas16, Horas20 Como Entero;

8      Definir Salario Como Real;

9      Escribir "Cuantas horas ha trabajado esta semana??";

10     Leer Horas;

11     Horas16<-40;

12     Horas20<-0;

13     Si Horas > 40 Entonces

14           //Horas16 <- 40;

15           Horas20 <- Horas - Horas16;

16     Sino

17           Horas16 <- Horas;

18           //Horas20 <- 0;

19     FinSi

20     Salario <- ( Horas16 * 16 ) + ( Horas20 * 20);

21     Escribir "Su salario es de ", Salario , " Euros.";

22 FinProceso

Siguiente>