Ejemplo 1: Mostrar los números del 1 al 10
Delphi
Algoritmo ContarHasta10
Definir contador Como Entero
contador <- 1
Mientras Que contador <= 10 Hacer
Escribir contador
contador <- contador + 1
FinMientras
FinAlgoritmo
Usa el código con precaución.
En este ejemplo, el ciclo while se ejecuta mientras contador sea menor o igual a 10. En
cada iteración, se imprime el valor de contador y luego se incrementa en 1.
Ejemplo 2: Calcular el factorial de un número
Delphi
Algoritmo Factorial
Definir numero, factorial, i Como Entero
Escribir "Ingrese un número: "
Leer numero
factorial <- 1
i <- 1
Mientras Que i <= numero Hacer
factorial <- factorial * i
i <- i + 1
FinMientras
Escribir "El factorial de ", numero, " es: ", factorial
FinAlgoritmo
Usa el código con precaución.
Este ejemplo calcula el factorial de un número ingresado por el usuario. El ciclo while se
ejecuta mientras i sea menor o igual al número ingresado. En cada iteración, se multiplica
factorial por i y luego se incrementa i en 1.
Ejemplo 3: Buscar un número en un arreglo
Delphi
Algoritmo BuscarNumero
Definir arreglo[10], numeroBuscado, i, encontrado Como Entero
// Inicializar el arreglo (puedes hacerlo de forma diferente)
Para i <- 1 Hasta 10 Hacer
arreglo[i] <- Aleatorio(1, 100)
FinPara
Escribir "Ingrese el número a buscar: "
Leer numeroBuscado
i <- 1
encontrado <- Falso
Mientras Que (i <= 10) y (no encontrado) Hacer
Si arreglo[i] = numeroBuscado Entonces
encontrado <- Verdadero
FinSi
i <- i + 1
FinMientras
Si encontrado Entonces
Escribir "El número se encontró en la posición ", i - 1
SiNo
Escribir "El número no se encontró"
FinSi
FinAlgoritmo
Ejercicio:
Crea un programa en Pseint que:
1. Pida al usuario un número entero positivo.
2. Calcule la suma de todos los números impares desde 1 hasta el número
ingresado por el usuario.
3. Muestre el resultado de la suma.
Solución:
Delphi
Algoritmo SumaImpares
Definir numero, suma, i Como Entero
Escribir "Ingrese un número entero positivo: "
Leer numero
suma <- 0
i <- 1
Mientras Que i <= numero Hacer
Si i mod 2 <> 0 Entonces // Si i es impar
suma <- suma + i
FinSi
i <- i + 1
FinMientras
Escribir "La suma de los números impares hasta ", numero, " es: ", suma
FinAlgoritmo
Usa el código con precaución.
DO WHILE
Ejemplo 1: Sumar números hasta que el usuario ingrese 0
Delphi
Algoritmo SumarNumeros
Definir numero, suma Como Entero
suma <- 0
Hacer
Escribir "Ingrese un número (0 para terminar): "
Leer numero
suma <- suma + numero
Mientras Que numero <> 0
Escribir "La suma total es: ", suma
FinAlgoritmo
Usa el código con precaución.
En este ejemplo, el ciclo do while se ejecuta al menos una vez y luego verifica si el
número ingresado es diferente de 0. Si es así, se suma el número a la variable suma y se
repite el ciclo.
Ejemplo 2: Pedir una contraseña hasta que sea correcta
Delphi
Algoritmo VerificarContrasena
Definir contrasena, contrasenaCorrecta Como Caracter
contrasenaCorrecta <- "1234" // Contraseña correcta (ejemplo)
Hacer
Escribir "Ingrese la contraseña: "
Leer contrasena
Mientras Que contrasena <> contrasenaCorrecta
Escribir "Contraseña correcta!"
FinAlgoritmo
Usa el código con precaución.
Este ejemplo muestra cómo utilizar do while para pedir una contraseña repetidamente
hasta que el usuario ingrese la correcta.
Ejemplo 3: Mostrar los números del 1 al 10
Delphi
Algoritmo ContarHasta10
Definir contador Como Entero
contador <- 1
Hacer
Escribir contador
contador <- contador + 1
Mientras Que contador <= 10
FinAlgoritmo
Ejercicio:
Crea un programa en Pseint que:
1. Pida al usuario que ingrese números.
2. Sume todos los números ingresados.
3. Continúe pidiendo números hasta que el usuario ingrese el número 0.
4. Al final, muestre la suma total de todos los números ingresados.
Solución:
Delphi
Algoritmo SumarNumeros
Definir numero, suma Como Entero
suma <- 0
Hacer
Escribir "Ingrese un número (0 para terminar): "
Leer numero
suma <- suma + numero
Mientras Que numero <> 0
Escribir "La suma total es: ", suma
FinAlgoritmo