Vista previa del material en texto
/ Área personal / Mis cursos / AyED Práctica / UT 6 / Tarea en Casa nro.9 Comenzado el domingo, 8 de noviembre de 2020, 18:41 Estado Finalizado Finalizado en domingo, 8 de noviembre de 2020, 19:06 Tiempo empleado 24 minutos 43 segundos Calificación Sin calificar aún https://www.campusvirtual.frm.utn.edu.ar/my/ https://www.campusvirtual.frm.utn.edu.ar/course/view.php?id=652 https://www.campusvirtual.frm.utn.edu.ar/course/view.php?id=652#section-10 https://www.campusvirtual.frm.utn.edu.ar/mod/quiz/view.php?id=53714 / Pregunta 1 Correcta Puntúa 10,00 sobre 10,00 Enunciado : Una importante empresa de taxis de nuestra provincia, guarda la siguiente información de cada una de sus 60 unidades: Para cada taxi hay un único chofer asignado de la empresa que lo maneja (de día y de noche según su turno) e informa los km realizados por mes. TIPO UnChofer = REGISTRO nomyape: CADENA Telefono: ENTERO FINREGISTRO TIPO DatosTaxi = REGISTRO Patente: CADENA NroUnidad: ENTERO Modelo: CADENA FINREGISTRO TIPO UnTaxi = REGISTRO Datos: DatosTaxi KmRecorridos[12]: ENTERO Chofer: UnChofer FINREGISTRO Indique qué hace el siguiente subprograma: PROCEDIMIENTO Calculo(Taxis[60]: UnTaxi) VAR i, j, s, t: ENTERO; c: CADENA INICIO ESCRIBIR(“Ingrese el dato”) REPETIR LEER(c) HASTA QUE (longitud(c) > 0) t = 0 VARIAR i DESDE 1 HASTA 60 SI (Taxis[i].Datos.Modelo == c) ENTONCES t = t + 1 s= 0 VARIAR j DESDE 1 HASTA 10 s= s + Taxis[i].KmRecorridos[j] / FINVARIAR ESCRIBIR(“Numero Taxi:”, Taxis[i].Datos.NroUnidad, “ Resultado: ”, s/10) FINSI FINVARIAR SI (t == 0) ENTONCES ESCRIBIR(“ATENCION”) FINSI FINPROCEDIMIENTO Seleccione una: Calcula el total de km recorridos para los taxis que sean de un modelo determinado (ingresado por el usuario). Calcula el promedio de km recorridos para los taxis que sean de un modelo determinado (ingresado por el usuario). Calcula el total de km recorridos (considerando hasta octubre) para los taxis que sean de un modelo determinado (ingresado por el usuario). Calcula el promedio de km recorridos (considerando hasta octubre) para los taxis por cada modelo. Calcula el promedio de km recorridos (considerando hasta octubre) para los taxis que sean de un modelo determinado (ingresado por el usuario). La respuesta correcta es: Calcula el promedio de km recorridos (considerando hasta octubre) para los taxis que sean de un modelo determinado (ingresado por el usuario). / Pregunta 2 Incorrecta Puntúa 0,00 sobre 10,00 En una importante empresa que funciona en un edificio de 8 pisos, se guarda la siguiente información de cada uno de sus 50 matafuegos, ubicados en diferentes oficinas: Piso, Area, Oficina, responsable del Mantenimiento asignado de la empresa; que realiza una revisión mensual por cuestiones de seguridad a fin de mantenerlos siempre funcionando y luego de la revisión registra su estado en el sistema F (funciona) NFP (no funciona permanente) ER (en reparación); datos del proveedor: nombre, técnico y teléfono. Se desea un informe con los matafuegos de un determinado Proveedor, ingresado por el usuario, que hayan tenido menos de 3 revisiones técnicas con estado ER (en reparación) en los seis primeros meses. Los datos a mostrar son Piso, Oficina, Responsable y nombre del técnico del Proveedor. Nota: no realizar el Procedimiento de carga de datos. PROGRAMA Matafuegos TIPO Prov = REGISTRO Nom: CADENA Tec: CADENA Telef: ENTERO FINREGISTRO TIPO MatFueg = REGISTRO Piso: ENTERO Area: ENTERO Oficina: CADENA Resp: CADENA RevTec[12]:CADENA Proveed: Prov FINREGISTRO //Subprogramas PROCEDIMIENTO CargoMatafuegos(por ref.Empresa[50]:MatFueg) ….. FINPROCEDIMIENTO PROCEDIMIENTO MuestroInforme (Empresa[50]:MatFueg) Var. I,J, Cont : ENTERO; Proveedor:CADENA / REPETIR LEER (Proveedor) HASTA QUE (longitud(Proveedor) >0) VARIAR I DESDE 1 HASTA 50 Cont=0 SI (Empresa[I].RevTec[J]==”ER”) ENTONCES Cont=Cont+1 FINSI FINVARIAR SI (Cont < 3) ENTONCES ESCRIBIR(“El matafuego del piso “, Empresa[I].Piso, “de la oficina “, Empresa[I].Oficina, “con responsable “, Empresa[I].Resp, “y proveedor “, Empresa[I].Proveed.Tec) FINSI FINSI FINVARIAR FINPROCEDIMIENTO //Programa ppal CargoMatafuegos(Empresa[]) MuestroInforme(Empresa[]) FINPROGRAMA SI Empresa.Proveed.Nom[I]==Proveedor ENTONCES VARIAR J DESDE 1 HASTA 12 Var. Empresa[50]:Registro / Pregunta 3 Incorrecta Puntúa 0,00 sobre 10,00 En un gimnasio se guarda la siguiente información de cada uno de sus socios (no más de 100) que abonan un pago mensual por el uso de las instalaciones: Nombre Categoría Turno Pago mensual ($) Preparador Físico ... Nombre Especialidad Teléfono Cada socio pertenece a una categoría (A, B, C o D), tiene un turno al que puede asistir (mañana, tarde, noche) y están supervisados por un preparador físico(del que se conoce su nombre, teléfono y especialidad). Del pago mensual se indica el monto abonado en pesos; es decir que si no ha pagado un mes en particular, en ese mes queda registrado el valor cero. Determinar qué hace el siguiente subprograma: Programa Gimnasio //Subprogramas ............. ............. PROCEDIMIENTO RealizaCalculos(LosSocios[100]: Unsocio; CantSocios: ENTERO) VAR i: ENTERO; t1,t2,t3: REAL INICIO t1,t2,t3 = 0 VARIAR i DESDE 1 HASTA CantSocios SI (LosSocios[i].PagoMensual[10] > 0 ) ENTONCES SEGUN (LosSocios[i].Turno) HACER “mañana”: t1= t1 + LosSocios[i].PagoMensual[10] “tarde” : t2= t2 + LosSocios[i].PagoMensual[10] “noche” : t3= t3 + LosSocios[i].PagoMensual[10] FINSEGUN FINSI FINVARIAR ESCRIBIR(“Los resultados son: “, t1,t2,t3) FINPROCEDIMIENTO ..... //Programa principal ..... FINPROGRAMA Seleccione una: El subprograma RealizaCalculos() muestra el total cobrado en el mes de Octubre para cada turno. El subprograma RealizaCalculos() muestra el total adeudado en el mes de Octubre para cada turno. El subprograma RealizaCalculos() muestra el total cobrado hasta el mes de Octubre para cada turno. / El subprograma RealizaCalculos() muestra el total cobrado hasta el mes de Octubre. El subprograma RealizaCalculos() muestra el total adeudado en el mes de Octubre. La respuesta correcta es: El subprograma RealizaCalculos() muestra el total cobrado en el mes de Octubre para cada turno. / Pregunta 4 Incorrecta Puntúa 0,00 sobre 10,00 En un club deportivo se guarda la siguiente información de cada uno de sus equipos de futbol (no mas de 40) que participan en diferentes torneos locales y nacionales: Nombre Categoría Cantidad de jugadores Cantidad de partidosEntrenador Nombre Antigüedad en el club Teléfono Cada equipo pertenece a una categoría, tiene una cantidad de jugadores que están conducidos por un entrenador (del que se conoce su nombre, teléfono y cuántos años hace que trabaja para el club). De los partidos que juegan, se lleva las cantidades de: partidos ganados (1ra.columna), partidos perdidos (2da.columna), partidos empatados (3ra.columna), partidos suspendidos (4ta.columna), partidos pendientes de jugar (5ta.columna). Analice el siguiente programa y determine qué hace el subprograma: PROGRAMA Futbol //Subprogramas ............. ............. PROCEDIMIENTO MuestraEntrenadores(LosEquipos[40]: UnEquipo; CantEquipos: ENTERO) VAR i : ENTERO INICIO VARIAR i DESDE 1 HASTA CantEquipos SI ((LosEquipos[i].CantidadDePartidos[1]+LosEquipos[i].CantidadDePartidos[3]+LosEquipos[i].CantidadDePartidos[4] == 0 ) [Y] LosEquipos[i].CantidadDePartidos[2] > 7 [Y] LosEquipos[i].CantidadDePartidos[5] == 3 ) ENTONCES ESCRIBIR(“Mostrar : “,LosEquipos[i].Entrenador.Nombre, ¨-¨, LosEquipos[i].Entrenador.Telefono) FINSI FINVARIAR FINPROCEDIMIENTO ..... //Programa principal ..... FINPROGRAMA El subprograma MuestraEntrenadores() muestra el nombre y telefono de los entrenadores de equipos: Seleccione una: • que han perdido más de 7 partidos, no tienen ningún partido suspendido y les quedan más de 3 por jugar. • quehan perdido más de 7 partidos, no tienen partidos suspendidos y sólo les quedan 3 por jugar. • que no han ganado ni empatado ningún partido, han perdido más de 7 y sólo les quedan 3 por jugar. • que no habiendo ganado ningún partido han perdido menos de los 7 jugados, no tienen partidos suspendidos y sólo les quedan 3 por jugar. • que no habiendo ganado ningún partido han perdido más de los 7 jugados, no tienen partidos suspendidos y sólo les quedan 3 / por jugar. La respuesta correcta es: • que no habiendo ganado ningún partido han perdido más de los 7 jugados, no tienen partidos suspendidos y sólo les quedan 3 por jugar. / Pregunta 5 Parcialmente correcta Puntúa 5,00 sobre 10,00 “Genere el registro con todos los campos necesarios para poder organizar a una fábrica de puertas que cuenta con la siguiente información de cada modelo de puerta: descripción, código, fecha de creación del modelo (día, mes, año); y, como datos de fabricación tiene: cantidad de horas de trabajo, kilos de caño, tornillos y m2 de mdf que se necesita por cada modelo de puerta. Además, cuenta con los datos de los 6 meses de cantidad pedida y cantidad entregada de cada modelo de puerta.” Completar las instrucciones faltantes. //declaraciones de Tipos registros TIPO FechadeCreacion = REGISTRO Dia: ENTERO Mes: ENTERO Año: ENTERO FINREGISTRO TIPO Datosdefabricacion = REGISTRO Horas: REAL Kilos: REAL Tornillos: ENTERO Mdf: REAL FINREGISTRO TIPO PedidosMensuales = REGISTRO Pedido: ENTERO Entrega: ENTERO FINREGISTRO TIPO Puertas=REGISTRO Descrip: CADENA Código: CADENA FINREGISTRO Realizar un subprograma que muestre todos los modelos de puertas que no pudieron cumplir con la totalidad de lo pedido Fecha: FechadeCreacion Datos: Datosdefabricacion Pedi[12,2]:ENTERO / VAR CuentaEnt,CuentaPed:ENTERO; puer, ind:ENTERO INICIO CuentaEnt=0 CuentaPed=0 CuentaPed=CuentaPed + MisPuertas[puer].Pedi[ind].Pedido CuentaEnt=CuentaEnt + MisPuertas[puer].Pedi[ind].Entrega FINVARIAR SI (CuentaEnt < CuentaPed) ENTONCES ESCRIBIR(“El modelo de puerta”, MisPuertas[puer].Descrip, “no cumplió con las entregas de todo lo pedido en el año.”) FINSI FINVARIAR FINPROCEDIMIENTO PROCEDIMIENTO Cumplimos (MisPuertas[30]:Puertas) VARIAR DESDE 1 HASTA 30 VARIAR CuentaPed DESDE 1 HASTA 12 / Pregunta 6 Finalizado Puntúa como 10,00 Ejercicio : Se pide realizar las declaraciones de tipos y variables necesarias para almacenar la información presentada. (10 puntos) Se tiene la sgte. información de las ventas de un determinado mes, de todas las farmacias de Mendoza Farmacias Nombre Farmacia Nombre Farmacéutico Dirección Ventas Turnos 24 hs Bajo receta Venta Libre Otras Día de turno Personal afectado De cada farmacia se da su nombre, el nombre del farmacéutico responsable, su dirección y las ventas totales en pesos ($) del mes discriminando en medicamentos bajo receta, medicamentos de venta libre y otras (cosméticos, bijouterie, aparatos, etc.). Además se especifica el día (“lunes” a “domingo”) que cumple turno de 24 hs y la cantidad de personas que cumplen con los mismos. --- / Pregunta 7 Incorrecta Puntúa 0,00 sobre 10,00 Una empresa posee cuatro sucursales en donde vende sus 200 productos. Desea registrar los datos de sus productos y llevar un registro de sus 1000 clientes que tiene en cada sucursal . Indique cuál es la declaración de variables válida y más adecuada para el conjunto de datos que desea registrarse, dado la siguiente declaracion de Registros: TIPO UnCliente = REGISTRO Nombre y apellido: CADENA CodigoCliente: ENTERO FINREGISTRO TIPO UnaSucursal = REGISTRO Nombre: CADENA Direccion: CADENA Telefono: ENTERO FINREGISTRO TIPO UnProducto = REGISTRO Nombre: CADENA Codigo: ENTERO PrecioUnitario: REAL FINREGISTRO TIPO LaSucursal = REGISTRO DatosSucursal: UnaSucursal DatosClientes[1000]: UnCliente FINREGISTRO Seleccione una: VAR Sucursales[4]: UnaSucursal; Productos[200]: UnProducto VAR Clientes[1000]: UnCliente; Sucursales[4]: UnaSucursal; Productos[200]: UnProducto VAR Sucursales[4]: LaSucursal; Productos[200]: UnProducto / VAR Sucursales: UnaSucursal[4]; LosProductos: Producto[200] VAR UnCliente[1000]: Clientes; UnaSucursal[4]: Sucursal; UnProducto[200]: Productos La respuesta correcta es: VAR Sucursales[4]: LaSucursal; Productos[200]: UnProducto / Pregunta 8 Parcialmente correcta Puntúa 3,33 sobre 10,00 En un negocio que alquila bicicletas a turistas se guarda la siguiente información de cada una de las 80 bicicletas que tiene disponibles: Bicicletas Número Modelo Color Control Cliente Nombre y apellido Hotel en el que se hospeda El modelo indica si es para dama o caballero. El alquiler es por el día. Cuando devuelven la bicicleta se hace una revisión de: rueda de adelante (1ra. elemento del vector Control); rueda de atrás (2do. elemento del vector Control) y del resto: cuadro, manurio, frenos y pedales (3er. elemento del vector Control). El resultado de cada uno puede resultar Bueno, Regular o Malo. Si el estado es Malo en los tres casos, se le cobra un recargo al cliente. El negocio comenzó en el año 2008 en donde se compraron inicialmente 20 bicicletas (10 rojas y 10 negras), y después en cada año se fueron comprando algunas más, hasta llegar a la cantidad actual. Subprograma que muestre la cantidad de bicicletas de dama cuyo control de ambas ruedas resultó Regular y del resto, Malo. Informando además, los datos del cliente: nombre y apellido; y hotel donde se hospeda. Subprograma que dado un hotel, informe cuáles bicicletas (número) de color rojo fueron devueltas con todos sus componentes en mal estado. Si no hubiera ningún caso, mostrar el mensaje "No hay casos que cumplan la condicion indicada". Completar las intrucciones faltantes para que los subprogramas realicen lo solicitado: Programa AlquilerBicicletas //Subprogramas ............. ............. Procedimiento BicicletasControladas(LasBicicletas[80]: UnaBicicleta) VAR i, c: ENTERO INICIO c = 0 VARIAR i DESDE 1 HASTA 80 SI (LasBicicletas[i].Modelo== "DAMA") ENTONCES c = c + 1 FINSI FINSI FINVARIAR ESCRIBIR(“El resultado es:“, c) SI (LasBicicletas[i].Control[1]=="Regular" [O] LasBicicletas[i].Control[2]=="Regular" [O] LasBicicletas[i].Control[3]=="Malo")ENTO ESCRIBIR("Datos cliente: ",LasBicicletas.Cliente.NombreYApellido[i], "-",LasBicicletas.Cliente.HotelDondeSeHospeda[i]) / FINPROCEDIMIENTO PROCEDIMIENTO MuestraBicicletas(LasBicicletas[80]: UnaBicicleta; UnHotel: CADENA) VAR i, j, s, t : ENTERO INICIO s = 0 VARIAR i DESDE 1 HASTA 80 t = 0 VARIAR j DESDE 1 HASTA 3 t = t + 1 FINSI FINVARIAR ESCRIBIR(“Bicicleta : “,LasBicicletas[i].Numero) s = s + 1 FINSI FINSI FINVARIAR ESCRIBIR("No hay casos que cumplan la condicion indicada") FINSI FINPROCEDIMIENTO ..... //Programa principal ..... FINPROGRAMA SI (LasBicicletas[i].Cliente.HotelDondeSeHospeda == UnHotel [Y] LasBicicletas[i].Color == "ROJO") ENTONCES SI (LasBicicletas[i].Control[j]<>"Malo" ) ENTONCES SI (t == 0) ENTONCES SI (s == 0) ENTONCES / Pregunta 9 Finalizado Puntúa como 10,00 Ejercicio: Se pide realizar las declaraciones de tipos y variables necesarias para almacenar la información presentada. (10 puntos) “Una conocida cadena de cines distribuidos en todo el mundo guarda la siguiente información de cada una de sus salas de cine (no más de 50) que generan importantes ingresos mensuales: Ubicación Ciudad País Ingresos mensuales Administrador ... Nombre Correo Teléfono Cada sala de cines tiene un Administrador que es el responsable de rendir cuentas acerca de los ingresos mensuales obtenidos; del que se conoce su nombre, correo electrónico y teléfono particular. Los ingresos mensuales están expresados en dólares.” --- / Pregunta 10 Incorrecta Puntúa 0,00 sobre 10,00 En un lujoso hotelde 6 pisos, se guarda la siguiente información de cada una de sus 60 habitaciones disponibles: Habitaciones Piso Número Habitacion Mucama Limpieza Televisor Estado Técnico Teléfono En cada habitación la mucama asignada, realiza limpieza dos veces en el día; registrándolo en el sistema (SI/NO). Cada habitación dispone de un televisor que es revisado periódicamente para verificar su Estado: F (funciona), NFT (no funciona, temporario); NFP (no funciona, permanente, no tuvo arreglo); ER (en reparación). Se registran también los datos del técnico, por si es necesaria realizar su reparación. Determinar qué hace el siguiente subprograma: Programa Hotel //Subprogramas ............. ............. PROCEDIMIENTO MuestraPendiente(LasHabitaciones[60]: UnaHabitacion; UnaMucama: CADENA) VAR i, t, s : ENTERO INICIO s = 0 t = 0 VARIAR i DESDE 1 HASTA 60 SI (LasHabitaciones[i].Mucama == UnaMucama) ENTONCES t = t + 1 SI (LasHabitaciones[i].Limpieza[1] == "NO" [Y] [NO ]LasHabitaciones[i].Limpieza[2] == "SI" ) ENTONCES ESCRIBIR(“Faltaria : “,LasHabitaciones[i].Piso, "-", LasHabitaciones[i].NumeroHabitacion) s = s + 1 FINSI FINSI FINVARIAR SI (s > 0 [Y] (s*100)/t > 50) ENTONCES ESCRIBIR("Realizar llamado de atención") FINSI FINPROCEDIMIENTO ..... //Programa principal ..... / FINPROGRAMA El subprograma MuestraPendiente()informa las habitaciones (Piso y Numero) asignadas a una determinada Mucama(ingresada por el usuario): Seleccione una: • en donde no se hayan realizado las dos limpiezas diarias. Además en el caso de que la Mucama no haya realizado más del 50% de las habitaciones asignadas, se le hará un llamado de atención. • en donde no se hayan realizado las dos limpiezas diarias. Además en el caso de que la Mucama no haya realizado más de 50 habitaciones, se le hará un llamado de atención. • en donde no se hayan realizado las dos limpiezas diarias. Además en el caso de que la Mucama haya realizado menos del 50 de las habitaciones asignadas, se le hará un llamado de atención. • en donde sólo se hayan realizado una limpieza diaria. Además en el caso de que la Mucama no haya realizado menos de 50 habitaciones, se le hará un llamado de atención. • en donde no se haya realizado por lo menos una de las dos limpiezas diarias. Además en el caso de que la Mucama haya realizado menos del 50% de las habitaciones asignadas, se le hará un llamado de atención. La respuesta correcta es: • en donde no se hayan realizado las dos limpiezas diarias. Además en el caso de que la Mucama no haya realizado más del 50% de las habitaciones asignadas, se le hará un llamado de atención. ◄ Clase Nro. 9 Optativos Ir a... Cuestionario 10 ► https://www.campusvirtual.frm.utn.edu.ar/mod/resource/view.php?id=70282&forceview=1 https://www.campusvirtual.frm.utn.edu.ar/mod/quiz/view.php?id=62492&forceview=1