集訓隊作業(yè)猜數(shù)

1、猜和一起參加了在綿陽舉行的信息學冬令營。今天是休息的日子，和閑著無聊，決定一起玩經(jīng)典的猜數(shù)字。a1a2a3a4a1a2a3a4（表示四個a1 b1可為0。猜完后，馬上將b1b2b3b4與a1a2a3a4作比較，并以整數(shù)P 和整數(shù) 第一次，猜 1980，回答 P=0, Q=1第二次， 猜 0731， 回答 P=1, Q=3第三次， 6703， P=4,于是，結束，只猜了三次就猜出了所默想的數(shù)幾個小時在網(wǎng)上的緊張搜索，終于找到了在 y 年前所編寫的猜數(shù)程序。正當?shù)哪弥绦驕蕚湓俸屯娌聰?shù)時，笑嘻嘻的對 的程序沒有起到任何作用，結果是花了十次猜了想的一個長度 L為TNumber Len、 tryNum

2、ber 和 Next, 它們的說明和使用方法如下：TNumber：一個最多含有 10 個字節(jié)的數(shù)組類型，用于函數(shù) tryNumber 的參數(shù) tryNumber P,Q Len 時，才算猜完)，需要調(diào)用 NextNext時，庫會自動退TNumber=array0.9oftypedefcharfunctionLen:intTNumber;varP,Q:void tryNumber(const N,int&P,intprocedurevoid Uses#include你可以在你的 下建立一個名為 guess.in 的文件，文件的第一行包含兩個n Ln L 0 至 9 的互異的整數(shù)，用空格分隔，第

3、i+1 行表示的是第 i 個要猜的數(shù)的每一位。n L，分別表示待猜數(shù)的個數(shù)和長度的相反在 guess.log 中。一般包含這些信息：Gamestarted.：開始Thenumberis：當前要猜的數(shù)為 為調(diào)用的。 Error:Numberisinvalid.：tryNumberError:InvalidcallofNext.Next函 Error:Inputfileerror.1 46 7 0 GameThenumberis 說明：為書寫簡便，用123456789234567891 本題的時間限制長達20 秒，可以說是比較寬松了。因此，應當盡量減一個函數(shù)來評價用一個數(shù)來猜的好壞程度。我選擇的函

4、數(shù)是 ，其中 123456789另外，由于篩法耗時相當長，使得20秒的時限變得捉襟見肘。加了優(yōu)化之program guess; const limit=2000;/當表中的數(shù)不多于 limit 時，使用type point=re;re=record/結點類var n,tot,i,j,k,best,sums,sumt,tem:longint; t:array0.10,0.10oflongint;/ti,j記錄返回(i,j)的可能數(shù) f:array 0.9 of boolean;/fi記錄數(shù)字 i 是否用過 if v=n with tail do foru:=0to9do if not fu th

5、en beginprocedurecal(varx,u:Tnumber);/執(zhí)行篩法，x ithenflag:=true;while pnil dofor i:=0 to n-1 do then beginifup.ci=itheninc(sums) then elsefori:=1tondotot:=tot*(11-whiletotlimit/當表中的數(shù)多于 limit 時，隨機選擇詢問的fori:=1tokdop:=p.next; fori:=0 to 9dofori:=0ton-1doup.ci:=i; whiletot1/當表中的數(shù)在 2limit 之間時，找一個使得目標/ fori:=0to9dofori:=0ton-1doup.ci:=i; for i:=1 to tot do for j:=0 to n-1 dothen beginifuq.cj=jtheninc(sums) f