Pascal
文章平均质量分 82
McDonnell_Douglas
这个作者很懒,什么都没留下…
展开
专栏收录文章
- 默认排序
- 最新发布
- 最早发布
- 最多阅读
- 最少阅读
-
C++&Pascal——用DEV C++/free pascal制作dll,并用C++/Pascal调用
dll代码:library DllNames;procedure ShowHelloWorld;stdcall;begin assign(output,'DLL.out'); rewrite(output); write('hello world'); close(output);end;exports原创 2017-08-19 11:19:52 · 1377 阅读 · 0 评论 -
C++&Pascal&Python——【USACO 5.3.4】——Big Barn
Big BarnA Special TreatFarmer John wants to place a big square barn on his square farm. He hates to cut down trees on his farm and wants to find a location for his barn that enables him to bui原创 2017-10-25 16:54:46 · 468 阅读 · 0 评论 -
C++&Pascal&Python——【USACO 4.2.2】——The Perfect Stall
The Perfect StallHal BurchFarmer John completed his new barn just last week, complete with all the latest milking technology. Unfortunately, due to engineering problems, all the stalls in the ne原创 2017-10-13 21:28:11 · 488 阅读 · 0 评论 -
C++&Pascal——【USACO 5.1.1】——Fencing the Cows
Fencing the CowsHal BurchFarmer John wishes to build a fence to contain his cows, but he's a bit short on cash right. Any fence he builds must contain all of the favorite grazing spots for his c原创 2017-10-20 21:30:11 · 483 阅读 · 0 评论 -
C++&Pascal&Python——【USACO 3.4.2】——Electric Fence
Electric FenceDon PieleIn this problem, `lattice points' in the plane are points with integer coordinates.In order to contain his cows, Farmer John constructs a triangular electric fence by st原创 2017-10-09 20:08:56 · 442 阅读 · 0 评论 -
C++&Pascal——【USACO 3.3.2】——Shopping Offers
Shopping OffersIOI'95In a certain shop, each kind of product has an integer price. For example, the price of a flower is 2 zorkmids (z) and the price of a vase is 5z. In order to attract more cust原创 2017-10-09 17:57:20 · 775 阅读 · 0 评论 -
C++&Pascal——【USACO 3.3.1】——Riding the Fences
Riding the FencesFarmer John owns a large number of fences that must be repaired annually. He traverses the fences by riding a horse along each and every one of them (and nowhere else) and fixin原创 2017-10-09 17:54:50 · 419 阅读 · 0 评论 -
一些Pascal的函数
PACSAL 函数:procedure inc(i) 使i:=i+1; inc(i,b) 使i:=i+b; dec(i) 使i:=i-1; dec(i,b) 使i:=i-b; randomize 随机数的种子函数,在每次设置随机数时都要把这个函数放在最前面。 function abs(x) 求x的绝对值。例:转载 2017-09-16 16:59:34 · 1306 阅读 · 0 评论 -
C++&Pascal——NOIP2015提高组day1 t2——信息传递
题目描述有 n 个同学(编号为1到n)正在玩一个信息传递的游戏。在游戏里每人都有一个固定的信息传递对象,其中,编号为 i 的同学的信息传递对象是编号为 Ti 的同学。游戏开始时,每人都只知道自己的生日。之后每一轮中,所有人会同时将自己当前所知的生日信息告诉各自的信息传递对象(注意:可能有人可以从若干人那里获取信息,但是每人只会把信息告诉一个人,即自己的信息传递对象)。当有人从别人口中得原创 2017-08-14 14:36:30 · 636 阅读 · 0 评论 -
C++&Pascal&Java——NOIP2015提高组day1 t1——神奇的幻方
题目描述幻方是一种很神奇的 N*N 矩阵:它由数字 1,2,3,… ,N*N 构成,且每行、每列及两条对角线上的数字之和都相同。当 N 为奇数时,我们可以通过以下方法构建一个幻方:首先将 1 写在第一行的中间。之后,按如下方式从小到大依次填写每个数 K(K = 2,3,…,N*N):1.若 (K-1) 在第一行但不在最后一列,则将 K 填在最后一行,(K-1) 所在列的右一原创 2017-08-14 14:34:01 · 1162 阅读 · 0 评论 -
C++ & Pascal——NOIP2016提高组day2 t3——愤怒的小鸟
题目描述Kiana 最近沉迷于一款神奇的游戏无法自拔。简单来说,这款游戏是在一个平面上进行的。有一架弹弓位于 (0,0) 处,每次 Kiana 可以用它向第一象限发射一只红色的小鸟,小鸟们的飞行轨迹均为形如 y=ax2+bx 的曲线,其中 a,b 是 Kiana 指定的参数,且必须满足 a<0。当小鸟落回地面(即x轴)时,它就会瞬间消失。在游戏的某个关卡里,平面的第一象限中有原创 2017-07-28 15:31:14 · 1109 阅读 · 0 评论 -
C++ & Pascal & Java ——NOIP2016提高组day2 t1——组合数问题
题目描述组合数 表示的是从 n 个物品中选出 m 个物品的方案数。举个例子,从 (1,2,3) 三个物品中选择两个物品可以有 (1,2),(1,3),(2,3) 这三种选择方法。根据组合数的定义,我们可以给出计算组合数 的一般公式: 其中 n!=1×2×...×n 。小葱想知道如果给定 n,m 和 k,对于所有的 0≤i≤n,0≤j≤min(i,m) 有多少对 (i原创 2017-07-28 15:18:07 · 806 阅读 · 0 评论 -
Pascal & C++——USACO Section 1.2 题解
PS:部分代码为转载Section 1.2Milking CowsTransformationsName That NumberPalindromic SquaresDual PalindromesMilking CowsThree farmers rise at 5 am each morning and head for the barn t转载 2017-01-16 20:31:59 · 779 阅读 · 0 评论 -
Java & Pascal & C++——容斥原理例题——切蛋糕
切蛋糕 【问题描述】 BG 有一块细长的蛋糕,长度为?。 有一些人要来BG 家里吃蛋糕,BG 把蛋糕切成了若干块(整数长度),然后分给这些人。 为了公平,每个人得到的蛋糕长度和必须相等,且必须是连续的一段。 但是,BG 并不知道要有多少人来。他只知道,来的人数为?的约数,且小于?。 显然把蛋糕原创 2017-07-07 15:20:23 · 1481 阅读 · 0 评论 -
Pascal & C++——NOIP模拟题——小X学游泳
【题目描述】 小X 想要学游泳。 这天,小 X 来到了游泳池,发现游泳池可以用 N 行 M 列的格子来表示,每个格子的面积都是 1,且格子内水深相同。 由于小 X 刚刚入门,他只能在水深相同的地方游泳。为此,他把整个游泳池看成若干片区域,如果两个格子相邻(上下左右四个方向)且水深相同,他就认为它们属于同一片区域。 小X 想知道最大的一片区域面积是多少,希望原创 2017-06-10 15:35:55 · 4145 阅读 · 0 评论 -
Pascal & C++——NOIP模拟题——小X分砖块
小X分砖块 问题描述 小X喜欢跟着爸爸跑到建筑工地上去。 这天,小X看到一排砖,每块要么是白色的(0),要么是黑色的(1)。小X想把这排 砖分成若干非空段,使得每段白砖和黑砖块数的比例相同。 当然,小X可以直接把整排砖作为一段,那就太简单了。为了增加难度,小X想知道最 多能分成多少段,例如 100011= 10+ 0011 (即样例1,最原创 2017-06-03 15:14:29 · 2203 阅读 · 0 评论 -
USACO——Bovine Genomics
Bovine GenomicsFarmer John owns N cows with spots and N cows without spots. Having just completed a course in bovine genetics, he is convinced that the spots on his cows原创 2017-05-28 15:20:21 · 1159 阅读 · 0 评论 -
C++——NOIP模拟题——列车调度
列车调度题目背景161114-练习-DAY1-AHSDFZ T2题目描述有 N 辆列车,标记为 1,2,3,…,N。它们按照一定的次序进站,站台共有 K 个轨道,轨道遵从先进先出的原则。列车进入站台内的轨道后可以等待任意时间后出站,且所有列车不可后退。现在要使出站的顺序变为 N,N-1,N-2,…,1,询问 K 的最小值是多少。 例如上图中进站原创 2017-05-13 14:53:12 · 3350 阅读 · 0 评论 -
C++——NOIP模拟题——二叉树
题目背景161114-练习-DAY1-AHSDFZ T1题目描述二叉排序树或者是一棵空树,或者是具有下列性质的二叉树:(1)若左子树不空,则左子树上所有结点的值均小于它的根结点的值;(2)若右子树不空,则右子树上所有结点的值均大于它的根结点的值;(3)左、右子树也分别为二叉排序树;(4)没有键值相等的结点。完全二叉树:只有最下面的两层结点度能够小于原创 2017-05-13 14:49:59 · 836 阅读 · 0 评论 -
C++——NOIP模拟题——种树
种树题目描述为了绿化乡村,H 村积极响应号召,开始种树了。H 村里有 n 幢房屋,这些屋子的排列顺序很有特点,在一条直线上。于是方便起见,我们给它们标上 1~n 。树就种在房子前面的空地上。同时,村民们向村长提出了 m 个意见,每个意见都是按如下格式:希望第 li 个房子到第 ri 个房子的房前至少有 ci 棵树。因为每个房屋前的空地面积有限,所以每个房屋前最多只能原创 2017-04-22 15:04:37 · 4283 阅读 · 0 评论 -
C++——NOIP模拟题——牧场的安排
题目描述Farmer John 新买了一块长方形的牧场,这块牧场被划分成 N 行 M 列(1FJ 打算在牧场上的某几格土地里种上美味的草,供他的奶牛们享用。遗憾的是,有些土地相当的贫瘠,不能用来放牧。并且,奶牛们喜欢独占一块草地的感觉,于是 FJ 不会选择两块相邻的土地,也就是说,没有哪两块草地有公共边。当然,FJ 还没有决定在哪些土地上种草。作为一个好奇的农场主,FJ 想知道,如原创 2017-04-29 17:00:01 · 2125 阅读 · 0 评论 -
C++——NOIP模拟题——中位数
题目描述有一个长度为 N 的数列{A1,A2,…,AN},这个 N 个数字恰好是 1..N 的一个排列。你需要统计有多少个子序列{Ai,Ai+1,…,Aj}满足:i≤j 且 j-i+1 为奇数,序列的中位数为 B。例如{5,1,3}的中位数为 3 。输入格式第一行包含两个正整数 N 和 B ;第二行包含 N 个整数,第 i 个整数为 Ai。输出格式原创 2017-04-29 14:57:03 · 1293 阅读 · 0 评论 -
C++——NOIP提高组——飞扬的小鸟
飞扬的小鸟【NOIP2014提高组】题目描述Flappy Bird 是一款风靡一时的休闲手机游戏。玩家需要不断控制点击手机屏幕的频率来调节小鸟的飞行高度,让小鸟顺利通过画面右方的管道缝隙。如果小鸟一不小心撞到了水管或者掉在地上的话,便宣告失败。为了简化问题,我们对游戏规则进行了简化和改编: 1.游戏界面是一个长为 n,高为 m 的二维平面,其中有k 个管道(忽略管道原创 2017-04-29 14:37:35 · 2036 阅读 · 0 评论 -
C++——NOIP模拟题——寻找位置
寻找位置题目描述现在我们定义一个字符串序列 {S0,S1,S2,…} ,其中 S0=“A”,对于任意的 i>0,Si 可以由 Si-1 产生,具体产生方法为:替换 Si-1 中的每个字母“A”为“AAB”, 替换每一个字母“B”为“A”。比如按照此规则,前五个字符串为:S0 = “A”S1 = “AAB”S2 = “AABAABA”S3 = “AABAABA原创 2017-04-04 13:12:32 · 672 阅读 · 0 评论
分享