1200 算24点【递归式搜索】 1201 出栈序列统计【模拟,搜索法】.docVIP

算24点【递归式搜索】 Time Limit:10000MS? Memory Limit:65536KTotal Submit:91 Accepted:27 Description 　　几十年前全世界就流行一种数字游戏，至今仍有人乐此不疲．在中国我们把这种游戏称为“算24点”。您作为游戏者将得到4个1~9之间的自然数作为操作数，而您的任务是对这4个操作数进行适当的算术运算，要求运算结果等于24。 　　您可以使用的运算只有：+，-，*，/，您还可以使用（）来改变运算顺序。注意：所有的中间结果须是整数，所以一些除法运算是不允许的（例如，(2*2)/4是合法的，2*(2/4)是不合法的）。下面我们给出一个游戏的具体例子： 　　若给出的4个操作数是：1、2、3、7，则一种可能的解答是1+2+3*7=24。计算过程： 　　2+1=3 　　7*3=21 　　21+3=24 　　本题不要求输出具体计算过程。 Input 　　只有一行，四个1到9之间的自然数。 Output 　　如果有解的话，只要输出“yes”。如果没有解则输出“no”。 　　注意：不要输出引号“”。 Sample Input 1 2 3 7 Sample Output yes Source 中学高级本var i:longint; b:array[1..4,1..4] of longint; procedure dry(m:longint); var i,j,k,l,n:longint; begin if (m=5) and (b[4,1]=24) then begin writeln(yes); halt; end; n:=6-m; for i:=1 to n do for j:=1 to n do if ij then begin l:=1; for k:=1 to n do if (ki) and (kj) then begin inc(l); b[m,l]:=b[m-1,k]; end; b[m,1]:=b[m-1,i]+b[m-1,j]; dry(m+1); b[m,1]:=b[m-1,i]-b[m-1,j]; dry(m+1); b[m,1]:=b[m-1,i]*b[m-1,j]; dry(m+1); if b[m-1,j]0 then if b[m-1,i] mod b[m-1,j]=0 then begin b[m,1]:=b[m-1,i] div b[m-1,j]; dry(m+1); end; end; end; begin for i:=1 to 4 do read(b[1,i]); readln; dry(2); writeln(no); end. 出栈序列统计【模拟，搜索法】 Time Limit:10000MS? Memory Limit:65536KTotal Submit:4 Accepted:4 Case Time Limit:1000MS Description 　　栈是常用的一种数据结构，有n令元素在栈顶端一侧等待进栈，栈顶端另一侧是出栈序列。你已经知道栈的操作有两?种：push和pop，前者是将一个元素进栈，后者是将栈顶元素弹出。现在要使用这两种操作，由一个操作序列可以得到一系列的输出序列。请你编程求出对于给定的n，计算并输出由操作数序列1，2，…，n，经过一系列操作可能得到的输出序列总数。 Input 　　一个整数n（1 = n = 15） Output 　　一个整数，即可能输出序列的总数目。 Sample Input 3 Sample Output 5 Source NOIP2003普及组第3题 var i,j,n:longint; a:array[0..2000,0..2000] of int64; begin readln(n); a[0,0]:=1; for i:=1 to n do a[0,i]:=a[0,i-1]; for i:=1 to n do begin a[i,0]:=a[i-1,1]; for j:=1 to n-i do a[i,j]:=a[i-1,j+1]+a[i,j-1]