no44.htm

常用经典算法及讲解

style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </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 style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </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> ');<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp; </span>gotoxy(50,19);<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp; </span>writeln('<span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</span>');<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp; </span>gotoxy(1,19);<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp; </span>writeln('<span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp;&nbsp; </span>',n,'<span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</span>',na,'<span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</span>',nb,<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</span>'<span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</span>',r);<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun: yes">&nbsp;
</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">&nbsp;
</span>begin<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp; </span>gotoxy(10,21);<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp; </span>if odd(na) then<span style="mso-spacerun:
yes">&nbsp; </span>writeln('</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 style="mso-spacerun: yes">&nbsp; </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>!')<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</span>else<span style="mso-spacerun: yes">&nbsp; </span>writeln ('</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 lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp; </span>gotoxy(10,22);<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp; </span>writeln('</span><span style='font-family:宋体;
mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>再玩一次吗</span><span
lang=EN-US> ? (Y/N)');<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp; </span>gotoxy(10,23);<span style="mso-spacerun:
yes">&nbsp; </span>readln(ll);<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun: yes">&nbsp;
</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">&nbsp;
</span>var k,kz:integer;<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun: yes">&nbsp;
</span>begin<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp; </span>kz:=0; k:=0;<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp; </span>while (k&lt;3)and(kz=0)and(k&lt;r) do<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>begin<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>k:=k+1;<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>if (not
odd(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">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</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">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>if (odd(na+k))and(r-k in
odda) then<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</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">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>end;<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp; </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">&nbsp;&nbsp;&nbsp; </span>gotoxy(50,14);<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp; </span>writeln('<span style="mso-spacerun: yes">&nbsp;
</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><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 lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp; </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">&nbsp;
</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">&nbsp;
</span>begin<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp; </span><span style="mso-spacerun: yes">&nbsp;</span>t:=0;<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp; </span>while not(t in[1,2,3])or(t&gt;r) do<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>begin<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>gotoxy(30,13);<span
style="mso-spacerun: yes">&nbsp; </span>writeln('<span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</span>');<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>gotoxy(2,13);<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>writeln('</span><span
style='font-family:宋体;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:
"Times New Roman"'>第</span><span lang=EN-US>',i:2,' </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><span style='font-family:
宋体;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>输入你的选择</span><span
lang=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><span
lang=EN-US> ',r);<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>gotoxy(5,14);<span
style="mso-spacerun: yes">&nbsp; </span>write('<span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp;&nbsp; </span>');<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>gotoxy(5,14);<span
style="mso-spacerun: yes">&nbsp; </span>readln(t); gotoxy(20,14);<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>if not(t
in[1,2,3])or(t&gt;r)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>then write('</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><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 lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>else
write('<span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</span>');<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>end;<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>nb:=nb+t;<span style="mso-spacerun:
yes">&nbsp; </span>r:=r-t;<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun: yes">&nbsp;
</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">&nbsp;
</span>ll:='y';<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun: yes">&nbsp;
</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">&nbsp;&nbsp;&nbsp; </span>begin{2}<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>init0(n);<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>r:=n;<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>{ 1. </span><span style='font-family:
宋体;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>建立获胜策略集</span><span
lang=EN-US> EVENA,EVENB,ODDA,ODDB }<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>evena:=[4,5];<span
style="mso-spacerun: yes">&nbsp;&nbsp; </span>evenb:=[0,1,2,3];<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>odda:=[0,1];<span
style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </span>oddb:=[2..5];<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </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">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>begin{3}<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>nb:=0;<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>if not
odd(i) then nb:=1;<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>kz:=0;<span
style="mso-spacerun: yes">&nbsp; </span>k:=0;<o:p></o:p></span></p>