?? no44.htm
字號:
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></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>gotoxy(50,19);<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>');<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>gotoxy(1,19);<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>',n,'<span style="mso-spacerun:yes"> </span>',na,'<span style="mso-spacerun:yes"> </span>',nb,<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>'<span style="mso-spacerun:yes"> </span>',r);<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 prt2(var ll:char);<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,21);<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>if odd(na) then<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>!')<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>else<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>!');<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>gotoxy(10,22);<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> ? (Y/N)');<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>gotoxy(10,23);<span style="mso-spacerun:yes"> </span>readln(ll);<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 aget(var r,t,na:integer);<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun: yes"> </span>var k,kz: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>kz:=0; k:=0;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>while (k<3)and(kz=0)and(k<r) 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>k:=k+1;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>if (notodd(na+k))and(r-k in evena) then<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>begin kz:=1; t:=k end;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>if (odd(na+k))and(r-k inodda) then<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>begin kz:=1; t:=k 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><span style="mso-spacerun:yes"> </span>if kz=0 then t:=1;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>gotoxy(50,14);<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><span lang=EN-US> ',t,' </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>na:=na+t; r:=r-t;<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 bget(var r,t,nb,i: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><span style="mso-spacerun: yes"> </span>t:=0;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>while not(t in[1,2,3])or(t>r) 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(30,13);<spanstyle="mso-spacerun: yes"> </span>writeln('<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>gotoxy(2,13);<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>',i:2,' </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> (1/2/3) </span><span style='font-family:宋體;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>并且不得超過</span><spanlang=EN-US> ',r);<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>gotoxy(5,14);<spanstyle="mso-spacerun: yes"> </span>write('<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>gotoxy(5,14);<spanstyle="mso-spacerun: yes"> </span>readln(t); gotoxy(20,14);<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>if not(tin[1,2,3])or(t>r)<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>then write('</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>.')<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>elsewrite('<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>end;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>nb:=nb+t;<span style="mso-spacerun:yes"> </span>r:=r-t;<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>begin{main}<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun: yes"> </span>ll:='y';<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun: yes"> </span>while (ll='Y')or(ll='y') do<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>begin{2}<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>init0(n);<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>r:=n;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>{ 1. </span><span style='font-family:宋體;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>建立獲勝策略集</span><spanlang=EN-US> EVENA,EVENB,ODDA,ODDB }<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>evena:=[4,5];<spanstyle="mso-spacerun: yes"> </span>evenb:=[0,1,2,3];<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>odda:=[0,1];<spanstyle="mso-spacerun: yes"> </span>oddb:=[2..5];<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>for i:=6 to n do<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>begin{3}<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>nb:=0;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>if notodd(i) then nb:=1;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes"> </span>kz:=0;<spanstyle="mso-spacerun: yes"> </span>k:=0;<o:p></o:p></span></p>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -