Pseudocódigo X

Ejercicios de Estructuras Repetitivas:

Estructura Repetir, Mientras:

Una tienda ofrece un descuento del 15% sobre el total de la compra y un cliente desea saber cuanto deberá pagar finalmente por su compra.

1 Proceso CalcularDescuento

2      //una tienda ofrece un 15% sobre el total de la venta

3      //Calcular el importe total.

4      //Leemos importes hasta que importe sea 0

5      Definir ImporteCompra, CompraActual , TotalFactura como real;

6      ImporteCompra <-0;

7      Repetir

8             Escribir "Pon el importe de la compra";

9             Leer CompraActual;

10            ImporteCompra <- ImporteCompra + CompraActual;

11     Hasta Que CompraActual = 0;

12     TotalFactura <- ImporteCompra * (1-0.15);

13     Escribir "Son ", TotalFactura , " Euros.";

14 FinProceso

Un maestro desea saber que porcentaje de hombres y que porcentaje de mujeres hay en un grupo de estudiantes.

1 Proceso PorcentDeHombreOMujeres

2      //leer por consola La Letra H M F

3      // Si es F procesar y Fin

4      // Si es H contar Hombre y si es M contar Mujer

5      //Sino H M o F mostrar error.

6      Definir Letra Como Caracter;

7      Definir Hombres, Mujeres Como Entero;

8      Definir PorHombre, PorMujer Como Real;

9      Hombres<-0;

10     Mujeres<-0;

11     Repetir

12           Escribir "Eres H , M o F ?";

13           Leer Letra;

14           Si Letra = "H" Entonces

15                  Hombres <- Hombres + 1;

16           sino

17                  Si Letra = "M" entonces

18                         Mujeres <- Mujeres + 1;

19                  sino

20                         Si Letra <> "F" Entonces

21                                Escribir Letra, " No es un valor permitido.";

22                         FinSi

23                  FinSi

24           FinSi

25     Hasta Que Letra = "F"

26     Si (Hombres + Mujeres) > 0 Entonces

27           PorHombre <- (Hombres * 100) / (Hombres + Mujeres);

28           PorMujer <- (Mujeres * 100) / (Hombres + Mujeres);

29           Escribir "Hombres ", PorHombre , " % (", Hombres , ")";

30           Escribir "Mujeres ", PorMujer , " % (", Mujeres, ")";

31     Sino

32           Escribir "No hay ni hombres ni mujeres";

33     FinSi

34

35 FinProceso

Leer 15 números negativos y convertirlos a positivos e imprimir dichos números.

1 Proceso Leer15NumerosNegYPasaraPos

2      //Leer 15 numeros negativos, pasar a positivo

3      // Y mostrar.

4      //Los 15 tienes que ser negativos.

5      Definir i Como Entero;;

6      Definir NumN, NumP Como Real;

7      Para i<-1 hasta 15 Hacer

8            Repetir

9                   Escribir i ,". Pon un numero negativo:";

10                  Leer NumN;

11                  Si NumN >= 0 Entonces

12                         Escribir NumN , " No es negativo";

13                  FinSi

14           Hasta Que NumN < 0

15           NumP <- -NumN;

16           Escribir NumN, " es el negado " , NumP;

17     FinPara

18 FinProceso

En un almacén se hace un 20% de descuento a los clientes cuya compra supere los 1000 € ¿Cual será la cantidad que pagara una persona por su compra? 

1 Proceso AlmacenConDescuento

2      //En un almacén se hace un 20% de descuento

3      //si compras mas de 1000 Euros.

4      //Calcular el total de la compra.

5      //leer importes de la compra hasta que una sea 0.

6      Definir Compra, TotalCompra, TotalFactura como Real;

7      TotalCompra <- 0;

8      Repetir

9            Escribir "Dime el precio de la compra";

10           Leer Compra;

11           TotalCompra <- TotalCompra + Compra;

12     Hasta Que Compra = 0

13     Si TotalCompra > 1000 Entonces

14           TotalFactura <- TotalCompra * (1-0.20);

15     Sino

16           TotalFactura <- TotalCompra;

17     FinSi

18     Escribir "El total es ", TotalFactura;

19 FinProceso

Siguiente>