Pseudocódigo XVIII

Ejercicios metodología de la programación con PSeInt.

Un programa que lea números, los sume hasta que el usuario introduzca el número 0, entones los muestra la suma y la media.

1 Proceso LeeEnterosHasta0YSumaYMedia

2      Definir Suma , Numero como Real;

3      Definir Cuantos Como Entero;

4      Cuantos <- 0;

5      Suma <- 0;

6      Repetir

7            Escribir "Dime Un numero";

8            Leer Numero;

9            Si Numero <> 0 entonces

10                  Suma <- Suma + Numero;

11                  Cuantos <- Cuantos + 1;

12           FinSi

13     Hasta Que Numero = 0

14     Si Cuantos > 0 Entonces

15           Escribir "La suma es " , Suma , " Media ", Suma/Cuantos;

16     FinSi

17 FinProceso

Realizar un programa que muestre el valor de una factura telefónica sabiendo que cada paso consumido se cobra a 0.10 Euros y que cuando se consumen más de 1000 pasos se aplica un descuento del 18 % sobre el total de la factura. El número de pasos consumidos se solicita al usuario. Hay que chequear que este valor siempre es mayor que 0.

1 Proceso FacturaTefonica

2      //Realizar un programa que muestre el valor de una

3      //factura telefónica sabiendo que cada paso consumido

4      //se cobra a 0.10 Euros y que cuando se consumen más

5      //de 1000 pasos se aplica un descuento del 18 %

6      //sobre el total de la factura.

7      //El número de pasos consumidos se solicita al usuario.

8      //Hay que chequear que este valor siempre es mayor que 0.

9      Definir Pasos Como Entero;

10     Definir Importe como Real;

11     Repetir

12           Escribir "Cuantos pasos tienes (>0) ??";

13           Leer Pasos;

14     Hasta Que Pasos > 0

15     Importe <- Pasos * 0.10;

16     Si Pasos > 1000 Entonces

17           Importe <- Importe * ( 1-0.18);

18     FinSi

19     Escribir "Tu Factura es de " , Importe , " Euross";

20 FinProceso

Dado un número por teclado, decidir si es par o impar.

1 Proceso LeerNumeroYDecirSiEsParoImpar

2

3      Definir Numero Como Entero;

4      Repetir

5             Escribir "Dime el Numero";

6             Leer Numero;

7            Si Numero % 2 = 0 Entonces

8                   Escribir "El " , Numero , " es par";

9            sino

10                  Escribir "El " , Numero , " es impar";

11           FinSi

12     Hasta Que Falso

13 FinProceso

Dados dos números por teclado, decir si un número es múltiplo de otro.

1 Proceso DosNumerosMultiplo

2      Definir NumA, NumB Como Entero;

3      Escribir "Dime Un Numero:";

4      Leer NumA;

5      Escribir "Dime otro Numero";

6      Leer NumB;

7      Si NumA % NumB = 0 Entonces

8            Escribir NumB , " es multiplo de ", NumA;

9      Sino

10           Escribir NumB , " NO es multiplo de ", NumA;

11     FinSi

12     Si NumB % NumA = 0 Entonces

13           Escribir NumA , " es multiplo de ", NumB;

14     Sino

15           Escribir NumA , " NO es multiplo de ", NumB;

16     FinSi

17 FinProceso

Dado el día, mes y año de nacimiento de una persona y dado también el d, m, a actual, nos diga su edad.

1 Proceso EdadCalculo

2      //Dado el día, mes y año de nacimiento de una persona y

3      //dado también el d, m, a actual, nos diga su edad.

4      Definir AAct, MAct , DAct Como Entero; //Año Mes y Dia Actual

5      Definir ANac, MNac , DNac Como Entero; //Año Mes y Dia Nacimiento

6      Definir Anyos como entero;

7      Escribir "Dime el dia actual dd mm aaaa";

8      Leer DAct, MAct, AAct;

9      Escribir "Dime el dia nacimiento dd mm aaaa";

10     Leer DNac, MNac, ANac;

11     Anyos <- AAct - ANac;

12     Si MAct < MNac entonces

13           Anyos <- Anyos - 1;

14     Sino

15                  Si (MAct = MNAc) & ( DAct < DNac) entonces

16                         Anyos <- Anyos - 1;

17                  FinSi

18     FinSi

19     Escribir "Tienes ", Anyos, " Años";

20 FinProceso

Siguiente>

Pseudocódigo XIV

Ejercicios Pseudocódigo

Calcular la importe que un trabajador recibe en el reparto anual de beneficios si este se le asigna como un porcentaje de su salario mensual que depende de su antigüedad en la empresa de acuerdo con la sig. tabla: 

Tiempo                  Antigüedad

• Menos de 1 año 5 % del salario 
• > 1 año y < de 2 años 7% del salario 
• 2 años o + y < 5 años 10% del salario 
• 5 años o + y <de 10 años 15% del salario 
• 10 años o mas 20% del salario.

1 Proceso PagaPorantiguedad

2      //Calcular la importe que un trabajador recibe en el reparto

3      //anual de beneficios si este se le asigna como un porcentaje

4      //de su salario mensual que depende de su antigüedad en

5      //la empresa de acuerdo con la sig. tabla:

6      //Tiempo Antigüedad

7      //Menos de 1 año 5 % del salario

8      // 1 año y < de 2 años 7% del salario

9      //2 años o + y < 5 años 10% del salario

10     //5 años o + y <de 10 años 15% del salario

11     //10 años o mas 20% del salario

12     Definir DiaAlta, MesAlta, AnyoAlta Como Entero;

13     Definir DiaActual, MesActual, AnyoActual Como Entero;

14     Definir Anyos como entero;

15     Definir Interes, Sueldo , Paga Como Real;

16     DiaActual<-11;

17     MesActual<-03;

18     AnyoActual<-2013;

19     Escribir "Dime la fecha de contrato";

20     Leer DiaAlta, MesAlta, AnyoAlta;

21     Anyos <- AnyoActual - AnyoAlta;

22     si MesActual < MesAlta entonces

23           Anyos <- Anyos - 1;

24     Sino

25           si MesActual = MesAlta & DiaActual < DiaAlta Entonces

26                  Anyos <- Anyos - 1;

27           FinSi

28     FinSi

29     Segun Anyos hacer

30           0: Interes <-0.05;

31           1: Interes <-0.07;

32           2,3,4:Interes <-0.10;

33           5,6,7,8,9:Interes <-0.15;

34           de Otro Modo:

35                  Interes <-0.20;

36     FinSegun

37     Escribir "Dime tu sueldo mesual:";

38     Leer Sueldo;

39     Paga <- Sueldo * Interes;

40     Escribir "Tu paga es de " , Paga , " Euros ( Años :" , anyos, ")";

41 FinProceso

En una tienda de descuento se efectúa una promoción en la cual se hace un descuento sobre el valor de la compra total según el color de una bolita que el cliente saque al pagar en caja.

• Si la bolita es de color blanco no se le hará descuento alguno, si es verde se le hará un 10% de descuento, si es amarilla un 25%, si es azul un 50% y si es roja un 100%.
• Determinar la cantidad final que el cliente deberá pagar por su compra.
• Se sabe que solo hay bolitas de los colores mencionados.

1 Proceso LasBolitas

2      //En una tienda de descuento se efectúa una promoción

3      //en la cual se hace un descuento sobre el valor de

4      //la compra total según el color de la bolita

5      //que el cliente saque al pagar en caja.

6      //Si la bolita es de color blanco no se le hará

7      //descuento alguno, si es verde se le hará un 10%

8      //de descuento, si es amarilla un 25%, si es azul

9      //un 50% y si es roja un 100%. Determinar la cantidad

10     //final que el cliente deberá pagar por su compra.

11     //se sabe que solo hay bolitas de los colores

12     //mencionados.

13     Definir Color Como Entero;

14     Definir Total, Importe, Descuento Como Real;

15     Definir ColorC como caracter;

16     Escribir "Dime el importe de la compra ";

17     Leer Importe;

18     Color <- Azar(5) + 1; //1 al 5

19     Segun Color hacer

20           1: Descuento<- 0.00;

21           ColorC <- "Blanco (0%)";

22           2: Descuento<-0.10;

23           ColorC<- "Verde (10%)";

24           3: Descuento<-0.25;

25           ColorC<- "Amarillo (25%)";

26           4: Descuento<-0.50;

27           ColorC<- "Azul (50%)";

28           5: Descuento<-1.00;

29           ColorC<- "Rojo (100%)";

30           FinSegun

31     Total <- Importe * (1-Descuento);

32     Escribir "Tu Color es " ,ColorC , " Pagas " , Total ," euros.";

33 FinProceso

Leer 20 números e imprimir cuantos son  positivos, cuantos negativos y cuantos neutros.

1 Proceso Leer20NumerosYContarPosNegNeu

2      Definir i, Numero, Pos , Neg, Neu Como Entero;

3      Pos <-0;

4      Neg <-0;

5      Neu <-0;

6      Para i<-1 hasta 20 Hacer

7             Escribir "Dime el " , i ," Numero";

8             Leer Numero;

9             Si Numero > 0 Entonces

10                  Pos <- Pos + 1;

11            Sino

12                   si Numero < 0 Entonces

13                         Neg <- Neg + 1;

14                  Sino

15                          Neu <- Neu + 1;

16                   FinSi

17            FinSi

18     FinPara

19     Escribir "Pos: " , Pos , " Neg: ", Neg, " Neu: ", neu;

20 FinProceso

Siguiente>