⑴ 24點游戲C語言編程。要求 游戲給出4個1-13的整數 用戶輸入一個含這4個整數的四則運算表達式
輸入：A 2 3 4 5 6 7 8 9 10 J Q K
輸出：Yes/No
#include <stdio.h>
#include <string.h>
char t[10][10];
int b[5][1000],bx[3][200],by[3][200],g[5],p[5];
int i,j,k;
bool f;
int main()
{
while (~scanf("%s",&t[0]))
{
for (i=1;i<4;i++)
scanf("%s",&t[i]);
for (i=0;i<4;i++)
if (t[i][0]=='A')
g[i+1]=1;
else if (t[i][0]=='J')
g[i+1]=11;
else if (t[i][0]=='Q')
g[i+1]=12;
else if (t[i][0]=='K')
g[i+1]=13;
else if (t[i][0]=='1')
g[i+1]=10;
else
g[i+1]=t[i][0]-48;
memset(b,255,sizeof(b));
for (p[1]=1;p[1]<=4;p[1]++) if (b[4][24]!=4)
for (p[2]=1;p[2]<=4;p[2]++) if ((p[1]!=p[2]) && (b[4][24]!=4))
for (p[3]=1;p[3]<=4;p[3]++) if ((p[1]!=p[3]) && (p[2]!=p[3]) && (b[4][24]!=4))
{
p[4]=10-p[1]-p[2]-p[3];
memset(b,255,sizeof(b));
b[1][g[p[1]]]=1;
for (i=2;i<=4;i++)
for (j=500;j>0;j--)
if (b[i-1][j]==i-1)
{
b[i][j+g[p[i]]]=i;
if (j>g[p[i]])
b[i][j-g[p[i]]]=i;
if (j<g[p[i]])
b[i][g[p[i]]-j]=i;
if (j*g[p[i]]<1000)
b[i][j*g[p[i]]]=i;
if (j%g[p[i]]==0)
b[i][j/g[p[i]]]=i;
if ((j!=0) && (g[p[i]]%j==0))
b[i][g[p[i]]/j]=i;
}
if (b[4][24]!=4)
{
memset(bx,255,sizeof(bx));
memset(by,255,sizeof(by));
bx[1][g[p[1]]]=1;
bx[2][g[p[1]]+g[p[2]]]=2;
if (g[p[1]]>g[p[2]])
bx[2][g[p[1]]-g[p[2]]]=2;
if (g[p[1]]<g[p[2]])
bx[2][g[p[2]]-g[p[1]]]=2;
bx[2][g[p[1]]*g[p[2]]]=2;
if (g[p[1]]%g[p[2]]==0)
bx[2][g[p[1]]/g[p[2]]]=2;
if (g[p[2]]%g[p[1]]==0)
bx[2][g[p[2]]/g[p[1]]]=2;
by[1][g[p[3]]]=1;
by[2][g[p[3]]+g[p[4]]]=2;
if (g[p[3]]>g[p[4]])
by[2][g[p[3]]-g[p[4]]]=2;
if (g[p[3]]<g[p[4]])
by[2][g[p[4]]-g[p[3]]]=2;
by[2][g[p[3]]*g[p[4]]]=2;
if (g[p[3]]%g[p[4]]==0)
by[2][g[p[3]]/g[p[4]]]=2;
if (g[p[4]]%g[p[3]]==0)
by[2][g[p[4]]/g[p[3]]]=2;
for (i=200;i>0;i--)
if (bx[2][i]==2)
for (j=200;j>0;j--)
if (by[2][j]==2)
if ((i+j==24) || (i-j==24) || (j-i==24) || (i*j==24) || ((i%j==0) && (i/j==24) || ((j%i==0) && (j/i==24))))
{
b[4][24]=4;
break;
}
}
}
if (b[4][24]==4)
puts("Yes");
else
puts("No");
}
return 0;
}
⑵ C語言，24點發牌小程序。。。。
int _tmain(int argc, _TCHAR* argv[])
{
int i,j,card,tank[54],player[26],computer[26];
bool flag;
while (true){
srand(time(NULL)); //初始化隨機種子
for(i=0;i<54;i++)
tank[i]=-1; //初始化容器
//printf("%X\n",tank[1]);
for(i=0;i<52;i++)//52張牌
{
flag=1;
while(flag)
{
flag=0;
card=rand()%52;
for(j=0;j<=i;j++){
if(card==tank[j]) {
flag=1;
}
}
}
tank[i]=card;
}
printf("\n\n");
for(i=0;i<52;i++)
printf("%d\t",tank[i]);
printf("\n\n");
for(i=0;i<52;i++)
{
switch((tank[i])/13){
case 0:
if(tank[i]%13==12) printf("紅桃K\t");
else if(tank[i]%13==11) printf("紅桃Q\t");
else if(tank[i]%13==10) printf("紅桃J\t");
else if(tank[i]%13==0 ) printf("紅桃A\t");
else {printf("紅桃%d\t",tank[i]%13+1);}
break;
case 1:
if(tank[i]%13==12) printf("黑桃K\t");
else if(tank[i]%13==11) printf("黑桃Q\t");
else if(tank[i]%13==10) printf("黑桃J\t");
else if(tank[i]%13==0 ) printf("黑桃A\t");
else {printf("黑桃%d\t",tank[i]%13+1);}
break;
case 2:
if(tank[i]%13==12) printf("方片K\t");
else if(tank[i]%13==11) printf("方片Q\t");
else if(tank[i]%13==10) printf("方片J\t");
else if(tank[i]%13==0 ) printf("方片A\t");
else {printf("方片%d\t",tank[i]%13+1);}
break;
case 3:
if(tank[i]%13==12) printf("梅花K\t");
else if(tank[i]%13==11) printf("梅花Q\t");
else if(tank[i]%13==10) printf("梅花J\t");
else if(tank[i]%13==0 ) printf("梅花A\t");
else {printf("梅花%d\t",tank[i]%13+1);}
break;
case 4:
if(tank[i]==52) {printf("小王\t");}else{printf("大王\t");}
break;
}
}
//替換成規定的數據列
printf("\n\n");
for(i=0; i < 4; i++)
{
player[i]=tank[i];
printf("%d\t",player[i]);
}
printf("\n\n你的牌是:\n\n");
for(i=0;i<4;i++)
{
switch((player[i])/13){
case 0:
if(player[i]%13==12) printf("紅桃K\t");
else if(player[i]%13==11) printf("紅桃Q\t");
else if(player[i]%13==10) printf("紅桃J\t");
else if(player[i]%13==0 ) printf("紅桃A\t");
else {printf("紅桃%d\t",player[i]%13+1);}
break;
case 1:
if(player[i]%13==12) printf("黑桃K\t");
else if(player[i]%13==11) printf("黑桃Q\t");
else if(player[i]%13==10) printf("黑桃J\t");
else if(player[i]%13==0 ) printf("黑桃A\t");
else {printf("黑桃%d\t",player[i]%13+1);}
break;
case 2:
if(player[i]%13==12) printf("方片K\t");
else if(player[i]%13==11) printf("方片Q\t");
else if(player[i]%13==10) printf("方片J\t");
else if(player[i]%13==0 ) printf("方片A\t");
else {printf("方片%d\t",player[i]%13+1);}
break;
case 3:
if(player[i]%13==12) printf("梅花K\t");
else if(player[i]%13==11) printf("梅花Q\t");
else if(player[i]%13==10) printf("梅花J\t");
else if(player[i]%13==0 ) printf("梅花A\t");
else {printf("梅花%d\t",player[i]%13+1);}
break;
case 4:
if(player[i]==52) {printf("小王\t");}else{printf("大王\t");}
break;
}
}
int id;
cout<<endl<<endl<<"再來一幅牌嘛(0鍵退出)，任意鍵"<<endl;
id=cin.get();
if(cin.fail()){
cin.clear();
cin.sync();
continue;
}else{
if (id=0) break;
}
}
getchar();
getchar();
return 0;
}
⑶ C語言24點游戲
#include <stdio.h>
#include <math.h>
double num[4];//存儲4個數字
double pre = 1E-6; //精度
int go(int n)
{
int i,j;
if(n==1)
{
if(fabs(num[0]-24)<1E-6)
return 1;
else
return 0;
}
else
{
for(i=0;i<n-1;i++)
{
double a=num[i];
double b=num[i+1];
for(j=i+1;j<n-1;j++)
{
num[j]=num[j+1];
}
num[i]=a+b;
if(go(n-1)) return 1;
num[i]=a-b;
if(go(n-1)) return 1;
num[i]=a*b;
if(go(n-1)) return 1;
if(b!=0)
{
num[i]=a/b;
if(go(n-1)) return 1;
}
for(j=n-1;j>i+1;j--)
{
num[j]=num[j-1];
}
num[i+1]=b;
num[i]=a;
}
}
return 0;
}
int main()
{
double sum;
int i;
do
{
sum=0;
for(i=0;i<4;i++)
{
scanf("%lf",&num[i]);
sum+=num[i];
}
if(sum>1)
{
if(go(4))
printf("YES\n");
else
printf("NO\n");
}
}while(sum>1);
return 0;
}
如上可以實現。
⑷ 求教24點游戲的演算法（最好用C++)
24點游戲是一個大眾化的益智游戲.任意給四張撲克牌(不包括大小王),只能夠用加,減,乘,除以及適當的括弧連接這四張牌,無論順序,使計算結果為24,或者宣布根本就是無解的.需要注意的是,每張牌必須運算,並且只能運算一次,J,Q,K可設置為11,12,13.
本程序目的就是算出一組牌的所有解(不同形式的式子算不同解),如沒有則輸出無解.
演算法說明
首先解決圖形撲克牌的顯示問題.我選擇了Qcard.dll.運用其中的DrawCard過程可輕松實現撲克的顯示問題,在源程序中會有具體用法.
接下來是24點演算法的討論.首先想到的是用窮舉表達式的方法,然後求值.然而,由於括弧的存在,使窮舉表達式並非易事.實際上,括弧的作用僅僅是提高運算的優先順序而已,如果我們規定符號的優先順序,一樣可以達到要求.具體來說,設四張牌為a,b,c,d,運算符為①,②,③,表達式為a ① b ② c ③ .如果強制規定①,②,③的優先順序,就不必考慮括弧問題了.而這3個運算符的運算順序有3!=6種,分別是:
1.①②③ 2.①③② 3.②①③ 4.②③① 5.③①② 6.③②①
等價的表達式分別是:
1.((a①b②)c③) 2.(a①b)②(c③d) 3.(a①(b②c))③d
4.a①((b②c)③d) 5.(a①b)②(c③d) 6. a①(b②(c③d))
顯然,2和5是相同的,因此只考慮5種情況.這樣,括弧的問題就解決了.
接下來,就是生成a,b,c,d的全排列,注意去掉其中的相同排列.去除的方法很多,比如字典排序等,我用的是另一種方法.
用循環的嵌套生成a,b,c,d的24種全排列,記錄在數組中.把每一組數當作一個四位的14進制數,把這24個數全部轉化為十進制(如(6529)14=6*143+5*142+2*14+9).這樣,如果兩個排列完全相同,則得到的十進制數是相等的.這樣,通過對這些十進制的比較,就可以比較這些排列的相同情況.一旦遇到相同的排列,就標記上.最後生成一組沒有重復的排列.
對這組排列進行以上方法的運算,就可以得到所有的結果了.注意在運算過程中除法的特殊性——除數不能為零.因為可能會用到除法,所以要考慮精度問題,這里通過結果減去24取絕對值與一個接近0的小數比較,如小於它,即可判定結果是24.
附:其他待決的問題:
圖形撲克牌的遮擋問題.當窗口中的撲克牌被遮擋後,撲克牌不會重新畫上,造成撲克牌遮擋後顯示不全問題.應尋找Qcard.dll的有關參數.
形式不同而實質相同的解的問題.有些解雖然形式不同,但其實質是完全相同的.如3*((11+4)-7)和3*(11+(4-7)),實際上只是一種解.去掉這些相同解的問題情況較多,其較為繁瑣,有待解決.
多餘括弧好問題.有些解的括弧是多餘的,應在輸出前去掉.
改進程序的可玩性.增加玩家輸入表達式的功能,並判斷對錯,還可以加上時間限制,使玩家參與到游戲中.
程序框圖
VB源程序代碼
'需要聲明所有用到的變數
Option Explicit
'聲明全局變數,數組
Dim cards(1 To 4) As Single, card(1 To 4) As Single
Dim result(1 To 24, 0 To 4) As Integer, final(1 To 24, 1 To 4) As Integer, temp(1 To 24) As Long
Dim nokey As Boolean, total As Integer, n1 As Integer, n2 As Integer, n3 As Integer, n4 As Integer, a As Integer, b As Integer, c As Integer, d As Integer, op1 As Integer, op2 As Integer, op3 As Integer, answer1 As Single, answer2 As Single, answer3 As Single, color As Integer
Dim i As Integer, j As Integer, t As Integer
'聲明zero常量,設置0的標准,處理除法的精度問題
Const zero = 0.00001
'初始化QCARD32.DLL
Private Declare Function InitializeDeck Lib "qcard32.dll" (ByVal hwin As Long) As Integer
'DrawCard 子程序,畫出撲克牌圖樣在FORM窗體及 窗體上的圖片框
'用法:
'hwnd ---- 需要畫圖的對象句柄
'nCard --- 撲克牌編號 其編號如下
'1-13 梅花 14-26 方塊 27-39 紅心 40-52 黑桃 小王-110 大王-111
'x,y 位置
Private Declare Sub DrawCard Lib "qcard32.dll" (ByVal hwnd As Long, ByVal nCard As Integer, ByVal x As Integer, ByVal y As Integer)
'DrawBack 子程序,畫出撲克牌的背面圖案,共六種 按 1--6 編號
Private Declare Sub DrawBack Lib "qcard32.dll" (ByVal hwnd As Long, ByVal nCard As Long, ByVal x As Long, ByVal y As Long)
'GetCardSuit 函數,求 nCard 的點數 1-13
'Private Declare Function GetCardSuit Lib "qcard32.dll" (ByVal nCard As Long) As Long
'GetCardValue 函數,求 nCard 的花色 0:鬼牌 1:梅花 2:方塊 3:紅心 4:黑桃
'Private Declare Function GetCardValue Lib "qcard32.dll" (ByVal nCard As Long) As Long
'Form_Load過程,初始化
Private Sub Form_Load()
Randomize Timer
Call InitializeDeck(Me.hwnd)
Command3.Enabled = False
End Sub
'answer函數,返回x與y做operator運算後的值,-100為錯誤標志
Private Function answer(x As Single, y As Single, operator As Integer) As Single
Select Case operator
Case 1
answer = x + y
Exit Function
Case 2
answer = x - y
Exit Function
Case 3
answer = x * y
Exit Function
Case 4
If y = 0 Then
answer = -100
Exit Function
Else
answer = x / y
Exit Function
End If
End Select
answer = -100
End Function
'operate函數,返回數值op所對應的四則運算符號
Private Function operate(op As Integer) As String
Select Case op
Case 1
operate = "+"
Case 2
operate = "-"
Case 3
operate = "*"
Case 4
operate = "/"
End Select
End Function
'search過程,去掉數組result中相同的元素,存入數組final中
Private Sub search()
For i = 1 To 24
result(i, 0) = 0
temp(i) = result(i, 1) * 14 ^ 3 + result(i, 2) * 14 ^ 2 + result(i, 3) * 14 + result(i, 4)
Next i
For i = 1 To 23
For j = i + 1 To 24
If temp(i) = temp(j) Then result(i, 0) = 1
Next j
Next i
For i = 1 To 24
If result(i, 0) = 1 Then GoTo 1
t = t + 1
For j = 1 To 4
final(t, j) = result(i, j)
Next j
1 Next i
End Sub
'Main過程,用於計算四個數通過不同運算得到24的所有情況,並輸出結果
Private Sub Main()
For op1 = 1 To 4
For op2 = 1 To 4
For op3 = 1 To 4
'1·形如( a @ b ) @ c ) @ d 的表達式
answer1 = answer(cards(1), cards(2), op1)
answer2 = answer(answer1, cards(3), op2)
answer3 = answer(answer2, cards(4), op3)
If answer1 -100 And answer2 -100 And answer3 -100 Then
If Abs(answer3 - 24) < zero Then
nokey = False
total = total + 1
Text1.Text = Text1.Text + "((" + Trim$(Str$(cards(1))) + operate(op1) + Trim$(Str$(cards(2))) + ")" + operate(op2) + Trim$(Str$(cards(3))) + ")" + operate(op3) + Trim$(Str$(cards(4))) + " "
'若本行已有三個式子,就換行
If total Mod 3 = 0 Then
Text1.Text = Text1.Text + Chr$(13) + Chr$(10)
End If
End If
End If
'2·形如( a @ b ) @ (c @ d) 的表達式
answer1 = answer(cards(1), cards(2), op1)
answer2 = answer(cards(3), cards(4), op3)
answer3 = answer(answer1, answer2, op2)
If answer1 -100 And answer2 -100 And answer3 -100 Then
If Abs(answer3 - 24) < zero Then
nokey = False
total = total + 1
Text1.Text = Text1.Text + "(" + Trim$(Str$(cards(1))) + operate(op1) + Trim$(Str$(cards(2))) + ")" + operate(op2) + "(" + Trim$(Str$(cards(3))) + operate(op3) + Trim$(Str$(cards(4))) + ")" + " "
'若本行已有三個式子,就換行
If total Mod 3 = 0 Then
Text1.Text = Text1.Text + Chr$(13) + Chr$(10)
End If
End If
End If
'3·形如( a @ ( b @ c ) ) @ d 的表達式
answer1 = answer(cards(2), cards(3), op2)
answer2 = answer(cards(1), answer1, op1)
answer3 = answer(answer2, cards(4), op3)
If answer1 -100 And answer2 -100 And answer3 -100 Then
If Abs(answer3 - 24) < zero Then
nokey = False
total = total + 1
Text1.Text = Text1.Text + "(" + Trim$(Str$(cards(1))) + operate(op1) + "(" + Trim$(Str$(cards(2))) + operate(op2) + Trim$(Str$(cards(3))) + "))" + operate(op3) + Trim$(Str$(cards(4))) + " "
'若本行已有三個式子,就換行
If total Mod 3 = 0 Then
Text1.Text = Text1.Text + Chr$(13) + Chr$(10)
End If
End If
End If
'4·形如 a @ ( ( b @ c ) @ d ) 的表達式
answer1 = answer(cards(2), cards(3), op2)
answer2 = answer(answer1, cards(4), op3)
answer3 = answer(cards(1), answer2, op1)
If answer1 -100 And answer2 -100 And answer3 -100 Then
If Abs(answer3 - 24) < zero Then
nokey = False
total = total + 1
Text1.Text = Text1.Text + Trim$(Str$(cards(1))) + operate(op1) + "((" + Trim$(Str$(cards(2))) + operate(op2) + Trim$(Str$(cards(3))) + ")" + operate(op3) + Trim$(Str$(cards(4))) + ")" + " "
'若本行已有三個式子,就換行
If total Mod 3 = 0 Then
Text1.Text = Text1.Text + Chr$(13) + Chr$(10)
End If
End If
End If
'5·形如 a @ ( b @ ( c @ d ) ) 的表達式
answer1 = answer(cards(3), cards(4), op3)
answer2 = answer(cards(2), answer1, op2)
answer3 = answer(cards(1), answer2, op1)
If answer1 -100 And answer2 -100 And answer3 -100 Then
If Abs(answer3 - 24) < zero Then
nokey = False
total = total + 1
Text1.Text = Text1.Text + Trim$(Str$(cards(1))) + operate(op1) + "(" + Trim$(Str$(cards(2))) + operate(op2) + "(" + Trim$(Str$(cards(3))) + operate(op3) + Trim$(Str$(cards(4))) + "))" + " "
'若本行已有三個式子,就換行
If total Mod 3 = 0 Then
Text1.Text = Text1.Text + Chr$(13) + Chr$(10)
End If
End If
End If
Next op3
Next op2
Next op1
End Sub
'Card1_MouseDown過程,按左鍵點擊紙牌加1,按右鍵減1
Private Sub Card1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Select Case Button
'按左鍵
Case 1
If card(4) = 13 Then
card(4) = 1
Else
card(4) = card(4) + 1
End If
'按右鍵
Case 2
If card(4) = 1 Then
card(4) = 13
Else
card(4) = card(4) - 1
End If
End Select
'隨機產生變化後的花色
color = Int(Rnd() * 4)
'重畫紙牌
Call DrawCard(Me.hwnd, color * 13 + card(4), 10, 10)
End Sub
'Card2_MouseDown過程,按左鍵點擊紙牌加1,按右鍵減1
Private Sub Card2_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Select Case Button
'按左鍵
Case 1
If card(3) = 13 Then
card(3) = 1
Else
card(3) = card(3) + 1
End If
'按右鍵
Case 2
If card(3) = 1 Then
card(3) = 13
Else
card(3) = card(3) - 1
End If
End Select
'隨機產生變化後的花色
color = Int(Rnd() * 4)
'重畫紙牌
Call DrawCard(Me.hwnd, color * 13 + card(3), 10 + 85, 10)
End Sub
'Card3_MouseDown過程,按左鍵點擊紙牌加1,按右鍵減1
Private Sub Card3_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Select Case Button
'按左鍵
Case 1
If card(2) = 13 Then
card(2) = 1
Else
card(2) = card(2) + 1
End If
'按右鍵
Case 2
If card(2) = 1 Then
card(2) = 13
Else
card(2) = card(2) - 1
End If
End Select
'隨機產生變化後的花色
color = Int(Rnd() * 4)
'重畫紙牌
Call DrawCard(Me.hwnd, color * 13 + card(2), 10 + 2 * 85, 10)
End Sub
'Card4_MouseDown過程,按左鍵點擊紙牌加1,按右鍵減1
Private Sub Card4_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Select Case Button
'按左鍵
Case 1
If card(1) = 13 Then
card(1) = 1
Else
card(1) = card(1) + 1
End If
'按右鍵
Case 2
If card(1) = 1 Then
card(1) = 13
Else
card(1) = card(1) - 1
End If
End Select
'隨機產生變化後的花色
color = Int(Rnd() * 4)
'重畫紙牌
Call DrawCard(Me.hwnd, color * 13 + card(1), 10 + 3 * 85, 10)
End Sub
'Command1_Click過程,點擊洗牌按鈕畫出紙牌背面
Private Sub Command1_Click()
'隨機產生紙牌背面的樣式
color = Int(Rnd() * 6 + 1)
'畫出紙牌背面
Call DrawBack(Me.hwnd, color, 10, 10)
Call DrawBack(Me.hwnd, color, 95, 10)
Call DrawBack(Me.hwnd, color, 180, 10)
Call DrawBack(Me.hwnd, color, 265, 10)
'禁用答案按鈕
Command3.Enabled = False
End Sub
'Command2_Click過程,點擊發牌按鈕畫出隨機產生的紙牌
Private Sub Command2_Click()
'清空答案
Text1.Text = ""
'隨機產生的紙牌,並畫出
For i = 1 To 4
card(i) = Int(Rnd() * 13 + 1)
color = Int(Rnd() * 4)
Call DrawCard(Me.hwnd, color * 13 + card(i), 10 + (4 - i) * 85, 10)
Next i
'開啟答案按鈕
Command3.Enabled = True
End Sub
'Command3_Click過程,點擊答案按鈕計算結果
Private Sub Command3_Click()
'清空解的數量
Label1.Caption = ""
'默認設置為無解
nokey = True
'解的計數器清零
total = 0
'臨時變數清零
i = 0
j = 0
t = 0
'產生24種全排列
For n1 = 1 To 4
For n2 = 1 To 4
If n2 = n1 Then GoTo 2
For n3 = 1 To 4
If n3 = n1 Or n3 = n2 Then GoTo 3
n4 = 10 - n1 - n2 - n3
i = i + 1
result(i, 1) = card(n1)
result(i, 2) = card(n2)
result(i, 3) = card(n3)
result(i, 4) = card(n4)
3 Next n3
2 Next n2
Next n1
'調用search過程,去掉重復排列
Call search
'調用Main過程,尋找答案
For i = 1 To t
For j = 1 To 4
cards(j) = final(i, j)
Next j
Call Main
Next i
'輸出解的情況
If nokey = False Then Label1.Caption = "共有" + Trim$(Str$(total)) + "組解!" Else Label1.Caption = "無解!"
'禁止答案按鈕
Command3.Enabled = False
End Sub
五,程序界面
N
Y
比較temp(i)與temp(j)是否相等
For j=i+1 to 24
For i=1 to 23
初始化變數,數組
For i=1 to 24
初始化重復排列的標志result(1..24,0)=0
排列存入數組result(1..24,1..4)
全排列循環終止
3重循環產生24種全排列
隨機產生四張撲克牌
將全排列所對應的十進制數存入temp(1..24)
Next i
設置重復排列的標志result(i,0)=1
計數器t=t+1
Next j
Next i
結束
輸出解的個數或無解
結束循環final中的排列
計算形如 a @ ( b @ ( c @ d ) ) 的表達式
如等於24則輸出
計算形如 a @ ( ( b @ c ) @ d ) 的表達式
如等於24則輸出
計算形如( a @ ( b @ c ) ) @ d的表達式
如等於24則輸出
計算形如( a @ b ) @ ( c @ d ) 的表達式
如等於24則輸出
計算形如( a @ b ) @ c ) @ d 的表達式
如等於24則輸出
結束循環3個運算符
循環3個運算符
循環final中的全部排列
Next i
把result存入final
Y
N
檢驗result(i,0)標志
是否為1
For i=1 to t
⑸ 如何用C語言做一個24點游戲的程序
/*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=0;j<4;j++)
{
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,j;char 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 ; /*返回*/
}
⑹ 用c語言編寫24點代碼分析
#include<stdio.h>
double fun(double a1,double a2,int b) //用於嘗試著計算的函數，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]="+-*/"; //列印時候用的符號，需要和fun函數里的順序保持一致
printf("input 4 numbers:");
for(i=0;i<4;i++)
{
scanf("%lf",num+i); //輸入數據
save[i]=num[i]; //保存原始數據
}
//下面程序的思想，就是利用窮舉（其實就是使用的排列組合方法）來計算可能的組合。
//先把輸入的4個數進行排列（前4個for語句就這個用途）
//再依次插入三個運算符（後3個for語句就這個用途）
//事實上，從這里看，這個程序是不怎樣的。七層循環嵌套，這是編程的大忌。一般循環嵌套最好不要超過兩層。
for(i=0;i<4;i++)
for(j=0;j<4;j++)
if(j!=i)
{
for(k=0;k<4;k++)
if(k!=i&&k!=j)
{
for(l=0;l<4;l++)
if(l!=i&&l!=j&&l!=k)
{
for(n=0;n<4;n++)
for(m=0;m<4;m++)
for(r=0;r<4;r++)
{
tem1=fun(num[i],num[j],n);
tem2=fun(tem1,num[k],m);
tem3=fun(tem2,num[l],r);
//以下五種處理方法，涵蓋了有可能的全部運算順序
//這也是本程序最精妙的地方。
if(tem3==24.0)//如果直接算得了24，說明次序不變，直接輸出就是
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]);
}
}
}
}
}
}
//後面我再研究了下,發現"第三次不可能是加減法"這種思想是錯誤的,而程序作者在設計的時候,確實是這么認為的,所以,這個程序是有問題的.
//但程序里的主體思想沒有問題,如果需要修改這個錯誤,程序需要在運算順序判斷上下功夫.結果只能取==24的情況.
⑺ 編程有一個24點的游戲,規則是給任意四個整數。使用加減乘除運算,
算24點」是一種數學游戲，正如象棋、圍棋一樣是一種人們喜聞樂見的娛樂活動。 它始於何年何月已無從考究，但它以自己獨具的數學魅力和豐富的內涵正逐漸被越來越多的人們所接受。這種游戲方式簡單易學，能健腦益智。
2、游戲規則：一副牌中抽去大小王剩下52張，J、Q、K可以當成是11、12、13，也可以都當成1。（所以我們把J、Q、K都當成1來算，也可只用1～10這40張牌）任意抽取4張牌（可以兩個人玩，也可以四個人玩），用加、減、乘、除（可加括弧）把牌面上的數算成24。每張牌必須用一次且只能用一次。誰先算出來，四張牌就歸誰，如果無解就各自收回自己的牌，哪一方把所有的牌都贏到手中，就獲勝了。
3、計算技巧：「算24點」作為一種撲克牌智力游戲，還應注意計算中的技巧。計算時，我們不可能把牌面上的4個數的不同組合形式——去試，更不能瞎碰亂湊。剛開始的時候，可能需要花很長的時間去想一種解法，我們可以慢一點，引導利用一些規律：比如利用3×8＝24、4×6＝24求解， 把牌面上的四個數想辦法湊成3和8、4和6，再相乘求解。實踐證明，這種方法是利用率最大、命中率最高的一種方法。 當一組牌有多種不同解法時，可以給時間多想想，
⑻ 用C語言程序編寫「搶24」游戲，規則就是兩個人，第一個人從數字1開始，可以說1或者1和2，第二個人
摘要 您好，從撲克中每次取出4張牌。使用加減乘除，第一個能得出24者為贏。（其中，J代表11，Q代表12，K代表13，A代表1），按照要求編程解決24點游戲。
⑼ 編程C語言 24點游戲
#include "stdio.h"
#include "math.h"
#include "time.h"
void main()
{
void first();
void second();
int third();
time_t t;
int close=0;
char get;
clrscr();
srand((unsigned) time(&t));
for(;;)
{
clrscr();
printf("24 POINTS SYSTEM v2.2\n");
printf("MADE BY DANTE WANG\n");
printf("Jul.28th 2006\n\n");
printf("Please choose mode!\n\n");
printf("1. Game Mode\n");
printf("2. Count Mode\n");
printf("3. Quit\n\n");
get=getch();
switch(get)
{
case '1': first(); break;
case '2': second();break;
case '3': close=third(); break;
default: printf("Please input 1, 2 or 3!\n"); getch();
}
if(close)
break;
}
}
void first()
{
int jdgsgn(int a,int b,int c,int d);
int n[4],i;
char ch[100],ch1[100];
int check(char *p);
int exam2(char *p,int a,int b,int c,int d);
void sign(int a,int b,int c,int d);
double figure(char *p);
void draw(int *p);
for(;;)
{
for(i=0;i<4;i++)
{
n[i]=rand()%13+1;
}
draw(n);
if(!jdgsgn(n[0],n[1],n[2],n[3]))
{
printf("No answer!");
getch();
continue;
}
gets(ch);
if(!strcmp(strlwr(ch),"quit"))
break;
else
{
strcpy(ch1,ch);
if(!check(ch)&&!exam2(ch,n[0],n[1],n[2],n[3])&&fabs(figure(ch1)-24)<=0.000001)
{
printf("\nGood job!\n");
getch();
}
else
{
printf("\nWrong!\n\nAnswer: ");
sign(n[0],n[1],n[2],n[3]);
getch();
}
}
}
}
void second()
{
int n[4],i;
char c[4][10];
int exam(char *p);
void sign(int a,int b,int c,int d);
double recog(char *p);
clrscr();
printf("Input 0 to leave.\n\n");
for(;;)
{
for(i=0;i<4;i++)
{
scanf("%s",&c[i]);
if(exam(c[i]))
{
printf("GRAMMER ERROR!\n");
i--;
continue;
}
n[i]=(int)recog(c[i]);
if(n[i]==0)
break;
}
if(n[0]&&n[1]&&n[2]&&n[3])
sign(n[0],n[1],n[2],n[3]);
else
break;
}
}
int third()
{
printf("Thanks for using this software!\n\n");
printf("If you have any advices or suggestions,\n\n");
printf("welcome to send email to [email protected].\n\n");
getch();
return(1);
}
void sign(int a,int b,int c,int d)
{
char *change(int x);
double figure(char *p);
int i[4],n,n1,n2,n3,n4,s1,s2,s3,t,flag=0;
char s[4][2]=,p[64]=,p1[64]=;
i[0]=a;
i[1]=b;
i[2]=c;
i[3]=d;
for(n1=0;n1<4;n1++)
{
for(n2=0;n2<4;n2++)
{
if(n2==n1)
continue;
for(n3=0;n3<4;n3++)
{
if(n3==n2||n3==n1)
continue;
for(n4=0;n4<4;n4++)
{
if(n4==n3||n4==n2||n4==n1)
continue;
for(s1=0;s1<4;s1++)
{
for(s2=0;s2<4;s2++)
{
for(s3=0;s3<4;s3++)
{
strcat(p,change(i[n1]));
strcat(p,s[s1]);
strcat(p,change(i[n2]));
strcat(p,s[s2]);
strcat(p,change(i[n3]));
strcat(p,s[s3]);
strcat(p,change(i[n4]));
作者： wyc890618 2006-8-7 15:46 回復此發言
--------------------------------------------------------------------------------
2 完美的24點運算與游戲程序
strcpy(p1,p);
if(fabs(figure(p1)-24)<=0.000001)
{
printf("%s\n",p);
flag++;
break;
}
*p='\0';
if(s1/2==1&&(s2/2==0||s3/2==0))
{
strcat(p,change(i[n1]));
strcat(p,s[s1]);
strcat(p,"(");
strcat(p,change(i[n2]));
strcat(p,s[s2]);
strcat(p,change(i[n3]));
strcat(p,s[s3]);
strcat(p,change(i[n4]));
strcat(p,")");
strcpy(p1,p);
if(fabs(figure(p1)-24)<=0.000001)
{
printf("%s\n",p);
flag++;
break;
}
*p='\0';
}
if(s1/2==0&&s2/2==1)
{
strcat(p,"(");
strcat(p,change(i[n1]));
strcat(p,s[s1]);
strcat(p,change(i[n2]));
strcat(p,")");
strcat(p,s[s2]);
strcat(p,change(i[n3]));
strcat(p,s[s3]);
strcat(p,change(i[n4]));
strcpy(p1,p);
if(fabs(figure(p1)-24)<=0.000001)
{
printf("%s\n",p);
flag++;
break;
}
*p='\0';
}
if(s2/2==0&&s1/2==1)
{
strcat(p,change(i[n1]));
strcat(p,s[s1]);
strcat(p,"(");
strcat(p,change(i[n2]));
strcat(p,s[s2]);
strcat(p,change(i[n3]));
strcat(p,")");
strcat(p,s[s3]);
strcat(p,change(i[n4]));
strcpy(p1,p);
if(fabs(figure(p1)-24)<=0.000001)
{
printf("%s\n",p);
flag++;
break;
}
*p='\0';
}
if((s1/2==0||s2/2==0)&&s3/2==1)
{
strcat(p,"(");
strcat(p,change(i[n1]));
strcat(p,s[s1]);
strcat(p,change(i[n2]));
strcat(p,s[s2]);
strcat(p,change(i[n3]));
strcat(p,")");
strcat(p,s[s3]);
strcat(p,change(i[n4]));
strcpy(p1,p);
if(fabs(figure(p1)-24)<=0.000001)
{
printf("%s\n",p);
flag++;
break;
}
*p='\0';
}
if(s1/2==0&&s2/2==1&&s3/2==0)
{
strcat(p,"(");
strcat(p,change(i[n1]));
strcat(p,s[s1]);
strcat(p,change(i[n2]));
strcat(p,")");
strcat(p,s[s2]);
strcat(p,"(");
strcat(p,change(i[n3]));
strcat(p,s[s3]);
strcat(p,change(i[n4]));
strcat(p,")");
strcpy(p1,p);
if(fabs(figure(p1)-24)<=0.000001)
{
printf("%s\n",p);
flag++;
break;
}
*p='\0';
}
}
if(flag)
break;
}
if(flag)
break;
}
if(flag)
break;
}
if(flag)
break;
}
if(flag)
break;
}
if(flag)
break;
}
if(flag==0)
printf("No answer!\n");
}
char *change(int x)
{
static char a[64];
char *c;
c=a+63;
*c='\0';
c--;
for(;;c--)
{
if(x>=10)
{
*c=x%10+'1'-1;
x=x/10;
}
else
{
*c=x+'1'-1;
break;
}
}
return&;;
}
double figure(char *p)
{
int judge(char *p);
int judge2(char *p);
void add(char *p);
void pick(char *p);
double recog(char *p);
char *c=p,*c1,c2[64];
int sign,kuoh=0,flag2=0;
double result,chu;
add(p);
for(sign=0;*c!='\0';c++)
{
if(*c=='+'||*c=='-'||*c=='*'||*c=='/'||*c=='('||*c==')')
{
sign++;
break;
}
作者： wyc890618 2006-8-7 15:46 回復此發言
--------------------------------------------------------------------------------
3 完美的24點運算與游戲程序
}
if(sign==0)
return(recog(p));
else
{
c=p;
for(;*c!='\0';c++)
{
if(*c=='(')
kuoh++;
if(*c==')')
kuoh--;
if(!judge2&;)
{
if(*c=='+'&&kuoh==0)
{
*c='\0';
result=figure(p)+figure(c+1);
flag2++;
break;
}
if(*c=='-'&&kuoh==0)
{
*c='\0';
result=figure(p)-figure(c+1);
flag2++;
break;
}
}
if(!judge&;)
{
if(*c=='*'&&kuoh==0)
{
*c='\0';
result=figure(p)*figure(c+1);
flag2++;
break;
}
if(*c=='/'&&kuoh==0)
{
*c='\0';
chu=figure(c+1);
if(chu==0)
{
result=99999;
}
else
{
result=figure(p)/chu;
}
flag2++;
break;
}
}
}
if(flag2)
return(result+0);
else
{
pick(p);
result=figure(p);
return(result+0);
}
}
}
int judge(char *p)
{
char *c=p;
int kuoh=0,flag=0;
for(c++;*c!='\0';c++)
{
if(*c=='(')
kuoh++;
if(*c==')')
kuoh--;
if(kuoh==0&&(*c=='+'||*c=='-'||*c=='*'||*c=='/'))
{
flag++;
break;
}
}
return(flag);
}
int judge2(char *p)
{
char *c=p;
int kuoh=0,flag=0;
for(c++;*c!='\0';c++)
{
if(*c=='(')
kuoh++;
if(*c==')')
kuoh--;
if(kuoh==0&&(*c=='+'||*c=='-'))
{
flag++;
break;
}
}
return(flag);
}
void add(char *p)
{
char *c=p,b[64];
int flag=0;
for(;*c!='\0';c++)
{
if((*c=='-'||*c=='+')&&(*(c+1)>='0'&&*(c+1)<='9'))
flag++;
if((*c>='0'&&*c<='9'||*c=='.')&&(*(c+1)=='*'||*(c+1)=='/'||*(c+1)=='+'||*(c+1)=='-'))
{
flag++;
break;
}
if((*c>='0'&&*c<='9'||*c=='.')&&*(c+1)==')')
{
break;
}
}
if(flag==2)
flag=1;
else
flag=0;
if(flag)
{
c=p;
for(;*c!='\0';c++)
{
if(*(c+1)>='0'&&*(c+1)<='9')
{
if(*c=='+'||*c=='-')
{
strcpy(b,c);
*c='(';
strcpy(c+1,b);
}
break;
}
}
c+=2;
for(;*c!='\0';c++)
{
if((*c<'0'||*c>'9')&&*c!='.')
{
strcpy(b,c);
*c=')';
strcpy(c+1,b);
break;
}
}
}
}
void pick(char *p)
{
char *c=p;
if(*c=='('&&*(c+strlen&;-1)==')')
{
strcpy(c,c+1);
*(c+strlen&;-1)='\0';
}
}
double recog(char *p)
{
char *c=p;
int flag=0,number;
double quan,ans=0;
for(;;c++)
{
if(*c=='.')
{
flag++;
number=c-p;
}
if(*c!='.'&&(*c<'0'||*c>'9'))
break;
}
if(flag==0)
{
for(quan=1,c--;c>=p;c--,quan*=10)
ans+=(*c-'1'+1)*quan;
}
else
{
for(c--,quan=pow(10,number-(c-p));c>=p;c--)
{
if(*c=='.')
continue;
else
{
ans+=(*c-'1'+1)*quan;
quan*=10;
}
}
}
return(ans);
}
int exam(char *p)
{
double recog(char *p);
char *c=p;
int number=0;
for(;*c!='\0';c++)
{
if(*c>'9'||*c<'0')
number++;
if(number)
break;
}
if(!number)
{
if(recog(p)>13||recog(p)<0)
作者： wyc890618 2006-8-7 15:46 回復此發言
--------------------------------------------------------------------------------
4 完美的24點運算與游戲程序
number++;
}
return(number);
}
void draw(int *p)
{
time_t t;
int n;
clrscr();
printf("Press \"quit\" to leave.");
srand((unsigned) time(&t));
for(n=0;n<4;n++)
{
gotoxy(1+7*n,3);
printf("\xda\xc4\xc4\xc4\xc4\xbf");
gotoxy(1+7*n,4);
printf("\xb3%c \xb3",rand()%4+3);
gotoxy(1+7*n,5);
printf("\xb3 \xb3");
gotoxy(1+7*n,6);
switch(*(p+n))
{
case 1:
printf("\xb3 A\xb3");
break;
case 2:case 3:case 4:case 5:case 6:case 7:case 8:case 9:case 10:
printf("\xb3%4d\xb3",*(p+n));
break;
case 11:
printf("\xb3 J\xb3");
break;
case 12:
printf("\xb3 Q\xb3");
break;
case 13:
printf("\xb3 K\xb3");
}
gotoxy(1+7*n,7);
printf("\xc0\xc4\xc4\xc4\xc4\xd9");
gotoxy(1,9);
}
}
int jdgsgn(int a,int b,int c,int d)
{
char *change(int x);
double figure(char *p);
int i[4],n,n1,n2,n3,n4,s1,s2,s3,t,flag=0;
char s[4][2]=,p[64]=,p1[64]=;
i[0]=a;
i[1]=b;
i[2]=c;
i[3]=d;
for(n1=0;n1<4;n1++)
{
for(n2=0;n2<4;n2++)
{
if(n2==n1)
continue;
for(n3=0;n3<4;n3++)
{
if(n3==n2||n3==n1)
continue;
for(n4=0;n4<4;n4++)
{
if(n4==n3||n4==n2||n4==n1)
continue;
for(s1=0;s1<4;s1++)
{
for(s2=0;s2<4;s2++)
{
for(s3=0;s3<4;s3++)
{
strcat(p,change(i[n1]));
strcat(p,s[s1]);
strcat(p,change(i[n2]));
strcat(p,s[s2]);
strcat(p,change(i[n3]));
strcat(p,s[s3]);
strcat(p,change(i[n4]));
strcpy(p1,p);
if(fabs(figure(p1)-24)<=0.000001)
{
flag++;
break;
}
*p='\0';
if(s1/2==1&&(s2/2==0||s3/2==0))
{
strcat(p,change(i[n1]));
strcat(p,s[s1]);
strcat(p,"(");
strcat(p,change(i[n2]));
strcat(p,s[s2]);
strcat(p,change(i[n3]));
strcat(p,s[s3]);
strcat(p,change(i[n4]));
strcat(p,")");
strcpy(p1,p);
if(fabs(figure(p1)-24)<=0.000001)
{
flag++;
break;
}
*p='\0';
}
if(s1/2==0&&s2/2==1)
{
strcat(p,"(");
strcat(p,change(i[n1]));
strcat(p,s[s1]);
strcat(p,change(i[n2]));
strcat(p,")");
strcat(p,s[s2]);
strcat(p,change(i[n3]));
strcat(p,s[s3]);
strcat(p,change(i[n4]));
strcpy(p1,p);
if(fabs(figure(p1)-24)<=0.000001)
{
flag++;
break;
}
*p='\0';
}
if(s2/2==0&&s1/2==1)
{
strcat(p,change(i[n1]));
strcat(p,s[s1]);
strcat(p,"(");
strcat(p,change(i[n2]));
strcat(p,s[s2]);
strcat(p,change(i[n3]));
strcat(p,")");
strcat(p,s[s3]);
strcat(p,change(i[n4]));
strcpy(p1,p);
if(fabs(figure(p1)-24)<=0.000001)
{
flag++;
break;
}
*p='\0';
}
if((s1/2==0||s2/2==0)&&s3/2==1)
{
strcat(p,"(");
strcat(p,change(i[n1]));
strcat(p,s[s1]);
strcat(p,change(i[n2]));
strcat(p,s[s2]);
strcat(p,change(i[n3]));
strcat(p,")");
strcat(p,s[s3]);
strcat(p,change(i[n4]));
strcpy(p1,p);
if(fabs(figure(p1)-24)<=0.000001)
{
flag++;
break;
}
*p='\0';
}
if(s1/2==0&&s2/2==1&&s3/2==0)
{
strcat(p,"(");
strcat(p,change(i[n1]));
strcat(p,s[s1]);
strcat(p,change(i[n2]));
strcat(p,")");
strcat(p,s[s2]);
strcat(p,"(");
strcat(p,change(i[n3]));
strcat(p,s[s3]);
strcat(p,change(i[n4]));
strcat(p,")");
strcpy(p1,p);
if(fabs(figure(p1)-24)<=0.000001)
{
flag++;
break;
}
*p='\0';
}
}
if(flag)
break;
}
if(flag)
break;
}
if(flag)
break;
}
if(flag)
break;
}
if(flag)
break;
}
if(flag)
break;
}
return(flag);
}
int exam2(char *p,int a,int b,int c,int d)
{
double recog(char *p);
int number=0,num[4],flag=0,n,m;
num[0]=a;
num[1]=b;
num[2]=c;
num[3]=d;
for(m=0;*p!='\0';p++,m++)
{
if(*p>='0'&&*p<='9'&&(*(p+1)>'9'||*(p+1)<'0'))
number++;
if(m>0&&*p>='0'&&*p<='9'&&*(p-1)>='0'&&*(p-1)<='9')
continue;
if(*p<='9'&&*p>='0')
{
if(recog(p)>13||recog(p)<1)
{
flag++;
break;
}
else
{
for(n=0;n<4;n++)
{
if(recog(p)==num[n])
{
num[n]=0;
break;
}
}
}
}
}
if(!flag)
{
if(number!=4)
flag++;
else
if(num[1]||num[2]||num[3]||num[0])
flag++;
}
return(flag);
}
int check(char *p)
{
int kuoh=0,flag=0;
for(;*p!='\0';p++)
{
if(*p==' ')
{
flag++;
break;
}
if(kuoh<0)
{
flag++;
break;
}
if(*p=='(')
kuoh++;
if(*p==')')
kuoh--;
if((*p=='+'||*p=='-'||*p=='*'||*p=='/')&&(*(p+1)=='*'||*(p+1)=='/'||*(p+1)=='+'||*(p+1)=='-'))
{
flag++;
break;
}
if(*p=='('&&(*(p+1)>'9'||*(p+1)<'0'&&*(p+1)!='-'))
{
flag++;
break;
}
if(*p==')'&&*(p+1)!='+'&&*(p+1)!='-'&&*(p+1)!='*'&&*(p+1)!='/'&&*(p+1)!='\0')
{
flag++;
break;
}
}
if(!flag)
{
if(kuoh!=0)
flag++;
}
return(flag);
}
另外,站長團上有產品團購,便宜有保證
⑽ C++ 編程，24點游戲
#include<iostream>
#include<algorithm>
#include<cstdlib>
#include<ctime>
usingnamespacestd;
intin[5];
intcalc(intoperName,intx,inty)
{
if(operName==1)//+
{
returnx+y;
}
if(operName==2)//-
{
if(x-y<=0)
{
return-3456731;
}
returnx-y;
}
if(operName==3)//*
{
if(x*y<=0)
{
return-464652;
}
returnx*y;
}
if(operName==4)///
{
if(x*y==0||x<y||x%y!=0)
{
return-5643212;
}
returnx/y;
}
}
charoper[]={'!','+','-','*','/'};
intrandom()
{
returnrand()%12+1;
}
intmain()
{
srand(time(NULL));
cout<<"Initialnumbersare:";
for(inti=1;i<=4;i++)
{
in[i]=random();
cout<<in[i]<<"";
}
cout<<endl;
sort(in+1,in+5);
do
{
for(inti=1;i<=4;i++)//3pos,filloperator
{
for(intj=1;j<=4;j++)
{
for(intk=1;k<=4;k++)
{
ints1=calc(i,in[1],in[2]);
ints2=calc(j,s1,in[3]);
ints3=calc(k,s2,in[4]);
if(s3==24)
{
if(in[1]>=in[2]&&s1>=in[3]&&s2>=in[4])
{
cout<<in[1]<<oper[i]<<in[2]<<'='<<s1<<endl;
cout<<s1<<oper[j]<<in[3]<<'='<<s2<<endl;
cout<<s2<<oper[k]<<in[4]<<'='<<s3<<endl;
return0;
}
}
s1=calc(j,in[2],in[3]);
s2=calc(i,in[1],s1);
s3=calc(k,s2,in[4]);
if(s3==24)
{
if(in[2]>=in[3]&&in[1]>=s1&&s2>=in[4])
{
cout<<in[2]<<oper[j]<<in[3]<<'='<<s1<<endl;
cout<<in[1]<<oper[i]<<s1<<'='<<s2<<endl;
cout<<s2<<oper[k]<<in[4]<<'='<<s3<<endl;
return0;
}
}
s1=calc(j,in[2],in[3]);
s2=calc(k,s1,in[4]);
s3=calc(i,in[1],s2);
if(s3==24)
{
if(in[2]>=in[3]&&s1>=in[4]&&in[1]>=s2)
{
cout<<in[2]<<oper[j]<<in[3]<<'='<<s1<<endl;
cout<<s1<<oper[k]<<in[4]<<'='<<s2<<endl;
cout<<in[1]<<oper[i]<<s2<<'='<<s3<<endl;
return0;
}
}
s1=calc(i,in[1],in[2]);
s2=calc(k,in[3],in[4]);
s3=calc(j,s1,s2);
if(s3==24)
{
if(in[1]>=in[2]&&in[3]>=in[4]&&s1>=s2)
{
cout<<in[1]<<oper[i]<<in[2]<<'='<<s1<<endl;
cout<<in[3]<<oper[k]<<in[4]<<'='<<s2<<endl;
cout<<s1<<oper[j]<<s2<<'='<<s3<<endl;
return0;
}
}
s1=calc(k,in[3],in[4]);
s2=calc(j,in[2],s1);
s3=calc(i,in[1],s2);
if(s3==24)
{
if(in[3]>=in[4]&&in[2]>=s1&&in[1]>=s2)
{
cout<<in[3]<<oper[k]<<in[4]<<'='<<s1<<endl;
cout<<in[2]<<oper[j]<<s1<<'='<<s2<<endl;
cout<<in[1]<<oper[i]<<s2<<'='<<s3<<endl;
return0;
}
}
}
}
}
}while(next_permutation(in+1,in+5));
cout<<"Noanswer!"<<endl;
return0;
}