深度搜索 - 随笔分类(第2页) - 银叶草

试卷批分pascal程序

摘要：某学校进行了一次英语考试，共有10道是非题，每题为10分，解答用1表示“是”，用0表示“非”的方式。但老师批完卷后，发现漏批了一张试卷，而且标准答案也丢失了，手头只剩下了3张标有分数的试卷。试卷一：① ② ③ ④ ⑤ ⑥ ⑦ ⑧ ⑨ ⑩ 0 0 1 0 1 0 0 1... 阅读全文

posted @ 2016-12-22 20:52 银叶草阅读(173) 评论(0) 推荐(0)

字符序列pascal程序

摘要：Description从三个元素的集合[A，B，C]中选取元素生成一个N个字符组成的序列,使得没有两个相邻字的子序列相同。例：N = 5时ABCBA是合格的，而序列ABCBC与ABABC是不合格的，因为其中子序列BC，AB是相同的。Input 对于由键盘输入的N(1a... 阅读全文

posted @ 2016-12-22 20:43 银叶草阅读(228) 评论(0) 推荐(0)

装载问题

摘要：有一批集装箱要装上一艘载重量为c的轮船。其中集装箱i的重量为Wi。最优装载问题要求确定在装载体积不受限制的情况下，将尽可能重的集装箱装上轮船。对于给定的n个集装箱和轮船的载重量C，编程计算装入最多时的集装箱个数。输入由多组测试数据组成。每组测试数据输入的第1行中有2... 阅读全文

posted @ 2016-12-22 20:35 银叶草阅读(400) 评论(0) 推荐(0)

摘要：这题我是用搜索的方法来做的搜的时候，如果当前的费用大于tj，那么就不用再搜了，小于tj就把当前的费用放进tj里，最后输出tjvarn,i,j,tj:longint;a:array[0..1000,0..1000]of longint;f:array[0..1000]o... 阅读全文

posted @ 2016-12-22 20:33 银叶草阅读(115) 评论(0) 推荐(0)

组合的输出pascal程序

摘要：这题我是用深度搜索的方法写的。因为要按字典顺序输出，所以填数的时候，前面的数要小于后面的数。搜索的时候，我把填的数放在字符串里面。varn,r,i:longint;procedure print(s:string);vari:longint;begin for ... 阅读全文

posted @ 2016-12-22 17:23 银叶草阅读(91) 评论(0) 推荐(0)

摘要：typejh=set of 0..100;//集合varn,m,i,u,v,tj:longint;w:jh;a,f:array[0..100]of boolean;s:array[1..100]of jh;procedure search(dep:longint;w:... 阅读全文

posted @ 2016-12-04 20:53 银叶草阅读(139) 评论(0) 推荐(0)

摘要：varl,i,tj:longint;a:array['a'..'z']of longint;x,c:char;b:array[0..500]of char;procedure print;begin for i:=1 to l do//要一个一个输出,不能直接w... 阅读全文

posted @ 2016-12-02 21:52 银叶草阅读(182) 评论(0) 推荐(0)

摘要：vara,b:array[0..9]of longint;n:longint;procedure print;vari:longint;begin for i:=1 to n do write(a[i]:5);//要保留五个常宽 writeln;en... 阅读全文

posted @ 2016-12-02 21:30 银叶草阅读(199) 评论(0) 推荐(0)

银叶草