FREE-PASCAL入门-循环结构程序(DOC)
循环结构程序设计 第1节 For循环程序实例 【问题描述】 计算一副扑克牌的点数,其中牌A为1点,牌J、Q、K分别为11、12、13点,大、小王不算点。 【问题分析】 根据题意,要计算一副扑克牌的点数,可以先求出一种花色牌的点数和,再乘以4即可。进一步分析,求一种花色牌的点数和,即是求1~13的连续自然数之和。我们用S表示所求数的和,用T表示加数,这样可以让T从1变化到13,每次让T不断加入到S中,就可以求出S的值,最后乘以4即可。 【算法设计】 ◆自然语言 ①置初值,即S=0,T=1; ②使S=S+T ,所求出的和仍放入S中; ③使T增加1,即T=T+1; ④如果T小于等于13,转第二步,否则转第五步; ⑤输出计算结果。 ◆程序流程图和结构化流程(N-S)图
【程序设计】 [程序清单] program ex3_1; var s,t:integer; begin s:=0; {S置初值为0} for t:=1 to 13 do {For循环语句} s:=s+t; writeln(‘total:’,s*4); end. [运行示例] total:364 【知识拓展】 1.在程序处理过程中,经常需要对某一条或一组语句重复执行多次,以最终完成某项任务,这就是循环。对于重复次数已知,而不依赖循环中语句的结果,常用计数循环(f or / to /do 语句)。 2.for循环语句格式: 格式一:for 控制变量:= 初值to 终值do 循环体语句; 格式二:for 控制变量:= 初值downto 终值do 循环体语句; 其中for、to、downto、do为保留字,do后面的语句称为循环体。其中循环控制变量可以是整型、字符或布尔型,但不能为实型。一般地,可以是顺序类型数据。 初值、终值表达式通常要与控制变量的类型相同。
FreePascal3.2
第二节repeat 循环 Repeat循环是直到型循环。 试将上一节的例3.1(打印出1~20的平方数表)程序改为repeat 循环: Program Exam31_1; Var a: byte; Begin a:=1;writeln ( ' a ' : 8 , ' a*a ' : 8 ) ; repeat writeln ( a :8,a*a : 8); inc(a);{改变a的值} Until a>20; Readln Emd. 程序中的Repeat循环格式为: repeat 循环体语句; until 条件表达式;{直到条件为真} Repeat循环首先执行由Repeat和Until括起来的循环体语句,然后检查Until后面的条件表达式:如果表达式结果为假,则继续执行循环体,接着继续检查Until后面的条件表达式,如此反复执行直到这个表达式结果为真时结束循环。Repeat循环体语句必须有能改变Until后面条件表达式值的语句,并最终使这个条件表达式的值为真,使循环自动结束。 程序中inc (a) 指令相当于a : =a+1,常用的同类指令格式如下: (1) inc(x) 等同x:=x+1; (2) inc(x, n) 等同x:=x+n; (3) dec(x) 等同x:=x—1; (4) dec(x,n) 等同x:=x—n; [例3.10]求两个自然数M和N的最大公约数。 解:若自然数a既是M和约数,又是N的约数,则称a为M和N的公约数,其中最大的称为最大公约数。为了求得最大公约数,可以从最大可能的数(如M或N)向下寻找,找到的第一个公约数即是最大公约数。 Pascal程序: Program ex310; Begin a := N+1; Repeat a := a-1; Until (M mod a=0) and (N mod a=0); writeln(a); Readln; End.
宁波市第22届中小学生计算机程序设计竞赛
宁波市第22届中小学生计算机程序设计竞赛 预赛试题(小学组) (考试时间120分钟,满分100分) ●●所有提交的答案都以写在答卷纸上的为准,写在试卷上的一律无效●● 学校姓名 一、选择题:请选出各题正确答案的代码(A/B/C/D)(每题2分,共40分) 1、在微型计算机的汉字系统中,一个汉字内码所占的字节数是()。 (A)1 (B)2 (C)3 (D)4 2、软盘加上写保护后,这时对它可进行的操作是()。 (A)只能读盘,不能写盘(B)既可读盘,又可写盘 (C)只能写盘,不能读盘(D)不能读盘,也不能写盘 3、下列存储设备中,断电后其中的信息会消失的是()。 (A)硬盘(B)ROM (C)RAM (D)U盘 4、pascal语言中运算(-13)MOD (-2)的结果是()。 (A)1 (B)-1 (C)0 (D)-2 5、数组A有10个下标变量,各个下标变量的赋值情形如下所示,则表达式A[A[A[5]]]的值是()。 (A)10 (B)5 (C)6 (D)2 6、1GB= ()KB 。 (A)1000 (B)1024 (C)1024×1024 (D)1000×1000 7、下面有关计算机病毒的说法,错误的是()。 (A)为防止病毒感染计算机,使用软盘时,将软盘写保护 (B)计算机的病毒不仅能损坏文件,还可能造成电脑主板等硬件的损坏 (C)上网的电脑有可能会感染病毒 (D)计算机病毒也是程序 8、下列存储器中,存取速度最快的是()。 (A)软盘(B)内存(C)光盘(D)硬盘 9、在Windows 中,能通过输入“?a*.?”命令查找到的文件是()。 (A)pascal.c (B)ppa.1 (C)https://www.doczj.com/doc/ec17238054.html, (D)https://www.doczj.com/doc/ec17238054.html,
初中信息学奥赛校本教材开发的实践与研究-最新教育资料
初中信息学奥赛校本教材开发的实践与研究 目前,有关信息学方面的教材比较多,如,南京大学出版社出版的《全国青少年信息学奥林匹克联赛》《信息学(计算机)奥林匹克》,电子工业出版社出版的《PASCAL语言程序设计》,科学技术文献出版社出版的《Free Pascal语言与基础算法》等,每本教材都有各自的局限性,有些并不符合我校学生的实际情况。 我校从2003年开始开展信息学奥赛校本课程,培训资料大部分来源于大学计算机专业教材,随着网络资料的不断丰富和信息学方面的教材出版增多,培训资料搜集的来源越来越丰富。 在这十几年信息学竞赛的教学过程中,笔者深知初中学生的特点和教学规律,这使得最终开发的校本教材能够适合初中信息学奥赛校本课程。现将自己在校本教材开发实践中得到的感受和思考,简述如下,希望得到同行和专家的指正。 一、适合初中生 由于初一学生在小学的时候一般都没有接触过计算机程序,程序对他们来说既神秘又陌生。这个阶段的学生好奇心强、动手解决问题的欲望强烈,但是还不能比较理智地处理问题,排除各种对学习的干扰。因此,他们往往不能保持学习精力的高度集中和自觉。 程序入门例题:
1.已知一辆自行车的售价是300元,请编程计算a辆自行车的总价是多少? 2.“鸡兔同笼”问题,已知笼中的头共30个,脚共90只,问鸡和兔各有多少只? 3.“兔子繁殖”问题,已知一对兔子,每个月可以生一对小兔,而小兔过一个月也可生一对小兔。即兔子的对数是:第一个月1对,第二个月2对,第三个月3对,第四个月5对……假设兔子的生育期是12个月,并且不死,问一年后,这对兔子有多少对活着的后代? 二、培养学生自学能力为目的 参加信息学奥赛的学生都是经过选拔出来学校中最优秀的 学生,这批学生各方面能力都很强,他们需要有自由发挥的空间,在教学过程中提倡学生的自主探究,而教师对学生的学习中起到引导作用。因此,开发的校本教材本身要适合教学。 1.教材中问题的设计首先与现实生活、新兴的科技成果等问题密切联系,让学生知道学习的实际用途,如果一个学生连自己为什么要学习都弄不清楚,那么他的学习行为肯定是被动的。 2.问题的解决,必须要有思考的过程,所以每个题目都加入了对问题不同程度的解析,再通过分析得出程序,给学生参考,让学生知道为什么这么写程序。 3.学生懂得了具体的解题思路,但是对于具体程序可能还是有难度的,所以对于一个程序中关键的代码要给予注释,加深学
Free pascal标准数据类型
Free pascal标准数据类型、内置函数等必备知识 一、实型整型 实型:数值范围:占字节数:有效位数 real:2.9e-39..1.7e38: 6 :11..12 single:1.5e-45..3.4e38: 4 :7..8 double:5.0e-324..1.7e308: 8 :15..16 extended:3.4e-4951..1.1e49 32 :10:19..20 comp:-2**63+1..2**63-1: 8 :19..20 整型:数值范围:占字节数:格式 shortint:-128..127:1:带符号8位 integer:-32768..32767:2:带符号16位 longint:-2147483648..2147483647:4:带符号32位 byte:0..255:1:无符号8位 word:0..65535:2:无符号16位 longword:0..4294967295:4 Cardinal:either word, longword or qword:size 2/4/8 Int64:-9223372036854775808..9223372036854775807:8 QWord:0..18446744073709551615:8 二、常用的pascal内置函数和过程
标准常量False,Maxint,True,Maxlongint,Pi 标准类型Boolean,Char,Real,Integer,Longint,等等 标准函数Abs,Arctan,Chr,Cos,Eof,Eoln,Exp,Ln,Odd,Ord,Pred,Round,Sin,Sqr ,Sqrt,Succ,Trunc 标准过程Dispose,Get,New,Pack,Page,Put,Read,Readln,Reset,Rewrite,Unp ack,Write,Writeln 标准文件Input,Output (1)自变量必须为整型的标准函数: (A)前趋函数:Pred(x),函数结果类型为整型,如:Pred(4)=3 (B)后继函数:Succ(x),函数结果类型为整型,如:Succ(4)=5 (C)奇函数:odd(x),结果为布尔型。如:Odd(13)=True (D)字符函数:Chr(x)其中x为ASCII码,函数结果为字符型。如:Chr(65)='A' (2)自变量为整型(或实型),但函数值类型为实型的标准函数; (A)平方根函数:Sqrt(x) (B)整数函数:Int(x) 取整数部分,如:INT(3.85)= 3.0 (C)小数函数:Frac(x) (D)正弦函数:Sin(x)
free pascal 多线程
要创建一个新的进程,要使用BeginThread函数.它有一个强制的参数: 这个函数将执行新的线程.返回的结果是线程退出的结果. 这个现成能够被一个用来访问初始化数据的指针所传递, 程序员必须确定线程可访问的数据在访问之前没有超出范围. 函数定义: THandle=Word; TThreadFunc = function(parameter : pointer) : longint; function BeginThread(ThreadFunction: tthreadfunc) : DWord; function BeginThread(ThreadFunction: tthreadfunc; p: pointer): DWord; function BeginThread(ThreadFunction:tthreadfunc;p: pointer;var ThreadId:THandle) :DWord; 如果给了,指针p将被传递给线程当线程开始时(否则,将传递Nil). 如果给了ThreadID, 那么这个线程的ID将被存储起来. 重新开始的线程直到线程函数退出或者被EndThread结束: procedure EndThread(ExitCode : DWord); procedure EndThread; exitcode能和线程开始的代码进行检查. 下面的小例子将告诉你怎么使用: {$Mode ObjFPc} {$Threading On} Uses sysutils {$ifdef unix},cthreads{$endif} ; Const threadcount = 100; stringlen = 10000; Var Finished:Longint; Threadvar thri:Longint; Function f(p : pointer):Longint; Var s:Ansistring; Begin Writeln('thread ',longint(p),' started');
FREE PASCAL 教程
Free Pascal教程 目录 第一章简单程序 (2) 第一节Pascal程序结构和基本语句 (2) 第二节顺序结构程序与基本数据类型 (6) 第二章分支程序 (9) 第一节条件语句与复合语句 (9) 第二节情况语句与算术标准函数 (10) 第三章循环程序 (14) 第一节for循环 (14) 第二节repeat循环 (20) 第三节While循环 (24) 第四章函数与过程 (29) 第一节函数 (29) 第二节自定义过程 (31) 第五章Pascal的自定义数据类型 (36) 第一节数组与子界类型 (36) 第二节二维数组与枚举类型 (43) 第三节集合类型 (51) 第四节记录类型和文件类型 (55) 第五节指针类型与动态数据结构 (61) 第六章程序设计与基本算法 (66) 第一节递推与递归算法 (66) 第二节回溯算法 (72) 第七章数据结构及其应用 (78) 第一节线性表 (78) 第二节队列 (81) 第三节栈 (84) 第四节数组 (88) 第八章搜索 (91) 第一节深度优先搜索 (91) 第二节广度优先搜索 (101) 第九章其他常用知识和算法 (105) 第一节图论及其基本算法 (105) 第二节动态规划 (112)
第一章简单程序 无论做任何事情,都要有一定的方式方法与处理步骤。计算机程序设计比日常生活中的事务处理更具有严谨性、规范性、可行性。为了使计算机有效地解决某些问题,须将处理步骤编排好,用计算机语言组成“序列”,让计算机自动识别并执行这个用计算机语言组成的“序列”,完成预定的任务。将处理问题的步骤编排好,用计算机语言组成序列,也就是常说的编写程序。在Pascal语言中,执行每条语句都是由计算机完成相应的操作。编写Pascal程序,是利用Pascal语句的功能来实现和达到预定的处理要求。“千里之行,始于足下”,我们从简单程序学起,逐步了解和掌握怎样编写程序。 第一节Pascal程序结构和基本语句 在未系统学习Pascal语言之前,暂且绕过那些繁琐的语法规则细节,通过下面的简单例题,可以速成掌握Pascal程序的基本组成和基本语句的用法,让初学者直接模仿学习编简单程序。 [例1.1]编程在屏幕上显示“Hello World!”。 Pascal程序: Program ex11; Begin Writeln(‘Hello World!’); ReadLn; End. 这个简单样例程序,希望大家的程序设计学习能有一个良好的开端。程序中的Writeln是一个输出语句,它能命令计算机在屏幕上输出相应的内容,而紧跟Writeln语句后是一对圆括号,其中用单引号引起的部分将被原原本本地显示出来。 [例1.2]已知一辆自行车的售价是300元,请编程计算a辆自行车的总价是多少? 解:若总售价用m来表示,则这个问题可分为以下几步处理: ①从键盘输入自行车的数目a; ②用公式m=300*a计算总售价; ③输出计算结果。 Pascal程序: Program Ex12;{程序首部} Var a,m:integer;{说明部分} Begin{语句部分} Write(‘a=’); ReadLn(a);{输入自行车数目} M:=300*a;{计算总售价} Writeln(‘M=’,m);{输出总售价} ReadLn;{等待输入回车键} End.
Free Pascal 简要语法书
Free Pascal 简要语法书 一、基本结构 一个FP程序一般可以分为程序首部(Program语句)、程序说明(常量、变量、自定义函数过程)和程序主体(Begin到End.)三部分。语句间用分号“;”分隔,一般一行写一条语句,程序最后用End.(句点)结束。基本框架如下: Program 程序名(参数); Label 标号说明; Const 常量说明; Type 类型说明; Var 变量说明; Function 函数说明; Procedure 过程说明; Begin 程序主体;
二、程序说明部分 1.常量定义(const) 常量名=常量数据; 2.类型说明(type) 类型名=类型 类型说明; 3.变量定义 变量名(多个变量名用逗号分开):变量类型; 变量类型
i.整数类型 ii.实数类型 iii.布尔类型 Type Range Boolean 1 true、false iv.字符类型 Type Range char 1 String 默认最大255个字符 4.自定义函数 function 函数名(形式参数表):返回类型; 函数的说明部分 begin 函数主体; …… 函数名:=返回值; end; function max(x,y:integer):integer; var m:integer; begin if x>y then m:=x else m:=y; max:=m; end; 当函数被赋值后,可以用exit 直接退出函数,回到主程序。 5.自定义过程 procedure 过程名(形式参数表); 过程说明部分;
begin 过程主体; …… end; 可以用过程exit 直接退出过程,回到主程序。 例题: Program ex1; Var a:_______; b:________; c:_________; Begin a:=10; b:=2; c:=a/b; writeln(c); end. 三、表达式的书写:在程序中的表达式书写方式与数学书写方式有一些区别: 1.数学运算符号:+ - * / div mod div 表示整除运算例13 div 4=3 mod 表示取余运算例13 mod 4=1(mod div 为运算符号前后必须留空白) 2.关系运算符号:> < <= => <> 关系运算的结果为真假值例5>7=false <>表示不等于例8<>9=____________ 3. 逻辑运算符号:not and or not 将关系表达式的结果取反not(5>7)=____________ and 连接两个关系表达式,当这两个关系表达式的结果为真,整个表达式结果才为真 or 连接连接两个关系表达式,当这两个关系表达式有一个的结果为真,整个表达式结果就为真 》》练习: 表示x在[5,10]之间 a,b,c代表三边,表示a,b,c构成了等腰三角形,等边三角形
free pascal 函数大全
一、数学函数: inc(i) 使i:=i+1; inc(i,b) 使i:=i+b; dec(i) 使i:=i-1; dec(i,b) 使i:=i-b; abs(x) 求x的绝对值例:abs(-3)=3 chr(x) 求编号x对应的字符。例:chr(65)='a' chr(97)='a' chr(48)='0' ord(x) 求字符x对应的编号。例:ord(‘a')=65 ord(‘a')=97 另外:ord(false)=0 ord(true)=1 sqr(x) 求x的平方。例:sqr(4)=16 sqrt(x) 求x的正根. 例:sqrt(16)=4 (ps:负数是不能进行运算的,如果需要就要先取绝对值:sqrt(-4)是错的,应该为sqrt(abs(-4)) round(x) 求x的四舍五入例:round(4.5)=5 trunc(x) 求x的整数部分例:trunc(5.6)=5 结果是integer型 int(x) 求x的整数部分例int(5.6)=5.0 结果是real型 frac (x) 求x的小数部分例 frac(5.6)=0.6 pred(x) 求x的前导 pred(‘b')='a' pred(5)=4 pred(true)=false succ(x) 求x的后继 succ(‘b')='c' succ(5)=6 succ(false)=true odd(x) 判断x是否为奇数。如果是值为true,反之值为false. odd(2)=false odd(5)=true power(a,n) 求a的n次方 power(2,3)=8 {只有在开启math库时才可以使用} random 取0~1之间的随机数(不能取到1) randomize 随机数的种子函数,在每次设置随机数时都要把这个函数放在最前面. fillchar(a,size(a),0) 数组初始化,即把数组a的值全部置为0 ;赋成布尔型变量也可以,但注意,赋成1或其他数字,计算机并不会把数组赋成你想要的值,却是其他的数字 shr: x shr n 把x换成二进制后向右移n位,相当于把x 除以 2^n shl: x shl n 把x换成二进制后向左移n位,相当于把x 乘以 2^n pascal标准函数 2009-10-31 21:14 pascal标准函数 一、变量改变: 1、inc(i) 使用后I:=I+1; Inc(I,b)使用后I:=I+b; 2、Dec(i) ;使用后I:=I-1;dec(I,b)使用后I:=I-b; 3、求x的绝对值 Abs(x) 例:abs(-3)=3 二、数学计算方面: 1、求x的平方 Sqr(x) 例:sqr(4)=16 2、求x的开方 Sqrt(x) 例:sqrt(16)=4 3、求x的四舍五入round(x) 例:round(4.5)=5 4、求x的整数部分trunc(x) 例:trunc(5.6)=5 结果是integer型 5、求x的整数部分int(x)例int(5.6)=5.0 结果是real型 6、求x的小数部分frac (x) 例 frac(5.6)=0.6
freePascal教程
第四单元 PASCAL 语言程序设计 在上一册教材中,我们已经初步了解了P ASCAL 语言的三种基本结构、程序设计的基本思想和方法。本单元是在上册内容的基础上进一步深入学习P ASCAL 语言的数组、子程序、字符串处理等基础知识。随着学习的深入,程序设计的题目类型越来越广泛,难度也越来越大,程序设计者不能“完全”把求解的任务推给计算机,而应对题目作较充分的分析,用较优的算法去求解,因此在计算机上编程解题是一项极好的实践活动,它可以训练观察能力、逻辑思维能力、形式化描述问题能力、规划能力、动手动脑分析问题和解决问题的能力。 第一课 循环结构的程序设计 在程序设计中,经常处理一些需要重复执行某些操作的问题,这就需要循环结构程序设计,循环结构是程序设计的三种基本结构之一,循环结构是指当某个条件满足时反复执行某些语句,否则不执行。利用循环结构,使得我们能用少而精的程序编码,来完成大量的重复计算。 在Pascal 语言中,实现循环程序设计的主要语句有For 语句(计数循环)、While 语句(当型循环)、Repeat 语句(直到型循环)。上册教材已经介绍了For 语句,本节课介绍While 语句、Repeat 语句及多重循环结构。 一、 W hile 语句结构 For 循环语句适用于已知次数的循环结构,而在实际的问题中,有时我们并不能确切知道循环要执行多少次,我们判断是否结束循环的依据是某个条件是否满足,比如“当……时就做……”,或者是“一直做到……时为止”,这种循环我们称之为条件循环。在Pascal 中条件循环语句有两种,分别是While 循环语句和Repeat 循环语句。下面分别介绍这两种语句的使用方法。 While 语句用于“当满足某一条件时进行循环”的情况,因此它也被称为“当型循环”。While 语句的语法格式如下: While <布尔表达式> do <循环体语句>; While 循环语句的执行流程如图1-1-1所示。 图1-1-1 While 循环语句执行流程 布尔表达式 True False 循环体
FP的技巧与数据类型
FP的技巧与数据类型 [日期:2005-11-05]来源:作者:myheimu[字体:大中小] FreePascal中的基本数据类型 预定义整型 类型范围长度(字节) Byte0..2551 Shortint-128..1271 Smallint-32768..327672 Word0..655352 Integer either smallint,longint or int64size2,4or8 Cardinal either word,longword or qword size2,4or8 Longint-2147483648..21474836474 Longword0..42949672954 Int64-9223372036854775808..92233720368547758078 QWord0..184467440737095516158 支持的实型 类型范围有效宽度长度(字节) Real platform dependant???4or8 Single 1.5E-45..3.4E387-84 Double 5.0E-324..1.7E30815-168 Extended1.9E-4951..1.1E493219-2010 Comp-2E64+1..2E63-119-208 MAXINT和MAXLONGINT分别代表最大的INTEGER和LONGINT,则最小的就分别为MAXINT-1和MAXLONGINT-1 Free Pascal和Turbo Pascal的主要区别 虽然Free Pascal尽量设计得和Turbo Pascal接近,但是由于以下的两个原因,两者之间还是有一些区别的: 1.Free Pascal是一个32位的编译器,而Turbo Pascal只是16位编译器;2.Free Pascal是一个跨平台的编译器,而Turbo Pascal只在windows上使用。
free pascal练习
寒假练习 -------鑫 若题目中未做特殊声明输给数据为非负整数且数据量小于10000 1.输入一串字符,以”?“结束,统计其中每个字母出现的次数。(所给数据为字符型) 2.读入n输出1+1/2+1/3+1/4…+1/n的值。 3.输入n个学生的某门课程的成绩,打印出高于平均分的同学号数与成绩;打印出成绩最好的同学与成绩。(若平均数无法整除取整) 4.20级台阶,每步走一阶或两阶,求共有多少种走法。 5.假定小鸡每只5角,公鸡每只2元,母鸡每只3元。现在100元要求买100只鸡,编程列出所有可能的购鸡方案。 6.求两个数的公约数,公倍数。(辗转相除法) 7.读入n个数,统计其中是质数的个数。 8.求恰好使s=1+1/2+1/3+…+1/n的值大于10时n的值。 9.打印九九乘法口诀表。 10.编程求斐波那契数列的前n项。 11.编程给小学生出10道1位数加数的题目,每做对一题加10分,最后显示统计小学生所得分数. 12.从键盘入星期的数字,输出对应的英语单词。0表示星期天。 13.输出某年的每个月的天数。 14.输入一个三角形的三边,判断它是否是直角三角形 15.已知二元一次方程的a,b,c求一个一元二次方程的两个根(包括
曾根)。 16.输入三个数判断能否构成三角形。 17.输入三角形三边(三边可以构成三角形),求其面积。(海伦公式) 18.随机产生的100个40到100以内整数,统计每个数出现的次数. 19.读入n个数,将他们排序后,正序输出。 20.题目描述 陶陶家的院子里有一棵苹果树,每到秋天树上就会结出10个苹果。苹果成熟的时候,陶陶就会跑去摘苹果。陶陶有个30厘米高的板凳,当她不能直接用手摘到苹果的时候,就会踩到板凳上再试试。 现在已知10个苹果到地面的高度,以及陶陶把手伸直的时候能够达到的最大高度,请帮陶陶算一下她能够摘到的苹果的数目。假设她碰到苹果,苹果就会掉下来。 输入格式 输入包括两行数据。第一行包含10个100到200之间(包括100和200)的整数(以厘米为单位)分别表示10个苹果到地面的高度,两个相邻的整数之间用一个空格隔开。第二行只包括一个100到120之间(包含100和120)的整数(以厘米为单位),表示陶陶把手伸直的时候能够达到的最大高度。 输出格式 输出包括一行,这一行只包含一个整数,表示陶陶能够摘到的苹果的数目。