Taller 3: Ciclos
Video Explicativo
Ejercicio 1
Enunciado:
Realizar la siguiente figura por medio del ciclo Para
Solución:
Proceso Ejercicio1
Definir indice1, indice2 Como Entero;
Para indice1 <- 1 Hasta 10 Con Paso 1 Hacer
Para indice2 <- 1 Hasta indice1 Con Paso 1 Hacer
Escribir "*" Sin Saltar;
FinPara
Escribir "";
FinPara
FinProceso
Ejercicio 2
Enunciado:
Realizar la siguiente figura por medio del ciclo Mientras - Hacer
Solución:
Proceso Ejercicio2
Definir incremento Como Entero;
Definir control Como Logico;
incremento<-0;
control<-verdadero;
Mientras control=verdadero Hacer
si incremento=10 Entonces
control<-falso;
FinSi
incremento<-incremento+1;
Si incremento = 1 Entonces
Escribir" *";
FinSi
Si incremento =2 Entonces
Escribir " **";
FinSi
Si incremento =3 Entonces
Escribir " ***";
FinSi
Si incremento =4 Entonces
Escribir " ****";
FinSi
Si incremento =5 Entonces
Escribir " *****";
FinSi
Si incremento =6 Entonces
Escribir " ******";
FinSi
Si incremento =7 Entonces
Escribir " *******";
FinSi
Si incremento =8 Entonces
Escribir " ********";
FinSi
Si incremento =9 Entonces
Escribir " *********";
FinSi
Si incremento =10 Entonces
Escribir "**********";
FinSi
FinMientras
FinProceso
Ejercicio 3
Enunciado:
Realizar la siguiente figura por medio del ciclo Repetir - Hasta Que
Solución:
Proceso Ejercicio
Definir i,i2,i3,j,j2,j3,columnas, control1, control2,control3,control4,control5,
control6, base1,base2,base3 Como Entero;
Definir asteriscos, espacio Como Caracter;
Definir control Como Logico;
columnas <- 21;
asteriscos <- '*';
espacio <- ' ';
i<-1;
i2 <- 1;
i3 <- 1;
control1 <-0;
control2 <-0;
control3 <-0;
control4 <-0;
control5 <-0;
control6 <-0;
base1 <-0;
control <- Verdadero;
Mientras i<= columnas Hacer
j <-1;
j2 <-10;
j3 <-10;
Mientras j2 >= i2 Hacer
Escribir espacio Sin Saltar;
j2<- j2-1;
FinMientras
Mientras j <= i Hacer
Escribir asteriscos Sin Saltar;
j<- j+1;
FinMientras
Mientras j3 >= i3 Hacer
Escribir espacio Sin Saltar;
j3<- j3-1;
FinMientras
Escribir ' ';
i<- i+2;
i2<- i2+1;
i3<- i3+1;
FinMientras
Mientras base1 < 2 Hacer
Mientras control1 < 9 Hacer
Escribir espacio Sin Saltar;
control1 <- control1+1;
FinMientras
Mientras control2 <3 Hacer
Escribir asteriscos Sin Saltar;
control2 <- control2 +1;
FinMientras
Escribir "";
base1 <- base1 +1;
control1 <-0;
control2 <-0;
FinMientras
Mientras control3 <8 Hacer
Escribir espacio Sin Saltar;
control3 <-control3 +1;
FinMientras
Mientras control4 < 5 Hacer
Escribir asteriscos Sin Saltar;
control4<-control4+1;
FinMientras
Escribir "";
Mientras control5 <7 Hacer
Escribir espacio Sin Saltar;
control5 <-control5 +1;
FinMientras
Mientras control6 < 7 Hacer
Escribir asteriscos Sin Saltar;
control6<-control6+1;
FinMientras
Escribir "";
FinProceso
Ejercicio 4
Enunciado:
Se requiere un programa que pueda crear la tabla de multiplicar del número que el
usuario indique por medio del ciclo Para; esta debe ser impresa del 1 al 10.
Ejemplo, si el usuario indica que desea crear la tabla del 5, entonces el resultado
debería ser el siguiente:
Solución:
Proceso Ejercicio4
Definir num,cont,resul,i Como Entero;
Escribir "Digite la tabla que desea ver: ";
Leer num;
Limpiar Pantalla;
cont<-1;
Escribir "***TABLA DEL NUMERO: ",num,"***";
Para i <- 1 Hasta 10 Con Paso 1 Hacer
resul<- cont*num;
Escribir cont, " X ",num," = ",resul;
cont<-cont+1;
FinPara
FinProceso
Ejercicio 5
Enunciado:
Utilizando el ciclo que usted desee, crear un menú de ejecución infinita hasta que
el usuario desee terminar dicho ciclo.
Solución:
Proceso Ejercicio5
Definir control Como Entero;
Definir nombre Como Caracter;
control<-2;
Mientras control = 2 Hacer
Escribir "***MENÚ DE USUARIO***";
Escribir ".Por favor ingrese su nombre:";
Leer nombre;
Limpiar Pantalla;
Escribir "Hola ",nombre;
Escribir "Digite 1 si desea salir.";
Escribir "Digite 2 si desea volver al menú anterior";
Leer control;
FinMientras
FinProceso
Ejercicio 6
Enunciado:
Se está creando una aplicación que va a estar conectada con un prototipo que
permita almacenar contactos telefónicos en el dispositivo. Para ello cada contacto
debe contener nombre completo, teléfono y organización. Se requiere que la
aplicación permita añadir 3 contactos verificando que el número no esté almacenado,
buscar contactos almacenados y eliminar contactos si el usuario lo requiere.
Recuerde que el sistema debe terminar cuando el usuario así lo indique.
Solución:
Proceso Ejercicio6
Definir nombre, organizacion, nombre1,organizacion1,nombre2,organizacion2,nombre3,
organizacion3,contacto Como Caracter;
Definir telefono1,telefono2, telefono3, telefono, eliminar Como Real;
Definir control,opcion,contador como Entero;
control<-1;
nombre1<- "Tatiana Cediel";
telefono1<- 1;
organizacion1<- "Sofka";
nombre2<- "Nicolas Barrera";
telefono2<- 2;
organizacion2<- "PMI";
nombre3<- "Mariana Gomez";
telefono3<- 3;
organizacion3<- "UIS";
contador<-1;
Repetir
Escribir "***LIBRETA DE CONTACTOS***";
Escribir "Digita el número según la opción: ";
Escribir "1. Agregar un contacto";
Escribir "2. Buscar Contactos";
Escribir "3. Eliminar Contactos";
Escribir "4. Salir";
Leer opcion;
Limpiar Pantalla;
Segun opcion Hacer
1:Mientras contador<=3 Hacer
Escribir "***AGREGAR CONTACTO***";
Escribir "Ingresa el nombre del contacto:";
Leer nombre;
Escribir "Ingresa el numero de telefono: ";
Leer telefono;
Si telefono=telefono1 Entonces
Repetir
Escribir "Contacto registrado. Intente nuevamente";
Leer telefono;
Hasta que telefono <>telefono1
Si telefono=telefono2 Entonces
Repetir
Escribir "Contacto registrado. Intente nuevamente";
Leer telefono;
Hasta que telefono <>telefono2
Si telefono=telefono3 Entonces
Repetir
Escribir "Contacto registrado. Intente nuevamente";
Leer telefono;
Hasta que telefono <>telefono3
Sino
Escribir "Ingrese el nombre de la organizacion:";
Leer organizacion;
Limpiar Pantalla;
Escribir "Se guardaron los siguientes datos: ";
Escribir "Nombre de Contacto: ",nombre;
Escribir "Numero telefonico: ",telefono;
Escribir "Organizacion a la que pertece: ",organizacion;
FinSi
SiNo
Escribir "Ingrese el nombre de la organizacion:";
Leer organizacion;
Limpiar Pantalla;
Escribir "Se guardaron los siguientes datos: ";
Escribir "Nombre de Contacto: ",nombre;
Escribir "Numero telefonico: ",telefono;
Escribir "Organizacion a la que pertece: ",organizacion;
FinSi
SiNo
Escribir "Ingrese el nombre de la organizacion:";
Leer organizacion;
Limpiar Pantalla;
Escribir "Se guardaron los siguientes datos: ";
Escribir "Nombre de Contacto: ",nombre;
Escribir "Numero telefonico: ",telefono;
Escribir "Organizacion a la que pertece: ",organizacion;
FinSi
FinMientras
2:
Escribir "***BUSCAR CONTACTOS***";
Escribir "Ingrese el numero de telefono que sea buscar: ";
Leer telefono;
Si telefono=telefono1 Entonces
Escribir "Nombre: ",nombre1;
Escribir "Teléfono; ",telefono1;
Escribir "Organizacion: ",organizacion1;
SiNo
Si telefono=telefono2 Entonces
Escribir "Nombre: ",nombre2;
Escribir "Teléfono; ",telefono2;
Escribir "Organizacion: ",organizacion2;
SiNo
Si telefono=telefono3 Entonces
Escribir "Nombre: ",nombre3;
Escribir "Teléfono; ",telefono3;
Escribir "Organizacion: ",organizacion3;
SiNo
Escribir "El número no se encuetra registrado";
FinSi
FinSi
FinSi
3:
Escribir "Ingrese el numero de contacto que desea eliminar: ";
Leer eliminar;
Si eliminar = telefono1 Entonces
Escribir "Contacto de ",nombre1," eliminado con éxito";
SiNo
Si eliminar = telefono2 Entonces
Escribir "Contacto de ",nombre2," eliminado con éxito";
SiNo
Si eliminar = telefono3 Entonces
Escribir "Contacto de ",nombre3," eliminado con éxito";
SiNo
Escribir "El contacto no existe";
FinSi
FinSi
FinSi
4:
Escribir "Adios";
FinSegun
Hasta Que control
FinProceso
Ejercicio 7
Enunciado:
El parqueadero "El guardián" presta sus servicios de parqueadero nocturno para los
usuarios del barrio y requiere una aplicación que permita registrar los vehículos
que se cuidan en estas instalaciones. Se sugiere que el parqueadero tenga los
atributos del vehículo como son, placa y marca, y los datos del cliente como son
nombre completo y número de teléfono. Para cada vehículo se debe permitir la opción
de ingresar al parqueadero, retirar del parqueadero y consultar si un vehículo se
encuentra en el parqueadero. Recuerde que el sistema debe terminar cuando el usuario
así lo indique. Tenga en presente que el parqueadero solo puede almacenar máximo
5 vehículos.
Solución:
Proceso Ejercicio7
Definir placa, marca, dueno, telefono,dueno1,dueno2,dueno3,dueno4,dueno5,placa1,
placa2,placa3,placa4,placa5,marca1,marca2,marca3,marca4,marca5,tel1,tel2,tel3,tel4,
tel5 Como Caracter;
Definir opcion, contador,opcion1 Como Entero;
placa1<- "uno";
placa2<- "dos";
placa3<- "tres";
placa4<- "cuatro";
placa5<- "cinco";
marca1<- "chevrolet";
marca2<- "nisan";
marca3<- "mazda";
marca4<- "renault";
marca5<- "ferrari";
tel1<- "12334";
tel2<- "232432";
tel3<- "45654";
tel4<- "34643";
tel5<- "34322";
dueno1<- "Tatiana Cediel";
dueno2<- "Nicolas Barrera";
dueno3<- "Santiago Barrera";
dueno4<- "Daniel Rios";
dueno5<- "Thomas Barrera";
contador<-1;
Escribir "***BIENVENIDO AL PARQUEADERO EL GUARDIAN***";
Escribir "Seleccione el número de la opción que desea realizar:";
Escribir "1. Ingresar vehiculo";
Escribir "2. Salida del vehiculo";
Escribir "3. Consultar vehículo";
Escribir "4. Salir";
Leer opcion;
Limpiar Pantalla;
Segun opcion Hacer
1:
Escribir "***REGISTRO DE VEHICULOS***";
Mientras contador<=5 Hacer
Escribir "Ingrese la placa del vehiculo que desea registrar:";
Leer placa;
Si placa<>placa1 y placa<>placa2 y placa<>placa3 y placa<>placa4 y placa<>placa5 Entonces
Escribir "Ingrese la marca";
Leer marca;
Escribir "Ingrese el nombre del dueño";
Leer dueno;
Escribir "Ingrese el nombre del telefono";
Leer telefono;
Limpiar Pantalla;
Escribir "***DATOS REGISTRADOS***";
Escribir "Datos registrados para la placa: ",placa;
Escribir "Marca: ",marca;
Escribir "Dueño: ",dueno;
Escribir "Teléfono: ",telefono;
SiNo
Si placa=placa1 y placa=placa2 y placa=placa3 y placa=placa4 y placa=placa5 Entonces
Escribir "Placa registrada. Ingrese otra";
Leer placa;
FinSi
FinSi
contador<-contador+1;
FinMientras
2:
Escribir "Ingrese la placa del vehiculo al cual desea darle salida:";
Leer placa;
Limpiar Pantalla;
Repetir
Si placa<>placa1 y placa<>placa2 y placa<>placa3 y placa<>placa4 y placa<>placa5 Entonces
Escribir ". El vehículo no se encuentra registrado. Por favor ingresa una placa válida";
Leer placa;
Limpiar Pantalla;
Si placa=placa1 Entonces
Escribir "Se ha registrado con éxito la salida del vehiculo con placa: ",placa;
SiNo
Si placa=placa2 Entonces
Escribir "Se ha registrado con éxito la salida del vehiculo con placa: ",placa;
SiNo
Si placa=placa3 Entonces
Escribir "Se ha registrado con éxito la salida del vehiculo con placa: ",placa;
SiNo
Si placa=placa4 Entonces
Escribir "Se ha registrado con éxito la salida del vehiculo con placa: ",placa;
SiNo
Si placa=placa5 Entonces
Escribir "Se ha registrado con éxito la salida del vehiculo con placa: ",placa;
SiNo
Escribir "El vehiculo no se encuentra registrado";
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
Hasta Que placa=placa1 o placa=placa2 o placa=placa3 o placa=placa4 o placa=placa5
3:
Escribir "***BUSCAR VEHÍCULO***";
Escribir "Ingrese la placa: ";
Leer placa;
Limpiar Pantalla;
Repetir
Si placa<>placa1 y placa<>placa2 y placa<>placa3 y placa<>placa4 y placa<>placa5 Entonces
Escribir ". El vehículo no se encuentra registrado. Por favor ingresa una placa válida";
Leer placa;
Limpiar Pantalla;
Si placa=placa1 Entonces
Escribir "Placa: ",placa1;
Escribir "Marca: ",marca1;
Escribir "Dueño: ",dueno1;
Escribir "Teléfono: ",tel1;
SiNo
Si placa=placa2 Entonces
Escribir "Placa: ",placa2;
Escribir "Marca: ",marca2;
Escribir "Dueño: ",dueno2;
Escribir "Teléfono: ",tel2;
SiNo
Si placa=placa3 Entonces
Escribir "Placa: ",placa3;
Escribir "Marca: ",marca3;
Escribir "Dueño: ",dueno3;
Escribir "Teléfono: ",tel3;
SiNo
Si placa=placa4 Entonces
Escribir "Placa: ",placa4;
Escribir "Marca: ",marca4;
Escribir "Dueño: ",dueno4;
Escribir "Teléfono: ",tel4;
SiNo
Si placa=placa5 Entonces
Escribir "Placa: ",placa5;
Escribir "Marca: ",marca5;
Escribir "Dueño: ",dueno5;
Escribir "Teléfono: ",tel5;
SiNo
Escribir "El vehiculo no se encuentra registrado";
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
Hasta Que placa=placa1 o placa=placa2 o placa=placa3 o placa=placa4 o placa=placa5
4:
Escribir "Adios";
FinSegun
FinProceso
Ejercicio 8
Enunciado:
La escuela automovilística "El Maestro" requiere una aplicación que permita registrar a
sus clientes en los cursos de enseñanza automovilística y establecer quienes lo han
aprobado para continuar con el trámite de adquirir la licencia de conducción. Para
cada usuario se debe permitir registrar su ingreso al curso, consultar usuarios que
hayan presentado el curso y resultados de la prueba del curso (si fueron aprobados o no).
Recuerde que el sistema debe terminar cuando el usuario así lo indique. Tenga presente
que la escuela tiene capacidad máxima de gestionar 8 usuarios en su totalidad.
Solución:
Proceso Ejercicio8
Definir opcion,contador,cantidad como Entero;
Definir aprendiz,examen, aprendiz1,aprendiz2,aprendiz3,aprendiz4,aprendiz5,aprendiz6,
aprendiz7,aprendiz8, result1, result2,result3, result4, result5, result6, result7,
result8, usuario Como Caracter;
Definir nota como Real;
contador<-1;
aprendiz1<-"Carolina Rojas";
result1<-"Examen aprobado con 4 puntos";
aprendiz2<-"Juan Castro";
result2<- " Examen aprobado con 3 puntos";
aprendiz3<-"Matias Cruz";
result3<-" Examen reprobado";
aprendiz4<-"Camilo";
result4<-"Examen aprobado con 4.6 puntos";
aprendiz5<-"Ana Gomez";
result5<-"Examen reprobado";
aprendiz6<-"Tatiana Cediel";
result6<-"Examen aprobado con 5 puntos";
aprendiz7<-"Juliana Mendoza";
result7<-"Examen aprobado con 3 puntos";
aprendiz8<-"Pedro Jimenez";
result8<-"Examen reprobado";
cantidad<-8;
Escribir"######################################";
Escribir"# ESCUELA AUTOMOVILISTICA EL MAESTRO # ";
Escribir"######################################";
Escribir "";
Escribir " -------------------------------------------- ";
Escribir "|Que deseas hacer? |";
Escribir "|1. Registrar aprendices |";
Escribir "|2. Resultado de exámenes por usuario|";
Escribir "|3. Salir |";
Escribir " -------------------------------------------- ";
Leer opcion;
Limpiar Pantalla;
Segun opcion Hacer
1:
Escribir "***INGRESO DE USUARIOS***";
Repetir
Escribir "Escriba el nombre del aprendiz";
Leer aprendiz;
Escribir "Desea registrar nota del examen? Si digite s en caso afirmativo, n en caso negativo";
Leer examen;
Si examen="s" o examen="S" Entonces
Escribir "Digite la nota del examen:";
Leer nota;
Limpiar Pantalla;
Si nota>=3 Entonces
Escribir "FELICITACIONES: ", aprendiz;
Escribir "Aprobaste el examen, puedes continuar con el trámite de la licencia";
SiNo
Escribir "Lo sentimos, no aprobaste el examen";
Si cantidad<=8 Entonces
FinSi
FinSi
SiNo
Escribir "Aun no tienes reesultado del examen para el aprendiz: ",aprendiz;
FinSi
cantidad<-cantidad-1;
Hasta Que cantidad=1;
2:
Escribir "Digite el nombre del usuario que desea consultar:";
Leer usuario;
Si usuario=aprendiz1 Entonces
Escribir aprendiz1, " ",result1;
SiNo
Si usuario=aprendiz2 Entonces
Escribir aprendiz2," ",result2;
SiNo
Si usuario=aprendiz3 Entonces
Escribir aprendiz3," ",result3;
SiNo
Si usuario=aprendiz4 Entonces
Escribir aprendiz4," ",result4;
SiNo
Si usuario=aprendiz5 Entonces
Escribir aprendiz5," ",result5;
SiNo
Si usuario=aprendiz6 Entonces
Escribir aprendiz6," ",result6;
SiNo
Si usuario=aprendiz7 Entonces
Escribir aprendiz7," ",result7;
SiNo
Si usuario=aprendiz8 Entonces
Escribir aprendiz8," ",result8;
SiNo
Escribir"El usuario no se encuentra registrado";
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
3:
Escribir "Has abandonado el sistema. Adios";
FinSegun
FinProceso