//---------------------------------------------------------------------------

#include "vcl.h"
#include "stdio.h"
#include "stdlib.h"
#define LBDA 0.05   //飛機(jī)到達(dá)強(qiáng)度
#define LBDD 0.15  //飛機(jī)離去強(qiáng)度
#define MAXP 70    //準(zhǔn)備起飛飛機(jī)最大隊(duì)長(zhǎng)
#define MAXT 10000   //最大模擬時(shí)間
#define TW   5     //飛機(jī)起飛降落的時(shí)間
typedef struct{
  unsigned num; //飛機(jī)編號(hào)
  unsigned do_time; //飛機(jī)行為時(shí)間
  unsigned mode;    //0，機(jī)場(chǎng)可起降，1有降落飛機(jī)，2有起飛飛機(jī) 其他：錯(cuò)誤
}tplane;
void     ini_linep(tplane li[MAXP+1]); //初始飛機(jī)隊(duì)列
void     toline(tplane li[MAXP+1],long ct,unsigned nb,unsigned md);//飛機(jī)排入隊(duì)尾
tplane   outline(tplane li[MAXP+1],long ct);//li中隊(duì)收首飛機(jī)出列，進(jìn)入跑道
float ran(void);//偽隨機(jī)數(shù)
void     testl(tplane li[MAXP+1]);//測(cè)試函數(shù)
long    minabc(long a,long b,long c);//abc三個(gè)數(shù)中取值最小者
main(int argc, char* argv[])
{tplane planea[MAXP+1],planed[MAXP+1],runaway,pt;
 long clock;
 float u1,u2;
 unsigned ka=0,kd=0;
 randomize();
 ini_linep(planea);
 ini_linep(planed);
 clock=1;
 runaway.num=0;runaway.do_time=0;runaway.mode=0;
 while(clock<=MAXT){
   u1=ran();u2=ran();
   if(u1<LBDA){
     ka++;
     pt.num=2*ka-1;
     pt.do_time=clock;
     pt.mode=1;
     toline(planea,clock,pt.num,pt.mode);
   }//處理飛機(jī)到達(dá)事務(wù)
   if(u2<LBDD){
     kd++;
     pt.num=2*kd;
     pt.do_time=clock;
     pt.mode=2;
     toline(planed,clock,pt.num,pt.mode);
   }//處理飛機(jī)起飛事務(wù)
   rightaway:if(runaway.mode==0){
     if(planea[1].num!=0){
       runaway=outline(planea,clock);
       printf("第%d架飛機(jī)降落時(shí)刻為%d<-\n",runaway.num,clock);
       runaway.do_time=clock+TW;
     }
     else if(planed[1].num!=0){
       runaway=outline(planed,clock);
       printf("第%d架飛機(jī)起飛時(shí)刻為%d->\n",runaway.num,clock);
       runaway.do_time=clock+TW;
     }
   }
   else if(runaway.do_time==clock){
     runaway.mode=0;runaway.num=0;runaway.do_time=0;goto rightaway;
   }
   clock++;
 }
printf("空中\(zhòng)n");testl(planea);
printf("停機(jī)場(chǎng)\n");testl(planed);
//printf("min%d",minabc(112,114,116)) ;
getchar();
}
float ran(void)//偽隨機(jī)數(shù)
{float r;
 r=rand()%32767+1;
 r=r/32768;
 return(r);
}
void     ini_linep(tplane li[MAXP+1])//初始降落分級(jí)隊(duì)列
{unsigned i;
for(i=1;i<=MAXP;i++){li[i].num=0;li[i].do_time=0;li[i].do_time=0;}
}
void     toline(tplane li[MAXP+1],long ct,unsigned nb,unsigned md)
{unsigned j;
j=0;
while(1){
  j++;
  if(j>MAXP){printf("too long line");exit(0);}
  if(li[j].num==0){
     li[j].num=nb;li[j].do_time=ct; li[j].mode=md;
     printf("第%d客戶進(jìn)入隊(duì)列的時(shí)刻%d\n",li[j].num,ct);
     break;
  }
}  
}
tplane   outline(tplane li[MAXP+1],long ct)//li中隊(duì)收首飛機(jī)出列，進(jìn)入跑道
{unsigned k;
 tplane pl;
 pl.num=li[1].num;
 pl.do_time=li[1].do_time;
 pl.mode=li[1].mode;
 for(k=1;k<MAXP;k++){
  if(li[k].num==0)break;
  else li[k]=li[k+1];
 }
 return(pl);
}
void     testl(tplane li[MAXP+1])
{unsigned i;
printf("飛機(jī)隊(duì)列\(zhòng)n");
for(i=1;i<=MAXP;i++){
 if(li[i].num!=0)printf("編號(hào)%d 進(jìn)入隊(duì)列的時(shí)間%d\n",li[i].num,li[i].do_time);
 else break;
}
}
long    minabc(long a,long b,long c)//abc三個(gè)數(shù)中取值最小者
{long ret;
 if(a>b)ret=b;
 else    ret=a;
 if(ret>c)ret=c;
 return(ret);

}
//-------------------------------------------------------------------------