編程移動火柴
1. 誰拿最後一根火柴 程序設計 大家幫幫忙！
這個道理和編程無關，每人最多取4根，
1+4=5
21=5*4+1
也就是說，只要保證每輪兩方之和是5，那麼4輪後取走20根，最後先取的人必定取最後一根。
第二題：需要用遞推的方式，計算所有必勝必輸的狀態，然後保證每次取火柴都讓對方到達必輸狀態。
所謂必輸就是只剩最後一根，或者無論怎麼取後的結果都是必勝。
所謂必勝，就是可以對方到達必輸狀態的情況。
程序如下：
import java.io.*;
public class Picker {
// 火柴堆的輸贏狀況
private final static int EMPTY=0; // 這種排列不可能出現，如108
private final static int UNKNOWN=1; // 尚未計算出
private final static int WIN=2; //必勝
private final static int LOSE=3; //必輸（如果對方夠聰明)
// 用數組，保存每種火柴堆排列的輸贏狀態，下標為排列，如357, 111, 001, 100等等
private int[] status;
public Picker() {
// 初始化狀態數組，排除所有不可能出現的情況
status = new int[358]; // 0 - 357
int i,j,k;
for (i=0; i<=3; i++) {
for (j=0; j<=5; j++) {
for (k=0; k<=7; k++) {
status[i*100+j*10+k] = UNKNOWN;
}
}
}
// 已知 100, 010, 001必輸
status[1]=LOSE;
status[10]=LOSE;
status[100]=LOSE;
// 所有能使對方到達上述三個狀態的排列都是必贏的
markWin(1);
markWin(10);
markWin(100);
// 遞推計算，直至357的情況被計算出來
while (status[357] == UNKNOWN) {
//找到第一個沒有計算的
int node=2;
for (node = 2; node<357; node++) {
if (status[node] == UNKNOWN) break;
}
// 它的所有下個狀態肯定都是必贏，不然以前就能算出。
status[node] = LOSE;
// 所有能使對方到達這個狀態的排列都是必贏的
markWin(node);
}
}
// 所有能使下個狀態變必輸的排列都是必贏的
private void markWin(int node) {
// 假設node為必輸
// 每堆的數量分別為i,j,k
int i = node / 100;
int j = node / 10 % 10;
int k = node % 10;
// 先是第一堆，可能為i+1, i+2, ..., 3
for (int i1 = i+1; i1 <= 3; i1++) {
status[i1*100+j*10+k] = WIN;
}
// 第二堆
for (int j1 = j+1; j1 <= 5; j1++) {
status[i*100+j1*10+k] = WIN;
}
// 第三堆
for (int k1 = k+1; k1 <= 7; k1++) {
status[i*100+j*10+k1] = WIN;
}
}
// 查找所有可能的一次取火柴後的排列，找出其中必輸的狀態，把這個作為自己的走法
public int getWinPick(int node) {
//每堆的數量分別為i,j,k
int i = node / 100;
int j = node / 10 % 10;
int k = node % 10;
// 先是第一堆，可能留下0, 1, ..., i-1
for (int i1 = 0; i1 < i; i1++) {
if (status[i1*100+j*10+k]==LOSE) return i1*100+j*10+k;
}
// 第二堆
for (int j1 = 0; j1 < j; j1++) {
if (status[i*100+j1*10+k]==LOSE) return i*100+j1*10+k;
}
// 第三堆
for (int k1 = 0; k1 < k; k1++) {
if (status[i*100+j*10+k1]==LOSE) return i*100+j*10+k1;
}
// 沒有找到，那麼先頑強抵抗一下，只取一根
if (i>0) return (i-1)*100+j*10+k;
else if (j>0) return (j-1)*10+k;
else return k-1;
}
public static void main(String[] args) throws Exception {
Picker picker = new Picker();
// 一開始的排列是357
int node = 357;
BufferedReader stdin = new BufferedReader(new InputStreamReader(System.in));
while (node > 0) {
// 計算機先
System.out.print("Now is "+node);
node = picker.getWinPick(node);
System.out.println(", I pick to "+node);
if (node == 0) {
System.out.println("I lose");
return;
}
// 對方再取
System.out.println("Now is your turn: ");
String input = stdin.readLine();
int node1 = 0;
try {
node1 = Integer.parseInt(input);
} catch (Exception e) {
System.out.println("Invalid input, you lose");
break;
}
// 這里沒有判斷取的是否合法，即node和node1之間是否僅差一位數字
if ( node1==0 ) {
System.out.println("You lose");
}
node = node1;
}
}
}
這個程序只是例子，是說明演算法，沒有判斷輸入的合法性，所以不能一直輸入2的，人嘛，自己也遵循一下游戲規則吧。
另外，稍做改動，如果不利，計算機不會馬上認輸了。
2. vb編程語言編寫一個抽火柴程序
Option Explicit
Dim a%, he%
Private Sub Command1_Click()
a = Val(Text1.Text)
If a = 1 Then
MsgBox "電腦選數為：4 和為5" & "請繼續填寫", 0, "電腦提示"ElseIf a = 2 Then
MsgBox "電腦選數為：3 和為5" & "請繼續填寫", 0, "電腦提示"
ElseIf a = 3 Then
MsgBox "電腦選數為：2 和為5" & "請繼續填寫", 0, "電腦提示"ElseIf a = 4 Then
MsgBox "電腦選數為：1 和為5" & "請繼續填寫", 0, "電腦提示"
End If
If Text1.Text = "" Then
MsgBox " 請輸入1-4的整數", 0, "電腦提示"
End If
End SubPrivate Sub Command2_Click()
If a = 1 Then
MsgBox "電腦選數為：4 和為10" & "請繼續填寫", 0, "電腦提示"ElseIf a = 2 Then
MsgBox "電腦選數為：3 和為10" & "請繼續填寫", 0, "電腦提示"
ElseIf a = 3 Then
MsgBox "電腦選數為：2 和為10" & "請繼續填寫", 0, "電腦提示"ElseIf a = 4 Then
MsgBox "電腦選數為：1 和為10" & "請繼續填寫", 0, "電腦提示"
End If
If Text1.Text = "" Then
MsgBox " 請輸入1-4的整數", 0, "電腦提示"
End If
End SubPrivate Sub Command3_Click()
If a = 1 Then
MsgBox "電腦選數為：4 和為15" & "請繼續填寫", 0, "電腦提示"ElseIf a = 2 Then
MsgBox "電腦選數為：3 和為15" & "請繼續填寫", 0, "電腦提示"
ElseIf a = 3 Then
MsgBox "電腦選數為：2 和為15" & "請繼續填寫", 0, "電腦提示"ElseIf a = 4 Then
MsgBox "電腦選數為：1和為15" & "請繼續填寫", 0, "電腦提示"
End If
If Text1.Text = "" Then
MsgBox " 請輸入1-4的整數", 0, "電腦提示"
End If
End SubPrivate Sub Command4_Click()
If a = 1 Then
MsgBox "電腦選數為：4 和為20" & "你輸了哦", 0, "電腦提示"ElseIf a = 2 Then
MsgBox "電腦選數為：3 和為20" & "你輸了哦", 0, "電腦提示"
ElseIf a = 3 Then
MsgBox "電腦選數為：2 和為20" & "你輸了哦", 0, "電腦提示"ElseIf a = 4 Then
MsgBox "電腦選數為：1 和為20" & "你輸了哦", 0, "電腦提示"
End If
If Text1.Text = "" Then
MsgBox " 請輸入1-4的整數", 0, "電腦提示"
End If
End SubPrivate Sub Form_Load()
Command1.Caption = "第1輪"
Command2.Caption = "第2輪"
Command3.Caption = "第3輪"
Command4.Caption = "第4輪"
Label1.Caption = "請填入1-4的整數："
Text1.Text = ""
End Sub