Code game cờ vua Pascal

Ví dụ:đi từ A-> E: (alpha=3) lên lại B(gán tạm Beta=3(thực chất<=3) ) xét đến F(có nhánh con =5) (alpha=5(thực chất >=5)) Lúc này (Beta<=alpha) khỏi phait xet tiếp nut F làm gì Tương tự như vậy tại A ta cắt bơt đk tạiC và D

Đây là code của bạn Vũ Văn Thưởng, học trò của mình, viết năm 2010 (Khi đó bạn Thưởng đang là sinh viên năm ba, hệ cử nhân Tài năng của Đại học Bách Khoa)

Chương trình được viết trên Turbo Pascal.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

Program ChuongTrinh;

uses crt, graph;

const Xmin =80;         rong =10;            delays =ChuongTrinh;0ChuongTrinh;1

ChuongTrinh;2ChuongTrinh;380ChuongTrinh;510ChuongTrinh;1

ChuongTrinh;2ChuongTrinh;9uses0uses1uses2ChuongTrinh;1

ChuongTrinh;2uses5uses6ChuongTrinh;1

ChuongTrinh;2uses9crt, graph;0

ChuongTrinh;2crt, graph;2crt, graph;3

ChuongTrinh;2crt, graph;5crt, graph;6crt, graph;7crt, graph;8

ChuongTrinh;2const0const1

const2  const3const4

const5const6const7ChuongTrinh;1

const9Xmin =0ChuongTrinh;1

Xmin =2 Xmin =3Xmin =4Xmin =5Xmin =6Xmin =7Xmin =8 Xmin =9

800801802ChuongTrinh;1

 

800805const7807808809;         rong =0;         rong =1;         rong =2;         rong =3;         rong =4ChuongTrinh;1

800;         rong =7;         rong =8 ChuongTrinh;1

 

100101 102;         rong =2104;         rong =4106

100108

100;            delays =0

;            delays =1;            delays =2

;            delays =1;            delays =4

;            delays =1;            delays =6;            delays =7;            delays =8

;            delays =1ChuongTrinh;00ChuongTrinh;01ChuongTrinh;02ChuongTrinh;01ChuongTrinh;04

;            delays =1ChuongTrinh;06crt, graph;6ChuongTrinh;02ChuongTrinh;09ChuongTrinh;02ChuongTrinh;11106

;            delays =1ChuongTrinh;1410ChuongTrinh;16ChuongTrinh;17ChuongTrinh;02ChuongTrinh;19106

;            delays =1ChuongTrinh;14ChuongTrinh;23ChuongTrinh;16ChuongTrinh;25ChuongTrinh;02ChuongTrinh;27106

100Xmin =0ChuongTrinh;1

 

100101 ChuongTrinh;34ChuongTrinh;35

100;            delays =0

;            delays =1;            delays =6ChuongTrinh;01ChuongTrinh;41

;            delays =1ChuongTrinh;43

100Xmin =0ChuongTrinh;1

 

100101 ChuongTrinh;49ChuongTrinh;50

100Xmin =2 ChuongTrinh;53;         rong =0ChuongTrinh;1

100;            delays =0

100Xmin =0ChuongTrinh;1

 

100101 ChuongTrinh;63

100ChuongTrinh;65

100Xmin =2 ChuongTrinh;68const7ChuongTrinh;70const7ChuongTrinh;72;         rong =0ChuongTrinh;1

100;            delays =0

;            delays =1ChuongTrinh;78

;            delays =1ChuongTrinh;80ChuongTrinh;81ChuongTrinh;82ChuongTrinh;83 crt, graph;6  ChuongTrinh;1

;            delays =1ChuongTrinh;87ChuongTrinh;83 ChuongTrinh;89

;            delays =1ChuongTrinh;91

;            delays =1ChuongTrinh;93ChuongTrinh;83 ChuongTrinh;95

;            delays =1ChuongTrinh;97

;            delays =1;            delays =6uses00uses01uses02

;            delays =1uses04ChuongTrinh;01uses06ChuongTrinh;01uses08

;            delays =1uses10

100Xmin =0ChuongTrinh;1

 

100101 uses16Xmin =2 uses18;         rong =0uses20uses21

100Xmin =2 uses24;         rong =0ChuongTrinh;72;         rong =0uses28;         rong =0ChuongTrinh;1

100;            delays =0

;            delays =1ChuongTrinh;80ChuongTrinh;81ChuongTrinh;82ChuongTrinh;83 crt, graph;6    ChuongTrinh;1

;            delays =1uses41 uses42ChuongTrinh;01 uses44 crt, graph;6 uses46 uses47ChuongTrinh;01uses49uses50

;            delays =1uses52 uses53ChuongTrinh;01Xmin =7uses46

;            delays =1;            delays =0

uses59uses60 uses61Xmin =8

uses63ChuongTrinh;01uses65

uses63crt, graph;6uses68

uses63uses70uses71

uses63uses73uses74

uses59Xmin =0ChuongTrinh;1

 

uses59;            delays =6ChuongTrinh;01ChuongTrinh;41

 

uses59uses52 uses84ChuongTrinh;01Xmin =7uses46

uses63uses89ChuongTrinh;01uses91ChuongTrinh;01uses93

uses63uses95

uses59;            delays =6ChuongTrinh;01uses99

uses59uses89ChuongTrinh;01uses91ChuongTrinh;01uses93

uses59crt, graph;07

;            delays =1Xmin =0ChuongTrinh;1

;            delays =1crt, graph;12 crt, graph;13crt, graph;14 crt, graph;15ChuongTrinh;01crt, graph;17crt, graph;18 crt, graph;19ChuongTrinh;01crt, graph;21crt, graph;22

;            delays =1;            delays =0

uses59crt, graph;26

uses59ChuongTrinh;63

uses59crt, graph;12 crt, graph;31crt, graph;32 crt, graph;22 crt, graph;34ChuongTrinh;01ChuongTrinh;1

uses59crt, graph;12 crt, graph;3910crt, graph;4110crt, graph;43crt, graph;18 crt, graph;4510crt, graph;43crt, graph;22

uses59;            delays =0

uses63crt, graph;52

uses59Xmin =0ChuongTrinh;1

;            delays =1Xmin =0      crt, graph;58

;            delays =1crt, graph;60  crt, graph;12  crt, graph;13crt, graph;14 crt, graph;64ChuongTrinh;01crt, graph;17crt, graph;18 crt, graph;68ChuongTrinh;01crt, graph;21

;            delays =1crt, graph;22

;            delays =1;            delays =0

uses59crt, graph;26

uses59ChuongTrinh;63

uses59crt, graph;12 crt, graph;31crt, graph;32 crt, graph;22 crt, graph;34ChuongTrinh;01ChuongTrinh;1

uses59crt, graph;12 crt, graph;3910crt, graph;4110crt, graph;43crt, graph;18 crt, graph;4510crt, graph;43crt, graph;22

uses59;            delays =0

uses63crt, graph;52

uses59Xmin =0ChuongTrinh;1

;            delays =1Xmin =0ChuongTrinh;1

;            delays =1const10const11ChuongTrinh;1

;            delays =1uses41 const15crt, graph;6 const17 const18uses46

;            delays =1crt, graph;12 const22ChuongTrinh;01const24crt, graph;18 const22ChuongTrinh;01const28crt, graph;22 const10const31ChuongTrinh;1

;            delays =1crt, graph;12 const35ChuongTrinh;01const37crt, graph;14 const35ChuongTrinh;01const41crt, graph;14 const35ChuongTrinh;01const45

const46crt, graph;14 const35ChuongTrinh;01const50crt, graph;22 const10const31ChuongTrinh;1

100Xmin =0ChuongTrinh;1

 

100101 const60const61

100Xmin =2 uses24;         rong =0ChuongTrinh;1

100;            delays =0

;            delays =1const70

const71crt, graph;12 const73 const74crt, graph;22

const71;            delays =0

const78const79

const78uses41 const15ChuongTrinh;01 const17 10 const86uses46 const88

const78const90

const78const90

const71Xmin =0

const95crt, graph;60 const97

const95crt, graph;12 Xmin =00Xmin =01 crt, graph;22 Xmin =03

const95crt, graph;12 Xmin =06crt, graph;22

const95;            delays =0

Xmin =10Xmin =11

Xmin =10Xmin =13

Xmin =10Xmin =15Xmin =16 Xmin =17

Xmin =10;            delays =6;            delays =7;            delays =8

Xmin =10ChuongTrinh;00ChuongTrinh;01ChuongTrinh;02uses00ChuongTrinh;02Xmin =28Xmin =2910106

Xmin =10ChuongTrinh;14Xmin =34ChuongTrinh;02Xmin =36Xmin =37

const95Xmin =0ChuongTrinh;1

;            delays =1Xmin =42 Xmin =43Xmin =44 Xmin =45Xmin =46Xmin =47Xmin =48Xmin =47Xmin =50Xmin =4780Xmin =47Xmin =01Xmin =55crt, graph;14 Xmin =57

100Xmin =0ChuongTrinh;1

 

100101 Xmin =63Xmin =64

100Xmin =2 uses24;         rong =0ChuongTrinh;1

100;            delays =0

;            delays =1const70

const71Xmin =75

const71uses60 Xmin =78Xmin =8

const78Xmin =8180ChuongTrinh;028032Xmin =85crt, graph;12 const73 Xmin =88ChuongTrinh;01crt, graph;43crt, graph;22 Xmin =92uses73Xmin =948043