- 博客(26)
- 资源 (4)
- 收藏
- 关注
RSS订阅原创 第二十一届全国青少年信息学奥林匹克联赛 “华东师大二附中”杯上海赛区竞赛规程
第二十一届全国青少年信息学奥林匹克联赛“华东师大二附中”杯上海赛区竞赛规程 2015年第二十一届全国青少年信息学奥林匹克联赛（简称CCF NOIP2015）是中国计算机学会（CCF）主办、以省（市）为单位组织实施的全国性竞赛，是全国青少年信息学奥林匹克竞赛的重要组成部分。CCF NOIP采用开放方式，任何一名在校的中（含中职）、小学生均可报名参加。上海赛区竞赛规程如下： 一、
2015-08-31 09:33:51
4987
原创 Pascal错误代码
Pascal编译错误对照表 下面列出在编译程序时可能出现的错误，在集成环境下，Turbo Pascal将自动加载源程序并定位于出错处。 l内存溢出 2缺标识符 3标识符未定义 4标识符重定义 5语法错误 6实型常量错 7整型常量错 8字符串常量跨行 9文件嵌套过多 10非正常文件结束 11行过长 12缺类型标识符 13打开文件过多 14无
2015-08-25 23:05:38
561
原创 dijkstra算法（Pascal描述）
constdim=6;max=200;varcost:array[1..dim,1..dim] of integer;i,j:integer;isfound:array[1..dim] of boolean;distance:array[1..dim] of integer;v0:integer;vtemp:integer;min:integer;counter:inte
2015-08-24 01:12:49
1449
1
原创 noip2012初赛-坐标统计
noip2012C-4-1（坐标统计）输入n个整点在平面上的坐标。对于每个点，可以控制所有位于它左下方的点（即x、y坐标都比它小），它可以控制的点的数目称为“战斗力”。依次输出每个点的战斗力，最后输出战斗力最高的点的编号（如果若干个点的战斗力并列最高，输出其中最大的编号）。 样例输入：71 23 45 13 4-1 6-7-19-2-10cons
2015-08-23 17:29:23
2379
原创 noip2011初赛-大整数开方
noip2011C_4_2（大整数开方）输入一个正整数n（1constSIZE=200;typehugeint=recordlen:integer;num:array[1..SIZE] of integer;end;vars:string;i:integer;target,left,middle,right:hugeint;function add(a,b:
2015-08-23 17:27:32
1860
原创 noip2011初赛-子矩阵
noip2011C-4-1（子矩阵）输入一个n1*m1的矩阵a，和n2*m2的矩阵b，问a中是否存在子矩阵和b相等。若存在，输出所有子矩阵左上角的坐标；若不存在输出“there is no answer”。 样例输入：3 31 234 567 892 25 68 9 样例输出：2 2constSIZE=50;varn1,m1,n2
2015-08-23 17:25:03
1568
原创 noip2010初赛-哥德巴赫猜想
2010C_4_1（哥德巴赫猜想）哥德巴赫猜想是指，任一大于2的偶数都可写成两个质数之和，迄今为止，这仍然是一个著名的世界难题，被誉为数学王冠上的明珠。试编写程序，验证任一大于2且不超过n的偶数都能写成两个质数之和。constsize=1000;varn,r,i,j,k,ans:integer;p:array[1..SIZE] of integer;tmp:boolean;
2015-08-23 17:23:23
1588
原创 noip2009初赛-国王放置
2009C-4-2（国王放置）在n*m的棋盘上放置k个国王，要求k个国王互相不攻击，有多少种不同的放置方法。假设国王放置在第(x,y)格，国王的攻击的区域是:(x-1,y-1),(x-1,y),(x-1,y+1),(x,y-1),(x,y+1),(x+1,y-1),(x+1,y),(x+1,y+1)。读入三个数n,m,k，输出答案。题目利用回溯法求解。棋盘行标号为0~n-1，列标号为0~m-1。
2015-08-23 17:21:49
3394
1
原创 noip2009初赛-最大连续子段和
2009C-4-1（最大连续子段和）给出一个数列（元素个数不多于100），数列元素均为负整数、正整数、0。请找出数列中的一个连续子数列，使得这个子数列中包含的所有元素之和最大，在和最大的前提下还要求该子数列包含的元素个数最多，并输出这个最大和以及该连续子数列中元素的个数。例如数列为4，-5，3，2，4时，输出9和3；数列为1 2 3 -5 0 7 8时，输出16和7。var a:ar
2015-08-23 17:20:29
1397
原创 noip2008初赛-找第K大的数
noip2008C_4_2（找第k大的数）给定一个长度为1,000,000的无序正整数序列，以及另一个数n（1≤n≤1000000），然后以类似快速排序的方法找到序列中第n大的数（关于第n大的数：例如序列{1，2，3，4，5，6}中第3大的数是4）vara:array[1..1000000]of integer;n,m,ans:longint;procedure swap(var a,
2015-08-23 17:19:00
2063
原创 noip2008初赛-字符串替换
noip2008C_4_1（字符串替换）给定一个字符串S（S仅包含大小写字母），下面的程序将S中的每个字母用规定的字母替换，并输出S经过替换后的结果。程序的输入是两个字符串，第一个字符串是给定的字符串S，第二个字符串S’由26个字母组成，它是a~z的任一排列，大小写不定，S’规定了每个字母对应的替换字母：S’中的第一个字母是字母A和a的替换字母，即 S中的A用该字母的大写替换，S中的a用该字母的小
2015-08-23 17:17:09
1308
原创 noip2007初赛-棋盘覆盖
noip2007C_4_2（棋盘覆盖问题）在一个2k*2k个方格组成的棋盘中恰有一个方格与其他方格不同（图中标记为-1的方格），称之为特殊方格。现用L型（占3个小格）纸片覆盖棋盘上除特殊方格的所有部分，各纸片不得重叠，于是，用到的纸片数恰好是(4^k−1)/3。在下表给出的一个覆盖方案中，k=2，相同的3个数字构成一个纸片。下面给出的程序是用分治法设计的，将棋盘一分为四，依次处理左上角、右上角、左
2015-08-23 17:09:53
864
原创 noip2007初赛-求字符串的逆序
noip2007C_4_1（求字符串的逆序）下面的程序的功能是输入若干行字符串，每输入一行，就按逆序输出该行，最后键入-1 终止程序。typestr1=string[100];varline:str1;kz:integer;procedure reverse(var s:str1);vari,j:integer;t:char;begin i:=1; j:=lengt
2015-08-23 17:08:25
583
原创 noip2006初赛-完善程序第二题
noip2006C_4_2由键盘输入一个奇数P(P<100,000,000)，其个位数字不是5，求一个整数S，使P×S =1111...1 (在给定的条件下，解S必存在)。要求在屏幕上依次输出以下结果:（1）S的全部数字。除最后一行外，每行输出50位数字。（2）乘积的数字位数。 例1：输入p=13，由于13*8547=111111，则应输出（1）8547（2）6 例2：输入
2015-08-23 17:06:37
1497
原创 noip2006初赛-全排列
noip2006C_4_1（全排列）下面程序的功能是利用递归方法生成从1到n(n 样例输入3样例输出（每行输出5个排列）123 132 213 231 321312program noip2006C_4_1;vari,n:integer;a:array[1..10] of integer;count:longint;procedure perm(k:i
2015-08-23 17:02:06
1543
原创 noip2005初赛-判断质数
noip2005C_4_1判断质数 题目描述:给出一个正整数，判断这个数是否是质数。 输入:一个正整数n(1≤n≤10000)。 输出:如果n是质数，输出“YES”；否则，输出“NO”。 输入样例:10 输出样例:NOvarn,i:integer;begin read(n); if n=2 then writeln
2015-08-23 17:00:11
584
原创 noip2005初赛-木材加工
noip2005C_4_2木材加工 题目描述:木材厂有一些原木，现在想把这些木头切割成一些长度相同的小段木头（木头有可能有剩余），需要得到的小段的数目是给定的。当然，我们希望得到的小段越长越好，你的任务是计算能够得到的小段木头的最大长度。木头长度的单位是cm。原木的长度都是正整数，我们要求切割得到的小段木头的长度也是正整数。 输入:第一行是两个正整数N和K(1≤
2015-08-23 16:56:49
2618
原创 noip2004初赛-三角形内切圆的面积
noip2004C_4_1三角形内切圆的面积题目描述:给出三角形三边的边长，求此三角形内切圆（如下图所示，三角形的内切圆是和三角形三边都相切的圆）的面积。 输入:三个正实数a、b、c（满足a+b>c，b+c>a，c+a>b）, 表示三角形三边的边长。 输出:三角形内切圆的面积，结果四舍五入到小数点后面2位。 输入样例:3 4 5 输出样例:3
2015-08-23 16:52:34
1080
原创 第十五届全国青少年信息学奥林匹克联赛初赛试题
第十五届全国青少年信息学奥林匹克联赛初赛试题（2009年），我只摘录了选择题，部分题目做了注解。一．单项选择题1．关于图灵机下面的说法哪个是正确的：A．图灵机是世界上最早的电子计算机。B．由于大量使用磁带操作，图灵机运行速度很慢。C．图灵机是英国人图灵发明的，在二战中为破译德军的密码发挥了重要作用。D．图灵机只是一个理论上的计算模型。答案：D解析：世界上
2015-08-23 16:32:53
4119
1
原创 Pascal数组递推
有一个养鸭专业户，赶了一大群鸭子出去卖。他每经过一个村庄，卖出所赶鸭子的一半再多一只，这样他经过七个村庄后，还剩下两只鸭子，编程打印输出他每经过一个村庄后卖出多少只鸭子？剩下多少只鸭子？vara:array[0..7] of longint;i:longint;begin a[7] := 2; for i := 7 downto 1 do a[i-1] := 2*(a[i]+
2015-08-23 15:54:13
859
原创 Pascal开关灯问题
有N个灯放在一排，从1到N依次顺序编号。有N个人也从1到N依次编号。1号将灯全部关闭，2将凡是2的倍数的灯打开；3号将凡是3的倍数的灯作相反处理（该灯如为打开的，则将它关闭；如关闭的，则将它打开）。以后的人都和3号一样，将凡是自己编号的倍数的灯作相反处理。试计算第N人操作后，哪几盏灯是点亮的。提示：1—表示灯打开，0—表示灯关闭var k,n,i,j:longint; a:arra
2015-08-23 15:14:59
1175
原创 Pascal数组
数组一定要会用，据说不会用数组的同学比赛都挂了~举个例子：输入n个学生的某门课程的成绩，打印出低于平均分的同学学号与成绩。我们的问题来了，难道你定义n个变量么？呵呵~const n=1000;vara:array[1..n] of integer;这是我们之前没有看到过的数据类型。a表示一个数组，你可以理解为一堆变量绑在一起，如a[1]，a[2]，
2015-08-23 15:04:44
3246
原创 Pascal实用代码模板
部分同学对在写Pascal时常常感觉无从下手，忘记某些单词，时不时向老师求助，这些基本上是语法基本功不到位。解决这类问题方法我认为有两个：第一，保存好你所有写过并且调试成功的程序代码（pascal文件），一旦遇到同类的程序，可以翻找以前的代码看。第二，也是我认为学编程最好的方法，就是经常整理一些实用的代码片段，虽不一定要像英语单词那样去背诵，但是你至少要做到信手拈来！不应该常犯一些低级
2015-08-23 13:18:53
2971
1
原创 单点CURL
$ch = curl_init();curl_setopt($ch, CURLOPT_URL, "http://www.gezhi.sh.cn/infoweb/"); //curl_setopt($ch, CURLOPT_HEADER, 1);curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);//curl_setopt($ch, CURLOPT_ENC
2015-08-04 01:10:41
377
原创 CURL并发
今天一天都在研究curl_multi_select到底是什么，官方文档上写curl_multi_select — Wait for activity on any curl_multi connection翻译：等待curl并发连接活动
2015-08-03 19:12:11
1281
EditPlus绿色破解版
2011-10-19
程序员考试2004~2010(全)真题附答案解析
2011-10-09
数据结构算法与应用——C++语言描述英文
2011-10-07
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人