Programa De Simulacion En C

´ ´ TEMA 5. SIMULACION USANDO UN LENGUAJE DE PROGRAMACION

69

ANEXO 1 ´ Programa de simulacion de una cola atendida por un unico empleado ´
´ Fichero cola.h (gestion de las colas)
#include#include #include

enum booleana {false,true}; typedef enum booleana booleana; struct cola { float struct cola };

dato; *siguiente;

struct gestion_cola { struct cola *inicio, *fin; };booleana Esta_vacia(g_cola) struct gestion_cola *g_cola; { if ( g_cola->inicio == NULL ) return(true); else return(false); }

booleana Anadir_elemento(g_cola,dato) struct gestion_cola *g_cola; floatdato; { booleana error; if ( Esta_vacia(g_cola) == true ) g_cola->inicio = g_cola->fin = (struct cola *) calloc(1,sizeof(struct cola)); else g_cola->fin= (g_cola->fin)->siguiente = (struct cola *)calloc(1,sizeof(struct cola)); if (g_cola->fin == NULL) { printf("\nERROR: No hay memoria disponible\n"); error = true; } else { (g_cola->fin)->dato = dato; error = false; }; return(error); }

booleanaSacar_elemento(g_cola,dato) struct gestion_cola *g_cola; float *dato; { struct cola *aux; booleana error; if ( Esta_vacia(g_cola) == false ) { *dato = (g_cola->inicio)->dato; aux = g_cola->inicio; if ((g_cola->inicio)->siguiente == NULL )

70

Alfonso Urqu´a ı

´ SIMULACION - Texto Base de Teor´a ı

g_cola->inicio = g_cola->fin = NULL; else g_cola->inicio = (g_cola->inicio)->siguiente;free(aux); error = false; } else { printf("\nERROR: intento de sacar un elemento de una cola vacia\n"); error = true; }; return(error); }

void Imprime_cola(g_cola) struct gestion_cola *g_cola; { structcola *aux; if ( Esta_vacia(g_cola) == true ) { printf("Cola vacia"); } else { aux = g_cola->inicio; do { printf("%f\t",aux->dato); aux = aux->siguiente; } while ( aux != NULL ); }; printf("\n");return; }

´ ´ TEMA 5. SIMULACION USANDO UN LENGUAJE DE PROGRAMACION

71

Programa principal y rutinas
#include #include #include #include #include #define "a:\cola.h" NO_DEFINIDO -1.0...