Examen Mayo 2019

Crear los procedimientos adecuados para añadir un TCliente a la TVentanilla abierta, menos saturada. Para ello se dispone del DNI del cliente, el tipo de servicio que desea recibir y el identificador de la oficina en la que está solicitando el servicio. Para determinar la ventanilla idonea, se puede usar la función LongitudVentanilla, que devuelve el número de clientes en espera en dicha ventanilla, su prototipo es:

FUNCTION LongitudVentanilla(cod: integer) : integer; 
{PRE: “cod” es el código único de la TVentanilla. La función devuelve el número de clientes en espera.}

PROCEDURE nuevoClinteOficina(lista:TMails; dni:string; servicio:integer; id:integer); 
var aux_ofi: TElementoOficina;
		aux_int:integer;
		aux_lv:TListaVentanillas;
begin
		getOficina(aux_ofi, lista);  // Retorna el campo .info del TNodoLista (trivial)
		getOficinaId(aux_int, aux_ofi);  // Retorna el campo .id del TElementoOficina (trivial)
		while (not esListaVacia(lista)) and (not esOficina(aux_ofi, aux_id)) do begin
				resto(lista);  // Saca el primer elemento de la lista (trivial)
				getOficina(aux_ofi, lista);
				getOficinaId(aux_int, aux_ofi);
		end;

		if esOficina(aux, aux_int) then begin
				getListaVentanillas(aux_lv, aux_ofi);  // Obtener el campo .ventanillas del TElementoOficina (trivial)
				nuevoCliente(aux_lv, dni, servicio); 
		end;

end;

PROCEDURE nuevoCliente(var listaVentanillas:TListaVentanillas; dni:string; servicio:integer); 
var i, aux, min, ventanilla:integer;
		e:TElementoCliente;
begin
		// Asumimos ventanilla 1 como la menos concurrida
		min := LogitudVentanilla(listaVentanillas[1].cod);  // Minimo provisional
		venanilla := 1;  // Ventanilla provisional
		for i:=2 to 5 do begin
				aux := LogitudVentanilla(listaVentanillas[i].cod);  // Num de personas en la cola `i`
				if (aux < min) and (listaVentanillas[i].estado = True) then begin  // Comparamos cola en las ventanillas abiertas
						ventanilla := i;  // Actualizamos numero de ventanilla
						min := aux;  // Actualizamos num de personas en la cola mas corta
				end;
		end;

		// Encolar cliente en la ventanilla adecuada
		crearElementoCliente(e, dni, servicio)  // Asigna los datos a sus respectivos campos del tipo TCliente (trivial)
		encolar(listaVentanillas[ventanilla].cola, e);  // Añade un elemento a la cola (trivial, definido igualmente en uCliente)
end;

		PROCEDURE encolar(var c:TColaCliente, e:TElementoCliente); 
		var aux:^TNodoCliente;
		begin
				new(aux);  // Creamos nuevo nodo
				copiarElementoCliente(aux^.info, e)  // Copiamos uno a uno los campos del elemento cliente (trivial)
				aux^.sig := NIL;
				if not esColaVacia(c) then c.ultimo^.sig := aux;  // Si la cola no es vacia, le decimos al ultimo que tiene uno detrás
				c.ultimo := aux;  // Asignamos `aux` como el nuevo últimos de la cola
		end;