Logo Studenta

Tarea en Casa nro 9_ Revisión del intento

¡Este material tiene más páginas!

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

Continuar navegando