12 2016 档案

最优乘车pascal程序
摘要：Description H城是一个旅游胜地，每年都有成千上万的人前来观光。为方便游客，巴士公司在各个旅游景点及宾馆，饭店等地都设置了巴士站并开通了一些单程巴上线路。每条单程巴士线路从某个巴士站出发，依次途经若干个巴士站，最终到达终点巴士站。 一名旅客最近到H城旅游... 阅读全文
posted @ 2016-12-24 09:55 银叶草 阅读(131) 评论(0) 推荐(0)
小学生的故事
摘要：小学生曾对我们讲过一个故事：先前，有一个小学生在教室里打游戏，打王者荣耀（我就是在打广告），特别认真。突然听到有人叫他。答应着，四面望去，却见一个美女的脸露在墙头，他很高兴，但和他开黑的级长识破了机关，说她脸上有书生气，一定遇到‘班主任’了，她能叫人名，若一答应就会在... 阅读全文
posted @ 2016-12-23 21:02 银叶草 阅读(132) 评论(0) 推荐(0)
翻币问题pascal程序
摘要：Description有N个硬币(6=i)and(n-state[head]>=5-i) then begin inc(tail); father[tail]:=head; ... 阅读全文
posted @ 2016-12-23 20:27 银叶草 阅读(194) 评论(0) 推荐(0)
NOIP2016普及组第三题——海港
摘要：题目描述小K是一个海港的海关工作人员，每天都有许多船只到达海港，船上通常有很多来自不同国家的乘客。小K对这些到达海港的船只非常感兴趣，他按照时间记录下了到达海港的每一艘船只情况；对于第i艘到达的船，他记录了这艘船到达的时间ti (单位：秒)，船上的乘 客数星ki，以及... 阅读全文
posted @ 2016-12-22 21:25 银叶草 阅读(208) 评论(0) 推荐(0)
NOIP2016普及组第四题——魔法阵
摘要：题目描述六十年一次的魔法战争就要开始了，大魔法师准备从附近的魔法场中汲取魔法能量。大魔法师有m个魔法物品，编号分别为1,2,…,m。每个物品具有一个魔法值，我们用Xi表示编号为i的物品的魔法值。每个魔法值Xi是不超过n的正整数，可能有多个物品的魔法值相同。大魔法师认为... 阅读全文
posted @ 2016-12-22 21:23 银叶草 阅读(261) 评论(0) 推荐(0)
写代码的小女孩
摘要：天冷极了，下着雪，又快黑了。这是NOIP的前夜。在这又冷又黑的晚上，一个衣衫破烂的小女孩在机房敲着代码。她从班里逃出来的时候还拿着一本算导，但是有什么用呢？那是一本很破旧的书——那么大，一向是她妈妈垫桌角的。她默写SPFA的时候，年级主任突然冲进机房，吓得她把算导都丢... 阅读全文
posted @ 2016-12-22 21:22 银叶草 阅读(124) 评论(0) 推荐(0)
图的m着色问题pascal程序
摘要：这题我是用搜索做的在搜的时候，如果check成立，那么就填色，不然就不填这个颜色varn,k,m,i,tj,u,w:longint;a:array[0..1000,0..1000]of boolean;v:array[0..1000]of longint;functi... 阅读全文
posted @ 2016-12-22 21:12 银叶草 阅读(129) 评论(0) 推荐(0)
最佳调度问题pascal程序
摘要：Description假设有n个任务由k个并行工作的机器来完成。完成任务i需要的时间为Ti。试设计一个算法找出完成这n个任务的最佳调度，使得完成全部任务的时间最早。算法设计：对任意给定的整数n和k，以及完成任务i需要的时间为Ti，i=1，2，3……n。计算完成这n个任... 阅读全文
posted @ 2016-12-22 21:04 银叶草 阅读(184) 评论(0) 推荐(0)
试卷批分打表程序
摘要：某学校进行了一次英语考试，共有10道是非题，每题为10分，解答用1表示“是”，用0表示“非”的方式。但老师批完卷后，发现漏批了一张试卷，而且标准答案也丢失了，手头只剩下了3张标有分数的试卷。试卷一：① ② ③ ④ ⑤ ⑥ ⑦ ⑧ ⑨ ⑩ 0 0 1 0 1 0 0 1... 阅读全文
posted @ 2016-12-22 21:00 银叶草 阅读(312) 评论(0) 推荐(0)
迷宫问题pascal程序
摘要：Description设有一个n×n的方格迷宫，入口和出口分别在左上角和右上角（如图的示）迷宫的格子分别放有0和1，0表示可通，１表示不能，迷宫走的规则如下图所示。 即从某点出发，可沿8个方向前进，前进方格中的数为０时表示可以通过，为１时表示不可以通过，如从入口开始，... 阅读全文
posted @ 2016-12-22 20:53 银叶草 阅读(124) 评论(0) 推荐(0)
试卷批分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)
工作分配问题pascal程序
摘要：这题我是用搜索的方法来做的搜的时候，如果当前的费用大于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)
骑士旅行pascal解题程序
摘要：这题我是用广度优先搜索的方法来做的我先找出下一个能走的点，再把它放进队列里，如果到了目标点，就把tail放进best，tail等于0，最后输出。做这题的时候，用最大数据时，一直栈溢出，原来是数组不够大，把50*50算成250了，搞得我调试了超久。constdx:arr... 阅读全文
posted @ 2016-12-22 17:07 银叶草 阅读(110) 评论(0) 推荐(0)
电子老鼠闯迷宫pascal解题程序
摘要：这题我是用广度优先搜索的方法来写的head是头指针，tail是尾指针我先找出下一个点，再判断这个点能不能走，能走就记录该点，到达终点时，就输出。我是用递归的方法输出的constmaxn=12;wayn=4;dx:array[1..wayn]of longint=(-1... 阅读全文
posted @ 2016-12-21 17:15 银叶草 阅读(137) 评论(0) 推荐(0)
未完成作业
摘要：分治：1.一元三次方程求解 1015 2.循环比赛日程表 3.求方程的根 5.黑白棋子的移动 1310 6.光荣的梦想 2323 7.小车问题 1668 8.方程分f(x)的根 9.求逆序对 1198 10.循环比赛 11.二分查找 1135 12.麦森数 1030 动态规划：挖地雷 取数字问题：搜 阅读全文
posted @ 2016-12-20 16:51 银叶草 阅读(97) 评论(0) 推荐(0)
未完成作业
摘要：分治：1.一元三次方程求解 1015 2.循环比赛日程表 3.求方程的根 5.黑白棋子的移动 1310 6.光荣的梦想 2323 7.小车问题 1668 8.方程分f(x)的根 9.求逆序对 1... 阅读全文
posted @ 2016-12-20 16:51 银叶草 阅读(119) 评论(0) 推荐(0)
运输pascal 90分程序
摘要：这题有点像合并果子，只不过是合并最大的两个，并div k，再放进数组里排序。错了一个点，求大神看看。vara:array[0..10000]of int64;i,j,n,m:longint;procedure kp(l,r:longint);vari,j,mid:lo... 阅读全文
posted @ 2016-12-08 21:18 银叶草 阅读(122) 评论(0) 推荐(0)
零件分组pascal程序
摘要：这题就是把长度排序，长度相等，就把重的放后面，最后看重量有一个地方下降了，就分组加一。vartj,n,i,j:longint;c,w,s:array[0..1000]of longint;begin readln(n); for i:=1 to n do ... 阅读全文
posted @ 2016-12-08 21:06 银叶草 阅读(164) 评论(0) 推荐(0)
美元汇率pascal程序
摘要：若今天的汇率比明天的汇率高，那么就换钱。varm:real;a:array[0..100]of longint;n,i:longint;begin readln(n); for i:=1 to n do readln(a[i]); m:=100... 阅读全文
posted @ 2016-12-08 20:50 银叶草 阅读(111) 评论(0) 推荐(0)
纪念品分组pascal程序
摘要：从大到小排序，如果a[i]+a[j]没超过限制，就可以加tj，否则i就指向下一个。varw,n,i,j,tj:longint;a:array[0..30000]of longint;procedure kp(l,r:longint);vari,j,mid:longin... 阅读全文
posted @ 2016-12-08 20:37 银叶草 阅读(108) 评论(0) 推荐(0)
拼数pascal程序
摘要：题意将一些是接起来，找出接的最大的数分析这题其实就是最大整数。做的时候，我们可以先把数字符串排序，从小到大，再一个一个接起来varn,i,x,j:longint;t:string;s:array[0..20]of string;procedure kp(l,r:lon... 阅读全文
posted @ 2016-12-08 15:39 银叶草 阅读(130) 评论(0) 推荐(0)
最大正数pascal程序
摘要：varn,i,x,j:longint;s:array[0..20]of string;begin readln(n); for i:=1 to n do//因为数据之间有空格，所以先读入成数字，再变为字符串 begin read(x);... 阅读全文
posted @ 2016-12-08 15:37 银叶草 阅读(96) 评论(0) 推荐(0)
部落卫队pascal解题程序
摘要：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)
车站解题程序
摘要：var a,n,m,x,i,ans,b:longint;//ans是车上人数 f:array[1..100] of longint;//f其实是斐波那契数列begin f[1]:=1;//前两个数的值 f[2]:=1; for i:=3 to 23 do/... 阅读全文
posted @ 2016-12-03 08:34 银叶草 阅读(138) 评论(0) 推荐(0)
阶乘之和解题程序
摘要：这题其实就是高精乘const maxn=1000;varsum,a:array[0..maxn]of longint;n:longint;procedure init;//读入begin readln(n); a[maxn]:=1;end;procedur... 阅读全文
posted @ 2016-12-03 08:26 银叶草 阅读(188) 评论(0) 推荐(0)
三连击打表程序
摘要：begin writeln('192 384 576'); writeln('219 438 657'); writeln('273 546 819');writeln('327 654 981');end. 阅读全文
posted @ 2016-12-03 08:23 银叶草 阅读(126) 评论(0) 推荐(0)
有重复元素的排列问题pascal题解
摘要：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)
全排列问题pascal解题程序
摘要：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)
NOIP2016普及组复赛第一题的AC程序加题解pascal
摘要：P老师需要去商店买n支铅笔作为小朋友们参加NOIP的礼物。她发现商店一共有 3种包装的铅笔，不同包装内的铅笔数量有可能不同，价格也有可能不同。为了公平起 见，P老师决定只买同一种包装的铅笔。商店不允许将铅笔的包装拆开，因此P老师可能需要购买超过n支铅笔才够给小朋 友们... 阅读全文
posted @ 2016-12-01 17:06 银叶草 阅读(151) 评论(0) 推荐(0)

Live2D