chuangleng4663-优快云博客

转载无敌西游剧情模式

版本要求：FreePascalIDE版本≥2.4.0 program xiyou(input,output);varq,w,e,r,t,y,u,i,o,p,a,lv,s,d,f,djingyan,jingyan,g,h,j,k,l,money,rwjingyan,zwq,fwq,zhiy...

2017-10-02 14:05:00 361

转载将博客搬至优快云

我要将博客搬迁至优快云啦！转载于:https://my.oschina.net/u/3233411/blog/885285

2017-04-22 19:54:00 172

转载 Pascal第K个因子

第k个因子时间限制:1 Sec内存限制:128 MB 提交:15解决:7 [提交][状态][讨论版] 题目描述 Yemaster给大家一道简单的数学题，给你正整数n和k，求从小到大n的第k个因子。例如n=12，k=5，n的因子从小到大有1,2,3,4,6,12，第5...

2017-02-11 19:45:00 219

转载 Pascal正常血压

正常血压时间限制:1 Sec内存限制:128 MB 提交:6解决:3 [提交][状态][讨论版] 题目描述监护室每小时测量一次病人的血压，若收缩压在90 - 140之间并且舒张压在60 - 90之间（包含端点值）则称之为正常，现给出某病人若干次测量的血压值，计算病...

2017-02-11 19:26:00 197

转载 Pascal药房管理

药房管理时间限制:1 Sec内存限制:128 MB 提交:12解决:4 [提交][状态][讨论版] 题目描述随着信息技术的蓬勃发展，医疗信息化已经成为医院建设中必不可少的一部分。计算机可以很好地辅助医院管理医生信息、病人信息、药品信息等海量数据，使工作人员能够从...

2017-02-11 18:34:00 577

转载角谷猜想Pascal

角谷猜想时间限制:1 Sec内存限制:128 MB 提交:9解决:9 [提交][状态][讨论版] 题目描述所谓角谷猜想，是指对于任意一个正整数，如果是奇数，则乘3加1，如果是偶数，则除以2，得到的结果再按照上述规则重复处理，最终总能够得到1。如，假定初始整数为5，...

2017-02-11 18:29:00 158

转载 Pascal序列中的第k个数

序列的第k个数时间限制:1 Sec内存限制:128 MB 提交:91解决:39 [提交][状态][讨论版] 题目描述 Yemaster在学等差数列和等比数列，当已知前三项时，就可以知道是等差数列还是等比数列。现在给你序列的前三项，这个序列要么是等差序列，要么是等比序...

2017-02-09 20:58:00 147

转载 Pascal计数问题

计数问题时间限制:1 Sec内存限制:128 MB 提交:24解决:19 [提交][状态][讨论版] 题目描述 Yemaster想要计算在区间 1 到 n 的所有整数中,数字 x(0 ≤ x ≤ 9)共出现了多少次?例如,在 1 到 11 中,即在 1、2、3、4、...

2017-02-09 19:49:00 242

转载 Pascal三角形

三角形时间限制:1 Sec内存限制:128 MB [提交][状态][讨论版] 题目描述 Yemaster给大家三个数，作为三角形的三边，问这是什么三角形？输入输入a,b,c 输出如果是锐角三角形输出：Acute triangle 如果是钝角三角形输出：O...

2017-02-09 19:22:00 335

转载 Pascal河中跳房子

21 样例输出 4 样例解释在移除位于2和14的两个岩石之后，最短跳跃距离为4（从17到21或从21到25）。分析这道题目很容易让我们想到快排做法：1，给岩石位置进行排序。2，计算每块岩石相差的距离。{循环-再给差距进行从小到大排序，将第一个和第二个差距合并（移...

2017-02-09 19:07:00 148

转载 Pascal加减数列

转载于:https://my.oschina.net/u/3233411/blog/834955

2017-02-09 19:06:00 156

转载纪念品分组Pascal

纪念品分组时间限制:1 Sec内存限制:128 MB 提交:6解决:4 [提交][状态][讨论版] 题目描述元旦快到了，校学生会让Yemaster负责新年晚会的纪念品发放工作。为使得参加晚会的同学所获得的纪念品价值相对均衡，他要把购来的纪念品根据价格进行分组，但...

2017-02-07 21:01:00 125

转载 Pascal题解奖学金

奖学金时间限制:1 Sec内存限制:128 MB 提交:6解决:5 [提交][状态][讨论版] 题目描述 Yemaster的小学最近得到了一笔赞助，打算拿出其中一部分为学习成绩优秀的前5名学生发奖学金。期末，每个学生都有3门课的成绩:语文、数学、英语。先按总分从高到...

2017-02-07 19:27:00 170

转载 Yemaster摘苹果题解 Pascal

Yemaster摘苹果时间限制:1 Sec内存限制:128 MB [提交][状态][讨论版] 题目描述 Yemaster家的院子里有一棵苹果树，每到秋天树上就会结出10个苹果。苹果成熟的时候，Yemaster就会跑去摘苹果。Yemaster有个n厘米高的板凳，当他不能直接用...

2017-02-07 19:14:00 221

转载石头剪子布Pascal题解

石头剪子布时间限制:1 Sec内存限制:128 MB 提交:9解决:8 [提交][状态][讨论版] 题目描述石头剪子布，是一种猜拳游戏。起源于中国，然后传到日本、朝鲜等地，随着亚欧贸易的不断发展它传到了欧洲，到了近现代逐渐风靡世界。简单明了的规则，使得石头剪子布没...

2017-02-07 18:58:00 805

转载 Pascal过河卒题解

过河卒时间限制:1 Sec内存限制:128 MB [提交][状态][讨论版] 题目描述棋盘上的A点有一个过河卒，需要走到目标B点。卒行走的规则是：可以向下、或者向右。同时在棋盘上的任一点有一个对方的马（如C点），对方的马所在的点和所有跳跃一步可达的点称为对方马的控制点（...

2017-02-05 20:45:00 234

转载自己写的小程序！棒极了，快来看看吧！！！

（更新次数：2）新增：新闻动态，升级，时间把程序放入FPC方法：复制所有源代码→打开ＦＰＣ→点击edit菜单→点击copy to Windows 此程序已超过1000行。功能超全！注册账号为admin则自动拥有管理员权限。可以填写手机号，账号，名字，密码，性别。以下是未登录前功能： ...

2017-02-01 20:15:00 165

转载贪心问题：题解Pascal最大整数

最大整数时间限制:1 Sec内存限制:128 MB [提交][状态][讨论版] 题目描述设有n个正整数（n<=20）,将它们连接成一排，组成一个最大的多位数。例如：n=3时，3个整数13，312，343连接成的最大整数为：34331213 又如：n=4时，4个整数...

2017-01-27 12:28:00 128

转载 Pascal题解：摘苹果

摘苹果时间限制:1 Sec内存限制:128 MB [提交][状态][讨论版] 题目描述秋天到了， Yemaster 所在的学校组织小朋友们去秋游。这次他们去的地方是Yemaster的果园，果园里有很多很多的果树。由于Yemaster 和他的小伙伴们总共 N ...

2017-01-24 21:00:00 334

转载 Pascal关于字符串

类型： char 字符型。字符个数（1个） string 字符串型。字符个数（0~255个） ansistring 字符串型字符个数（0~2GB）常用函数或过程: length（s）; 函数作用，求字符串s的长度原型（小编原创）： function length...

2017-01-24 20:48:00 371

转载 Pascal判断回文

Function hw(s:string):boolean; var n,m,i:longint; begin n:=length(s); m:=n div 2; for i:=1 to m do if s[i]<>s[n-i+1] then ex...

2017-01-24 20:42:00 123

转载 pascal题目——摘苹果

摘苹果时间限制:1 Sec内存限制:128 MB [提交][状态][讨论版] 题目描述秋天到了， Yemaster所在的学校组织小朋友们去秋游。这次他们去的地方是一个果园，果园里有很多很多的果树。由于Yemaster和他的小伙伴们总共 N 个人最喜欢吃苹果，...

2017-01-24 19:06:00 516

转载题解：Pascal加密的病历单

加密的病历单时间限制:1 Sec内存限制:128 MB [提交][状态][讨论版] 题目描述 Yemaster是药学专业大三的学生，暑假期间获得了去医院药房实习的机会。在药房实习期间，Yemaster扎实的专业基础获得了医生的一致好评，得知Yemaster在计算概论中取...

2017-01-24 18:41:00 340

转载题解：Pascal最佳点位

最佳点位时间限制:1 Sec内存限制:128 MB [提交][状态][讨论版] 题目描述直线上有n个点，坐标分别为x1, x2, …, xn。这次BSNY想在这条直线上找一个坐标点xp，使得这个点到给定n个点的距离之和最小。当然，距离最小的点可能有很多，输出最小的xp...

2017-01-24 13:30:00 173

转载题解：Pascal矩阵

矩阵时间限制:1 Sec内存限制:128 MB [提交][状态][讨论版] 题目描述 Yemaster在玩一个矩阵，这是一个n*m的矩阵，矩阵内每个位置上有一个整数。Yemaster可以对这个矩阵做以下操作： 1.下移：将第一行移动到最后一行的后面 2....

2017-01-23 16:13:00 287

转载 Pascal相关软件

Free Pascal IDE ：下载地址： http://www.newsjz.com/jww/Soft/ShowSoftDown.asp?UrlID=1&SoftID=140 注意，在FPC打开后，会出现乱码。这时只要右键单击文件头，在选定默认值，把语言改成英语即可。 ...

2017-01-22 20:30:00 146

转载程序顺序

记录型变量 type 常量定义 const 变量定义 var 子程序 ...

2017-01-22 20:27:00 121

转载 Pascal二分查找

二分查找基本思路在一串有序的数列中（我推荐从小到大）先取中间数，如果要找的数比中间数小，则往中间数的左边继续找。如果要找的数比中间的数大，则往右边找。如果要找的数和中间数一样，我就不用说了吧！二分查找程序如下递归算法： Function erfen（l,r,s:longint...

2017-01-22 19:40:00 170

转载乱入的笑话（不属于Pascal）

HOT：作者：陈煌晨人气：0 小明：你是不是神*病？小刚：不是。小明：这也难怪，神*病一般就说自己不是神*病。小刚：你太坑人了！小明：再问一遍，你是不是神*病？小刚：是。小明：说自己是神*病的一定是神*病。小刚：【无语】 ...

2017-01-22 19:21:00 82

转载题解：Pascal词组缩写

词组缩写时间限制:1 Sec内存限制:128 MB [提交][状态][讨论版] 题目描述定义：一个词组中每个单词的首字母的大写组合称为该词组的缩写。比如，C语言里常用的EOF就是end of file的缩写。输入输入的第一行是一个整数T，表示一共有T组测试数据...

2017-01-22 19:12:00 257

转载分析：Pascal级数求和

级数求和时间限制:1 Sec内存限制:128 MB 提交:10解决:9 [提交][状态][讨论版] 题目描述已知：Sn= 1＋1／2＋1／3＋…＋1／n。显然对于任意一个整数K，当n足够大的时候，Sn大于K。现给出一个整数K（1<=k<=15），要求...

2017-01-22 18:49:00 250

转载题解：Pascal计算2^n次方

计算2的N次方时间限制:1 Sec内存限制:128 MB 题目描述任意给定一个正整数N(N<=100)，计算2的n次方的值。输入输入一个正整数N。输出输出2的N次方的值。样例输入 5 样例输出 32 分析由...

2017-01-22 18:39:00 297

转载【公告】关于作者版权问题

号外，号外，关于作者版权问题。本作者在博客里发表的文章，未经作者允许，请勿抄袭，转发。版权费请在评论里讨论。转载于:https://my.oschina.net/u/3233411/bl...

2017-01-22 18:25:00 226

转载题解：Pascal数字统计

数字统计时间限制:1 Sec内存限制:128 MB 题目描述请统计某个给定范围[L, R]的所有整数中，数字 2 出现的次数。比如给定范围[2, 22]，数字 2 在数2中出现了 1次，在数 12中出现 1 次，在数 20 中出现 1 次，在数 21 中出现 1 次，...

2017-01-22 18:22:00 248

转载题解：统计字符pascal

统计字符时间限制:1 Sec内存限制:128 MB 提交:48解决:30 [提交][状态][讨论版] 题目描述输入一行字符，分别统计出其中英文字母、数字、空格和其他字符的个数。输入一行字符输出统计值样例输入 aklsj...

2017-01-22 18:18:00 197

转载 Pascal快排

procedure qsort(l,r:longint);var i,j,m,t:longint;begin i:=l; j:=r; m:=a[(l+r)div 2]; repeat while a[i]<m do i:=i+1; while a[...

2017-01-20 20:53:00 316

转载余姚小学2016Pascal全题解答

题目：节水活动(小学) 时间限制:1 Sec内存限制:128 MB [提交][状态][讨论版] 题目描述小明向小学生们发起了一个节约用水的活动，在他的鼓舞下，大家都纷纷行动起来，并且把节水成果陆续发给小明。小明共收到了来自全国各地的N份节水成绩单，每份中都标注了该...

2017-01-20 20:39:00 1636

转载题解：Pascal堆金字塔

堆金字塔时间限制:1 Sec内存限制:128 MB 题目描述 Yemaster有n块立方体，想堆金字塔，这个金字塔第一层需要1块，第二层需要1+2块，第三层要1+2+3块……问BSNY最多可以堆几层？输入输入n 输出输出最多可以堆...

2017-01-20 20:33:00 634

转载题解：等差数列Pascal

等差数列时间限制:1 Sec内存限制:128 MB 题目描述给定n(1<=n<=400)个数,从中找出尽可能多的数使得他们能够组成一个等差数列.求最长的等差数列的长度. 输入第一行是一个整数n,接下来一行包括了n个数,每个数的绝对值不超过1000...

2017-01-20 20:28:00 227

转载题解Pascal矩阵转置

矩阵转置时间限制:1 Sec内存限制:128 MB 题目描述输入一个n行m列的矩阵A，输出它的转置AT。输入第一行包含两个整数n和m，表示矩阵A的行数和列数。1 <= n <= 100，1 <= m <= 100。接下来n行，每行...

2017-01-20 20:24:00 201

空空如也

空空如也