#include<stdio.h> 
#include<stdlib.h>
int N1,N2,kk1,kk2,kk3;
struct couse * head1;
struct student * head2;
struct couse//课程信息结构体
{
  int num1;
  char name1[20];
  int score;
  int nelepeo;//课程已选人数
  int Melepeo;//课程人数上限
  struct couse * next;
};
struct student//学生信息结构体
{
  int num2;
  char name2[20];
  int nelenum[50];//已选课程编号
  int nelen;//已选课程数量
  struct student * next;
};
void Ms()
{
  for(kk1=0;kk1<1100;kk1++)
        for(kk2=0;kk2<1200;kk2++)
          for(kk3=0;kk3<1200;kk3++);
}
void keyboardc()//录入课程子函数(从键盘录入)
{
struct couse *p1,*p2;
N1=0;
p1=p2=(struct couse*)malloc(sizeof(struct couse));
printf("课程编号\t课程名称\t学分\t课程人数上限\n");
scanf("%d%s%d%d",&p1->num1,p1->name1,&p1->score,&p1->Melepeo);
p1->nelepeo=0;
head1=NULL;
while(p1->num1!=0)
{
  N1=N1+1;
  if(N1==1)head1=p1;
  else p2->next=p1;
  p2=p1;
  p1=(struct couse * )malloc(sizeof(struct couse));
  scanf("%d%s%d%d",&p1->num1,p1->name1,&p1->score,&p1->Melepeo);
  p1->nelepeo=0;
}
p2->next=NULL;
}
void filec()//录入键盘子函数(从文件录入)
{
  FILE * fp;
  char filepath[20]; 
  struct couse *p1,*p2;
  N1=0;
  printf("输入要读入的文件路径:");
  getchar();
  gets(filepath); 
  if((fp=fopen(filepath,"r"))==NULL) 
  { 
    printf("找不到%s文件!\n",filepath); 
    exit(0); 
  } 
  p1=p2=(struct couse*)malloc(sizeof(struct couse));
  fscanf(fp,"%d%s%d%d%d",&p1->num1,p1->name1,&p1->score,&p1->nelepeo,&p1->Melepeo);
  head1=NULL;
  while(!feof(fp))
  {
    N1=N1+1;
    if(N1==1)head1=p1;
    else p2->next=p1;
    p2=p1;
    p1=(struct couse * )malloc(sizeof(struct couse));
    fscanf(fp,"%d%s%d%d%d",&p1->num1,p1->name1,&p1->score,&p1->nelepeo,&p1->Melepeo);
  } 
  p2->next=NULL;
}
void inputc()//录入课程主函数
{
  int i;
  printf("\t\t\t录入课程信息\n");
  printf("\n1.从键盘录入\n");
  printf("2.从文件录入\n");
  printf("3.返回主菜单\n");
  printf("请选择(1~3):\n");
  scanf("%d",&i);
  switch(i)
  {
  case(1):keyboardc();break;
  case(2):filec();break;
  case(3):break;
  }
}
void insertc(struct couse *incouse)//课程管理子函数(增加课程)
{
  struct couse *p0,*p1,*p2;
  p1=head1;
  p0=incouse;
  if(head1==NULL)
  {
    head1=p0;
    p0->next=NULL;
  }
  else
  {
    while((p0->num1 > p1->num1) && (p1->next!=NULL))
    {
      p2=p1;
      p1=p1->next;
    }
    if(p0->num1 <= p1->num1)
    {
      if(head1==p1) head1=p0;
      else p2->next=p0;
      p0->next=p1;
    }
    else
    {
      p1->next=p0;
      p0->next=NULL;
    }
  }
  N1=N1+1;
}
void delc(int num1)//课程管理子函数(删除课程)
{
  struct couse *p1,*p2;
  if(head1==NULL)
  {
    printf("\n没有课程,无法删除!\n");
    goto end;
  }
  p1=head1;
  while(num1!=p1->num1 && p1->next!=NULL)
  {
    p2=p1;
    p1=p1->next;
  }
  if(num1==p1->num1)
  {
    if(p1==head1) head1=p1->next;
    else p2->next=p1->next;
    printf("已删除该编号课程!\n");
    N1=N1-1;
  }
  else printf("无该编号的课程!\n");
  end:;
}
void managementc()//课程管理主函数
{
  struct couse * incouse;
  int i,num1;
  printf("\t\t\t课程管理\n");
  printf("1.新增课程\n");
  printf("2.删除课程\n");
  printf("3.返回主菜单\n");
  printf("请选择(1~3):\n");
  scanf("%d",&i);
  switch(i)
  {
  case(1):
    {
      incouse=(struct couse *)malloc(sizeof(struct couse));
      printf("课程编号\t课程名称\t学分\t课程人数上限\n");
      scanf("%d%s%d%d",&incouse->num1,incouse->name1,&incouse->score,&incouse->Melepeo);
      incouse->nelepeo=0;
      insertc(incouse);
      break;
    }
  case(2):
    {
      printf("请输入要删除课程的编号:\n");
      scanf("%d",&num1);
      delc(num1);
      break;
    }
  case(3):break;
  }
}
void keyboards()//录入学生信息子函数（从键盘录入）
{
  int i;
  struct student *p1,*p2;
  N2=0;
  p1=p2=(struct student *)malloc(sizeof(struct student));
  printf("学生学号\t学生姓名\n");
  scanf("%d%s",&p1->num2,p1->name2);
  p1->nelen=0;
  for(i=0;i<20;i++) p1->nelenum[i]=0;
  head2=NULL;
  while(p1->num2!=0)
  {
    N2=N2+1;
    if(N2==1)head2=p1;
    else p2->next=p1;
    p2=p1;
    p1=(struct student * )malloc(sizeof(struct student));
    scanf("%d%s",&p1->num2,p1->name2);
    p1->nelen=0;
    for(i=0;i<20;i++) p1->nelenum[i]=0;
  }
  p2->next=NULL;
}
void files()//录入学生信息子函数（从文件录入）
{
  int i=0;
  FILE * fp;
  char filepath[20]; 
  struct student *p1,*p2;
  N2=0;
  printf("输入要读入的文件路径:");
  getchar();
  gets(filepath); 
  if((fp=fopen(filepath,"r"))==NULL) 
  { 
    printf("找不到%s文件!\n",filepath); 
    exit(0); 
  } 
  p1=p2=(struct student*)malloc(sizeof(struct student));
  fread(p1,sizeof(struct student),1,fp);
  head2=NULL;
  while(!feof(fp))
  {
    i=0;
    N2=N2+1;
    if(N2==1)head2=p1;
    else p2->next=p1;
    p2=p1;
    p1=(struct student * )malloc(sizeof(struct student));
    fread(p1,sizeof(struct student),1,fp);
  } 
  p2->next=NULL;
}
void inputs()//录入学生信息主函数
{
  int i;
  printf("\t\t\t录入学生信息\n");
  printf("\n1.从键盘录入\n");
  printf("2.从文件录入\n");
  printf("3.返回主菜单\n");
  printf("请选择(1~3):\n");
  scanf("%d",&i);
  switch(i)
  {
  case(1):keyboards();break;
  case(2):files();break;
  case(3):break;
  }
}
void inserts(struct student * incouse)//学生信息管理子函数(填加学生信息)
{
  struct student *p0,*p1,*p2;
  p1=head2;
  p0=incouse;
  if(head2==NULL)
  {
    head2=p0;
    p0->next=NULL;
  }
  else
  {
    while((p0->num2 > p1->num2) && (p1->next!=NULL))
    {
      p2=p1;
      p1=p1->next;
    }
    if(p0->num2 <= p1->num2)
    {
      if(head2==p1) head2=p0;
      else p2->next=p0;
      p0->next=p1;
    }
    else
    {
      p1->next=p0;
      p0->next=NULL;
    }
  }
  N2=N2+1;
}
void dels(int num2)//学生信息管理子函数（删除学生信息)
{
  struct student *p1,*p2;
  if(head2==NULL)
  {
    printf("\n没有该学生信息,无法删除!\n");
    goto end;
  }
  p1=head2;
  while(num2!=p1->num2 && p1->next!=NULL)
  {
    p2=p1;
    p1=p1->next;
  }
  if(num2==p1->num2)
  {
    if(p1==head2) head2=p1->next;
    else p2->next=p1->next;
    printf("已删除该学生信息!\n");
    N2=N2-1;
  }
  else printf("无该学号的学生!\n");
  end:;
}
void managements()//学生信息管理主函数
{
  struct student * incouse;
  int i,num2;
  printf("\t\t\t学生信息管理\n");
  printf("1.新增学生信息\n");
  printf("2.删除学生信息\n");
  printf("3.返回主菜单\n");
  printf("请选择(1~3):\n");
  scanf("%d",&i);
  switch(i)
  {
  case(1):
    {
      incouse=(struct student *)malloc(sizeof(struct student));
      incouse->nelen=0;
      incouse->nelenum[0]=0;
      printf("学生学号\t学生姓名\n");
      scanf("%d%s",&incouse->num2,incouse->name2);
      inserts(incouse);
      break;
    }
  case(2):
    {
      printf("请输入要删除学生的学号:\n");
      scanf("%d",&num2);
      dels(num2);
      break;
    }
  case(3):break;
  }
}
void elect(struct student * s)//选课
{
  struct couse * p;
  int num1,i;
  printf("请输入要选课的编号:\n");
  scanf("%d",&num1);
  for(i=0;s->nelenum[i]!=0;i++);
  s->nelenum[i]=num1;
  (s->nelen)++;
  p=head1;
  while(p->num1!=num1) p=p->next;
  (p->nelepeo)++;
}
void cheak()//学生选课子函数(查询可选课程)
{
  char e;
  struct couse * c;
  struct student * s;
  int num2,i,j=0,t=0;
  printf("请输入你的学号:");
  scanf("%d",&num2);
  s=head2;
  while(s->num2!=num2 && s->next!=NULL) s=s->next;
  if(s->num2!=num2)
  {
    printf("不存在你的信息,请进入主菜单录入你的信息!\n");
    goto end;
  }
  c=head1;
  printf("你的可选课程编号:\n");
  while(c!=NULL)
  {
    for(t=0,i=0;s->nelenum[i]!=0;i++)
    {
      if(c->num1==s->nelenum[i]) t=1;
    }
    if(t==0 && (c->nelepeo!=c->Melepeo))
    {
      printf("%d\n",c->num1);
      j++;
    }
    c=c->next;
  }
  if(j==0) 
  {
    printf("你已选完所有课程，无法再多选!\n");
    goto end;
  }
  printf("选课(y/n)?:\n");
  getchar();
  e=getchar();
  i=0;
  while(e=='y')
  {
    elect(s);
    printf("继续选课(y/n)?:\n");
    getchar();
    e=getchar();
  }
  end:;
}
void back(struct student * p)//退课
{
  struct couse * p1;
  int num1,i,j;
  printf("请输入你要退掉的课程编号:\n");
  scanf("%d",&num1);
  p1=head1;
  while(p1->num1!=num1) p1=p1->next;
  for(i=0;p->nelenum[i]!=num1;i++);
  for(j=i;p->nelenum[j]!=0;j++) p->nelenum[j]=p->nelenum[j+1];
  p->nelenum[--j]=0;
  (p1->nelepeo)--;
  printf("退课成功!\n");
}
void hcheak()//学生选课子函数（查询已选课程)
{
  char c;
  struct couse * p0;
  struct student * p;
  int num2,i,f=0;
  printf("请输入学号:\n");
  scanf("%d",&num2);
  p=head2;
  while(p->num2!=num2 && p!=NULL) p=p->next;
  if(p==NULL)
  {
    printf("不存在你的信息,请回主菜单录入信息:\n");
    goto end;
  }
  printf("已选课程编号:\n");
  if(p->nelenum[0]==0)
  {
    printf("你还没选课!\n");
    goto end;
  }
  for(i=0;p->nelenum[i]!=0;i++) 
  {
    printf("%d\n",p->nelenum[i]);
    p0=head1;
    while(p0->num1!=p->nelenum[i]) p0=p0->next;
    f=f+p0->score;
  }
  printf("总学分:%d\n",f);
  printf("是否进行退课(y/n)?");
  getchar();
  c=getchar();
  while(c=='y')
  {
    back(p);
    printf("继续退课(y/n)?");
    getchar();
    c=getchar();
    (p->nelen)--;
  }
  end:;
}
void elective()//学生选课主函数
{
  int i;
  printf("\t\t\t学生选课\n");
  printf("1.查询可选课程\n");
  printf("2.查询已选课程\n");
  printf("3.返回主菜单\n");
  printf("请输入(1~3):\n");
  scanf("%d",&i);
  switch(i)
  {
  case(1):cheak();break;
  case(2):hcheak();break;
  case(3):break;
  }
}
void listc()//输出课程信息
{
  struct couse * p;
  p=head1;
  printf("课程编号 课程名称 学分 课程已选人数 课程人数上限\n");
  while(p!=NULL)
  {
    printf("%-8d%10s%6d%8d%12d\n",p->num1,p->name1,p->score,p->nelepeo,p->Melepeo);
    p=p->next;
  }
}
void lists()//输出学生信息
{
  struct student * p;
  p=head2;
  printf("学生学号 学生姓名 已选课程数量\n");
  while(p!=NULL)
  {
    printf("%-4d %10s %6d\n",p->num2,p->name2,p->nelen);
    p=p->next;
  }
}
void intoc()//存储课程信息
{
  FILE * fp;
  struct couse * p;
  char filepath[30]; 
  printf("输入课程信息要保存的文件路径:");
  getchar();  
  gets(filepath); 
  if((fp=fopen(filepath,"w"))==NULL) 
  { 
    printf("\n保存失败!"); 
    exit(0); 
  }
  p=head1;
  while(p!=NULL)
  {
    fprintf(fp,"%d %s %d %d %d\n",p->num1,p->name1,p->score,p->nelepeo,p->Melepeo);
    p=p->next;
  }
  fclose(fp); 
  printf("课程信息已保存在%s中!\n",filepath); 
}
void intos()//存储学生信息
{
  FILE * fp;
  struct student * p;
  char filepath[30]; 
  printf("输入学生信息要保存的文件路径:");
  getchar();  
  gets(filepath); 
  if((fp=fopen(filepath,"w"))==NULL) 
  { 
    printf("\n保存失败!"); 
    exit(0); 
  }
  p=head2;
  while(p!=NULL)
  {
    fwrite(p,sizeof(struct student),1,fp);
    p=p->next;
  }
  fclose(fp); 
  printf("学生信息已保存在%s中!\n",filepath); 
}
void into()//存储信息
{
  int i;
  printf("1.存储课程信息\n");
  printf("2.存储学生信息\n");
  printf("3.返回主菜单\n");
  printf("请输入(1~3)\n");
  scanf("%d",&i);
  switch(i)
  {
  case(1):intoc();break;
  case(2):intos();break;
  case(3):break;
  }  
}
void store()//信息主函数
{
  int i;
  printf("\t\t系统信息查看及存储\n");
  printf("1.查看课程信息\n");
  printf("2.查看学生信息\n");
  printf("3.存储信息\n");
  printf("4.返回主菜单\n");
  printf("请输入(1~4):\n");
  scanf("%d",&i);
  switch(i)
  {
  case(1):listc();break;
  case(2):lists();break;
  case(3):into();break;
  case(4):break;
  }
}
int main()//主函数
{
  int i;
  start:
  printf("\n\t\t\t欢迎使用学生选课系统!\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("\n请输入菜单选项(1~7):\n");
  scanf("%d",&i);
  if(i<1 || i>7)
  {
    printf("输入错误,请重输:\n");
    goto start;
  }
  switch(i)
  {
  case(1):
    {
      system("cls");
      inputc();
      goto start;
      break;
    }
  case(2):
    {
      system("cls");
      managementc();
      goto start;
      break;
    }
  case(3):
    {
      system("cls");
      inputs();
      goto start;
      break;
    }
  case(4):
    {
      system("cls");
      managements();
      goto start;
      break;
    }
  case(5):
    {
      system("cls");
      elective();
      goto start;
      break;
    }
  case(6):
    {
      system("cls");
      store();
      goto start;
      break;
    }
  case(7):
    {
      system("cls");
      printf("感谢使用本系统!\n\n再见!\n");
    }
  }
  return(0);
}