C語言學生成績管理系統(tǒng)課程設計報告

1、設計一個學生成績管理系統(tǒng)，對上學期的本班的學習成績進行管 理，具有查詢和檢索功能，并且能夠?qū)χ付ㄎ募僮?，也可將多個文 件組成一個文件。A、設計容1、每一條記錄包括一個學生的學號、姓名、性別、各門課成績（上 學期的科目）、平均成績。2、輸入功能：可以一次完成若干條記錄的輸入。3、顯示功能：完成全部學生記錄的顯示。4、查找功能：完成按姓名或?qū)W號查找學生記錄，并顯示。5、排序功能：按學生平均成績進行排序。6、插入功能：按學號順序插入一條學生記錄。7、將學生記錄存在文件student.dat中。8、應提供一個界面來調(diào)用各個功能，調(diào)用界面和各個功能的操作界面 應盡可能清晰美觀！B、設計要求一、已知有存

2、儲本班學生記錄（包括學號、姓名、科目成績、性別、）的文件student.dat，所有學生以學號從小到大排序（該文件自 行建立）。要求編程序?qū)崿F(xiàn)查詢、排序、插入、刪除諸功能。具體 要求如下：A .要求顯示如下界面*1 查詢2 排序3 插入4 刪除*通過選擇1-4來確定要做哪一個操作B.若選1,則出現(xiàn)如下界面*1.1 按學號查詢1.2 按姓名查詢1.3 按成績查詢*通過選擇1.1-1.3來確定要做哪一個操作，其中：按姓名查 詢用順序法實現(xiàn)；按成績查詢實現(xiàn)查詢成績小于 m分的學生； 找到該生將學生記錄輸出到屏幕，若查無此人，輸出相關(guān)信息。C. 若選2,則按成績從大到小排序，姓名，學號順序也隨之調(diào)整。

3、D. 若選3 ,將一個新學生記錄按學號順序插入，并把結(jié)果保存到 文件 student.dat 中。E. 若選4,刪除指定學生的記錄，并把結(jié)果保存到文件 stude nt.dat 中。G .不同的模塊都要有出錯處理，并能給出出錯提示。如輸入數(shù)據(jù)錯誤，文件操作錯誤等等F. 以上各個功能均編寫成子函數(shù)，由主函數(shù)調(diào)用實現(xiàn)。G. 利用結(jié)構(gòu)體數(shù)組實現(xiàn)學生成績的數(shù)據(jù)結(jié)構(gòu)設計；模塊：學生成績管理系統(tǒng)程序結(jié)構(gòu)圖:main:switch(me nu()case 'O':flag=O;break;case '1':search(head);break;case '2'

4、:sort(head);break;case 3:head=NULL?head=insert(head):insert(head);save(head);break;case '4':head=delete(head);save(head);break;case '5':save(head);pri ntf("lt's saved!");getch();break;case 6: clrscr();formhead();print(head);break;while(flag)frees(head);int menu();char c

5、h;textmode(C80);textbackgrou nd(BLUE);textcolor(YELLOW);clrscr();gotoxy(20,3);cpri ntf("Stude nts' performa nee man ageme nt system");gotoxy(20 6)cprintf("*")gotoxy(30,8);cprintf("1Search;");gotoxy(30,10);cprintf("2Sort;");gotoxy(30,12);cprintf("3-In

6、sert;");gotoxy(30,14);cprintf("4-Delete;");gotoxy(30,16);cprintf("5-Save in file;");gotoxy(30,18);cprintf("6-Display;");gotoxy(30,20);cprintf("0-Exit;");gotoxy(20,22);cprin tf("*");gotoxy(1,25);cpri ntf("please press the nu mber you choose:

7、");ch=getchar();retur n ch;int menu 2();char ch;textmode(C80);textbackgrou nd(BLUE);textcolor(YELLOW);clrscr();gotoxy(34,5);cpri ntf("Query menu");gotoxy(20,8);cprin tf("*");gotoxy(25,10);cprintf("1search by ID nu mber;");gotoxy(25,12);cprintf("2search by n am

8、e;");gotoxy(25,14);cprintf("3search by score;");gotoxy(25,16);cprintf("0Retur n to mai n men u;");gotoxy(20,20);cprin tf("*");gotoxy(1,25);cpri ntf("please press the nu mber you choose:");ch=getchar();retur n ch;int menu 3();char ch;textmode(C80);textback

9、grou nd(BLUE);textcolor(YELLOW);clrscr();clrscr();gotoxy(20,3);cpri ntf("E nter the nu mber of subjects to check");gotoxy(20,6);cprin tf("*");gotoxy(25,8);cprintf("1 -Math;");gotoxy(25,9); cprin tf("2-E nglish;");gotoxy(25,10); cpri ntf("3-C Program;"

10、;);gotoxy(25,11);cpri ntf("4-Computer;");gotoxy(25,12);cpri ntf("5-Health Educatio n;");gotoxy(25,13);cpri ntf("6-History;");gotoxy(25,14);cpri ntf("7-average;");gotoxy(25,15);cpri ntf("0-Return to previous men u;");gotoxy(20,18);cpri ntf(" '

11、;*");gotoxy(1,25);cpri ntf("please press the nu mber you choose:");ch=getchar();retur n ch;void search(struct stude nt *head);int flag=1;while(flag)switch(me nu 2()case 49:search1(head);break;case 50:search2(head);break;case 51:search3(head);break;case 48:flag=0;break;void search1(str

12、uct stude nt *);struct stude nt *p;i nt non e=1;char nu mber11;p=head;clrscr();prin tf("please in put a stude nt's nu mber:");sca nf("%s" ,nu mber);直到確認prin tf("Search results:n");formhead();while(p!=0)N>n um, nu mber)=02_"Yputout(p);non e=0;p=p->n ext;on

13、e=0? nprin tf("ncan not find the data!")printf("npress any key to return.");getch();void search2(struct stude nt *);int non e=1; char n ame11;struct stude nt *p;p=head;clrscr();prin tf("please in put a stude nt's n ame:");sca nf("%s", name);直到確認clrscr();pr

14、in tf("Search results:' n");formhead();while(p!=NULL)putout(p);non e=0;p=p->n ext;Y-non e=0?-nprintf("ncan not find the data!");prin tf("npress any key to retur n."); getch();void search3(struct stude nt *);p1=head;m=me nu 3()直到O' <=m<=' 6'clrsc

15、r();prin tf("Please en ter a highest score:' n");sca nf("%f",&high);直到確認clrscr();prin tf("Search results:n");formhead();switch(m)'1| n1->math-hgh<0i?"putout(p1); non e=0;p1=p1- >n ext;prin tf("ncan not findthe data!")prin tf("npr

16、ess any key to retur n.");'2'3getch();break; 4與 1'同理 5與 1'同理 6與 1'同理 7與 1'同理struct stude nt *sort(struct stude nt *);struct stude nt *p1,*p2,*t,*temp;temp=head->n ext; head->n ext=NULL;while(temp!=NULL)t=temp; temp=temp->n ext;p仁head;p2=head;while(t->ayer<

17、p1->aver&&p1!=NULL)p2=p1; p1=p1->next?''NpJl=p2"yt->n ext=p1;t->n ext=p1;p2->n ext=t;head=t;p仁head;while(p1!=NULL)p仁 p1-> next;clrscr();formhead();pri nt(head);return( head);struct stude nt *in sert(struct stude nt *);void in put(struct stude nt *);float temp;

18、char c; clrscr();prin tf("i nput the stude nt's nu mber:");sca nf("%s",p->nu m);直到確認prin tf("nin put the stude nt's n ame:");sca nf("%s",p->n ame);while(!sure();直到確認c=getchar();p->sex=c>'a'?c-32:c;直到(p->sex='M'|p->sex=

19、'W)prin tf("i nput the stude nt's Math score:sca nf("%f", &temp);直到確認p->math=temp;下面成績同理void putout(struct stude nt *);prin tf("n|%-1Os|%-1Os|%c|%-6.1f|%-6.1f|%-6.1f|%-6.1f|%-6.1f|%-6.1f|%-6.1f|",p->nu m,p->n ame,p->sex,p->math,p->e nglish,p->

20、;cp,p->computer,p->hthy,p->history,p->aver);printf("n+-+");)Jvoid prin t(struct stude nt *);struct stude nt *p;putout(p);p=p->n ext;prin tf("It'sa empty直到p為空list!n");getch();struct stude nt *p;p=head;while(p!=0)free(p);p=p->n ext;head=NULL;in put(p1);flag=1;

21、p2-> next=NULL;return (head);struct stude nt *load(void);struct stude nt *p1,*p2,*head=NULL;FILE *fp;-'''en("student.dat","rbprin tf("fail to ope n the file!n");return (0);prin tf("loadi ng.n");p1= (struct stude nt *)malloc(LEN);7!p-prin tf("out

22、 of memory!ngetch();return(0);head=p1while(!feoffp)_Nfread(p1,LEN,1)!=1?Ybreak;p1- >n ext=(struct stude nt *)malloc(LEN);Yprin tf("Out of memory!n");return (head);p2=p1;p1=p1- >n ext;p2-> next=NULL;fclose(fp);return (head);p=p->n ext; return (p);struct stude nt *delete(struct s

23、tude nt *);char del11; char x; int none=1;struct student *p1,*_del;p1=_del=head;Yclrscr();printf("thereis no data!press any key toback.");getch();return 0;clrscr();prin tf("nnnnnnnnnnnn1By Student Number to delete;");printf("nn2By Student Name todelete;");prin tf("

24、nn0can cel;n");prin tf("nnnnnnnnnPlease en ter you choice:");x=getchar();1直到輸入正確if(x='0') retur n head;if(x='1')clrscr();prin tf("e nter nu mber gonna Del:");sea nf("%s",del);直到確認while(_del=p1 &&_del!=NULL)NYnon e=0; clrscr();prin tf("d

25、elete this data? Can cel by 'Esc:'")formhead();putout(_del);Ngetch(J=27Yp1=_del->n ext;_del=p1- >n ext;free(_del);del=p1;prin tf("nDelete successfully!");getch();else _del=p1- >n ext;head=p1 ；while(_del!=0)Nstrcmp(_del->nu m,del)=0程序代碼:#i nclude "stdlib.h"

26、;/*標準函數(shù)庫*/#include "string.h"/*字符串函數(shù)庫*/#i nclude "coni o.h"/*屏幕操作函數(shù)庫*/#defi neHEADER1II 學生n"#defi ne HEADER2 "|學號丨姓名|C語言|數(shù)學|英語|#i nclude "stdio.h"/*標準輸入輸出函數(shù)庫*/總分|平均分|排名| n"#defi neHEADER3#defi ne FORMAT "|%-10s |%-15s|%4d|%4d|%4d|%4d| %.2f |%4d |n&qu

27、ot;#defi neDATAp->data .nu m,p->data .n ame,p->data.egrade,p->data.mgrade,p->data.c grade,p->data.total,p->data.ave,p->data. min gci#defi neEND"n"int saveflag=O;/*是否需要存盤的標志變量*/*定義與學生有關(guān)的數(shù)據(jù)結(jié)構(gòu)*/typedef struct stude nt/* 標記為 student*/char num10;/* 學號*/char n ame15; int

28、cgrade;int mgrade;int egrade;int total;float ave;int min gci;/*姓名*/*C語言成績*/*數(shù)學成績*/*英語成績*/*總分*/*平均分*/*名次*/*定義每條記錄或結(jié)點的數(shù)據(jù)結(jié)構(gòu)，標記為：node*/typedef struct nodestruct stude nt data;/*數(shù)據(jù)域*/struct node *n ext;/*指針域*/Node,*Link;/*Node 為node類型的結(jié)構(gòu)變量，*Link為node類型的指針變量*/void menu() /* 主菜單 */*調(diào)用DOS命令，清屏.與clrscr()功能相同

29、*/system("cls");/textcolor(IO);/*在文本模式中選擇新的字符顏色*/gotoxy(10,5); printf(" gotoxy(10,8); prin tf("/*在文本窗口中設置光標*/學生成績管理系統(tǒng)n");*Me nu *n");gotoxy(10,9);prin tf("*n");/gotoxy(10,10);1輸入數(shù)據(jù)2刪除數(shù)據(jù)prin tf("*n");/gotoxy(10,11);3查詢數(shù)據(jù)4修改數(shù)據(jù)prin tf("*n");/g

30、otoxy(10,12);5插入數(shù)據(jù)6統(tǒng)計數(shù)據(jù)prin tf("*n");gotoxy(10,13);7數(shù)據(jù)排序8保存數(shù)據(jù)prin tf("*n");gotoxy(10,14);9顯示數(shù)據(jù)0退出系統(tǒng)printf("*n/*cprintf()送格式化輸出至文本窗口屏幕中*/void printheader() /*格式化輸出表頭*/prin tf(HEADERI);prin tf(HEADER2);prin tf(HEADER3);void printdata(Node *pp) /*格式化輸出表中數(shù)據(jù)*/Node* p;p=pp；prin tf

31、(FORMATQATA);void Wrong()/*輸出按鍵錯誤信息*/printf("nnnnn*錯誤:輸入有錯！按任意鍵繼續(xù) *、n")；getchar();void Nofind()/*輸出未查找此學生的信息*/printf("n=>沒找到該學生！n");void Disp(Link l)/*顯示單鏈表I中存儲的學生記錄，容為 student結(jié)構(gòu)中定義的容*/Node *p;p=l-> next; /*l存儲的是單鏈表中頭結(jié)點的指針，該頭結(jié)點沒有存儲學生信息，指針域指向的后繼結(jié)點才有學生信息*/if(!p) /*p=NULL,NUII

32、 在 stdlib 中定義為 0*/printf("n=>沒該學生記錄!n");getchar();return;prin tf("nn");printheader(); /*輸出表格頭部*/while(p)/*逐條輸出鏈表中存儲的學生信息*/prin tdata(p);p=p->next; /*移動直下一個結(jié)點*/prin tf(HEADER3);getchar();/*作用：用于定位鏈表中符合要求的節(jié)點，并返回指向該節(jié)點的指針參數(shù)：findmess保存要查找的具體容；nameornum 保存按什么查找;在單鏈表l中查找；*/Node* L

33、ocate(L ink l,char fin dmess,char n ameor nu m) Node *r;if(strcmp(nameornum,"num")=0) /*按學號查詢 */r=l->n ext;while(r)if(strcmp(r->data. nu m,fi ndmess)=O) /* return r;r=r- >n ext;else if(strcmp( nameor nu m," name")=0)r=l->n ext;while(r)if(strcmp(r->data. name,fi ndm

34、ess)=0)姓名*/return r;r=r- >n ext;return 0; /*若未找到，返回一個空指針若找到findmess值的學號*/*按姓名查詢*/*若找到findmess值的學生*/進行長度校驗,進行分數(shù)校驗*/*輸入字符串，并進行長度驗證(長度<lens)*/void stri ngin put(char *t,i nt len s,char *no tice)char n255;doprintf(notice);/* 顯示提示信息 */scanf("%s",n);/* 輸入字符串 */if(strlen(n)>lens)printf(&

35、quot;n超過這必需的長度！ n"); /*超過lens值重新輸入*/while(strle n(n )>le ns);strcpy(t,n); /*將輸入的字符串拷貝到字符串t中*/*輸入分數(shù)，0<二分數(shù)< =100)*/int nu mberi nput(char *no tice)int t=0;doprintf(notice);/* 顯示提示信息 */scanf("%d",&t);/* 輸入分數(shù) */if(t>100 | t<0) printf("n分數(shù)必須在0,100! n"); /*while

36、(t>100 | t<0);return t;/*增加學生記錄*/ void Add(L ink I)Node *p,*r,*s;/*實現(xiàn)添加操作的臨時的結(jié)構(gòu)體指針變量*/char ch,flag=0, num10;r=l;s=l->n ext;system("cls");Disp(l); /*先打印出已有的學生信息*/while(r-> next!=NULL)r=r-> next; /* 將指針移至于鏈表最末尾，準備添加記錄*/while(1) /* 一次可輸入多條記錄，直至輸入學號為0的記錄結(jié)點添加操作*/while(1) /*輸入學號，保

37、證該學號沒有被使用，若輸入學號為0，則退出添加記錄操作*/stringinput(num,10,"輸入學號(按0返回主菜單):")；/*格式化輸入學號并檢驗*/flag=O;if(strcmp(num,"O")=O)/*輸入為0，則退出添加操作，返回主界面 */return;s=l->n ext;while(s) /*查詢該學號是否已經(jīng)存在，若存在則要求重新輸入一個未被占用 的學號*/if(strcmp(s->data .nu m, num )=0)flag=1;break;s=s->n ext;if(flag=1) /*提示用戶是否重

38、新輸入*/ getchar();printf("=>這學號 %s 是目前的，在試一次？(y/n):",num);sca nf("%c",&ch);if(ch='y'|ch='Y') con ti nue;elsereturn;elsebreak;p=(Node *)malloc(sizeof(Node); /*申請存空間 */ if(!p)printf("n分配存失敗");/*如沒有申請到，打印提示信息*/return ;/*返回主界面*/strcpy(p->data.num,num

39、); /*stri ngin put(p->data .n ame,15," p->data.cgrade=nu mberi nput("C 數(shù)，分數(shù)必須在0 100之間*/p->data.mgrade=nu mberi nput(” 數(shù)，分數(shù)必須在0 100之間*/將字符串num 拷貝到p->data.num 中*/姓名:");語言分數(shù)0-100:");/*輸入并檢驗分數(shù)學分數(shù)0-100:");/*輸入并檢驗分p->data.egrade=nu mberi nput(”英語分數(shù)0-100:");/*輸入

40、并檢驗分數(shù),分數(shù)必須在0 100之間*/p->data.total=p->data.egrade+p->data.cgrade+p->data.mgrade;/*計算總分*/p->data.ave=(float)(p->data.total/3);/* 計算平均分 */p->data.mi ngci=0;p->next=NULL; /*表明這是鏈表的尾部結(jié)點*/r->next=p;/*將新建的結(jié)點加入鏈表尾部中*/r=p;saveflag=1;return ;void Qur(Li nk l) /*按學號或姓名，查詢學生記錄*/int se

41、lect; /*1:按學號查，2 :按姓名查，其他：返回主界面(菜單) */char searchinput20; /*保存用戶輸入的查詢?nèi)?/Node *p;if(!l->next) /* 若鏈表為空 */system("cls");getchar();return;system("cls");prin tf("n>1通過學號查詢>2 通過姓名查詢n");prin tf("請選擇1,2:");sca nf("%d",&select);if(select=1)/*按學號

42、查詢*/stringinput(searchinput,10,"輸入目前的學生學號:");p=Locate(l,searchinput,"num");/*在 I 中查找學號為 searchinput 值的節(jié)點,并返回節(jié)點的指針*/if(p) /* 若 p!=NULL*/prin theader();prin tdata(p);prin tf(END);printf("按任意鍵返回");getchar();elseNofi nd();getchar();else if(select=2) /* 按姓名查詢 */stringinput(s

43、earchinput,15,"輸入目前的學生姓名:");p=Locate(l,searchi nput," name");if(p)prin theader();prin tdata(p);prin tf(END);printf("按任意鍵返回");getchar();elseNofi nd();getchar();else*/通過姓名刪Wron g();getchar();/*刪除學生記錄：先找到保存該學生記錄的節(jié)點，然后刪除該節(jié)點void Del(Li nk l)int sel;Node *p,*r;char fin dmess2

44、0;if(!l-> next) system("cls");printf("n=>沒學生記錄!n");getchar();return;system("cls");Disp(l);prin tf("n=>1通過學號刪除=>2除 n");printf("請選擇1,2:");sea nf("%d",&sel);if(sel=1)stringinput(findmess,10,"輸入目前的學生學號:");p=Locate(l,fi

45、 ndmess," nu m");if(p) /*p!=NULL*/r=l;while(r- >n ext!=p)r=r- >n ext;r->next=p->next;/*將p所指節(jié)點從鏈表中去除*/free(p); /*釋放存空間*/printf("n=> 刪除成功!n");getchar();saveflag=1;elseNofi nd();getchar();else if(sel=2) /*先按姓名查詢到該記錄所在的節(jié)點*/stringinput(findmess,15,"輸入目前的學生姓名")

46、;p=Locate(l,fi ndmess," name");if(p)r=l;while(r- >n ext!=p)r=r- >n ext;r->n ext=p->n ext;free(p);printf("n=>刪除成功!n");getchar();saveflag=1;elseNofi nd(); getchar();elseWron g();getchar();/*修改學生記錄。先按輸入的學號查詢到該記錄，然后提示用戶修改學號之外的值，學號不能修改*/void Modify(Li nk I)Node *p;char

47、fin dmess20;if(!I-> next) system("cls");printf("n=>沒學生記錄！n");getchar();return;system("cls");printf("修改學生記錄");Disp(l);stringinput(findmess,10,"輸入目前的學生學號:");/*輸入并檢驗該學號*/p=Locate(l,findmess,"num"); /*查詢到該節(jié)點 */if(p) /*若p!=NULL,表明已經(jīng)找到該節(jié)點*/

48、printf（"學號:%s,n",p->data.num）;printf（” 姓名:%s,",p->）;stringinput（p->,15,"輸入新的姓名:"）;printf（"英語分數(shù):%d,",p->data.cgrade）;p->data.cgrade=numberinput（"英語分數(shù)0-100:"）;printf（” 數(shù)學分數(shù):%d,",p->data.mgrade）;p->data.mgrade=numb

49、erinput（"數(shù)學分數(shù)0-100:"）;printf（"C 語言分數(shù):%d,",p->data.egrade）;p->data.egrade=numberinput（"C語言分數(shù)0-100:"）;p->data.total=p->data.egrade+p->data.cgrade+p->data.mgrade;p->data.ave=（float）（p->data.total/3）;p->data.mi ngci=0;printf（"n=>刪除成功!n&quo

50、t;）;Disp（l）;saveflag=1;elseNofi nd(); getchar();/*插入記錄：按學號查詢到要插入的節(jié)點的位置，然后在該學號之后插入一個新 節(jié)點。*/void In sert(L ink l)Link p,v,newinfo; /*p指向插入位置， newinfo 指新插入記錄 */char ch,num10,s10;/*s保存插入點位置之前的學號,num保存輸入的新記錄的學號*/int flag=0;v=l->n ext;system("cls");Disp(l);while(1) stringinput(s,10,"在學號后

51、請輸入插入的位置:");flag=0;v=l->n ext;while(v) /*查詢該學號是否存在，flag=1表示該學號存在*/if(strcmp(v->data .nu m,s)=O) flag=1;break;v=v->n ext;if(flag=1)break; /*若學號存在，則進行插入之前的新記錄的輸入操作*/else getchar();printf("n=>這 %s 不是目前的，在試一次？(y/n):",s);sca nf("%c",&ch);if(ch='y'|ch='

52、Y')con ti nu e;elsereturn;/*以下新記錄的輸入操作與 Add()相同*/stringinput(num,10,"輸入新學生的學號:");v=l->n ext;while(v)if(strcmp(v->data. nu m, num )=0)printf("對不起，這新學號:'s'是目前的!n",num);prin theader();prin tdata(v); prin tf("n"); getchar();return;v=v->n ext;newinfo=(No

53、de *)malloc(sizeof(Node);if(! newinfo)prin tf("n分配存失敗");/*如沒有申請到，打印提示信息*/return ;/*返回主界面*/strcpy( newi nfo->data. num,nu m);stri ngin put( newi nfo->data. name,15,"姓名:");n ewi nfo->data.cgrade=nu mberi nput("C語言分數(shù)0-100:");n ewi nfo->data.mgrade=nu mberi nput

54、(”數(shù)學分數(shù)0-100:");語言分數(shù)0-100:");n ewi nfo->data.egrade=nu mberi nput(” newin fo->data.total=newin fo->data.egrade+newin fo->data.cgrade+newin fo->data.mgrade;newin fo->data.ave=(float) (newin fo->data.total/3);n ewi nfo->data.mi ngci=0;n ewi nfo-> next=NULL;saveflag=

55、1; /*在main()有對該全局變量的判斷，若為1,則進行存盤操作*/*將指針賦值給p,因為l中的頭節(jié)點的下一個節(jié)點才實際保存著學生的記錄*/p=l->n ext;while(1)if(strcmp(p->data.num,s)=0) /*在鏈表中插入一個節(jié)點 */newinfo->n ext=p->n ext;p->n ext=newinfo;break;p=p->n ext;Disp(l);prin tf("nn");getchar();/*統(tǒng)計該班的總分第一名和單科第一，和各科不及格人數(shù)*/void Ton gji(L ink l)Node *pm,*pe,*pc,*pt; /*用于指向分數(shù)最高的節(jié)點*/Node *r=l->n ext;int countc=0,countm=0,counte=O; /*保存三門成績中不及格的人數(shù)*/if(!r) system("cls");printf("n=>沒學生記錄!n");getchar();return ;system("cls");Disp(l);pm=pe=pc=pt=r;while(r)if(r->data.cgrade<60) coun tc+;if(r->data