?? no44.htm
字號:
<html xmlns:o="urn:schemas-microsoft-com:office:office"xmlns:w="urn:schemas-microsoft-com:office:word"xmlns="http://www.w3.org/TR/REC-html40"><head><meta http-equiv=Content-Type content="text/html; charset=GB2312"><meta name=ProgId content=Word.Document><meta name=Generator content="Microsoft Word 9"><meta name=Originator content="Microsoft Word 9"><link rel=File-List href="./No44.files/filelist.xml"><title>取奇數游戲</title><!--[if gte mso 9]><xml> <o:DocumentProperties> <o:Author>a</o:Author> <o:LastAuthor>a</o:LastAuthor> <o:Revision>1</o:Revision> <o:TotalTime>1</o:TotalTime> <o:Created>1996-12-31T16:52:00Z</o:Created> <o:LastSaved>1996-12-31T16:53:00Z</o:LastSaved> <o:Pages>4</o:Pages> <o:Words>588</o:Words> <o:Characters>3355</o:Characters> <o:Company>aa</o:Company> <o:Lines>27</o:Lines> <o:Paragraphs>6</o:Paragraphs> <o:CharactersWithSpaces>4120</o:CharactersWithSpaces> <o:Version>9.2812</o:Version> </o:DocumentProperties></xml><![endif]--><!--[if gte mso 9]><xml> <w:WordDocument> <w:PunctuationKerning/> <w:DrawingGridVerticalSpacing>7.8 磅</w:DrawingGridVerticalSpacing> <w:DisplayHorizontalDrawingGridEvery>0</w:DisplayHorizontalDrawingGridEvery> <w:DisplayVerticalDrawingGridEvery>2</w:DisplayVerticalDrawingGridEvery> <w:Compatibility> <w:SpaceForUL/> <w:BalanceSingleByteDoubleByteWidth/> <w:DoNotLeaveBackslashAlone/> <w:ULTrailSpace/> <w:DoNotExpandShiftReturn/> <w:AdjustLineHeightInTable/> <w:UseFELayout/> </w:Compatibility> </w:WordDocument></xml><![endif]--><style><!-- /* Font Definitions */@font-face {font-family:宋體; panose-1:2 1 6 0 3 1 1 1 1 1; mso-font-alt:SimSun; mso-font-charset:134; mso-generic-font-family:auto; mso-font-pitch:variable; mso-font-signature:3 135135232 16 0 262145 0;}@font-face {font-family:"\@宋體"; panose-1:2 1 6 0 3 1 1 1 1 1; mso-font-charset:134; mso-generic-font-family:auto; mso-font-pitch:variable; mso-font-signature:1 135135232 16 0 262144 0;} /* Style Definitions */p.MsoNormal, li.MsoNormal, div.MsoNormal {mso-style-parent:""; margin:0cm; margin-bottom:.0001pt; text-align:justify; text-justify:inter-ideograph; mso-pagination:none; font-size:10.5pt; mso-bidi-font-size:12.0pt; font-family:"Times New Roman"; mso-fareast-font-family:宋體; mso-font-kerning:1.0pt;} /* Page Definitions */@page {mso-page-border-surround-header:no; mso-page-border-surround-footer:no;}@page Section1 {size:595.3pt 841.9pt; margin:72.0pt 90.0pt 72.0pt 90.0pt; mso-header-margin:42.55pt; mso-footer-margin:49.6pt; mso-paper-source:0; layout-grid:15.6pt;}div.Section1 {page:Section1;}--></style></head><body lang=ZH-CN style='tab-interval:21.0pt;text-justify-trim:punctuation' bgcolor="#e8ffe8"><div class=Section1 style='layout-grid:15.6pt'><p class=MsoNormal align=center style='text-align:center'><spanstyle='font-family:宋體;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>取奇數游戲</span></p><p class=MsoNormal><span lang=EN-US>{ </span><span style='font-family:宋體;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>該游戲規則如下</span><spanlang=EN-US>: </span><span style='font-family:宋體;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>操作者先輸入一個奇數</span><span lang=EN-US>N(<200)</span><span style='font-family:宋體;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>表示</span><span lang=EN-US>N</span><spanstyle='font-family:宋體;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>個石</span><span lang=EN-US><o:p></o:p></span></p><p class=MsoNormal><span style='font-family:宋體;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>子</span><span lang=EN-US>. </span><spanstyle='font-family:宋體;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>設計算機為</span><span lang=EN-US> A </span><spanstyle='font-family:宋體;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>方</span><span lang=EN-US>,</span><span style='font-family:宋體;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>操作者為</span><spanlang=EN-US> B </span><span style='font-family:宋體;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>方</span><span lang=EN-US>, </span><spanstyle='font-family:宋體;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>雙方輪流取石子</span><span lang=EN-US>,</span><spanstyle='font-family:宋體;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>每次取</span><span lang=EN-US>1-3</span><span style='font-family:宋體;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>個</span><spanlang=EN-US>. </span><span style='font-family:宋體;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>最后取</span><span lang=EN-US><o:p></o:p></span></p><p class=MsoNormal><span style='font-family:宋體;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>到石子總數為奇數的一方獲勝</span><span lang=EN-US>.</span><span style='font-family:宋體;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>編制程序使計算機有較多的獲勝機會</span><spanlang=EN-US>,<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US>}<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US>unit lxw022;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US>type<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun: yes"> </span>setab=set of 0..200;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US>var<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun: yes"> </span>evena,evenb,odda,oddb:setab;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun: yes"> </span>i,j,n,na,nb,k,kz,r,t:integer;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun: yes"> </span>ab,ll:char;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US>procedure init0(var n:integer);<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun: yes"> </span>begin<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>clrscr;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>gotoxy(1,1);<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>writeln('***************************************');<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>writeln(' </span><span style='font-family:宋體;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>取奇數游戲</span><spanlang=EN-US><span style="mso-spacerun: yes"> </span></span><spanstyle='font-family:宋體;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>規則如下</span><span lang=EN-US>:<span style="mso-spacerun:yes"> </span>');<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>writeln(' 1.</span><span style='font-family:宋體;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>操作者先輸入一個奇數</span><spanlang=EN-US> N(<200).');<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>writeln(' 2.</span><span style='font-family:宋體;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>設計算機為</span><spanlang=EN-US> A </span><span style='font-family:宋體;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>方</span><span lang=EN-US>,</span><spanstyle='font-family:宋體;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>操作者為</span><span lang=EN-US> B </span><spanstyle='font-family:宋體;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>方</span><span lang=EN-US>,</span><span style='font-family:宋體;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>雙方輪流取數</span><spanlang=EN-US>,</span><span style='font-family:宋體;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>每次取</span><span lang=EN-US>1-3</span><spanstyle='font-family:宋體;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>個</span><span lang=EN-US>.');<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>writeln(' 3.</span><span style='font-family:宋體;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>最后取到奇數的一方為勝方</span><spanlang=EN-US>.<span style="mso-spacerun: yes"> </span>');<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>writeln('***************************************');<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>n:=400;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>while not odd(n)or(n>200) do<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>begin<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>gotoxy(10,7);<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>writeln('</span><spanstyle='font-family:宋體;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>輸入一個奇數</span><span lang=EN-US><span style="mso-spacerun:yes"> </span>N(<200):');<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>gotoxy(10,8);<spanstyle="mso-spacerun: yes"> </span>readln(n);<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>end;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun: yes"> </span>end;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US>procedure prt1;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun: yes"> </span>begin<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>gotoxy(1,17);<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>writeln('<span style="mso-spacerun:yes"> </span></span><span style='font-family:宋體;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>總計</span><spanlang=EN-US><span style="mso-spacerun: yes"> </span></span><span style='font-family:宋體;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>計算機已取得</span><span lang=EN-US><span?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -