|
|
楼主 |
发表于 2004-11-17 12:45:00
|
显示全部楼层
|
【程序95】) Z* l' b7 [- [. V6 U) j
题目：家庭财务管理小程序
) C6 V( I" A+ D! N4 s1.程序分析：
6 s# N, S. C1 u; s& m" d2 i2.程序源代码： o7 F/ A) T Q6 B: D! `" _- N1 z% s
/*money management system*/
) W8 \! d" M, Q6 ^* d#include "stdio.h"( z, F& s, h; O) Y: `: g$ B( m
#include "dos.h"
8 K! a2 H# N0 Q; qmain()
n* Q( \! G5 l" h{5 }6 r2 Z# s4 e
FILE *fp;
- c% f3 Z* M4 wstruct date d;
3 y) X7 {; z8 T8 {1 j$ cfloat sum,chm=0.0;
9 g6 ?' u( Q3 S# q1 _' E" lint len,i,j=0;
# U0 b3 v% B+ I3 Y% ~, L7 y" Hint c;
# S" q$ n! Z" U3 Q* d6 }" jchar ch[4]="",ch1[16]="",chtime[12]="",chshop[16],chmoney[8];9 \: r* O' K7 j
pp: clrscr();" @5 g" V L: B$ t* F
sum=0.0;
7 o; O. V" r: V9 dgotoxy(1,1);printf("|---------------------------------------------------------------------------|");
/ M6 u Y- u; |+ W( x0 ggotoxy(1,2);printf("| money management system(C1.0) 2000.03 |");& F1 C; U3 S4 \4 U7 Z* Z
gotoxy(1,3);printf("|---------------------------------------------------------------------------|");% F% N. g8 e6 w* w, _
gotoxy(1,4);printf("| -- money records -- | -- today cost list -- |");
_1 F: I h, ?% @: q. }# h' A; egotoxy(1,5);printf("| ------------------------ |-------------------------------------|");
# o) o; F: L; G5 igotoxy(1,6);printf("| date: -------------- | |");
1 F- ~% z1 p: k* {gotoxy(1,7);printf("| | | | |");
, f1 t7 E3 P3 w% y. A, E5 R! e! ]gotoxy(1,8);printf("| -------------- | |");6 [' L* q5 h" {' g3 m6 S
gotoxy(1,9);printf("| thgs: ------------------ | |");, U; Q3 Q- \2 ~
gotoxy(1,10);printf("| | | | |"); O. t' e$ ]0 J- l
gotoxy(1,11);printf("| ------------------ | |");4 U9 X6 g# q) C
gotoxy(1,12);printf("| cost: ---------- | |");
4 w* z* e* _: x& y( ogotoxy(1,13);printf("| | | | |");
# g0 s# @0 M! `, D y1 ]) H6 a, lgotoxy(1,14);printf("| ---------- | |");3 M" H" {; g Z% T4 ^ \
gotoxy(1,15);printf("| | |");
. P) x3 c- `+ _5 U! bgotoxy(1,16);printf("| | |");
( Q5 u. D9 l2 ~. {+ w7 p5 Q/ D+ _* ]gotoxy(1,17);printf("| | |");
& k, n6 s& E$ b6 e" b3 R0 Lgotoxy(1,18);printf("| | |");
3 o7 t& V& o7 ^# c5 lgotoxy(1,19);printf("| | |");
7 ]9 ]/ D* o: |+ ]1 fgotoxy(1,20);printf("| | |");: D; t& J) g9 t
gotoxy(1,21);printf("| | |");
& Q, n* b! E* J" q6 rgotoxy(1,22);printf("| | |");" i5 z5 t9 p4 a
gotoxy(1,23);printf("|---------------------------------------------------------------------------|");
. U4 u2 l3 y- S/ ei=0;
: |5 E8 o" m+ A l3 `getdate(&d);
, X0 j( W8 G# v# C. T. _sprintf(chtime,"%4d.%02d.%02d",d.da_year,d.da_mon,d.da_day);
$ ?# D. w: `4 [* p$ d% A) o2 i) jfor(;); b/ r) t/ J7 P0 Y9 M5 r+ H/ a
{
' a5 g$ {% K$ H- d0 D. y9 fgotoxy(3,24);printf(" Tab __browse cost list Esc __quit");
0 L8 H0 |3 [0 h ~- u% `* Agotoxy(13,10);printf(" ");
# w& H3 B1 x4 P, j7 mgotoxy(13,13);printf(" ");
* A' }+ k% c. z# g3 c6 Hgotoxy(13,7);printf("%s",chtime);, N0 m J! a$ x: S
j=18;
; W) i+ I4 I& S1 b( c) cch[0]=getch();/ V# R/ ]# P6 y
if(ch[0]==27)
- b* {% O+ ]$ c( Q6 b+ I, xbreak;
3 K% b# P+ c6 p9 j# Zstrcpy(chshop,"");
) {6 C8 c. M* A% l) k+ @strcpy(chmoney,"");' h+ q0 x) ?- x. O
if(ch[0]==9)
. @. b7 [6 U+ S0 Y# @, a{0 I9 T8 R4 [ t) n
mm:i=0;5 O6 _; O8 K+ Y
fp=fopen("home.dat","r+");9 `" S2 e% c& m
gotoxy(3,24);printf(" ");5 G+ v. R& Q B" ?
gotoxy(6,4);printf(" list records ");
) h0 \1 @: J- ~) a/ rgotoxy(1,5);printf("|-------------------------------------|");) f [' P( _6 ^* ?
gotoxy(41,4);printf(" ");" O1 y+ X) Z3 `( D5 ?( l3 Z$ R
gotoxy(41,5);printf(" |");
& @: W4 ~) o$ W# Y- d2 Hwhile(fscanf(fp,"%10s%14s%f\n",chtime,chshop,&chm)!=EOF)
/ m# F" U8 k# J( a$ x{ if(i==36)
E. {2 V7 l5 u, _1 u* x! h{ getch();* @2 ?9 z% J% t- z
i=0;}4 R8 c: `% b1 X4 M" H3 n
if ((i%36)<17)6 U7 }; j: y# o& N
{ gotoxy(4,6+i);
8 ^2 s# T! b, Z/ G& z/ sprintf(" ");
2 Y8 A. I$ n2 pgotoxy(4,6+i);}
$ D+ t) a: |- A$ [0 Q9 Oelse
! i' R; N% T; t. t3 Oif((i%36)>16)
9 m8 P3 s0 S! L4 s) G3 I{ gotoxy(41,4+i-17);1 e6 Z0 ^3 T+ I5 O; L$ K
printf(" ");1 s! J h% i, g
gotoxy(42,4+i-17);}; a6 K6 T8 [3 {) Y$ I
i++;
# G0 ~" K( X$ R; usum=sum+chm;, r( g) |9 k# v8 g2 p8 b& X3 f
printf("%10s %-14s %6.1f\n",chtime,chshop,chm);}
; k0 T$ q: P( E. ]6 f- ~gotoxy(1,23);printf("|---------------------------------------------------------------------------|");6 L1 z! G; H# k
gotoxy(1,24);printf("| |");! ^& K; H0 T9 r2 U0 `
gotoxy(1,25);printf("|---------------------------------------------------------------------------|");. c( {' x8 h" y# f u
gotoxy(10,24);printf("total is %8.1f$",sum);# z: v+ A6 k D+ n
fclose(fp);: @5 H5 H- Y* L; C
gotoxy(49,24);printf("press any key to.....");getch();goto pp;- s/ k% G4 [" P4 L I: y1 r6 M- y
}
" Z( s r/ Z# t2 Melse4 F7 N. t: V4 M. d) j& p; a
{3 b i$ V1 W7 j* L" Y- |
while(ch[0]!='\r')9 y3 m" {; v( O% `; |/ g. c* N
{ if(j<10)3 X$ A4 U, s! L! U/ S0 P* V
{ strncat(chtime,ch,1);* E' a6 ~! v0 y: O# F
j++;}
# Q9 S' \4 @. L/ |2 n3 n4 Vif(ch[0]==8)' S! o" R6 s% X* R
{: L3 L+ {- p5 p
len=strlen(chtime)-1;
3 R3 F' I; }* l3 F g! G. Bif(j>15)2 O4 |! O3 v2 J2 Y4 L
{ len=len+1; j=11;}
+ m" b3 f- j9 L" I( e4 r$ Zstrcpy(ch1,"");: `8 n9 L6 F( R5 L9 X
j=j-2;8 ?2 @& R& ]. W+ z- D# ]
strncat(ch1,chtime,len);
" z1 a p- ?' b4 w& `' P7 W5 mstrcpy(chtime,"");
# k2 [" m# A) o/ Lstrncat(chtime,ch1,len-1);
+ ^5 u1 J. ~% h( {# ~( Rgotoxy(13,7);printf(" ");}
" x, J$ S& S2 L8 X0 D' p" Cgotoxy(13,7);printf("%s",chtime);ch[0]=getch();
1 U. [, `2 w' v c) _. mif(ch[0]==9)
9 V. w& f" z, G0 b+ a6 a9 |goto mm;
; ~1 w5 z' [" Cif(ch[0]==27): Y% n+ N. R: S
exit(1);
" E% T, H; N) o6 p! C% n) i}
, Y9 ?# f# q+ M9 q2 g. X) o% f8 sgotoxy(3,24);printf(" ");
& Q- o( C: b; t8 @7 ?2 \' s/ O' egotoxy(13,10);
9 k! g; `- {( d- H" nj=0;
- G) Q; H) D0 g0 j- sch[0]=getch();6 ]- L8 A, N, ]+ k! Q
while(ch[0]!='\r')( s K; y" ?! ~1 N
{ if (j<14). K8 i, K7 a. E
{ strncat(chshop,ch,1);
c* k4 @9 }& s4 w( h8 F( G2 Q3 U, qj++;}
; t+ N7 \6 D8 n2 O8 A0 u: \1 o3 o# oif(ch[0]==8)2 h9 V4 i/ ~8 n6 Y: Y
{ len=strlen(chshop)-1;8 n& \. d# L0 ] j1 K
strcpy(ch1,"");
5 z3 F4 n% p0 b7 z* `6 Z6 mj=j-2;5 a# q6 U2 ^7 |( E
strncat(ch1,chshop,len);
* ?$ X" i' F5 q2 A( Ystrcpy(chshop,"");
# c% V$ X* r/ z7 n: P0 p3 ]strncat(chshop,ch1,len-1);% I2 \2 P" h: e# j5 {
gotoxy(13,10);printf(" ");}
6 b+ L( E( b9 W% c/ W/ S7 ngotoxy(13,10);printf("%s",chshop);ch[0]=getch();}
* X! A! \3 Z8 e- dgotoxy(13,13);2 ^& u1 Z* |1 Y2 _4 _- c
j=0;
9 X4 r- x; Q! M! f3 X6 Bch[0]=getch();
9 C9 C' T+ J" S% r2 _% n# f8 {while(ch[0]!='\r')
5 [( P: {) q R f) d{ if (j<6)9 o, h5 o' f- O2 W5 j1 G
{ strncat(chmoney,ch,1);
; m A3 |9 P8 t7 n- n3 ej++;}% k6 t! ]" N3 K. o" b' r% Q7 @
if(ch[0]==8)/ s0 ]" n# i/ k0 c) o1 r$ P
{ len=strlen(chmoney)-1;
3 R& t( |) o9 Rstrcpy(ch1,"");
- B5 i4 U: ]" |6 b" `! dj=j-2;
* d" h. M( H, i2 O) ?) E) M, Tstrncat(ch1,chmoney,len);% {( t, d! C$ K) N: J4 f2 p. r0 J
strcpy(chmoney,"");
! T* O7 g a9 a7 p% l p5 Pstrncat(chmoney,ch1,len-1);4 `6 e- e/ X) ]8 I2 c- {
gotoxy(13,13);printf(" ");}
7 E# N6 s# k8 l; F: ogotoxy(13,13);printf("%s",chmoney);ch[0]=getch();}% g6 N6 h% v `( m
if((strlen(chshop)==0)||(strlen(chmoney)==0))4 L, i2 U: d n, W8 {
continue;
9 z7 F& ?8 H- X3 J0 K* tif((fp=fopen("home.dat","a+"))!=NULL);) F0 D' t$ {& I+ Z m- c( J( J' E+ n, i
fprintf(fp,"%10s%14s%6s",chtime,chshop,chmoney);
. S/ i$ ?5 E' mfputc('\n',fp);
- X4 R1 E q, xfclose(fp);
2 l' i1 B7 O0 }6 k: q8 ei++;% w( u% r- d( X+ U/ X& `- O
gotoxy(41,5+i);
$ p7 D" K# s2 T4 j5 ]/ ~printf("%10s %-14s %-6s",chtime,chshop,chmoney);; v( c' J; q4 ~( l% }0 s6 T8 m
}}} |
|
IP卡
狗仔卡
鏄捐韩鍗