atencion mascotas
Publicado por maria (1 intervención) el 23/07/2023 03:08:13
Funcion indice <- Buscamascota ( mascotas,opcaten )
Definir encuentra Como Logico
encuentra = Falso
indice = 0
ind = 1
Mientras ind <= 4 y encuentra = Falso Hacer
Si mascotas(ind,4) = ConvertirATexto(opcaten) y mascotas(ind,6) = "no atendido" Entonces
encuentra = Verdadero
indice = ind
FinSi
ind = ind + 1
Fin Mientras
Fin Funcion
Algoritmo atencion_mascotas
Definir personas, mascotas, Vcaracter Como caracter
// Estas son las variables para Desparacitación, Vacunación,Castración, Revisión General
Definir contDes, contVac, contCas, contRG Como Entero
Definir op, mm, mn, ind, servicio Como Entero
Definir selecServicio Como Logico
Vcaracter = ""
ind = 0
servicio = 0
ContDes = 0
contVac = 0
contCas = 0
contRG = 0
op = 0
Dimension personas(4,4)
Dimension mascotas(4,6)
Imprimir "Bienvenido a la campaña de atención de mascotas de la zona Puntarenas"
Imprimir "**********************************************"
Repetir
Imprimir "Por favor digite el número de la opción que desea realizar:"
Imprimir "[1] LLenar los datos personales."
Imprimir "[2] Atención de animales."
Imprimir "[3] Ver las estadísticas."
Imprimir "[4] Salir del programa."
Leer op
Segun op Hacer
1:
llenardatos(personas,mascotas)
2:
atencion(personas, mascotas)
3:
estadisticas(personas, mascotas)
4:
Imprimir "Has salido del programa"
De Otro Modo:
Imprimir "Digito una opción incorrecta, por favor digite nuevamente."
Fin Segun
Hasta Que op = 4
FinAlgoritmo
SubProceso llenardatos ( personas , mascotas)
Imprimir "Vamos a comenzar a llenar sus datos personales."
Para ind = 1 Hasta 4 Con Paso 1 Hacer
Imprimir "Ingrese su número de cédula:"
Leer personas(ind,1) //Aqui se guarda el número de cédula el cual servirá para identicar a quien pertenece cada mascota
Imprimir "Ingrese su nombre completo:"
Leer personas(ind,2) //Se guarda el nombre completo del dueño
Imprimir "Ingrese su número telefónico:"
Leer personas(ind,3) //Se almacena el número de teléfono para los casos de castración avisar cuando puede volver por su mascota
personas(ind,4) = ConvertirATexto(0) // Aqui se guarda el monto de donación de cada dueño, por ahora se mantiene en 0 porque es hasta el final de la atención que se realiza la donación
Imprimir "**********************************************"
Imprimir "Vamos a comenzar a llenar los datos de su mascota."
Imprimir "Escriba el nombre de su mascota:"
Leer mascotas(ind,1) //Se almacena el nombre de la mascota
Imprimir "Escriba el tipo de animal :"
Leer mascotas(ind,2) // Se almacena el tipo de animal
mascotas(ind,3) = personas(ind,1) // Se almacena el número de cédula del dueño para poder identificar a quien petenece
//mascotas(ind,4) = ConvertirATexto(SeleccionServicio)
// Aqui se utiliza un repeat para ver cual es el tipo de servicio que la persona desea, se llevan los contadores de cada servicio
//cuando ingresa al repeat esta falso y se saldra hasta que sea verdadero o sea hasta que la persona tenga el campo en el servicio que desea
// Cuando ya estan los 20 completos no permite utilizar ese servicio pero le da la opcion al dueño que seleccione otro servicio siempre y cuando haya campo en este
selecServicio = Falso
Repetir
Imprimir "Digite el número del tipo de servicio que requiere su mascota:"
Imprimir "(1) Desparasitación"
Imprimir "(2) Castración"
Imprimir "(3) Revisión General"
Imprimir "(4) Vacunación"
Leer servicio
Segun servicio Hacer
1:
si contDes < 2 Entonces
contDes = contDes + 1
mascotas(ind,4)= ConvertirATexto(servicio)
selecServicio = Verdadero
SiNo
Imprimir "Lo sentimos los campos estan llenos, puede elegir algún otro servicio digitando el número"
FinSi
2:
si contCas < 2 Entonces
contCas = contCas + 1
mascotas(ind,4)= ConvertirATexto(servicio)
selecServicio = Verdadero
SiNo
Imprimir "Lo sentimos los campos estan llenos, puede elegir algún otro servicio digitando el número"
FinSi
3:
si contRG < 2 Entonces
contRG = contRG + 1
mascotas(ind,4)= ConvertirATexto(servicio)
selecServicio = Verdadero
SiNo
Imprimir "Lo sentimos los campos estan llenos, puede elegir algún otro servicio digitando el número"
FinSi
4:
si contVac < 2 Entonces
contVac = contVac + 1
mascotas(ind,4) = ConvertirATexto(servicio)
selecServicio = Verdadero
SiNo
Imprimir "Lo sentimos los campos estan llenos, puede elegir algún otro servicio digitando el número"
FinSi
De Otro Modo:
Imprimir "Digito una opción incorrecta, por favor digite una opción"
Fin Segun
Hasta Que selecServicio = Verdadero
mascotas(ind,5) = Vcaracter // Se almacena el medicamento que se le da a la mascota pero aqui todavia no se sabe si necesita o no el medicamento, hasta en atención se utiliza y almacena esta información
mascotas(ind,6) = "no atendido" //Se almacena el si la mascota fue atendida o no
Imprimir "Datos de persona y mascota ingresados correctamente"
Imprimir "**********************************************"
Fin Para
FinSubProceso
SubProceso atencion (personas, mascotas)
Definir opcaten Como Entero //Esta variable es para determinar que tipo de servicio se va atender
Definir indaten como Entero
indaten = 0
opcaten = 0
Repetir
Imprimir "A continuación debes seleccionar que tipo de servicio desea atender :"
Imprimir "(1) Desparasitación"
Imprimir "(2) Castración"
Imprimir "(3) Revisión General"
Imprimir "(4) Vacunación"
Imprimir "(5) Volver al menú principal"
Leer opcaten
//indaten = Buscamascota( mascotas,opcaten )
Segun opcaten Hacer
1:
aplicamedicamento(personas,mascotas,buscamascota(mascotas,opcaten),"Desparacitación")
2:
aplicamedicamento(personas,mascotas,buscamascota(mascotas,opcaten),"Castración")
3:
aplicamedicamento(personas,mascotas,buscamascota(mascotas,opcaten),"Revisión General")
4:
aplicamedicamento(personas,mascotas,buscamascota(mascotas,opcaten),"Vacunación")
5:
Imprimir "Regresando al menú principal."
De Otro Modo:
Imprimir "Ha digitado una opción incorrecta, por favor digite nuevamente."
Fin Segun
Hasta Que opcaten = 5
FinSubProceso
SubProceso aplicamedicamento (personas, mascotas,indaten,tipoaten)
Definir montodona Como caracter
montodona = ""
si indaten = 0 Entonces
Imprimir "No hay mascotas que requieran la atención de: " tipoaten
SiNo
Imprimir "Se dara atención a: " mascotas(indaten,1) " de " tipoaten
Imprimir "Indique el medicamento suministrado luego de la atención de: " tipoaten
Leer mascotas(indaten,5)
mascotas(indaten,6) = "Atendido"
Imprimir "************************************"
Imprimir "Para efectos de la campaña de atención de animales si usted desea realizar una donación puede hacerlo, por favor indique el monto de donación:"
Leer personas(indaten,4)
FinSi
FinSubProceso
SubProceso estadisticas(personas, mascotas)
Repetir
Imprimir "Digite la opcion del reporte que desea imprimir:"
Imprimir "[1] Para una impresión general"
Imprimir "[2] Nombre de animales atendidos por área"
Imprimir "[3] Mascotas que empiezan con una determinada letral"
Imprimir "[4] Monto recaudado por donaciones"
Imprimir "[5] Volver al menú principal"
Leer op
Segun op Hacer
1:
impresiongeneral(personas, mascotas)
2:
animalesarea( mascotas)
3:
letramascota(mascotas)
4:
montodonación(personas)
5:
Imprimir "Regresando al menú principal."
De Otro Modo:
Imprimir "La opción que digito es incorrecta"
Fin Segun
Hasta Que op = 5
FinSubProceso
SubProceso impresiongeneral(personas, mascotas)
Para ind<-1 Hasta 4 Con Paso 1 Hacer
Imprimir "La mascota: " mascotas(ind,1) " es un: " mascotas(ind,2) " y su dueño es: " personas(ind,2) " y el medicamento suministrado fue: " mascotas(ind,5)
Fin Para
FinSubProceso
SubProceso animalesarea( mascotas)
Repetir
Imprimir "A continuación debes seleccionar el área de la cuál deseas imprimir los nombres de las mascotas atendidas :"
Imprimir "[1] Desparasitación"
Imprimir "[2] Castración"
Imprimir "[3] Revisión General"
Imprimir "[4] Vacunación"
Imprimir "[5]Volver al menú principal"
Leer op
Segun op Hacer
1:
imprimemascota(mascotas,op,"Desparacitación")
2:
imprimemascota(mascotas,op,"Castración")
3:
imprimemascota(mascotas,op,"Revisión General")
4:
imprimemascota(mascotas,op,"Vacunación")
5:
Imprimir "Regresando al menú principal."
De Otro Modo:
Imprimir "Ha digitado una opción incorrecta"
Fin Segun
Hasta Que op = 5
FinSubProceso
SubProceso imprimemascota (mascotas,op,servicio)
Imprimir "Los nombres de los animales para ser atendidos en el servicio de: " servicio " son los siguientes: "
Para ind <- 1 Hasta 4 Con Paso 1 Hacer
si mascotas(ind,4) = ConvertirATexto(op) Entonces
Imprimir mascotas(ind,1)
FinSi
Fin Para
FinSubProceso
SubProceso letramascota(mascotas)
Definir letra Como Caracter
letra = ""
Imprimir "Por favor digite la letra inicial para buscar los nombres de las mascotas"
Leer letra
Imprimir "Los nombres de los animales que comienzan con la letra: " letra " son los siguientes:"
Para ind <- 1 Hasta 4 Con Paso 1 Hacer
si subcadena(mascotas(ind,1), 1,1) = letra Entonces
Imprimir mascotas(ind,1)
FinSi
Fin Para
FinSubProceso
SubProceso montodonación(personas)
Definir montotal Como Entero
montotal = 0
Para ind <- 1 Hasta 4 Con Paso 1 Hacer
montotal = montotal + ConvertirANumero(personas(ind,4))
Fin Para
Imprimir "El monto total recaudado en donaciones es de: " montotal
FinSubProceso
Definir encuentra Como Logico
encuentra = Falso
indice = 0
ind = 1
Mientras ind <= 4 y encuentra = Falso Hacer
Si mascotas(ind,4) = ConvertirATexto(opcaten) y mascotas(ind,6) = "no atendido" Entonces
encuentra = Verdadero
indice = ind
FinSi
ind = ind + 1
Fin Mientras
Fin Funcion
Algoritmo atencion_mascotas
Definir personas, mascotas, Vcaracter Como caracter
// Estas son las variables para Desparacitación, Vacunación,Castración, Revisión General
Definir contDes, contVac, contCas, contRG Como Entero
Definir op, mm, mn, ind, servicio Como Entero
Definir selecServicio Como Logico
Vcaracter = ""
ind = 0
servicio = 0
ContDes = 0
contVac = 0
contCas = 0
contRG = 0
op = 0
Dimension personas(4,4)
Dimension mascotas(4,6)
Imprimir "Bienvenido a la campaña de atención de mascotas de la zona Puntarenas"
Imprimir "**********************************************"
Repetir
Imprimir "Por favor digite el número de la opción que desea realizar:"
Imprimir "[1] LLenar los datos personales."
Imprimir "[2] Atención de animales."
Imprimir "[3] Ver las estadísticas."
Imprimir "[4] Salir del programa."
Leer op
Segun op Hacer
1:
llenardatos(personas,mascotas)
2:
atencion(personas, mascotas)
3:
estadisticas(personas, mascotas)
4:
Imprimir "Has salido del programa"
De Otro Modo:
Imprimir "Digito una opción incorrecta, por favor digite nuevamente."
Fin Segun
Hasta Que op = 4
FinAlgoritmo
SubProceso llenardatos ( personas , mascotas)
Imprimir "Vamos a comenzar a llenar sus datos personales."
Para ind = 1 Hasta 4 Con Paso 1 Hacer
Imprimir "Ingrese su número de cédula:"
Leer personas(ind,1) //Aqui se guarda el número de cédula el cual servirá para identicar a quien pertenece cada mascota
Imprimir "Ingrese su nombre completo:"
Leer personas(ind,2) //Se guarda el nombre completo del dueño
Imprimir "Ingrese su número telefónico:"
Leer personas(ind,3) //Se almacena el número de teléfono para los casos de castración avisar cuando puede volver por su mascota
personas(ind,4) = ConvertirATexto(0) // Aqui se guarda el monto de donación de cada dueño, por ahora se mantiene en 0 porque es hasta el final de la atención que se realiza la donación
Imprimir "**********************************************"
Imprimir "Vamos a comenzar a llenar los datos de su mascota."
Imprimir "Escriba el nombre de su mascota:"
Leer mascotas(ind,1) //Se almacena el nombre de la mascota
Imprimir "Escriba el tipo de animal :"
Leer mascotas(ind,2) // Se almacena el tipo de animal
mascotas(ind,3) = personas(ind,1) // Se almacena el número de cédula del dueño para poder identificar a quien petenece
//mascotas(ind,4) = ConvertirATexto(SeleccionServicio)
// Aqui se utiliza un repeat para ver cual es el tipo de servicio que la persona desea, se llevan los contadores de cada servicio
//cuando ingresa al repeat esta falso y se saldra hasta que sea verdadero o sea hasta que la persona tenga el campo en el servicio que desea
// Cuando ya estan los 20 completos no permite utilizar ese servicio pero le da la opcion al dueño que seleccione otro servicio siempre y cuando haya campo en este
selecServicio = Falso
Repetir
Imprimir "Digite el número del tipo de servicio que requiere su mascota:"
Imprimir "(1) Desparasitación"
Imprimir "(2) Castración"
Imprimir "(3) Revisión General"
Imprimir "(4) Vacunación"
Leer servicio
Segun servicio Hacer
1:
si contDes < 2 Entonces
contDes = contDes + 1
mascotas(ind,4)= ConvertirATexto(servicio)
selecServicio = Verdadero
SiNo
Imprimir "Lo sentimos los campos estan llenos, puede elegir algún otro servicio digitando el número"
FinSi
2:
si contCas < 2 Entonces
contCas = contCas + 1
mascotas(ind,4)= ConvertirATexto(servicio)
selecServicio = Verdadero
SiNo
Imprimir "Lo sentimos los campos estan llenos, puede elegir algún otro servicio digitando el número"
FinSi
3:
si contRG < 2 Entonces
contRG = contRG + 1
mascotas(ind,4)= ConvertirATexto(servicio)
selecServicio = Verdadero
SiNo
Imprimir "Lo sentimos los campos estan llenos, puede elegir algún otro servicio digitando el número"
FinSi
4:
si contVac < 2 Entonces
contVac = contVac + 1
mascotas(ind,4) = ConvertirATexto(servicio)
selecServicio = Verdadero
SiNo
Imprimir "Lo sentimos los campos estan llenos, puede elegir algún otro servicio digitando el número"
FinSi
De Otro Modo:
Imprimir "Digito una opción incorrecta, por favor digite una opción"
Fin Segun
Hasta Que selecServicio = Verdadero
mascotas(ind,5) = Vcaracter // Se almacena el medicamento que se le da a la mascota pero aqui todavia no se sabe si necesita o no el medicamento, hasta en atención se utiliza y almacena esta información
mascotas(ind,6) = "no atendido" //Se almacena el si la mascota fue atendida o no
Imprimir "Datos de persona y mascota ingresados correctamente"
Imprimir "**********************************************"
Fin Para
FinSubProceso
SubProceso atencion (personas, mascotas)
Definir opcaten Como Entero //Esta variable es para determinar que tipo de servicio se va atender
Definir indaten como Entero
indaten = 0
opcaten = 0
Repetir
Imprimir "A continuación debes seleccionar que tipo de servicio desea atender :"
Imprimir "(1) Desparasitación"
Imprimir "(2) Castración"
Imprimir "(3) Revisión General"
Imprimir "(4) Vacunación"
Imprimir "(5) Volver al menú principal"
Leer opcaten
//indaten = Buscamascota( mascotas,opcaten )
Segun opcaten Hacer
1:
aplicamedicamento(personas,mascotas,buscamascota(mascotas,opcaten),"Desparacitación")
2:
aplicamedicamento(personas,mascotas,buscamascota(mascotas,opcaten),"Castración")
3:
aplicamedicamento(personas,mascotas,buscamascota(mascotas,opcaten),"Revisión General")
4:
aplicamedicamento(personas,mascotas,buscamascota(mascotas,opcaten),"Vacunación")
5:
Imprimir "Regresando al menú principal."
De Otro Modo:
Imprimir "Ha digitado una opción incorrecta, por favor digite nuevamente."
Fin Segun
Hasta Que opcaten = 5
FinSubProceso
SubProceso aplicamedicamento (personas, mascotas,indaten,tipoaten)
Definir montodona Como caracter
montodona = ""
si indaten = 0 Entonces
Imprimir "No hay mascotas que requieran la atención de: " tipoaten
SiNo
Imprimir "Se dara atención a: " mascotas(indaten,1) " de " tipoaten
Imprimir "Indique el medicamento suministrado luego de la atención de: " tipoaten
Leer mascotas(indaten,5)
mascotas(indaten,6) = "Atendido"
Imprimir "************************************"
Imprimir "Para efectos de la campaña de atención de animales si usted desea realizar una donación puede hacerlo, por favor indique el monto de donación:"
Leer personas(indaten,4)
FinSi
FinSubProceso
SubProceso estadisticas(personas, mascotas)
Repetir
Imprimir "Digite la opcion del reporte que desea imprimir:"
Imprimir "[1] Para una impresión general"
Imprimir "[2] Nombre de animales atendidos por área"
Imprimir "[3] Mascotas que empiezan con una determinada letral"
Imprimir "[4] Monto recaudado por donaciones"
Imprimir "[5] Volver al menú principal"
Leer op
Segun op Hacer
1:
impresiongeneral(personas, mascotas)
2:
animalesarea( mascotas)
3:
letramascota(mascotas)
4:
montodonación(personas)
5:
Imprimir "Regresando al menú principal."
De Otro Modo:
Imprimir "La opción que digito es incorrecta"
Fin Segun
Hasta Que op = 5
FinSubProceso
SubProceso impresiongeneral(personas, mascotas)
Para ind<-1 Hasta 4 Con Paso 1 Hacer
Imprimir "La mascota: " mascotas(ind,1) " es un: " mascotas(ind,2) " y su dueño es: " personas(ind,2) " y el medicamento suministrado fue: " mascotas(ind,5)
Fin Para
FinSubProceso
SubProceso animalesarea( mascotas)
Repetir
Imprimir "A continuación debes seleccionar el área de la cuál deseas imprimir los nombres de las mascotas atendidas :"
Imprimir "[1] Desparasitación"
Imprimir "[2] Castración"
Imprimir "[3] Revisión General"
Imprimir "[4] Vacunación"
Imprimir "[5]Volver al menú principal"
Leer op
Segun op Hacer
1:
imprimemascota(mascotas,op,"Desparacitación")
2:
imprimemascota(mascotas,op,"Castración")
3:
imprimemascota(mascotas,op,"Revisión General")
4:
imprimemascota(mascotas,op,"Vacunación")
5:
Imprimir "Regresando al menú principal."
De Otro Modo:
Imprimir "Ha digitado una opción incorrecta"
Fin Segun
Hasta Que op = 5
FinSubProceso
SubProceso imprimemascota (mascotas,op,servicio)
Imprimir "Los nombres de los animales para ser atendidos en el servicio de: " servicio " son los siguientes: "
Para ind <- 1 Hasta 4 Con Paso 1 Hacer
si mascotas(ind,4) = ConvertirATexto(op) Entonces
Imprimir mascotas(ind,1)
FinSi
Fin Para
FinSubProceso
SubProceso letramascota(mascotas)
Definir letra Como Caracter
letra = ""
Imprimir "Por favor digite la letra inicial para buscar los nombres de las mascotas"
Leer letra
Imprimir "Los nombres de los animales que comienzan con la letra: " letra " son los siguientes:"
Para ind <- 1 Hasta 4 Con Paso 1 Hacer
si subcadena(mascotas(ind,1), 1,1) = letra Entonces
Imprimir mascotas(ind,1)
FinSi
Fin Para
FinSubProceso
SubProceso montodonación(personas)
Definir montotal Como Entero
montotal = 0
Para ind <- 1 Hasta 4 Con Paso 1 Hacer
montotal = montotal + ConvertirANumero(personas(ind,4))
Fin Para
Imprimir "El monto total recaudado en donaciones es de: " montotal
FinSubProceso
Valora esta pregunta
0