vijos p1128 (选数)

最新推荐文章于 2017-07-21 22:29:28 发布

z731413411

最新推荐文章于 2017-07-21 22:29:28 发布

阅读量487

点赞数

分类专栏： vijos 文章标签： function

本文链接：https://blog.csdn.net/z731413411/article/details/8046309

版权

vijos 专栏收录该内容

2 篇文章 0 订阅

订阅专栏

恩...用DFS深搜，本来是想编一个循环的DFS的，可是编了好久没有编出来，所以干脆还是用递归的办法编了一个，递归倒不是很难，这道题感觉有点八皇后的影子，每次一到临界条件然后判断是否符合题意就可以了，把程序贴下，顺便向大牛们求循环的编法。

1 program p1128;
 2 var
 3         n,s,k,i,j,m:longint;
 4         x:array[1..30]of longint;
 5 procedure haha(a,q,s:longint);
 6 var
 7         i,j:longint;
 8 function ha(a:longint):boolean;{判断是否为素数}
 9 var
10         i:longint;
11 begin
12         i:=1;
13         repeat
14                 inc(i);
15         until(a mod i=0)or(i>=trunc(sqrt(a)));
16         if a mod i=0 then ha:=false else ha:=true;
17 end;
18 begin
19       if q=k then begin if ha(s) then inc(m) end
20       else if a<n then begin
21       for i:=a+1 to n do
22          haha(i,q+1,s+x[i]);
23          end;
24 end;
25 {=================================================}
26 begin
27         read(n,k);
28         for i:=1 to n do
29         read(x[i]);
30         haha(0,0,0);
31         write(m);
32 end.