2022年2022年家庭财务管理代码C语言不是很完善的程序希望大家能够帮忙完善 .pdf

《2022年2022年家庭财务管理代码C语言不是很完善的程序希望大家能够帮忙完善 .pdf》由会员分享，可在线阅读，更多相关《2022年2022年家庭财务管理代码C语言不是很完善的程序希望大家能够帮忙完善 .pdf（4页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、家庭财务管理小程序/*money management system*/ #include 输入输出#include 一个头文件，里面包含了很多BIOS 和 DOS 调用函数main() FILE *fp; struct date d; float sum,chm=0.0; int len,i,j=0; int c; char ch4=,ch116=,chtime12=,chshop16,chmoney8; pp: clrscr(); sum=0.0; gotoxy(1,1);printf(|-|); gotoxy(1,2);printf(| money management system(C

2、1.0) 2000.03 |); gotoxy(1,3);printf(|-|); gotoxy(1,4);printf(| - money records - | - today cost list - |); gotoxy(1,5);printf(| - |-|); gotoxy(1,6);printf(| date: - | |); gotoxy(1,7);printf(| | | | |); gotoxy(1,8);printf(| - | |); gotoxy(1,9);printf(| thgs: - | |); gotoxy(1,10);printf(| | | | |); go

3、toxy(1,11);printf(| - | |); gotoxy(1,12);printf(| cost: - | |); gotoxy(1,13);printf(| | | | |); gotoxy(1,14);printf(| - | |); gotoxy(1,15);printf(| | |); gotoxy(1,16);printf(| | |); gotoxy(1,17);printf(| | |); gotoxy(1,18);printf(| | |); gotoxy(1,19);printf(| | |); gotoxy(1,20);printf(| | |); gotoxy

4、(1,21);printf(| | |); /*将光标定为在第21 行，第 1 列*/ gotoxy(1,22);printf(| | |); gotoxy(1,23);printf(|-|); i=0; getdate(&d); sprintf(chtime,%4d.%02d.%02d,d.da_year,d.da_mon,d.da_day); for(;) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 4 页 - - - - - - - - - gotoxy(3,2

5、4);printf( Tab _browse cost list Esc _quit); gotoxy(13,10);printf( ); gotoxy(13,13);printf( ); gotoxy(13,7);printf(%s,chtime); j=18; ch0=getch(); if(ch0=27) break; strcpy(chshop,); strcpy(chmoney,); if(ch0=9) mm:i=0; fp=fopen(home.dat,r+); gotoxy(3,24);printf( ); gotoxy(6,4);printf( list records );

6、gotoxy(1,5);printf(|-|); gotoxy(41,4);printf( ); gotoxy(41,5);printf( |); while(fscanf(fp,%10s%14s%fn,chtime,chshop,&chm)!=EOF) if(i=36) getch(); i=0; if (i%36)16) gotoxy(41,4+i-17); printf( ); gotoxy(42,4+i-17); i+; sum=sum+chm; printf(%10s %-14s %6.1fn,chtime,chshop,chm); gotoxy(1,23);printf(|-|);

7、 gotoxy(1,24);printf(| |); gotoxy(1,25);printf(|-|); gotoxy(10,24);printf(total is %8.1f$,sum); fclose(fp); gotoxy(49,24);printf(press any key to.);getch();goto pp; 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 4 页 - - - - - - - - - else while(ch0!=r) if(j15)

8、len=len+1; j=11; strcpy(ch1,); j=j-2; strncat(ch1,chtime,len); strcpy(chtime,); strncat(chtime,ch1,len-1); gotoxy(13,7);printf( ); gotoxy(13,7);printf(%s,chtime);ch0=getch(); if(ch0=9) goto mm; if(ch0=27) exit(1); gotoxy(3,24);printf( ); gotoxy(13,10); j=0; ch0=getch(); while(ch0!=r) if (j14) strnca

9、t(chshop,ch,1); j+; if(ch0=8) len=strlen(chshop)-1; strcpy(ch1,); j=j-2; strncat(ch1,chshop,len); strcpy(chshop,); strncat(chshop,ch1,len-1); gotoxy(13,10);printf( ); gotoxy(13,10);printf(%s,chshop);ch0=getch(); gotoxy(13,13); 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - -

10、 - - 第 3 页，共 4 页 - - - - - - - - - j=0; ch0=getch(); while(ch0!=r) if (j6) strncat(chmoney,ch,1); j+; if(ch0=8) len=strlen(chmoney)-1; strcpy(ch1,); j=j-2; strncat(ch1,chmoney,len); strcpy(chmoney,); strncat(chmoney,ch1,len-1); gotoxy(13,13);printf( ); gotoxy(13,13);printf(%s,chmoney);ch0=getch(); i

11、f(strlen(chshop)=0)|(strlen(chmoney)=0) continue; if(fp=fopen(home.dat,a+)!=NULL); fprintf(fp,%10s%14s%6s,chtime,chshop,chmoney); fputc(n,fp); fclose(fp); i+; gotoxy(41,5+i); printf(%10s %-14s %-6s,chtime,chshop,chmoney); 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 4 页 - - - - - - - - -