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
No hay comentarios:
Publicar un comentario