【正文】 printf( )。gotoxy(4,6+i)。}elseif((i%36)16){ gotoxy(41,4+i17)。printf( )。gotoxy(42,4+i17)。}i++。sum=sum+chm。printf(%10s %14s %\n,chtime,chshop,chm)。}gotoxy(1,23)。printf(||)。gotoxy(1,24)。printf(| |)。gotoxy(1,25)。printf(||)。gotoxy(10,24)。printf(total is %$,sum)。fclose(fp)。gotoxy(49,24)。printf(press any key to.....)。getch()。goto pp。}else{while(ch[0]!=39。\r39。){ if(j10){ strncat(chtime,ch,1)。j++。}if(ch[0]==8){len=strlen(chtime)1。if(j15){ len=len+1。 j=11。}strcpy(ch1,)。j=j2。strncat(ch1,chtime,len)。strcpy(chtime,)。strncat(chtime,ch1,len1)。gotoxy(13,7)。printf( )。}gotoxy(13,7)。printf(%s,chtime)。ch[0]=getch()。if(ch[0]==9)goto mm。if(ch[0]==27)exit(1)。}gotoxy(3,24)。printf( )。gotoxy(13,10)。j=0。ch[0]=getch()。while(ch[0]!=39。\r39。){ if (j14){ strncat(chshop,ch,1)。j++。}if(ch[0]==8){ len=strlen(chshop)1。strcpy(ch1,)。j=j2。strncat(ch1,chshop,len)。strcpy(chshop,)。strncat(chshop,ch1,len1)。gotoxy(13,10)。printf( )。}gotoxy(13,10)。printf(%s,chshop)。ch[0]=getch()。}gotoxy(13,13)。j=0。ch[0]=getch()。while(ch[0]!=39。\r39。){ if (j6){ strncat(chmoney,ch,1)。j++。}if(ch[0]==8){ len=strlen(chmoney)1。strcpy(ch1,)。j=j2。strncat(ch1,chmoney,len)。strcpy(chmoney,)。strncat(chmoney,ch1,len1)。gotoxy(13,13)。printf( )。}gotoxy(13,13)。printf(%s,chmoney)。ch[0]=getch()。}if((strlen(chshop)==0)||(strlen(chmoney)==0))continue。if((fp=fopen(,a+))!=NULL)。fprintf(fp,%10s%14s%6s,chtime,chshop,chmoney)。fputc(39。\n39。,fp)。fclose(fp)。i++。gotoxy(41,5+i)。printf(%10s %14s %6s,chtime,chshop,chmoney)。}}} ==============================================================【程序96】題目：計(jì)算字符串中子串出現(xiàn)的次數(shù)：：include include main(){ char str1[20],str2[20],*p1,*p2。int sum=0。printf(please input two strings\n)。scanf(%s%s,str1,str2)。p1=str1。p2=str2。while(*p1!=39。\039。){if(*p1==*p2){while(*p1==*p2amp。amp。*p2!=39。\039。){p1++。p2++。}}elsep1++。if(*p2==39。\039。)sum++。p2=str2。}printf(%d,sum)。getch()。} ==============================================================【程序97】題目：從鍵盤輸入一些字符，逐個(gè)把它們送到磁盤上去，直到輸入一個(gè)為止。：　　　　　：include main(){ FILE *fp。char ch,filename[10]。scanf(%s,filename)。if((fp=fopen(filename,w))==NULL){printf(cannot open file\n)。exit(0)。}ch=getchar()。ch=getchar()。while(ch!=39。39。){fputc(ch,fp)。putchar(ch)。ch=getchar()。}fclose(fp)。}==============================================================【程序98】題目：從鍵盤輸入一個(gè)字符串，將小寫字母全部轉(zhuǎn)換成大寫字母，然后輸出到一個(gè)磁盤文件“test”中保存?！　　≥斎氲淖址?！結(jié)束。 ：：include main(){FILE *fp。char str[100],filename[10]。int i=0。if((fp=fopen(test,w))==NULL){ printf(cannot open the file\n)。exit(0)。}printf(please input a string:\n)。gets(str)。while(str[i]!=39。!39。){ if(str[i]=39。a39。amp。amp。str[i]=39。z39。)str[i]=str[i]32。fputc(str[i],fp)。i++。}fclose(fp)。fp=fopen(test,r)。fgets(str,strlen(str)+1,fp)。printf(%s\n,str)。fclose(fp)。}==============================================================【程序99】題目：有兩個(gè)磁盤文件A和B,各存放一行字母，要求把這兩個(gè)文件中的信息合并（按字母順序排列）， 　　　輸出到一個(gè)新文件C中。：：include main(){ FILE *fp。int i,j,n,ni。char c[160],t,ch。if((fp=fopen(A,r))==NULL){printf(file A cannot be opened\n)。exit(0)。}printf(\n A contents are :\n)。for(i=0。(ch=fgetc(fp))!=EOF。i++){c[i]=ch。putchar(c[i])。}fclose(fp)。ni=i。if((fp=fopen(B,r))==NULL){printf(file B cannot be opened\n)。exit(0)。}printf(\n B contents are :\n)。for(i=0。(ch=fgetc(fp))!=EOF。i++){c[i]=ch。putchar(c[i])。}fclose(fp)。n=i。for(i=0。iN。I++)for(j=i+1。jN。J++)if(c[i]c[j]){t=c[i]。c[i]=c[j]。c[j]=t。}printf(\n C file is:\n)。fp=fopen(C,w)。for(i=0。iN。I++){ putc(c[i],fp)。putchar(c[i])。}fclose(fp)。}==============================================================【程序100】題目：有五個(gè)學(xué)生，每個(gè)學(xué)生有3門課的成績，從鍵盤輸入以上數(shù)據(jù)（包括學(xué)生號，姓名，三門課成績），計(jì)算出　　　平均成績，況原有的數(shù)據(jù)和計(jì)算出的平均分?jǐn)?shù)存放在磁盤文件stud中。：：include struct student{ char num[6]。char name[8]。int score[3]。float avr。} stu[5]。main(){int i,j,sum。FILE *fp。/*input*/for(i=0。i5。i++){ printf(\n please input No. %d score:\n,i)。printf(stuNo:)。scanf(%s,stu[i].num)。printf(name:)。scanf(%s,stu[i].name)。sum=0。for(j=0。j3。j++){ printf(score %d.,j+1)。scanf(%d,amp。stu[i].score[j])。sum+=stu[i].score[j]。}stu[i].avr=sum/。}fp=fopen(stud,w)。for(i=0。i5。i++)if(fwrite(amp。stu[i],sizeof(struct student),1,fp)!=1)printf(file write error\n)。fclose(fp)。}