#include<stdio.h>#include<string.h>#include<stdlib.h>typedef struct patient{ char ID[10]; char name[10]; char bingli[300]; int cost[3]; struct patient * next;}node1;typedef struct storage{ int amount[3]; int price[3];}node2;node2 init(node2 temp){  temp.amount[0]=20; temp.amount[1]=20; temp.amount[2]=10; temp.price[0]=5; temp.price[1]=9; temp.price[2]=16; return temp;}void mainmeun(){ printf("/n"); printf(" 健康是快樂的源泉/n"); printf("********************************/n"); printf("1.注冊新病人信息/n"); printf("2.查詢病人信息/n"); printf("3.寫病歷/n"); printf("4.病人消費/n"); printf("5.列出所有病人信息/n"); printf("6.載入所有病人信息/n"); printf("7.保存/n"); printf("8.查詢藥品庫存/n"); printf("9.離開/n"); printf("*********************************/n");}node1 * create(node1 *p1){ node1 *p; p=(node1 *)malloc(sizeof(node1)); printf("請輸入病人ID/n"); scanf("%s",p->ID);  while(p1->ID&&strcmp(p1->ID,p->ID)) { p1=p1->next; } if(p1==NULL) { printf("請輸入病人姓名/n"); scanf("%s",p->name); strcpy(p->bingli,"0"); p->cost[0]=0; p->cost[1]=0;  p->cost[2]=0; p->next=NULL; printf("已注入您的信息/n"); return p; } else  { printf("輸入病人ID以存在,注冊失敗/n"); return p; }}node1 * insert(node1 * head,node1 *p){ node1 *p1;  if(head==NULL) { head=p; p->next=NULL;  } else { p1=head; while(p1->next) { p1=p1->next;  } p1->next=p; p->next=NULL;  } return(head);}void search(node1 *p1){ int sum; char a[10]; printf("請輸入病人ID/n"); scanf("%s",a); while(p1->ID&&strcmp(p1->ID,a)) { p1=p1->next; } if(p1) { printf("ID:%s/n",p1->ID); printf("姓名:%s/n",p1->name); printf("病例:%s/n",p1->bingli); printf("消費記錄:/n"); if(p1->cost[0]) printf("巴米爾/t%d/n",p1->cost[0]); if(p1->cost[1]) printf("感冒靈/t%d/n",p1->cost[1]); if(p1->cost[2]) printf("病毒靈/t%d/n",p1->cost[2]); sum=p1->cost[0]*5+p1->cost[1]*9+p1->cost[2]*16; printf("總費用/t%d/n",sum); } else printf("該病人沒有注冊/n");  }void bingli(node1 *p){ char a[10]; char bingli[300]; char enter[5]=":/n"; printf("請輸入病人ID/n"); scanf("%s",a); while(p->ID&&strcmp(p->ID,a)) { p=p->next; } if(p==NULL) { printf("無該病人信息/n"); } else { printf("請寫病例:/n"); scanf("%s",bingli); strcpy(p->bingli,bingli); strcat(p->bingli,enter); }}node2 buy(node1 *p,node2 temp){ char i[10]; printf("請輸入病人ID/n"); scanf("%s",i); while(p->ID&&strcmp(p->ID,i)) { p=p->next; }  while(1) { int a,b,c,d; printf("1.購買巴米爾/n"); printf("2.購買感冒靈/n"); printf("3.購買病毒靈/n"); printf("0.退出/n"); scanf("%d",&a); switch(a) { case 1: do { printf("現有庫存%d/n",temp.amount[0]); printf("購買巴米爾數量:"); scanf("%d",&b); temp.amount[0]=temp.amount[0]-b; p->cost[0]+=b*5;  }while(b>20); break; case 2: do { printf("現有庫存%d/n",temp.amount[1]); printf("購買感冒靈數量:"); scanf("%d",&c); temp.amount[1]=temp.amount[1]-c; p->cost[1]+=c*9; }while(c>20); break; case 3: do { printf("現有庫存%d/n",temp.amount[2]); printf("購買病毒靈數量:"); scanf("%d",&d); temp.amount[2]=temp.amount[2]-d; p->cost[2]+=d*16; }while(d>=10); break; case 0: return temp; } } }void list(node1 *p){  if(p==NULL) printf("尚無病人信息/n"); else {  do{ printf("病人ID:%s/n",p->ID); printf("病人姓名:%s/n",p->name);  printf("病人病例:%s/n",p->bingli);  printf("購買巴米爾費用:%d/n",p->cost[0]);  printf("購買感冒靈費用:%d/n",p->cost[1]);  printf("購買病毒靈費用:%d/n",p->cost[2]); printf("/n"); p=p->next;  }while(p!=NULL); }}node1 * load(node1 *p){  char ID[10],name[10],bingli[300]; int cost0,cost1,cost2; FILE *fp; fp=fopen("information.txt","r"); int n=0; node1 *p1,*p2;  while(!feof(fp)) { n++; p1=(node1 *)malloc(sizeof(node1)); fscanf(fp,"%s",ID); fscanf(fp,"%s",name); fscanf(fp,"%s",bingli); fscanf(fp,"%d",&cost0); fscanf(fp,"%d",&cost1); fscanf(fp,"%d",&cost2);  strcpy(p1->ID,ID); strcpy(p1->name,name); strcpy(p1->bingli,bingli); p1->cost[0]=cost0; p1->cost[1]=cost1; p1->cost[2]=cost2; p1->next=NULL;   if(n==1) { p=p1; p2=p1; }  else { p2->next=p1; p2=p1;  } }  fclose(fp);  return p;}void save(node1 *p){ FILE *fp; fp=fopen("information.txt","w"); if(p!=NULL) do{ fprintf(fp,"%s/n",p->ID); fprintf(fp,"%s/n",p->name); fprintf(fp,"%s/n",p->bingli); fprintf(fp,"%d/n",p->cost[0]); fprintf(fp,"%d/n",p->cost[1]); fprintf(fp,"%d/n",p->cost[2]); p=p->next; }while(p!=NULL); fclose(fp);}void liststock(node2 temp){ printf("藥品/t數量/t價格/t/n"); printf("巴米爾/t%d/t%d/t/n",temp.amount[0],temp.price[0]); printf("感冒靈/t%d/t%d/t/n",temp.amount[1],temp.price[1]); printf("病毒靈/t%d/t%d/t/n",temp.amount[2],temp.price[2]); }chose(){ node1 *head=NULL,*p; node2 temp; temp=init(temp); while(1) { mainmeun(); int a; scanf("%d",&a); switch(a) { case 1: p=create(head); head=insert(head,p); break; case 2: search(head); break; case 3: bingli(head); break; case 4: temp=buy(head,temp); break; case 5: list(head); break; case 6: head=load(head); break; case 7: save(head); break; case 8: liststock(temp); break; case 9: printf("謝謝使用/n"); return(0); default: printf("輸入有誤，重新輸入/n"); break; } }}void main(){ chose();}