常用于暂停程序的运行!可以不带参数,read必须带参数; 使用原则: 1.没有特殊需要,一个程序中避免同时使用read 和readln: 2.尽量使用readln语句来输入数据,一个数据行对应一个readln语句: 3.由于执行read和readln语句时,系统不会提供任何提示信息,因此,编程时最好在readln语句前加以提示: 如 write(Input'a.b.c:'); readln(a,b,c); 执行时屏幕上显示Input a,b,c: ■ ■为光标,执行readln语句后,系统处于待…

Description Input Output Sample Input 3 3 1 2 3 4 5 6 1 2 3 0 0 0 0 0 0 4 5 6 Sample Output 2 HINT 题解: 一脸容斥的样子. 枚举判断是否相同的泉水集合S,若|S|>=K,则inc(ANS,(-1)^(|S|-K+1)*C(|S|,K)*相同对数). 用哈希表记录.判断(我之前竟然写了类似字符串哈希的的做法,哈希值相同直接判断相同,WA惨了). 代码: var i,j,k,l,n,m:longint…

今天这里讨论一下Delphi中的面向对象编程,这里不做过多过细的讨论,主要做提纲挈领的描述,帮助自己抓做重点. 本随笔分为两部分: 一.面向对象编程 二.面向对象编程详细描述 ------------------------------------------ 一.面向对象编程 下面是工程文件的: { 面向对象编程基础 1.class的定义/类的定义 2.构造函数 3.析构函数 4.封装 5.继承 } program oop; {$APPTYPE CONSOLE} uses SysUtils,…

发现Delphi中关于函数参数部分的内容还是比较多的,暂时说到这篇随笔为止吧,以后再继续讨论一下函数的参数部分的内容. 一 工程文件 program DefaultParameter; {$APPTYPE CONSOLE} uses SysUtils, Unit1 in 'unit1.pas'; var nVar:integer; strVar:string; i:integer; nVarArray:array of integer; begin { 1. 调用具有默认参数的方法 } //不提…

这里主要讨论Delphi中函数.方法的相关内容. 一.工程文件 { Delphi语法方法和函数 1.方法 2.函数 } program Routine; {$APPTYPE CONSOLE} uses SysUtils, Unit1 in 'Unit1.pas'; { 方法 1.在工程文件中定义方法不需要在接口声明 } procedure foo(); begin WriteLn('这是在工程文件中定义的方法'); end; var nVar1:integer; nVar2:integer; v…

这一节描述基本语法中的流程语句: 条件语句 IF语句. 选择语句 Case语句.循环语句  while/repeat/for.以及continue.break语句,还有终止程序 运行流程Exit.Halt方法. 废话不多说,直接贴代码. { Delphi语句 1.if语句 2.case语句 3.循环语句 4.用于循环的 continue 和 break 语句 5.程序终止或中止功能 Exit.Halt.Terminate方法 } program Statement; {$APPTYPE CONS…

继续Delphi的学习之旅, 废话不多说,直接贴代码. { Delphi基本语法 1.对象 2.指针 3.类型别名 和 类型转换 } program DelphiObject; {$APPTYPE CONSOLE} uses SysUtils; type { 对象 1.对象通过关键字 class定义 2.对象可以看成是带函数或者过程的记录 3.对象通过 . 号引用对象的成员 4.这里简单的介绍一下对象,后面专门论述对象 } TClass = class className:string; end…

这里简单的描述Object的语法中的基本内容,数据类型.因为代码是自描述的所以不废话,直接贴代码. { 用户自定义类型 1.数组 2.动态数组 3.记录 4.集合 } program UserDefine; {$APPTYPE CONSOLE} uses SysUtils; { 记录 1.记录相当于C语言中的结构体 2.记录类型通过 type 和 record 关键字来定义 3.记录类型要在使用前定义,通常放在 var 定义之前说 4.可以定义可变记录类型,可变记录类型就和C语言中的unio类型…

这次是一个基本语法的第一部分,包括变量.变量初始化.常量.运算符.字符串等内容. { 本程序演示 Delphi Pascal 的基本语法 1.变量及变量的初始化 2.常量 3.运算符 3. 4. } program Syntax; {$APPTYPE CONSOLE} uses SysUtils,Windows,StrUtils; { 变量 1.Delphi中变量必须在固定的地方进行定义 2.Delphi中通过关键字 var 来定义变量 3.语法格式为: var 变量名标识符列表 : 变量类型…

一.工程文件 program MultiUnit; {$APPTYPE CONSOLE} uses SysUtils, Unit1 in 'Unit1.pas'; begin //引用unit1中的变量,因为是在接口部分定义所以可以引用 strGreet:='Hello world'; //调用unit1中的过程 因为是在接口部分定义所以可以引用 Greeting(strGreet); //调用unit2中的函数;因为是在接口部分定义所以可以引用 nAdd:=; nAddfactor:=; wr…

对于Windows下的控制台编程,我相信很多人都不陌生.而C语言开始的著名的“Hello world”程序基本是学习编程的第一步.我想对于 RAD开发,大家熟悉的一般都是GUI编程,而对于console的编程基本很少用到.其实对于Delphi而言,不但可以开发GUI程序,而且也可以 开发console程序. 为什么要提到控制台程序呢,因为通过控制台程序你可以清晰的了解到一种编程语言运行的基本原理.Delphi也开发一样,我们不单单是 要知道点几下鼠标就能设置图形界面,但是程序运行的过程和基本原理…

Your Ride Is Here It is a well-known fact that behind every good comet is a UFO. These UFOs often come to collect loyal supporters from here on Earth. Unfortunately, they only have room to pick up one group of followers on each trip. They do, however…

codevs 1082 线段树练习 3  时间限制: 3 s  空间限制: 128000 KB  题目等级 : 大师 Master 题目描述 Description 给你N个数,有两种操作: 1:给区间[a,b]的所有数增加X 2:询问区间[a,b]的数的和. 输入描述 Input Description 第一行一个正整数n,接下来n行n个整数, 再接下来一个正整数Q,每行表示操作的个数, 如果第一个数是1,后接3个正整数, 表示在区间[a,b]内每个数增加X,如果是2, 表示操作2询问区间[a…

Description Input 输入的第1 行包含两个数N 和M(M ≤20 000),N 表示初始时数列中数的个数,M表示要进行的操作数目.第2行包含N个数字,描述初始时的数列.以下M行,每行一条命令,格式参见问题描述中的表格.任何时刻数列中最多含有500 000个数,数列中任何一个数字均在[-1 000, 1 000]内.插入的数字总数不超过4 000 000个,输入文件大小不超过20MBytes. Output 对于输入数据中的GET-SUM和MAX-SUM操作,向输出文件依次打印结果…

Description Input & Output & Sample Input & Sample Output HINT 题解: 题意即求不连续但间隔长度对称的回文串个数. 若si=sj,则这对字符可以作为以(i+j)/2为中心的回文串的一部分. 用F[i]来表示可以做为以i/2为中心的回文串的一部分的字符对数,则以i/2为中心的回文串数为2^F[i]. 则这就成了多项式乘法:先做一次a的,把字符为a的位置值赋为1,其余为0,进行一次FFT:同理做一次b的. 因为完全连续是不可…

Description 为了进一步分析外星生物,专家们决定对 DNA 进行切割.限制性核酸内切酶是基因工程中的重要的工具酶.它会识别一段碱基序列(说白了就是只包含 ATGC 的序列)并且切割开.EcoRI 是某种限制酶的名称,它识别有某种特性的 DNA序列,即 DNA序列双链反向排列相同的.(双链对应位碱基对要满足碱基互补配对原则)比如识别序列为 G A A T T C互补链序列为 C T T A A G第一条链从左读和第二条链从右读的是一样的.专家们想知道某一段 DNA的序列中,具有这种特性的…

Description 给定一棵结点数为n的树,初始点权均为0,有依次q个操作,每次操作有三个参数a,b,c,当a=1时,表示给b号结点到c号结点路径上的所有点(包括b,c,下同)权值都增加1,当a=2时,表示询问b号结点到c号结点路径上的所有点权值之和. Input 第一行,一个正整数n. 接下来n-1行,每行一对正整数x,y,表示x号结点和y号结点之间有一条边. 第n+1行,一个正整数q. 最后q行,每行一组正整数a,b,c,表示操作的三个参数.b和c可能相等. 保证数据都是合法的. Out…

Description Input Output 输出仅包含一个整数.表示最少需要多少次交换能使风铃满足Ike的条件.如果不可能满足,输出-1. Sample Input 6 2 3 -1 4 5 6 -1 -1 -1 -1 -1 -1 Sample Output 2 题解: 直接一次DFS即可. 若两棵子树中玩具深度差>1,输出-1. 若两颗子数内部玩具深度差都>0,输出-1. 若左子树中存在比右子树深度小的玩具,inc(ans). 我竟然WA了一发,可悲. 代码: uses math; v…

Description HH有一串由各种漂亮的贝壳组成的项链.HH相信不同的贝壳会带来好运,所以每次散步 完后,他都会随意取出一段贝壳,思考它们所表达的含义.HH不断地收集新的贝壳,因此, 他的项链变得越来越长.有一天,他突然提出了一个问题:某一段贝壳中,包含了多少种不同 的贝壳?这个问题很难回答...因为项链实在是太长了.于是,他只好求助睿智的你,来解 决这个问题. Input 第一行:一个整数N,表示项链的长度. 第二行:N个整数,表示依次表示项链中贝壳的编号(编号为0到1000000之间的…

Description 给定一个长度为n的数列ai,求ai的子序列bi的最长长度,满足bi&bi-1!=0(2<=i<=len). Input 输入文件共2行. 第一行包括一个整数n. 第二行包括n个整数,第i个整数表示ai. Output 输出文件共一行. 包括一个整数,表示子序列bi的最长长度. Sample Input 3 1 2 3 Sample Output 2 HINT n<=100000,ai<=2*10^9 题解: 当要求以ai结尾的最长b串时,ai可以接在…

Description Input 第一行为两个整数n, m.第二行有n个整数,为a1,a2, -, an. Output 包含n行,每行m个1~n×m的正整数,各不相同,以空格分开.如果有多解,输出任意一组解:如果无解,输出一个整数0. Sample Input & Sample Output   HINT 30%的数据满足n, m≤10 100%的数据满足3≤n, m≤200 题解: 把ai认为是i的父亲,使其连边,那么题目给出的关系构成了一个基环树森林. 对于在环外.指向环的边(即"…

2600: [Ioi2011]ricehub Time Limit: 10 Sec  Memory Limit: 128 MBSubmit: 691  Solved: 359[Submit][Status][Discuss] Description 乡间有一条笔直而长的路称为"米道".沿着这条米道上 R 块稻田,每块稻田的坐标均为一个 1 到 L 之间(含 1 和 L)的整数.这些稻田按照坐标以不减的顺序给出,即对于 0 ≤ i <R,稻田 i 的坐标 X[i]满足 1 ≤ X[…

  # Name     A Bachgold Problem standard input/output 1 s, 256 MB    x6036 B Parallelogram is Back standard input/output 1 s, 256 MB    x4139 C Voting standard input/output 1 s, 256 MB    x2671 D Leaving Auction standard input/output 2 s, 256 MB    x…

转载自:http://blog.csdn.net/jqandjq/article/details/5429137 看了这里标题,大家可能以为我会谈TListBox控件,那就错了.我要谈的是Delphi提供给我们的具有列表性质的类:TStringList.TList和TObjectList.TStringList用来存放字符串,TList存放指针,而TObjectList则存放对象(Object) 在我们使用Delphi的过程中,有很多数据的存储是要靠 数组解决的.虽然Delphi现在已经支持了可…

来自: daocaoren0824, 时间: -- ::, ID: 再给你一份 程序员实用函数 {▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎} {▎ ▎} {▎ 大家都是程序员 没有必要重复一些无聊的事情 我的这些函数能给大家带来方便 ▎} {▎ 如果觉得还一般 请关注 WWW.cdsunco.com/www.ccemove.com QQ:35013354 ▎} {▎ 系统公用函数及过程 ▎} {▎ ▎} {▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎…

Delphi 函数大全 - xiucaiyao的专栏 - 博客频道 - CSDN.NEThttp://blog.csdn.net/xiucaiyao/article/details/4544039 名称 类型 说明 abort 函数 引起放弃的意外处理 abs 函数 绝对值函数 addexitproc 函数 将一过程添加到运行时库的结束过程表中 addr 函数 返回指定对象的地址 adjustlinebreaks 函数 将给定字符串的行分隔符调整为cr/lf序列 align 属性 使控件位于窗口…

Description 一个吉他手准备参加一场演出.他不喜欢在演出时始终使用同一个音量,所以他决定每一首歌之前他都要改变一次音量.在演出开始之前,他已经做好了一个列表,里面写着在每首歌开始之前他想要改变的音量是多少.每一次改变音量,他可以选择调高也可以调低.音量用一个整数描述.输入文件中给定整数beginLevel,代表吉他刚开始的音量,以及整数maxLevel,代表吉他的最大音量.音量不能小于0也不能大于maxLevel.输入文件中还给定了n个整数c1,c2,c3-..cn,表示在第i首歌开始…

Description "在那山的那边海的那边有一群小肥猪.他们活泼又聪明,他们调皮又灵敏.他们自由自在生活在那绿色的大草坪,他们善良勇敢相互都关心--" --选自猪王国民歌 很久很久以前,在山的那边海的那边的某片风水宝地曾经存在过一个猪王国.猪王国地理位置偏僻,实施的是适应当时社会的自给自足的庄园经济,很少与外界联系,商贸活动就更少了.因此也很少有其他动物知道这样一个王国. 猪王国虽然不大,但是土地肥沃,屋舍俨然.如果一定要拿什么与之相比的话,那就只能是东晋陶渊明笔下的大家想象中的桃…

Description 轮状病毒有很多变种,所有轮状病毒的变种都是从一个轮状基产生的.一个N轮状基由圆环上N个不同的基原子 和圆心处一个核原子构成的,2个原子之间的边表示这2个原子之间的信息通道.如下图所示 N轮状病毒的产生规律是在一个N轮状基中删去若干条边,使得各原子之间有唯一的信息通道,例如共有16个不同的3轮状病毒,如下图所示 现给定n(N<=100),编程计算有多少个不同的n轮状病毒 Input 第一行有1个正整数n Output 计算出的不同的n轮状病毒数输出 Sample Input…

Description 著名的格雷码是指2n个不同n位二进制数(即0~2n-1,不足n位在前补零)的一个排列,这个排列满足相邻的两个二进制数的n位数字中最多只有一个数字不同(例如003和001就有一个数位不同,而003和030有两个数位不同,不符合条件).例如n=2时,(00,01,11,10)就是一个满足条件的格雷码. 所谓超级格雷码就是指Bn个不同的n位B进制数的排列满足上面的条件. 任务:给出n和B(2≤B≤36, 1≤Bn≤65535),求一个满足条件的格雷码.对于大于9的数位用A~Z表…