Taller 2: Condicionales
Video Explicativo
Ejercicio 1
Enunciado:
Realizar un programa en el cual se solicite la edad de una
persona. Si la persona es mayor o igual a 18 años,
deberá mostrar en pantalla: Usted es mayor de edad.
Solución:
Proceso Ejercicio1
Definir edad Como Entero;
Escribir "Por favor digita tu edad";
Leer edad;
Si edad >=18 Entonces;
Escribir "Usted es mayor de edad";
FinSi
FinProceso
Ejercicio 2
Enunciado:
Realizar un programa en el cual se solicite la edad de una
persona. Si la persona es menor a 18 años, deberá
mostrar en pantalla: Usted aún es un niño(a).
Solución:
Proceso Ejercicio2
Definir edad Como Entero;
Escribir "Por favor digita tu edad: ";
Leer edad;
Si edad < 18 Entonces;
Escribir "Usted aún es un niñ@";
FinSi
FinProceso
Ejercicio 3
Enunciado:
Realizar un programa el cual solicite su nombre y apellidos,
también debe capturar nombre y apellidos de su padre y
madre.
Al finalizar debe imprimir en pantalla el siguiente mensaje
"Yo [Nombre Completo], soy hijo de [Nombre de la Madre] y
[Nombre del Padre].
Solución:
Proceso Ejercicio3
Definir nombreMio como Caracter;
Definir nombrePadre como Caracter;
Definir nombreMadre como Caracter;
Escribir "Por favor digite sus nombre y apellidos";
Leer nombreMio;
Escribir "Por favor digite el nombre de su padre";
Leer nombrePadre;
Escribir "Por favor digite el nombre de su madre";
Leer nombreMadre;
Escribir "Yo ",nombreMio," soy hija de: ",nombrePadre," y ",
nombreMadre;
FinProceso
Ejercicio 4
Enunciado:
La video tienda que presta sus servicios de alquiler de películas a los
usuarios del barrio el Porvenir, requiere de una aplicación que
permita registrar el alquiler de las películas que adquieren sus
usuarios. Para cada usuario se debe permitir la opción de alquilar
película, consultar películas disponibles y recibir película en la video
tienda con la opción de realizar anotaciones sobre estas si se llegan
a presentar daños u otra novedad sobre la película.
Solución:
Proceso Ejercicio4
Definir opcion como Entero;
Definir sugerencia Como Entero;
Definir opc Como Caracter;
Definir opcPel Como Entero;
Definir pel1, pel2, pel3, pel4, pel5 Como Caracter;
Definir rep Como Caracter;
Definir sugerencia1 como Caracter;
Definir nombre como Caracter;
pel1 <- "Película Uno";
pel2 <- "Película Dos";
pel3 <- "Película Tres";
pel4 <- "Película Cuatro";
pel5 <- "Película Cinco";
Escribir "****MI VIDEO TIENDA VIRTUAL*****";
Escribir "Por favor digita tu nombre: ";
Leer nombre;
Limpiar Pantalla;
Escribir "****HOLA ",nombre, " BIENVENID@ A NUESTRA VIDEO TIENDA VIRTUAL****" ;
Escribir "Por favor escoja una de las siguientes opciones: ";
Escribir "1. Alquilar película";
Escribir "2. Consultar películas disponibles.";
Escribir "3. Recibir peliculas en la video tienda";
Leer opcion;
Segun opcion Hacer
1:
Escribir "----Has elegido la opión Alquilar Pélicula----";
Escribir "Selecciona el número de la pelicula que deseas: ";
Escribir "1. Pelicula Uno";
Escribir "2. Pelicula Dos";
Escribir "3. Pelicula Tres";
Escribir "4. Pelicula Cuatro";
Escribir "5. Pelicula Cinco";
Leer opcPel;
Segun opcPel Hacer
1:
Escribir "Has alquilado la: ",pel1, ". Gracias, vuelve pronto";
2:
Escribir "Has alquilado la: ",pel2, ". Gracias, vuelve pronto";
3:
Escribir "Has alquilado la: ",pel3, ". Gracias, vuelve pronto";
4:
Escribir "Has alquilado la: ",pel4, ". Gracias, vuelve pronto";
5:
Escribir "Has alquilado la: ",pel5, ". Gracias, vuelve pronto";
De Otro Modo:
Escribir "Opción Inválida";
FinSegun
2:
Escribir "----Has elegido la opción consultar películas disponibles----";
Escribir "Nuestras películas disponibles son: ";
Escribir pel1;
Escribir pel2;
Escribir pel3;
Escribir pel4;
Escribir pel5;
3:
Escribir "----Has elegido la opción recibir películas en la video tienda----";
Escribir "Si deseas realizar alguna sugerencia digita 1";
Leer sugerencia;
Si sugerencia =1 Entonces;
Limpiar Pantalla;
Escribir "Escribe tu mensaje";
Leer sugerencia1;
Escribir "Su mensaje ha sido enviado. Adios";
Sino
Escribir "Opción inválida";
FinSi
FinSegun
FinProceso
Ejercicio 5
Enunciado:
La Droguería Mi Salud presta sus servicios en la localidad de Suba y requiere una
aplicación para poder facturar los productos que vende a sus clientes y para ello,
los productos tienen unas características que deben indicársele al cliente para que
pueda escoger el producto a comprar. Para cada cliente, se tienen las opciones de
compra de producto, consulta de precios por producto y devoluciones en caso de que
se presenten.
Solución:
Proceso Ejercicio5
Definir rol Como Entero;
Definir rep Como Caracter;
Definir opcion, opcProducto, cantidad, opcPrecio, opcDevolver como Entero;
Definir nombre Como Caracter;
Definir prod1, prod2 Como Real;
prod1 <- 3000;
prod2 <- 2000;
Escribir "*****DROGUERIA MI SALUD*****";
Escribir "Por favor digita 1 si eres cliente o 2 si eres admnistrador de la farmacia: ";
Leer rol;
Limpiar Pantalla;
Segun rol Hacer
1:
Escribir "****DROGUERIA MI SALUD TE DA LA BIENVENIDA****";
Escribir "Que deseas hacer? Digita según la opción";
Escribir "1. Comprar un producto";
Escribir "2. Consultar precios por producto.";
Escribir "3. Realizar la devolución de un producto";
Leer opcion;
Limpiar Pantalla;
Segun opcion Hacer
1:
Escribir "Digita el código según el producto que desees comprar";
Escribir "1. Dolex";
Escribir "2. Isodine";
Leer opcProducto;
Limpiar Pantalla;
Segun opcion Hacer
1:
Escribir "Escribe tu nombre para generarte la factura por favor?";
Leer nombre;
Escribir "Digite las unidades del producto que desea comprar";
Leer cantidad;
Limpiar Pantalla;
Escribir "***FACTURA DE COMPRA***";
Escribir "***DROGUERIA MI SALUD";
Escribir "Cliente: ",nombre;
Escribir "Producto dolex";
Escribir "Valor unitario: $",prod1;
Escribir "Valor total: $",(prod1*cantidad);
2:Escribir "Escribe tu nombre para generarte la factura por favor?";
Leer nombre;
Escribir "Digite las unidades del producto que desea comprar";
Leer cantidad;
Limpiar Pantalla;
Escribir "***FACTURA DE COMPRA***";
Escribir "***DROGUERIA MI SALUD";
Escribir "Cliente: ",nombre;
Escribir "Producto Isodine";
Escribir "Valor unitario: $",prod2;
Escribir "Valor total: $",(prod2*cantidad);
De Otro Modo:
Escribir "Opción invválida";
FinSegun
2:
Escribir "Digite el código del producto del cual desea consultar los precios:";
Escribir "1. Dolex";
Escribir "2. Isodine";
Leer opcPrecio;
Limpiar Pantalla;
Segun opcPrecio Hacer
1:
Escribir "Dolex 150ml $3.000";
Escribir "Dolex por cuatro pastillas $6.000";
Escribir "Dolex para niños $8.000";
2:
Escribir "Isodine 80ml $4.000";
Escribir "Isodine espuma $8.000";
Escribir "Isodine MK $7.500";
De Otro Modo:
Escribir "Opción invválida";
FinSegun
3:
Escribir "Que producto deseas devolver? Marca el número según corresponda: ";
Escribir "1. Dolex";
Escribir "2. Isodine";
Leer opcDevolver;
Limpiar Pantalla;
Segun opcDevolver Hacer
1:
Escribir "Vas a realizar la devolucion del Dolex";
Escribir "Por favor digita tu nombre";
Leer nombre;
Limpiar Pantalla;
Escribir "***COMPROBANTE DE DEVOLUCION***";
Escribir nombre, "para nosotros fue un placer haberlo atendido, pronto daremos
respuesta a su solicitud de devolución";
Escribir "Gracias";
2:
Escribir "Vas a realizar la devolucion del Isodine";
Escribir "Por favor digita tu nombre";
Leer nombre;
Limpiar Pantalla;
Escribir "***COMPROBANTE DE DEVOLUCION***";
Escribir nombre, " para nosotros fue un placer haberte atendido, pronto daremos
respuesta a su solicitud de devolución";
Escribir "Gracias";
De Otro Modo:
Escribir "Opción Inválida";
FinSegun
De Otro Modo:
Escribir "Opción invválida";
FinSegun
2:
Escribir "****DROGUERIA MI SALUD TE DA LA BIENVENIDA****";
Escribir "1. Facturar un producto";
Escribir "2. Consultar precios por producto.";
Leer opcion;
Limpiar Pantalla;
Segun opcion Hacer
1:
Escribir "Por favor digita el codigo del producto segun corresponda: ";
Escribir "1. Dolex";
Escribir "2. Isodine";
Leer opcProducto;
Limpiar Pantalla;
Segun opcProducto Hacer
1:
Escribir "Escribe el nombre del cliente";
Leer nombre;
Escribir "Digite las unidades del producto que desea comprar";
Leer cantidad;
Limpiar Pantalla;
Escribir "***FACTURA DE COMPRA***";
Escribir "***DROGUERIA MI SALUD";
Escribir "Cliente: ",nombre;
Escribir "Producto dolex";
Escribir "Valor unitario: $",prod1;
Escribir "Valor total: $",(prod1*cantidad);
2:
Escribir "Escribe el nombre del cliente";
Leer nombre;
Escribir "Digite las unidades del producto que desea comprar";
Leer cantidad;
Limpiar Pantalla;
Escribir "***FACTURA DE COMPRA***";
Escribir "***DROGUERIA MI SALUD";
Escribir "Cliente: ",nombre;
Escribir "Producto Isodine";
Escribir "Valor unitario: $",prod2;
Escribir "Valor total: $",(prod2*cantidad);
De Otro Modo:
Escribir "Opción Inválida";
FinSegun
2:
Escribir "Digite el código del producto del cual desea consultar los precios:";
Escribir "1. Dolex";
Escribir "2. Isodine";
Leer opcPrecio;
Limpiar Pantalla;
Segun opcPrecio Hacer
1:
Escribir "Dolex 150ml $3.000";
Escribir "Dolex por cuatro pastillas $6.000";
Escribir "Dolex para niños $8.000";
2:
Escribir "Isodine 80ml $4.000";
Escribir "Isodine espuma $8.000";
Escribir "Isodine MK $7.500";
De Otro Modo:
Escribir "Opción invválida";
FinSegun
De Otro Modo:
Escribir "Opción inválida";
FinSegun
De Otro Modo:
Escribir "Opción Inválida";
FinSegun
FinProceso
Ejercicio 6
Enunciado:
El taller de motos "El Maquinista" recibe motocicletas de alto cilindraje para realizar
las respectivas revisiones y requiere una aplicación que le permita registrar los
servicios generados a sus clientes. Para cada motocicleta se debe tener registro del
ingreso al taller y las observaciones por parte del cliente. También debe existir registro
de salida del taller con las novedades y otra de arreglos hechos por el mecánico en caso
de que se requiera inventariar cambios repuestos en la motocicleta al entregarla.
Solución:
Proceso Ejercicio6
Definir cliente,marca,modelo,observaciones,moto1, moto2, moto1_Arre,
moto2_Arre Como Caracter;
Definir opcion, opcMoto, opcArreglo como Entero;
Dimension moto1[4], moto2[4];
moto1[0] <- "Cliente: Tatiana Cediel";
moto1[1] <- "Marca: Biwis";
moto1[2] <- "Modelo: 2022";
moto1[3] <- "Observaciones: Ingresa para revision de frenos";
moto1_Arre <- "Se le realizo revisión completa de los frenos por parte del
mecánico Javier Perez";
moto2[0] <- "Cliente: Nicolas Barrera";
moto2[1] <- "Marca: FZ";
moto2[2] <- "Modelo: 2021";
moto2[3] <- "Observaciones: Ingresa para revision de llantas";
moto2_Arre <- "Se le realizo el cambio de la llanta trasera. Realizado por el
mecánico Julian Mendoza";
Escribir "***TALLER DE MOTOS EL MAQUINISTA***";
Escribir "Que deseas hacer? Escoge entre las siguientes opciones: ";
Escribir "1. Registrar una nueva motocicleta";
Escribir "2. Salida de una motocicleta";
Escribir "3. Arreglos realizados por";
Leer opcion;
Limpiar Pantalla;
Segun opcion Hacer
1:
Escribir "Ingrese el nombre del cliente: ";
Leer cliente;
Escribir "Ingrese la marca de la motocicleta";
Leer marca;
Escribir "Ingrese el modelo de la motocicleta";
Leer modelo;
Escribir "Ingrese la observaciones realizadas por el cliente";
Leer observaciones;
Limpiar Pantalla;
Escribir "Los datos registrados fueron: ";
Escribir "****NOMBRE DEL CLIENTE: ",cliente,"****";
Escribir "";
Escribir "DATOS DE LA MOTOCICLETA:";
Escribir "-Marca: ",marca;
Escribir "-Modelo: ",modelo;
Escribir "-Observaciones del cliente: ",observaciones;
2:
Escribir "Ingrese el código de la moto a la que desea darle salida del
taller: ";
Escribir "1. KTH 3022";
Escribir "2. TMC 4950";
Leer opcMoto;
Limpiar Pantalla;
Segun opcMoto Hacer
1:
Escribir moto1[0];
Escribir moto1[1];
Escribir moto1[2];
Escribir moto1[3];
Escribir "La motocicleta ",moto1[1],"perteneciente al ",moto1[0],"
acaba de salir del taller";
2:
Escribir moto2[0];
Escribir moto2[1];
Escribir moto2[2];
Escribir moto2[3];
Escribir "La motocicleta ",moto1[1]," perteneciente al ",moto1[0],"
acaba de salir del taller";
De Otro Modo:
Escribir "Opción inválida";
FinSegun
3:
Escribir "Ingrese el código de la moto de la que desea consultar los
arreglos realizados en el taller:";
Escribir "1. KTH 3022";
Escribir "2. TMC 4950";
Leer opcArreglo;
Limpiar Pantalla;
Segun opcArreglo Hacer
1:
Escribir moto1_Arre;
2:
Escribir moto2_Arre;
De Otro Modo:
Escribir "Opción Inválida";
FinSegun
FinSegun
FinProceso
Ejercicio 7
Enunciado:
La Secretaría de Salud Municipal requiere de una aplicación que le permita calcular el
IMC (Índice de masa corporal) y requiere los datos peso en kilogramos y estatura en
metros Para cada persona encuestada adicional a los datos suministrados, debe mostrar
el resultado para cada uno y establecer en qué rango se encuentra (bajo peso, normal,
sobrepeso y obeso).
Solución:
Proceso Ejercicio7
Definir paciente Como Caracter;
Definir peso,altura,imc Como Real;
Escribir "***BIENVENIDO A LA SECRETARIA DE SALUD";
Escribir "";
Escribir "A continuación vamos a realizar el calculo de tu IMC";
Escribir "Escribe el nombre del paciente";
Leer paciente;
Escribir "Por favor digita tu peso en kilogramos: ";
Leer peso;
Escribir "Por favor digita tu altura en metros";
Leer altura;
Limpiar Pantalla;
Escribir paciente, " tu indice de masa Corporal es:";
imc <- peso/(altura*altura);
Escribir imc;
Si imc < 18.5 Entonces
Escribir "Tu peso esta por debajo del indice normal.";
FinSi
Si imc >= 18.5 Y imc <= 24.9 Entonces
Escribir "Tu peso es normal";
FinSi
Si imc >= 25 Y imc <= 29.9 Entonces
Escribir "Tienes sobrepeso";
FinSi
Si imc >= 30 Y imc <= 34.9 Entonces
Escribir "Tienes obesidad tipo 1";
FinSi
Si imc >= 35 Y imc <= 39.9 Entonces
Escribir "Tienes obesidad tipo 2";
FinSi
Si imc > 40 Entonces
Escribir "Tienes obesidad tipo 3";
FinSi
FinProceso
Ejercicio 8
Enunciado:
El pastelero Don Carlos es el mejor pastelero de la ciudad y requiere una aplicación
que le permita registrar los pedidos de los clientes en cuanto a las tortas que realiza.
Cada torta tiene unas características propias como sabor, cantidad (porciones) y
decoraciones). Se requiere que la aplicación permita registrar los pedidos, las tortas
disponibles y las ventas que se registren diariamente.
Solución:
Proceso Ejercicio8
Definir cliente,fecha, productoV, productoV1, productoV2 Como Caracter;
Definir opcion, saborPorcion, cobertura,venta, vlVenta1 Como Entero;
Definir vainilla8,vainilla15,chocolate8,chocolate15,zanahoria30,arequipe20,chocolate,
arequipe,chantilly,quesocrema,valorT, vlVenta2, vlVenta3, ventaTotal Como Real;
vainilla8 <- 10000;
vainilla15 <- 15000;
chocolate8 <- 15000;
chocolate15 <- 25000;
zanahoria30 <- 60000;
arequipe20 <- 35000;
chocolate <- 7000;
quesocrema <- 9000;
arequipe <- 8000;
chantilly <- 8500;
Escribir "***BIENVENIDO A LA PASTELERIA DE CARLOS";
Escribir "Que deseas hacer? Marca el numero de acuerdo a la opción elegida: ";
Escribir "1. Realizar un pedido";
Escribir "2. Tortas disponibles";
Escribir "3. Consultar ventas diarias";
Leer opcion;
Limpiar Pantalla;
Segun opcion Hacer
1:
Escribir "***REGISTRAR PEDIDO***";
Escribir "Ingrese el nombre del cliente: ";
Leer cliente;
Escribir "Elije el sabor y las porciones entre los siguientes opciones: ";
Escribir "1. Vainilla 8 porciones";
Escribir "2. Vainilla 15 porciones";
Escribir "3. Chocolate 8 porciones";
Escribir "4. Chocolate 15 porciones";
Escribir "5. Arequipe 20 porciones";
Escribir "6. Zanahoria 30 porciones";
Leer saborPorcion;
Limpiar Pantalla;
Segun saborPorcion Hacer
1:
Escribir "Elije la cobertura entre las siguientes opciones: ";
Escribir "1. Chocolate";
Escribir "2. Arequipe";
Escribir "3. Chantilly";
Leer cobertura;
Limpiar Pantalla;
Segun cobertura Hacer
1:
Escribir "***PEDIDO REGISTRADO CON ÉXITO***";
Escribir "Información registrada:";
Escribir "Nombre del cliente: ",cliente;
Escribir "Torta de Vainilla de 8 porciones";
Escribir "Cobertura de Chocolate";
valorT <- vainilla8+chocolate;
Escribir "VALOR TOTAL A PAGAR: $", valorT;
2:
Escribir "***PEDIDO REGISTRADO CON ÉXITO***";
Escribir "Información registrada:";
Escribir "Nombre del cliente: ",cliente;
Escribir "Torta de Vainilla de 8 porciones";
Escribir "Cobertura de Arequipe";
valorT <- vainilla8+arequipe;
Escribir "VALOR TOTAL A PAGAR: $", valorT;
3:
Escribir "***PEDIDO REGISTRADO CON ÉXITO***";
Escribir "Información registrada:";
Escribir "Nombre del cliente: ",cliente;
Escribir "Torta de Vainilla e 8 porciones";
Escribir "Cobertura de Chantilly";
valorT <- vainilla8+chantilly;
Escribir "VALOR TOTAL A PAGAR: $", valorT;
De Otro Modo:
Escribir "Opcón inválida";
FinSegun
2:
Escribir "Elije la cobertura entre las siguientes opciones: ";
Escribir "1. Chocolate";
Escribir "2. Arequipe";
Escribir "3. Chantilly";
Leer cobertura;
Limpiar Pantalla;
Segun cobertura Hacer
1:
Escribir "***PEDIDO REGISTRADO CON ÉXITO***";
Escribir "Información registrada:";
Escribir "Nombre del cliente: ",cliente;
Escribir "Torta de Vainilla de 15 porciones";
Escribir "Cobertura de Chocolate";
valorT <- vainilla15+chocolate;
Escribir "VALOR TOTAL A PAGAR: $", valorT;
2:
Escribir "***PEDIDO REGISTRADO CON ÉXITO***";
Escribir "Información registrada:";
Escribir "Nombre del cliente: ",cliente;
Escribir "Torta de Vainilla de 15 porciones";
Escribir "Cobertura de Arequipe";
valorT <- vainilla15+arequipe;
Escribir "VALOR TOTAL A PAGAR: $", valorT;
3:
Escribir "***PEDIDO REGISTRADO CON ÉXITO***";
Escribir "Información registrada:";
Escribir "Nombre del cliente: ",cliente;
Escribir "Torta de Vainilla de 15 porciones";
Escribir "Cobertura de Chantilly";
valorT <- vainilla15+chantilly;
Escribir "VALOR TOTAL A PAGAR: $", valorT;
De Otro Modo:
Escribir "Opcón inválida";
FinSegun
3:
Escribir "Elije la cobertura entre las siguientes opciones: ";
Escribir "1. Chocolate";
Escribir "2. Arequipe";
Escribir "3. Chantilly";
Leer cobertura;
Limpiar Pantalla;
Segun cobertura Hacer
1:
Escribir "***PEDIDO REGISTRADO CON ÉXITO***";
Escribir "Información registrada:";
Escribir "Nombre del cliente: ",cliente;
Escribir "Torta de Chocolate de 8 porciones";
Escribir "Cobertura de Chocolate";
valorT <- chocolate8+chocolate;
Escribir "VALOR TOTAL A PAGAR: $", valorT;
2:
Escribir "***PEDIDO REGISTRADO CON ÉXITO***";
Escribir "Información registrada:";
Escribir "Nombre del cliente: ",cliente;
Escribir "Torta de Chocolate de 8 porciones";
Escribir "Cobertura de Arequipe";
valorT <- chocolate88+arequipe;
Escribir "VALOR TOTAL A PAGAR: $", valorT;
3:
Escribir "***PEDIDO REGISTRADO CON ÉXITO***";
Escribir "Información registrada:";
Escribir "Nombre del cliente: ",cliente;
Escribir "Torta de Chocolate de 8 porciones";
Escribir "Cobertura de Chantilly";
valorT <- chocolate88+chantilly;
Escribir "VALOR TOTAL A PAGAR: $", valorT;
De Otro Modo:
Escribir "Opcón inválida";
FinSegun
4:
Escribir "Elije la cobertura entre las siguientes opciones: ";
Escribir "1. Chocolate";
Escribir "2. Arequipe";
Escribir "3. Chantilly";
Leer cobertura;
Limpiar Pantalla;
Segun cobertura Hacer
1:
Escribir "***PEDIDO REGISTRADO CON ÉXITO***";
Escribir "Información registrada:";
Escribir "Nombre del cliente: ",cliente;
Escribir "Torta de Chocolate de 15 porciones";
Escribir "Cobertura de Chocolate";
valorT <- chocolate15+chocolate;
Escribir "VALOR TOTAL A PAGAR: $", valorT;
2:
Escribir "***PEDIDO REGISTRADO CON ÉXITO***";
Escribir "Información registrada:";
Escribir "Nombre del cliente: ",cliente;
Escribir "Torta de Chocolate de 15 porciones";
Escribir "Cobertura de Arequipe";
valorT <- chocolate15+arequipe;
Escribir "VALOR TOTAL A PAGAR: $", valorT;
3:
Escribir "***PEDIDO REGISTRADO CON ÉXITO***";
Escribir "Información registrada:";
Escribir "Nombre del cliente: ",cliente;
Escribir "Torta de Chocolate de 15 porciones";
Escribir "Cobertura de Chantilly";
valorT <- chocolate15+chantilly;
Escribir "VALOR TOTAL A PAGAR: $", valorT;
De Otro Modo:
Escribir "Opcón inválida";
FinSegun
5:
Escribir "Elije la cobertura entre las siguientes opciones: ";
Escribir "1. Chocolate";
Escribir "2. Arequipe";
Escribir "3. Chantilly";
Leer cobertura;
Limpiar Pantalla;
Segun cobertura Hacer
1:
Escribir "***PEDIDO REGISTRADO CON ÉXITO***";
Escribir "Información registrada:";
Escribir "Nombre del cliente: ",cliente;
Escribir "Torta de Arequipe de 20 porciones";
Escribir "Cobertura de Chocolate";
valorT <- arequipe20+chocolate;
Escribir "VALOR TOTAL A PAGAR: $", valorT;
2:
Escribir "***PEDIDO REGISTRADO CON ÉXITO***";
Escribir "Información registrada:";
Escribir "Nombre del cliente: ",cliente;
Escribir "Torta de Arequipe de 20 porciones";
Escribir "Cobertura de Arequipe";
valorT <- arequipe20+arequipe;
Escribir "VALOR TOTAL A PAGAR: $", valorT;
3:
Escribir "***PEDIDO REGISTRADO CON ÉXITO***";
Escribir "Información registrada:";
Escribir "Nombre del cliente: ",cliente;
Escribir "Torta de Arequipe de 20 porciones";
Escribir "Cobertura de Chantilly";
valorT <- arequipe20+chantilly;
Escribir "VALOR TOTAL A PAGAR: $", valorT;
De Otro Modo:
Escribir "Opcón inválida";
FinSegun
6:
Escribir "Elije la cobertura entre las siguientes opciones: ";
Escribir "1. Chocolate";
Escribir "2. Arequipe";
Escribir "3. Queso crema";
Leer cobertura;
Limpiar Pantalla;
Segun cobertura Hacer
1:
Escribir "***PEDIDO REGISTRADO CON ÉXITO***";
Escribir "Información registrada:";
Escribir "Nombre del cliente: ",cliente;
Escribir "Torta de Zanahoria de 30 porciones";
Escribir "Cobertura de Chocolate";
valorT <- zanahoria30+chocolate;
Escribir "VALOR TOTAL A PAGAR: $", valorT;
2:
Escribir "***PEDIDO REGISTRADO CON ÉXITO***";
Escribir "Información registrada:";
Escribir "Nombre del cliente: ",cliente;
Escribir "Torta de Zanahoria de 30 porciones";
Escribir "Cobertura de Arequipe";
valorT <- zanahoria30+arequipe;
Escribir "VALOR TOTAL A PAGAR: $", valorT;
3:
Escribir "***PEDIDO REGISTRADO CON ÉXITO***";
Escribir "Información registrada:";
Escribir "Nombre del cliente: ",cliente;
Escribir "Torta de Zanahoria de 30 porciones";
Escribir "Cobertura de Queso Crema";
valorT <- zanahoria30+quesocrema;
Escribir "VALOR TOTAL A PAGAR: $", valorT;
De Otro Modo:
Escribir "Opcón inválida";
FinSegun
FinSegun
2:
Escribir "***TORTAS DISPONIBLES***";
Escribir "1. Torta de chocolate 8 porciones";
Escribir "2. Torta de zanahoria 30 porciones";
Escribir "3. Torta Vainilla 20 porciones";
Escribir "4. Torta de Chocolate de 15 porciones";
3:
Escribir "***VENTAS DIARIAS***";
Escribir "Cuantas ventas deseas registrar el dia de hoy:? Marca según lo
que desees";
Escribir "1. Una venta";
Escribir "2. Dos ventas";
Escribir "3. Tres ventas";
Leer venta;
Limpiar Pantalla;
Segun venta Hacer
1:
Escribir "Ingrese la fecha del dia de hoy en el siguiente formato:
dia-mes-año (Ejemplo: 4 Mayo 2021)";
Leer fecha;
Escribir "Escriba el producto que vendio";
Leer productoV;
Escribir "Por favor registra el valor de la venta:";
Leer vlVenta1;;
Limpiar Pantalla;
Escribir "***PASTELERIA DE CARLOS***";
Escribir "VENTAS: ",fecha;
Escribir"Por concepto de: ", productoV, " fueron de: $",vlVenta1;
2:
Escribir "Ingrese la fecha del dia de hoy en el siguiente formato:
dia-mes-año (Ejemplo: 4 Mayo 2021)";
Leer fecha;
Escribir "Escriba el producto que vendio";
Leer productoV;
Escribir "Por favor registra el valor de la venta:";
Leer vlVenta1;
Limpiar Pantalla;
Escribir "Escriba el producto que vendio";
Leer productoV1;
Escribir "Por favor registra el valor de la venta:";
Leer vlVenta2;
Limpiar Pantalla;
ventaTotal <- vlVenta1+vlVenta2;
Escribir "***PASTELERIA DE CARLOS***";
Escribir "VENTAS: ",fecha;
Escribir"Por concepto de: ", productoV, " y ",productoV1," fueron
de: $",ventaTotal;
3:
Escribir "Ingrese la fecha del dia de hoy en el siguiente formato:
dia-mes-año (Ejemplo: 4 Mayo 2021)";
Leer fecha;
Escribir "Escriba el producto que vendio";
Leer productoV;
Escribir "Por favor registra el valor de la venta:";
Leer vlVenta1;
Limpiar Pantalla;
Escribir "Escriba el producto que vendio";
Leer productoV1;
Escribir "Por favor registra el valor de la venta:";
Leer vlVenta2;
Limpiar Pantalla;
Escribir "Escriba el producto que vendio";
Leer productoV2;
Escribir "Por favor registra el valor de la venta:";
Leer vlVenta3;
Limpiar Pantalla;
ventaTotal <- vlVenta1+vlVenta2+vlVenta3;
Escribir "***PASTELERIA DE CARLOS***";
Escribir "VENTAS: ",fecha;
Escribir"Por concepto de: ", productoV, ", ",productoV1," y ",
productoV2, " fueron de: $",ventaTotal;
De Otro Modo:
Escribir "Opción Inválida";
FinSegun
FinSegun
FinProceso
Ejercicio 9
Enunciado:
El profesor de geometría está explicando a sus estudiantes las fórmulas para calcular
el área de diferentes figuras geométricas, para ello requiere una aplicación que le
facilite el ejercicio solicitándole los valores al estudiante. La aplicación debe permitir
que el estudiante seleccione si desea calcular el área de un rectángulo, triángulo o
trapecio. No olvide solicitar los datos necesarios para realizar cada cálculo y mostrar
su respectivo resultado.
Solución:
Proceso Ejericio9
Definir opcion Como Entero;
Definir base, altura, areaRectangulo, areaTriangulo, baseMayor, baseMenor,
areaTrapecio Como Real;
Escribir "Escoja la opción que desee realizar: ";
Escribir "1. Calcular área del rectángulo";
Escribir "2. Calcular área del triángulo";
Escribir "3. Calcular área del trapecio";
Leer opcion;
Segun opcion Hacer
1:
Escribir "***ÁREA DEL RECTÁNGULO***";
Escribir "Digite la base del rectángulo en centímetros";
Leer base;
Escribir "Digita la altura del rectángulo en centímetros";
Leer altura;
Limpiar Pantalla;
areaRectangulo <- base*altura;
Escribir "***ÁREA DEL RECTÁNGULO***";
Escribir "";
Escribir "El área del rectángulo es de: ",areaRectangulo, " m2";
2:
Escribir "***ÁREA DEL TRIÁNGULO***";
Escribir "Digite la base del triángulo en centímetros";
Leer base;
Escribir "Digita la altura del triángulo en centímetros";
Leer altura;
Limpiar Pantalla;
areaTriangulo <- (base*altura)/2;
Escribir "***ÁREA DEL TRIANGULO***";
Escribir "";
Escribir "El área del triángulo es de: ",areaTriangulo, " m2";
3:
Escribir "***ÁREA DEL TRAPECIO***";
Escribir "Digite la base mayor del trapecio en centímetros";
Leer baseMayor;
Escribir "Digite la base menor del trapecio en centímetros";
Leer baseMenor;
Escribir "Digita la altura del trapecio en centímetros";
Leer altura;
Limpiar Pantalla;
areaTrapecio <- ((baseMayor+baseMenor)/2)*altura;
Escribir "***ÁREA DEL TRAPECIO***";
Escribir "";
Escribir "El área del trapecio es de: ",areaTrapecio , " m2";
FinSegun
FinProceso
Ejercicio 10
Enunciado:
El banco "Su banco fiel" es un banco que inicia sus actividades financieras y necesita
una aplicación para llevar las cuentas de sus usuarios; por lo tanto, se sugiere que la
cuenta tenga los atributos titular y cantidad. Para cada cliente las cuentas permitirán
realizar ingresos, retiros o consultas de valor. En los ingresos no se pueden insertar
valores negativos y para los retiros el valor no puede ser mayor al valor que tiene en
la cuenta.
Solución:
Proceso Ejercicio10
Definir cliente,cliente1,cliente2 Como Caracter;
Definir opcion, cc, cliente1cc, cliente2cc Como Entero;
Definir ingreso, egreso, saldo1, saldo2, nuevosaldo Como Real;
Dimension cliente1[3], cliente2[3];
cliente1cc <- 1098686214;
cliente1[0] <- "Tatiana Cediel";
cliente1[1] <- "saldo1";
saldo1 <- 3400000;
cliente2cc <- 1100952460;
cliente2[0] <- "Nicolas Barrera";
cliente2[1] <- "saldo2";
saldo2 <- 1000000;
Escribir "****BIENVENIDO A SU BANCO FIEL****";
Escribir "Ingrese su identificacion: ";
Leer cc;
Limpiar Pantalla;
Si cc = cliente1cc Entonces
Escribir "****BIENVENIDO A SU BANCO FIEL****";
Escribir "Hola ",cliente1[0]," bienvenid@ a su cuenta";
Escribir "Marca la opción que desees realizar: ";
Escribir "1. Realizar ingresos";
Escribir "2. Realizar egresos";
Escribir "3. Realizar consultas";
Leer opcion;
Limpiar Pantalla;
Segun opcion Hacer
1:
Escribir "Ingresa el valor que deseas ingresar en tu cuenta:";
Leer ingreso;
Limpiar Pantalla;
Si ingreso <= 0 Entonces
Escribir "Error, el monnto a ingresar debe ser positivo y mayor a cero";
SiNo
Escribir "Vas a ingresar en tu cuenta: $",ingreso;
Escribir "Ingreso exitoso, el nuevo saldo de tu cuenta es: $",(saldo1+ingreso);
FinSi
2:
Escribir "Ingresa el valor que deseas retirar de tu cuenta: ";
Leer egreso;
Si egreso > saldo1 Entonces
Escribir "Lo sentimos, no cuentas con el saldo necesario en tu cuenta para dicho
retiro. Intenta con un menor valor";
Escribir "Ingresa el valor que deseas retirar de tu cuenta: ";
Leer egreso;
Limpiar Pantalla;
Si egreso > saldo1 Entonces
Escribir "Lo sentimos, no cuentas con el saldo necesario en tu cuenta. Excediste
el numero de intentos. Adios";
SiNo
nuevoSaldo <- saldo1-egreso;
Escribir "Su nuevo saldo es de: $",nuevosaldo;
FinSi
SiNo
nuevoSaldo <- saldo1-egreso;
Escribir "Su nuevo saldo es de: $",nuevosaldo;
FinSi
3:
Escribir "***ESTADO ACTUAL DE CUENTA***";
Escribir "TITULAR: ", cliente1[0];
Escribir "IDENTIFICACIÓN: ",cliente1cc;
Escribir "SALDO DE SU CUENTA: $",saldo1;
FinSegun
FinSi
Si cc = cliente2cc Entonces
Escribir "****BIENVENIDO A SU BANCO FIEL****";
Escribir "Hola ",cliente2[0]," bienvenid@ a su cuenta";
Escribir "Marca la opción que desees realizar: ";
Escribir "1. Realizar ingresos";
Escribir "2. Realizar egresos";
Escribir "3. Realizar consultas";
Leer opcion;
Limpiar Pantalla;
Segun opcion Hacer
1:
Escribir "Ingresa el valor que deseas ingresar en tu cuenta:";
Leer ingreso;
Limpiar Pantalla;
Si ingreso <= 0 Entonces
Escribir "Error, el monnto a ingresar debe ser positivo y mayor a cero";
SiNo
Escribir "Vas a ingresar en tu cuenta: $",ingreso;
Escribir "Ingreso exitoso, el nuevo saldo de tu cuenta es: $",(saldo2+ingreso);
FinSi
2:
Escribir "Ingresa el valor que deseas retirar de tu cuenta: ";
Leer egreso;
Si egreso > saldo2 Entonces
Escribir "Lo sentimos, no cuentas con el saldo necesario en tu cuenta para dicho
retiro.
Intenta con un menor valor";
Escribir "Ingresa el valor que deseas retirar de tu cuenta: ";
Leer egreso;
Limpiar Pantalla;
Si egreso > saldo2 Entonces
Escribir "Lo sentimos, no cuentas con el saldo necesario en tu cuenta. Excediste
el numero de intentos. Adios";
SiNo
nuevoSaldo <- saldo2-egreso;
Escribir "Su nuevo saldo es de: $",nuevosaldo;
FinSi
SiNo
nuevoSaldo <- saldo2-egreso;
Escribir "Su nuevo saldo es de: $",nuevosaldo;
FinSi
3:
Escribir "***ESTADO ACTUAL DE CUENTA***";
Escribir "TITULAR: ", cliente2[0];
Escribir "IDENTIFICACIÓN: ",cliente2cc;
Escribir "SALDO DE SU CUENTA: $",saldo2;
FinSegun
FinSi
Si cc <> cliente1cc y cc <> cliente2cc Entonces
Escribir "Tu número de identificación no esta en nuestra base de datos.
Por favor comunicate con uno de nuestros asesores";
FinSi
FinProceso