#include "stdio.h" 
#include <stdlib.h> 
#include <conio.h> 
#define getpch(type) (type*)malloc(sizeof(type)) 
#define NULL 0 
struct pcb { /* 定義進(jìn)程控制塊PCB */ 
char name[10]; 
char state; 
int super; 
int ntime;     /*占用時間*/
int rtime;     /*已運行時間*/
struct pcb* link; 
}*ready=NULL,*p; 
typedef struct pcb PCB; 
void sort() /* 建立對進(jìn)程進(jìn)行優(yōu)先級排列函數(shù)*/ 
{ 
	PCB *first, *second; 
	int insert=0; 
	if((ready==NULL)||((p->super)>(ready->super))) /*優(yōu)先級最大者,插入隊首*/ 
	{ 
		p->link=ready; 
		ready=p; 
	} 
	else /* 進(jìn)程比較優(yōu)先級,插入適當(dāng)?shù)奈恢弥?/ 
	{ 
		first=ready; 
		second=first->link; 
		while(second!=NULL) 
		{ 
			if((p->super)>(second->super)) /*若插入進(jìn)程比當(dāng)前進(jìn)程優(yōu)先數(shù)大,*/ 
			{ /*插入到當(dāng)前進(jìn)程前面*/ 
				p->link=second; 
				first->link=p; 
				second=NULL; 
				insert=1; 
			} 
			else /* 插入進(jìn)程優(yōu)先數(shù)最低,則插入到隊尾*/ 
			{ 
				first=first->link; 
				second=second->link; /*往后比較，直到隊尾*/
			} 
		} 
		if(insert==0) first->link=p; 
	} 
} 
void input() /* 建立進(jìn)程控制塊函數(shù)*/ 
{ 
	int i,num; 
	system("cls"); /*清屏*/ 
	printf("\n 請輸入進(jìn)程個數(shù)："); 
	scanf("%d",&num); 
	for(i=0;i<num;i++) 
	{ 
		printf("\n 進(jìn)程號No.%d:\n",i); 
		p=getpch(PCB); 
		printf("\n 輸入進(jìn)程名:"); 
		scanf("%s",p->name); 
		printf("\n 輸入進(jìn)程優(yōu)先數(shù):"); 
		scanf("%d",&p->super); 
		printf("\n 輸入進(jìn)程運行時間:"); 
		scanf("%d",&p->ntime); 
		printf("\n"); 
		p->rtime=0;p->state='w'; 
		p->link=NULL; 
		sort(); /* 調(diào)用sort函數(shù),插入到隊列*/ 
	} 
} 
int space() //計算進(jìn)程個數(shù)
{ 
	int l=0; PCB* pr=ready; 
	while(pr!=NULL) 
	{ 
		l++; 
		pr=pr->link; 
	} 
	return(l); 
} 
void disp(PCB * pr) /*建立進(jìn)程顯示函數(shù),用于顯示當(dāng)前進(jìn)程*/ 
{ 
	printf("\n qname \t state \t super \t ndtime  runtime \n"); 
	printf("|%s\t",pr->name); 
	printf("|%c\t",pr->state); 
	printf("|%d\t",pr->super); 
	printf("|%d\t",pr->ntime); 
	printf("|%d\t",pr->rtime); 
	printf("\n"); 
} 
void check() /* 建立進(jìn)程查看函數(shù) */ 
{ 
	PCB* pr; 
	printf("\n **** 當(dāng)前正在運行的進(jìn)程是:%s",p->name); /*顯示當(dāng)前運行進(jìn)程*/ 
	disp(p); 
	pr=ready; 
	printf("\n ****當(dāng)前就緒隊列狀態(tài)為:\n"); /*顯示就緒隊列狀態(tài)*/ 
	while(pr!=NULL) 
	{ 
		disp(pr); 
		pr=pr->link; 
	} 
} 
void destroy() /*建立進(jìn)程撤消函數(shù)(進(jìn)程運行結(jié)束,撤消進(jìn)程)*/ 
{ 
	printf("\n 進(jìn)程 [%s] 已完成.\n",p->name); 
	free(p); 
} 
void running() /* 建立進(jìn)程就緒函數(shù)(進(jìn)程運行時間到,置就緒狀態(tài))*/ 
{ 
	(p->rtime)++; 
	if(p->rtime==p->ntime) 
	destroy(); /* 調(diào)用destroy函數(shù)*/ 
	else 
	{ 
		(p->super)--; 
		p->state='w'; 
		sort(); /*調(diào)用sort函數(shù)*/ 
	} 
} 
void main() /*主函數(shù)*/ 
{ 
	int len,h=0; 
	char ch; 
	input();      /*輸入進(jìn)程隊列*/
	len=space();  /*計算進(jìn)程個數(shù)*/
	while((len!=0)&&(ready!=NULL)) 
	{ 
		ch=getchar(); 
		h++;  /*記錄已運行的時間片個數(shù)*/
		printf("\n The execute number:%d \n",h); 
		p=ready; 
		ready=p->link; 
		p->link=NULL;   /*就緒對頭斷開*/
		p->state='R'; 
		check(); 
		running(); 
		printf("\n 按任一鍵繼續(xù)......"); 
		ch=getchar(); 
	} 
	printf("\n\n 進(jìn)程已經(jīng)完成.\n"); 
	ch=getchar(); 
}