用c语言编写，关于24点的程序

#include<stdio.h>伏液

double fun(double a1,double a2,int b)

{switch(b)

{case 0:return (a1+a2)

case 1:return (a1-a2)

case 2:return (a1*a2)

case 3:return (a1/a2)

}

}

void main()

{int i,j,k,l,n,m,r,save[4]

double num[4]={1,1,1,1},tem1,tem2,tem3,abc=1111

char sign[5]="+-*/"

printf("input 4 numbers:")

for(i=0i<4i++)

{scanf("%lf",num+i)save[i]=num[i]}

for(i=0i<4i++)

for(j=0j<4j++)

if(j!=i)

{for(k=0k<4k++)

if(k!=i&&k!=j)

{for(l=0l<4l++)

if(l!=i&&l!=j&&l!=k)

{for(n=0n<4n++)

for(m=0m<4m++)

for(r=0r<4r++)

{tem1=fun(num[i],num[j],n)

tem2=fun(tem1,num[k],m)

tem3=fun(tem2,num[l],r)

if(tem3==24.0)printf("枝厅没{(%d%c%d)%c%d}%c%d=24\n",save[i],sign[n],save[j],sign[m],save[k],sign[r],save[l])

else if(tem3==-24.0)printf("{%d%c(%d%c%d)}%c%d=24\n",save[k],sign[m],save[i],sign[n],save[j],sign[r],save[l])

else if(tem3==1.0/24.0)printf("%d%c{(%d%c%d)%c%d}=24\猛纳n",save[l],sign[r],save[i],sign[n],save[j],sign[m],save[k])

else if(tem3==-1.0/24.0)printf("%d%c{%d%c(%d%c%d)}=24\n",save[l],sign[r],save[k],sign[n],save[i],sign[m],save[j])

else

{tem1=fun(num[i],num[j],n)

tem2=fun(num[k],num[l],r)

tem3=fun(tem1,tem2,m)

if(tem3==24.0) printf("(%d%c%d)%c(%d%c%d)=24\n",save[i],sign[n],save[j],sign[m],save[k],sign[r],save[l])

}

}

}

}

}

}

/*6.3.4 源程序*/

#define N 20

#define COL 100

#define ROW 40

#include "stdio.h"

#include "time.h" /*系统时间函数*/

#include "graphics.h" /*图形函数*/

#include "alloc.h"/*动态地址分配函数*/

#include "stdlib.h" /*库函数*/

#include "string.h" /*字符串函数*/

#include "ctype.h" /*字符 *** 作函数*/

char p[4][13]={

{'A','2','3','4','5','6','7','8','9','0','J','Q','K'},/*扑克牌，10用0来表示*/

{'A','2','3','4','5','6','7','8','9','0','J','Q','K'},

{'A','2','3','4','5','6','7','8','9','0','J','Q','K'},

{'A','2','3','4','5','6','7','8','9','0','J','Q','K'}}

typedef struct node

{

int data

struct node *link

}STACK1/*栈1*/

typedef struct node2

{

char data

struct node2 *link

}STACK2/*栈2*/

void init(void)/*图形驱动*/

void close(void)/*图形关闭*/

void play(void)/*发牌的具体过程*/

void rand1(int j)/*随机发牌函数*/

void change(char *e,char *a) /*中缀变后缀函数*/

int computer(char *s) /*后缀表达式计算函数*/

STACK1 *initstack1(STACK1 *top) /*栈1初始化*/

STACK1 *push(STACK1 *top,int x)/*栈1入栈运算*/

STACK1 *pop(STACK1 *top)/*栈1删除栈顶元素*/

int topx(STACK1 *top)/*栈1读栈顶元素*/

STACK1 *ptop(STACK1 *top,int *x)/*栈1读出栈顶元素值并删除栈顶元素*/

int empty(STACK1 *top)/*判栈1是否为枯碰空函数*/

STACK2 *initstack2(STACK2 *top)/*栈2初始化*/

STACK2 *push2(STACK2 *top,char x)/*栈2入栈运算*/

STACK2 *pop2(STACK2 *top)/*栈2删除栈顶元素*/

char topx2(STACK2 *top)/*栈2读栈顶元素*/

STACK2 *ptop2(STACK2 *top,char *x)/*栈2读出栈顶元素值并删除栈顶元素*/

int empty2(STACK2 *top)/*判栈2是前拿否为空函数*

int text1(char *s) /*显示文本*/

main()

{

char s[N],s1[N],ch

int i,result

int gdriver, gmode

clrscr()/*清屏*/

init()/*初始化函数*/

while(1)

{

setbkcolor(BLACK)/没悔谈*设置背景颜色*/

cleardevice()/*清屏*/

play() /*发牌*/

gotoxy(1,15)/*移动光标*/

printf("--------------------Note-------------------\n")

printf(" Please enter express accroding to above four number\n")/*提示信息*/

printf(" Format as follows:2.*(5.+7.)\n")/*提示输入字符串格式*/

printf(" ----------------------------------------------\n")

scanf("%s%c",s1,&ch)/*输入字符串压回车键*/

change(s1,s)/*调用change函数将中缀表达式s1转换为后缀表达式s*/

result=computer(s)/*计算后缀表达式的值，返回结果result */

if(result==24) /*如果结果等于24*/

text1("very good")/*调用函数text1显示字符串"very good"*/

else

text1("wrong!!!")/*否则函数text1显示字符串"wrong!!!"*/

printf("Continue (y/n)?\n")/*提示信息，是否继续*/

scanf("%c",&ch)/*输入一字符*/

if(ch=='n'||ch=='N') /*如果该字符等于n或N*/

break /*跳出循环，程序结束*/

} /*否则，开始下一轮循环*/

close()

return/*返回*/

}

void rand1(int j)/*随机发牌函数*/

{

int kind,num

char str[3],n

randomize()

while(1)/*循环直到有牌发*/

{

kind=random(4)/*花色随机数*/

num=random(13)/*大小随机数*/

if(p[kind][num]!=-1) /*该数未取过*/

{

n=p[kind][num]/*取相应位置的扑克牌数*/

p[kind][num]=-1/*牌发好以后相应位置的元素置-1*/

break

}

}

switch(kind)/*花式的判断*/

{

case 0:setcolor(RED)sprintf(str,"%c",3)break/*红桃*/

case 1:setcolor(BLACK)sprintf(str,"%c",3)break/*黑桃*/

case 2:setcolor(RED)sprintf(str,"%c",4)break/*方片*/

case 3:setcolor(BLACK)sprintf(str,"%c",5)break/*草花*/

}

settextstyle(0,0,2)

outtextxy(COL+j*100-30,ROW+100-46,str)/*显示左上角花色*/

outtextxy(COL+j*100+16,ROW+100+32,str)/*显示右下角花色*/

if(n!='0')/*输出其他牌*/

{

settextstyle(0,0,3)

sprintf(str,"%c",n)

outtextxy(COL+j*100-5,ROW+100-5,str)/*显示牌的大小*/

}

else/*输出10的时候*/

{

sprintf(str,"%d",10)

outtextxy(COL+j*100-6,ROW+100-5,str)

}

}

void play(void)/*发牌的具体过程*/

{

int j

for(j=0j<4j++)

{

bar(COL+j*100-35,ROW+100-50,COL+j*100+35,ROW+1*100+50)/*画空牌*/

setcolor(BLUE)

rectangle(COL+j*100-32,ROW+100-48,COL+j*100+32,ROW+100+48) /*画矩形框*/

rand1(j)/*随机取牌*/

delay(10000)/*延时显示*/

}

}

void init(void)/*图形驱动*/

{

int gd=DETECT,gm

initgraph(&gd,&gm,"c:\\tc")

cleardevice()

}

void close(void)/*图形关闭*/

{

closegraph()

}

void change(char *e,char *a) /*中缀字符串e转后缀字符串a函数*/

{

STACK2 *top=NULL/* 定义栈顶指针*/

int i,jchar w

i=0

j=0

while(e[i]!='\0') /*当字符串没有结束时*/

{

if(isdigit(e[i])) /*如果字符是数字*/

{

do{

a[j]=e[i] /*将数字原样拷贝到数组a中*/

i++ /*e数组的下标加1*/

j++ /*a数组的下标加1*/

}while(e[i]!='.')/*直到字符为数字结束符“.”为止*/

a[j]='.'j++/*将数字结束符“.”拷贝到a数组依然保持结束标记*/

}

if(e[i]=='(') /*如果字符是“(”时*/

top=push2(top,e[i])/*将其压入堆栈*/

if(e[i]==')') /*如果字符是“)”时*/

{

top=ptop2(top,&w)/*取出栈顶元素，并从栈顶删除该元素*/

while(w!='(') /*如果字符不是“(”时反复循环*/

{

a[j]=w /*将栈顶元素存入a数组*/

j++ /*下标加1*/

top=ptop2(top,&w) /*取出栈顶元素，并从栈顶删除该元素*/

}

}

if(e[i]=='+'||e[i]=='-') /*如果字符是加或减号时*/

{

if(!empty2(top)) /*如栈不为空*/

{

w=topx2(top)

while(w!='(') /*当栈顶元素不是“(”时反复循环*/

{

a[j]=w

j++/*将栈顶元素存入表达式a中，a的下标加1*/

top=pop2(top)/*删除栈顶元素*/

if(empty2(top)) /*如果栈为空*/

break/*跳出循环*/

else

w=topx2(top)/*否则读栈顶元素*/

}

}

top=push2(top,e[i])/*将当前e的字符元素压入堆栈*/

}

if(e[i]=='*'||e[i]=='/') /*如果字符是乘或除号时*/

{

if(!empty2(top)) /*如栈不为空*/

{

w=topx2(top)/*读栈顶元素存入w*/

while(w=='*'||w=='/')/*当栈顶元素是乘或除时反复循环*/

{

a[j]=w

j++/*将栈顶元素存入字符串a中，a的下标加1*/

top=pop2(top)/*删除栈顶元素*/

if(empty2(top)) /*如果栈为空*/

break/*跳出循环*/

else

w=topx2(top)/*否则读栈顶元素*/

}

}

top=push2(top,e[i])/*将当前e字符元素压入堆栈*/

}

i++/*e的下标加1*/

}

while(!empty2(top)) /*当不为空时反复循环*/

top=ptop2(top,&a[j++])/*将栈顶元素存入数组a中*/

a[j]='\0' /*将字符串结束标记写入最后一个数组元素中构成字符串*/

}

int computer(char *s) /* 计算函数*/

{

STACK1 *top=NULL

int i,k,num1,num2,result

i=0

while(s[i]!='\0') /*当字符串没有结束时作以下处理*/

{

if(isdigit(s[i])) /*判字符是否为数字*/

{

k=0 /*k初值为0*/

do{

k=10*k+s[i]-'0' /*将字符连接为十进制数字*/

i++ /*i加1*/

}while(s[i]!='.')/*当字符不为‘.’时重复循环*/

top=push(top,k)/*将生成的数字压入堆栈*/

}

if(s[i]=='+') /*如果为'+'号*/

{

top=ptop(top,&num2)/*将栈顶元素取出存入num2中*/

top=ptop(top,&num1) /*将栈顶元素取出存入num1中*/

result=num2+num1 /*将num1和num2相加存入result中*/

top=push(top,result) /*将result压入堆栈*/

}

if(s[i]=='-') /*如果为'-'号*/

{

top=ptop(top,&num2)/*将栈顶元素取出存入num2中*/

top=ptop(top,&num1)/*将栈顶元素取出存入num1中*/

result=num1-num2/*将num1减去num2结果存入result中*/

top=push(top,result)/*将result压入堆栈*/

}

if(s[i]=='*') /*如果为'*'号*/

{

top=ptop(top,&num2)/*将栈顶元素取出存入num2中*/

top=ptop(top,&num1)/*将栈顶元素取出存入num1中*/

result=num1*num2/*将num1与num2相乘结果存入result中*/

top=push(top,result)/*将result压入堆栈*/

}

if(s[i]=='/') /*如果为'/'号*/

{

top=ptop(top,&num2)/*将栈顶元素取出存入num2中*/

top=ptop(top,&num1)/*将栈顶元素取出存入num1中*/

result=num1/num2/*将num1除num2结果存入result中*

top=push(top,result)/*将result压入堆栈*/

}

i++ /*i加1*/

}

top=ptop(top,&result)/*最后栈顶元素的值为计算的结果*/

return result /*返回结果*/

}

STACK1 *initstack1(STACK1 *top) /*初始化*/

{

top=NULL/*栈顶指针置为空*/

return top /*返回栈顶指针*/

}

STACK1 *push(STACK1 *top,int x) /*入栈函数*/

{

STACK1 *p /*临时指针类型为STACK1*/

p=(STACK1 *)malloc(sizeof(STACK1)) /*申请STACK1大小的空间*/

if(p==NULL) /*如果p为空*/

{

printf("memory is overflow\n!!")/*显示内存溢出*/

exit(0) /*退出*/

}

p->data=x/*保存值x到新空间*/

p->link=top /*新结点的后继为当前栈顶指针*/

top=p /*新的栈顶指针为新插入的结点*/

return top/*返回栈顶指针*/

}

STACK1 *pop(STACK1 *top) /*出栈*/

{

STACK1 *q/*定义临时变量*/

q=top /*保存当前栈顶指针*/

top=top->link/*栈顶指针后移*/

free(q) /*释放q*/

return top/*返回栈顶指针*/

}

int topx(STACK1 *top) /*读栈顶元素*/

{

if(top==NULL) /*栈是否为空*/

{

printf("Stack is null\n")/*显示栈为空信息*/

return 0 /*返回整数0*/

}

return top->data/*返回栈顶元素*/

}

STACK1 *ptop(STACK1 *top,int *x) /*取栈顶元素，并删除栈顶元素*/

{

*x=topx(top) /*读栈顶元素*/

top=pop(top)/*删除栈顶元素*/

return top/*返回栈顶指针*/

}

int empty(STACK1 *top) /*判栈是否为空*/

{

if(top==NULL) /*如果为空*/

return 1 /*返回1*/

else

return 0/*否则返回0*/

}

STACK2 *initstack2(STACK2 *top) /*初始化*/

{

top=NULL/*栈顶指针置为空*/

return top/*返回栈顶指针*/

}

STACK2 *push2(STACK2 *top,char x) /*入栈函数*/

{

STACK2 *p/*临时指针类型为STACK2*/

p=(STACK2 *)malloc(sizeof(STACK2))/*申请STACK2大小的空间*/

if(p==NULL) /*如果p为空*/

{

printf("memory is overflow\n!!")/*显示内存溢出*/

exit(0)/*退出*/

}

p->data=x/*保存值x到新空间*/

p->link=top/*新结点的后继为当前栈顶指针*/

top=p/*新的栈顶指针为新插入的结点*/

return top/*返回栈顶指针*/

}

STACK2 *pop2(STACK2 *top) /*出栈*/

{

STACK2 *q/*定义临时变量*/

q=top/*保存当前栈顶指针*/

top=top->link/*栈顶指针后移*/

free(q)/*释放q*/

return top/*返回栈顶指针*/

}

char topx2(STACK2 *top) /*读栈顶元素*/

{

if(top==NULL) /*栈是否为空*/

{

printf("Stack is null\n")/*显示栈为空信息*/

return ''/*返回空字符*/

}

return top->data/*返回栈顶元素*/

}

STACK2 *ptop2(STACK2 *top,char *x) /*取栈顶元素，并删除栈顶元素*/

{

*x=topx2(top)/*读栈顶元素*/

top=pop2(top)/*删除栈顶元素*/

return top/*返回栈顶指针*/

}

int empty2(STACK2 *top) /*判栈是否为空*/

{

if(top==NULL) /*如果为空*/

return 1/*返回1*/

else

return 0/*否则返回0*/

}

int text1(char *s)

{

setbkcolor(BLUE)/*设置背景颜色为蓝色*/

cleardevice()/*清除屏幕*/

setcolor(12)/*设置文本颜色为淡红色*/

settextstyle(1, 0, 8)/*三重笔划字体, 放大8倍*/

outtextxy(120, 120, s)/*输出字符串s*/

setusercharsize(2, 1, 4, 1)/*水平放大2倍, 垂直放大4倍*/

setcolor(15) /*设置文本颜色为*白色/

settextstyle(3, 0, 5)/*无衬字笔划, 放大5倍*/

outtextxy(220, 220, s)/*输出字符串s*/

getch()/*键盘输入任一字符*/

return /*返回*/

}

#include <stdio.h>

#include <stdlib.h>

#include <math.h>

char op[3], o[5]="+-*/"

float n[4], on[10]

int used[4] = {0}, top=0, tp=0, x

void chk(float k)

void search24(int d)

float calc(float n1, float n2, char o)

void make(int i, float p, float q, char o, int d)

int main( void )

{

printf("please input 4 card number:\n")

  scanf("%f%f%f%f", &n[0], &n[1], &n[2], &n[3])

  search24(0)

  printf("No answer.\n")

  return 0

}

void chk(float k)

{

  if( (tp != 3) || ( fabs(k-24.0) >0.000001 )) //没有用完3个运算符或者结果不为24就退出.

return

  for(x=0x<5x+=2)            肆哪                                //这样设计是为了使3个选中的符号都可以得到输出.

      printf("%g%c%g=%g\n", on[x], op[x/2], on[x+1],         //分析得到的.

                             calc(on[x], on[x+1], op[x/2]))

system("pause")

  exit(0)

}

float calc(float n1, float n2, char o)

{

  switch(o){

      case '+': return (n1+n2)

      case '-': return (n1-n2)

      case '*': return (n1*n2)

      case '/': return (n1/n2)

default: exit(0)

  }

}

void make(int i, float p, float q, char o, int d)

{

  if(fabs(q)>0.000001 || o!='/')   //除数不为0,或者为0的时候不能为除数.

      n[i] = calc(p, q, o)

  op[tp++] = o

chk(n[i])

  search24(d+1)

tp--   //因为是全是全局变量,所以在做试验性的循环递归问题时,如果失败,要在递归函数后面重新恢复回原来的值

}

void search24(int d)

{

  int i, j, k

  float p, q

  if(d>=3)    //控制递归深度,就是运算符的输出个数.

return

  for(i=0i<4i++)

      for(j=0j<4j++)

          if( (i!=j)&&(used[i]+used[j] == 0) ) //i!=j是防止重复,(used[i]+used[j] == 0)是防止又再匹配已经用过的j,

                                    //但是i可以新来.

 {

              used[j] = 1  //j得到匹配之后,赋值为1,表示已慧册经使用

  p=n[i]

  q=n[j]

              on[top++] = p

  on[top++] = q

              for(k=0k<4k++)  //运算符的循环试用.

                  make(i, p, q, o[k], d)

              n[i] = p       //因为是全是全局变量,所以在做试验性的循环递归问题时,

 裂碧码 used[j] = 0    //如果失败,要在递归函数后面重新恢复回原来的值

              top -= 2       //

          }

}

出处:http://blog.sina.com.cn/s/blog_491de9d60100d5er.html

---