Ejercicios de metodología de la programación con PSeInt.
Un algoritmo que lea dos números y los imprima en forma ascendente.
1 Proceso LeerDosNumYMostarASC
2 //Que lea dos
números y los imprima en forma ascendente.
3 Definir i ,NumA,
NumB Como Entero;
4 Escribir "Dime un
Numero";
5 Leer NumA;
6 Escribir "Dime un
Numero";
7 Leer NumB;
8 Si NumA > NumB
Entonces
9 Escribir NumB;
10 Escribir NumA;
11 Sino
12 Escribir NumA;
13 Escribir NumB;
14 FinSi
15 FinProceso
Una persona enferma, que pesa 70 kg, se encuentra en reposo y desea saber cuantas calorías consume su cuerpo durante todo el tiempo que realice una misma actividad.
Las actividades que tiene permitido realizar son únicamente dormir o estar sentado en reposo.Los datos que tiene son que estando dormido consume 1.08 calorías por minuto y estando sentado en reposo consume 1.66 calorías por minuto.
1 Proceso CaloriasDelEnfermo
2 //1.08 dormido
D 1.66 sentado S
3 //Preguntar que
haces y cunato tiempo
4 // las 24 dia.
5 Definir Minutos, MinutosQ
, MinutosD, MinutosS, MinutosAccion Como Entero;
6 Definir Calorias como real;
7 Minutos<-0;
8 MinutosD<-0;
9 MinutosS<-0;
10 Definir Accion como caracter;
11 Repetir
12 Escribir "¿Qué vas a
hacer?";
13 Leer Accion;
14 si Accion <>
"D"
&
Accion
<> "S" entonces
15 Escribir "Accion No
Permitida";
16 Sino
17 MinutosQ <- (24*60) - Minutos;
18 Repetir
19 Escribir "¿Cuanto
tiempo en min (Max:", MinutosQ , " Mins)?";
20 Leer MinutosAccion;
21 Si MinutosAccion >
MinutosQ Entonces
22 Escribir "No te queda
tanto tiempo.(Max:", MinutosQ , "Min)";
23 FinSi
24 Hasta Que MinutosAccion <=
MinutosQ
25 Minutos <- Minutos + MinutosAccion;
26 Si Accion = "D" Entonces
27 MinutosD <- MinutosD + MinutosAccion;
28 Sino //S
29 MinutosS <- MinutosS + MinutosAccion;
30 FinSi
31 FinSi
32 Hasta Que Minutos >=
(24*60)
33 Calorias <- ( MinutosD * 1.08 ) + (MinutosS * 1.66);
34 Escribir "Tu gasto en
Calorias es " , Calorias , " Calorias.";
35 FinProceso
Hacer un algoritmo que imprima el nombre de un articulo, clave, precio original y su precio con descuento. El descuento lo hace en base a la clave, si la clave es 01 el descuento es del 10% y si la clave es 02 el descuento en del 20% (solo existen dos claves).
1 Proceso NombreClaveYPrecio
2 //Hacer un
algoritmo que imprima el nombre de un articulo,
3 //clave, precio
original y su precio con descuento.
4 //El descuento
lo hace en base a la clave,
5 //si la clave
es 01 el descuento es del 10% y
6 //si la clave
es 02 el descuento en del 20%
7 //(solo existen
dos claves).
8 //si la clave
es 00 el descuento en del 00%
9 //leer hasta
que nombre = ""
10 //Calcule el
preciototal y el iva 21%
11 Definir Nombre, Clave
Como
Caracter;
12 Definir PrecioO, PrecioD,
Total , Iva , TotalCIva Como Real;
13 Total<-0;
14 repetir
15 Escribir "Dime el
nombre del producto:";
16 Leer Nombre;
17 si Nombre <>
""
Entonces
18 Repetir
19 Escribir "Dime la
Clave:";
20 Leer Clave;
21 Si Clave <>
"00"
&
Clave
<> "01" & Clave <> "02" entonces
22 Escribir "Clave no
permitida. Solo 00 o 01 o 02";
23 FinSi
24 Hasta Que Clave = "00" | Clave = "01" | Clave = "02"
25 Escribir "Dime el
precio";
26 Leer PrecioO;
27 Si Clave = "00" Entonces
28 PrecioD <- PrecioO ;
29 Sino
30 Si Clave = "01" Entonces
31 PrecioD <- PrecioO - ( PrecioO
* 0.01);
32 sino
33 PrecioD <- PrecioO - ( PrecioO
* 0.02);
34 FinSi
35 FinSi
36 Escribir "El producto
", Nombre , " cuesta " , precioD , " euros";
37 Total <- Total + PrecioD;
38 FinSi
39 Hasta Que Nombre = ""
40 Iva <- Total * 0.21;
41 TotalCIva <- Total + Iva;
42 Escribir "Total: ", Total, " Iva(21%)
" , Iva , " Total+IVA ", TotalCIva;
43 FinProceso
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 LeerNumeroshasta0Ysumaymedia
2 //Leer Numeros
hasta que uno sea 0
3 //Calcular la
suma y la media
4 Definir Numero, Suma
, Media Como Real;
5 Definir Cantidad como entero;
6 Suma<-0;
7 Cantidad<-0;
8 Repetir
9 Escribir "Dame el
Numero";
10 Leer Numero;
11 Si Numero <>
0
Entonces
12 Suma <- Suma + Numero;
13 Cantidad <- Cantidad + 1;
14 FinSi
15 Hasta Que Numero = 0
16 Media <- Suma / Cantidad;
17 Escribir "La suma es
", Suma , " y la media " , Media;
18 FinProceso
Hacer un algoritmo que calcule el total a pagar por la compra de camisas.Si se compran tres camisas o mas se aplica un descuento del 20% sobre el total de la compra y si son menos de tres camisas un descuento del 10%.
1 Proceso ComprarCamisas
2 //Comprar hasta
3 // Si son >=
3 20% sino 10%
4 //Preguntas hay
mas S/N
5 Definir Precio, Total
, Descuento Como Real;
6 Definir Cuantas como entero;
7 Definir Mas Como Caracter;
8 Cuantas <- 0;
9 Total <- 0;
10 Mas<-"S";
11 Mientras Mas = "S" hacer
12 Escribir "Dime el
precio de esa camisa";
13 Leer Precio;
14 Total <- Total + Precio;
15 Cuantas <- Cuantas + 1;
16 Repetir
17 Escribir "Hay mas
camisas? (S/N)";
18 Leer Mas;
19 Hasta que Mas = "S" | Mas = "N"
20 FinMientras
21 Si Cuantas >= 3 Entonces
22 Descuento <- Total * 0.20;
23 Sino
24 Descuento <- Total * 0.10;
25 FinSi
26 Escribir "T ", Total, " C " , Cuantas;
27 Escribir " D ", Descuento , " P ", Total - Descuento;
28 FinProceso
No hay comentarios:
Publicar un comentario