随笔分类 -  2017寒假作业

上一页 1 2
谁拿了最多奖学金pascal程序
摘要：题意找出奖学金最多的学生分析这题就是很简单的字符串处理，细心一点就好。先把每一个学生的奖学金算出来，再排序，如果有两位或两位以上的学生获得的奖金最多，输出他们之中在输入文件中出现最早的学生的姓名。varn,tj,i,gb,xb,lw,q,b,j:longint;m:a... 阅读全文
posted @ 2017-02-03 22:20 银叶草 阅读(116) 评论(0) 推荐(0)
凌乱的yyy
摘要：题意安排比赛，且不能同时进行两个比赛，使比赛场数最多。分析这题用贪心的方法来做，先排序结束时间，再依次考虑各个活动。varn,i,tj,t:longint;a,b:array[0..1000000]of longint;procedure kp(l,r:longint... 阅读全文
posted @ 2017-02-03 18:57 银叶草 阅读(84) 评论(0) 推荐(0)
高精度减法pascal程序
摘要：const max=1000;vara,b:array[0..max]of longint;procedure init;vars1,s2,s:string;l1,l2,i:longint;begin readln(s1); readln(s2); ... 阅读全文
posted @ 2017-01-13 21:56 银叶草 阅读(179) 评论(0) 推荐(0)
奖学金pascal程序
摘要：题意把总分排序分析先按总分从高到低排序，如果两个同学总分相同，再按语文成绩从高到低排序，如果两个同学总分和语文成绩都相同，那么规定学号小的同学 排在前面vara,t,p:array[0..300]of longint;n,i,x,y,j:longint;procedu... 阅读全文
posted @ 2017-01-13 21:35 银叶草 阅读(111) 评论(0) 推荐(0)
快速排序pascal程序
摘要：题意排序分析数据规模太大，建议使用快排。varn,i:longint;a:array[0..100000]of longint;procedure kp(l,r:longint);vari,j,mid:longint;begin if l>=r then exi... 阅读全文
posted @ 2017-01-13 21:27 银叶草 阅读(370) 评论(0) 推荐(0)
排队接水pascal程序
摘要：题意找出这n个人排队的一种顺序，使得n个人的平均等待时间最小。分析打水的时候花费时间越少的人越先打，那么所有人的等待时间之和就会最小，所以我们要先排序，再计算总时间vara,b:array[0..50000]of longint;n,i,j,w:longint;tj:... 阅读全文
posted @ 2017-01-13 21:15 银叶草 阅读(141) 评论(0) 推荐(0)
A*B Problem
摘要：分析要用高精度，数组一定要开得大。我做的时候，就是因为数组不够大而和我朋友调试了超久。const maxn=2600;vara,b:array[1..maxn]of longint;c:array[1..2*maxn]of longint;l1,l2:longint;... 阅读全文
posted @ 2017-01-13 20:21 银叶草 阅读(188) 评论(0) 推荐(0)
约瑟夫问题pascal程序
摘要：题意n个人(nn then i:=1; if (a[i]=0) then begin inc(j); if j=m then begin ... 阅读全文
posted @ 2017-01-13 16:44 银叶草 阅读(105) 评论(0) 推荐(0)
约数研究pascal程序
摘要：题意把1到n中，所有数的约数数量相加。分析从它给出的样例中，我们可以得出这样的规律：t:=(n/1)+(n/2)+...(n/n-1)+(n/n);varn,i,t:longint;begin read(n); t:=0; for i:=1 to n... 阅读全文
posted @ 2017-01-13 15:55 银叶草 阅读(87) 评论(0) 推荐(0)
迷宫pascal程序
摘要：题意走迷宫，要绕开障碍，走过的就不能再走，求有多少种不同的方法可以到达终点分析我们可以用深搜来做，输入时把障碍的坐标记录下来constdx:array[1..4]of longint=(0,0,1,-1);dy:array[1..4]of longint=(1,-1,... 阅读全文
posted @ 2017-01-13 15:26 银叶草 阅读(101) 评论(0) 推荐(0)
魔法照片pascal程序
摘要：题意求出加上额外权值以后，最终的权值最大的k个人，并输出他们的编号。分析先排序，再一个一个求权值。varn,k,i:longint;e:array[0..10]of longint;a:array[0..50000,1..4]of longint;procedure ... 阅读全文
posted @ 2017-01-13 10:34 银叶草 阅读(145) 评论(0) 推荐(0)
均分纸牌pascal程序
摘要：题意有n堆纸牌，通过把牌移到另一堆，使每一堆的纸牌数相等。分析在编号为 1 堆上取的纸牌，只能移到编号为 2 的堆上；在编号为 N 的堆上取的纸牌，只能移到编号为 N-1 的堆上；其他堆上取的纸牌，可以移到相邻左边或右边的堆上。constmaxn=100;vara:a... 阅读全文
posted @ 2017-01-13 10:11 银叶草 阅读(111) 评论(0) 推荐(0)
多项式输出pascal程序
摘要：题意一个一个的输入，按以下规则输出：1. 多项式中自变量为 x，从左到右按照次数递减顺序给出多项式。2. 多项式中只包含系数不为 0 的项。3. 如果多项式 n 次项系数为正，则多项式开头不出现“+”号，如果多项式 n 次项系数为负，则多项式以“-”号开头。4. 对于... 阅读全文
posted @ 2017-01-13 09:31 银叶草 阅读(150) 评论(0) 推荐(0)
铺地毯pascal程序
摘要：题意找出最后一张覆盖在点上的地毯编号分析先输入，再从后面找，这样会更快varn,i,j:longint;a:array[0..20]of string;b,l:array[0..20]of longint;begin readln(n); for i:=1... 阅读全文
posted @ 2017-01-12 21:02 银叶草 阅读(127) 评论(0) 推荐(0)
宇宙总统pascal程序
摘要：题意找出最大的数和它的序号分析先长度排序，长度相同，就字符串排序varn,i,j:longint;a:array[0..20]of string;b,l:array[0..20]of longint;begin readln(n); for i:=1 to... 阅读全文
posted @ 2017-01-12 20:45 银叶草 阅读(108) 评论(0) 推荐(0)
分数线划定pascal程序
摘要：题意把分数从大到小排序，同分数的，学号小的排前。找出分数大于等于，第m*1.5（向下取整）名的分数，的人。分析开始先排序，再一个一个找varn,m,i,j,tj:longint;k,s:array[0..10000]of longint;t:real;begin ... 阅读全文
posted @ 2017-01-12 19:38 银叶草 阅读(159) 评论(0) 推荐(0)
明明的随机数
摘要：题意输入一段数，去掉相同的数，再排序分析一开始输入的时候，就完成“去重”，再排序constmaxn=100000;varn,t,i:longint;a,b:array[0..maxn]of longint;procedure init;vari,w:longint;b... 阅读全文
posted @ 2017-01-12 16:19 银叶草 阅读(186) 评论(0) 推荐(0)
笨小猴pascal题解
摘要：题意找出在单词里出现最多的单词的次数，再找出在单词里出现最少的单词的次数，最多和最少的次数相减，如果结果是素数，那么就是Lucky Word，不然就是No Answer分析假设maxn是单词中出现次数最多的字母的出现次数，minn是单词中出现次数最少的字母的出现次数，... 阅读全文
posted @ 2017-01-12 15:33 银叶草 阅读(151) 评论(0) 推荐(0)
机器翻译pascal程序
摘要：题意：把一串数放进一个字典里，如果字典里没有相同的数，就把最先放的那一类数拿出来，把当前的数放进去，再统计一次。分析整个查字典过程如下：每行表示一个单词的翻译，冒号前为本次翻译后的内存状况：空：内存初始状态为空。第一个数时． 1：查找单词1 并调入内存。第二个数时． ... 阅读全文
posted @ 2017-01-12 14:41 银叶草 阅读(116) 评论(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)

上一页 1 2
Live2D