1
Ejercicio 1:
Construya un programa en PSeInt que 1. Número Primo
muestre por pantalla el siguiente menú: 0. Sali
MENÚ PRINCIPAL
Algoritmo MenuPrincipal
// Declaración de variables
Definir opcion, numero, i Como Entero
Definir numerosPrimos Como Lista de Entero
// Inicialización de la lista
numerosPrimos <- CrearLista()
// Menú principal
Repetir
Escribir "MENÚ PRINCIPAL"
Escribir "1. Número Primo"
Escribir "0. Salir"
Escribir "Ingrese su opción: "
Leer opcion
Si opcion = 1 Entonces
// Opción 1: Número Primo
Repetir
Escribir "Ingrese un número (ingrese 0 para finalizar): "
Leer numero
Si numero <> 0 Entonces
// Agregar el número a la lista
AnadirAlFinal(numerosPrimos, numero)
FinSi
Hasta Que numero = 0
// Mostrar si cada número ingresado es primo o no
Para i <- 1 Hasta Longitud(numerosPrimos) Hacer
Si EsPrimo(Obtener(numerosPrimos, i)) Entonces
Escribir "El número ", Obtener(numerosPrimos, i), " es
primo."
Sino
Escribir "El número ", Obtener(numerosPrimos, i), " no
es primo."
FinSi
FinPara
Tecnologico Comfenalco
(Colombia - Cartagena)
2
// Limpiar la lista para la próxima ejecución
VaciarLista(numerosPrimos)
EsperarTecla()
FinSi
Hasta Que opcion = 0
// Función para verificar si un número es primo
Funcion EsPrimo(num)
Definir i, raiz Como Entero
raiz <- Redondear(RaizCuadrada(num))
i <- 2
Mientras i <= raiz Hacer
Si num MOD i = 0 Entonces
Devolver Falso
FinSi
i <- i + 1
FinMientras
Devolver Verdadero
FinFuncion
Tecnologico Comfenalco
(Colombia - Cartagena)
3
Ejercicio 2:
Elabore un programa en PSeInt que simule 1. Registro de productos
un sistema de registro de ventas de una 2. Búsqueda de productos
tienda, que muestre por pantalla el siguiente 3. Imprimir lista de productos
menú. MENÚ PRINCIPAL 0. Sali
Algoritmo RegistroVentas
// Declaración de variables
Dimension productos[100, 3] // Matriz para almacenar información de productos
(código, nombre, precio)
entero opcion
// Menú principal
Repetir
Escribir("MENÚ PRINCIPAL")
Escribir("1. Registro de productos")
Escribir("2. Búsqueda de productos")
Escribir("3. Imprimir lista de productos")
Escribir("0. Salir")
Escribir("Ingrese su opción: ")
Leer(opcion)
// Realizar acciones según la opción seleccionada
Segun opcion
1:
// Opción 1: Registro de productos
RegistrarProductos(productos)
2:
// Opción 2: Búsqueda de productos
BuscarProducto(productos)
3:
// Opción 3: Imprimir lista de productos
ImprimirLista(productos)
0:
// Opción 0: Salir del programa
Escribir("¡Hasta luego!")
Otro:
// Opción no válida
Escribir("Opción no válida. Por favor, ingrese una opción válida.")
FinSegun
Hasta que opcion = 0
FinAlgoritmo
SubProceso RegistrarProductos(productos: matriz)
// Variables locales
entero i = 0
Tecnologico Comfenalco
(Colombia - Cartagena)
4
entero codigo
cadena nombre
real precio
// Registro de productos hasta que se ingrese una cadena vacía como nombre
Repetir
Escribir("Ingrese el código del producto (0 para salir): ")
Leer(codigo)
Si codigo <> 0 Entonces
Escribir("Ingrese el nombre del producto: ")
Leer(nombre)
Escribir("Ingrese el precio del producto: ")
Leer(precio)
// Almacenar información del producto en la matriz
productos[i, 0] = codigo
productos[i, 1] = nombre
productos[i, 2] = precio
i=i+1
FinSi
Hasta que nombre = ""
FinSubProceso
SubProceso BuscarProducto(productos: matriz)
// Variables locales
entero codigoBusqueda
booleano encontrado = Falso
// Búsqueda de producto por código
Escribir("Ingrese el código del producto a buscar: ")
Leer(codigoBusqueda)
// Verificar si el producto está en la lista
Para i desde 0 hasta Dimension(productos, 1) - 1
Si productos[i, 0] = codigoBusqueda Entonces
Escribir("Nombre: ", productos[i, 1])
Escribir("Precio: ", productos[i, 2])
encontrado = Verdadero
Salir // Salir del bucle una vez que se encuentra el producto
FinSi
FinPara
// Informar si el producto no se encuentra en la lista
Si No encontrado Entonces
Escribir("Producto no encontrado.")
FinSi
FinSubProceso
Tecnologico Comfenalco
(Colombia - Cartagena)
5
SubProceso ImprimirLista(productos: matriz)
// Imprimir todos los productos almacenados
Escribir("Lista de productos:")
Para i desde 0 hasta Dimension(productos, 1) - 1
Si productos[i, 0] <> 0 Entonces
Escribir("Código: ", productos[i, 0])
Escribir("Nombre: ", productos[i, 1])
Escribir("Precio: ", productos[i, 2])
Escribir("--------------------")
FinSi
FinPara
FinSubProceso
Tecnologico Comfenalco
(Colombia - Cartagena)
6
Tecnologico Comfenalco
(Colombia - Cartagena)
