PASCAL语言介绍(1)_图文_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
PASCAL语言介绍(1)
上传于||文档简介
&&P​A​S​C​A​L​语​言​介​绍
大小：947.50KB
登录百度文库，专享文档复制特权，财富值每天免费拿！
你可能喜欢PASCAL函数表
&PASCAL函数表
&&&1、数学函数& &求绝对值函数abs(x)& 定义：function Abs(X): (Same type as parameter);& 说明：X可以是整型，也可以是实型；返回值和X的类型一致例子：& var& r: R& i: I& begin& r := Abs(-2.3); { 2.3 }& i := Abs(-157); { 157 }& end.&
取整函数int(x)& 定义：function Int(X: Real): R 注意：X是实型数，返回值也是实型的；返回的是X的整数部分，也就是说，X被截尾了（而不是四舍五入）例子：& var R: R& begin& R := Int(123.567); { 123.0 }& R := Int(-123.456); { -123.0 }& end.&
截尾函数trunc(x)& 定义：function Trunc(X: Real): L 注意：X是实型表达式. Trunc 返回Longint型的X的整数部分例子：& begin& Writeln(1.4, ' becomes ', Trunc(1.4)); { 1 }& Writeln(1.5, ' becomes ', Trunc(1.5)); { 1 }& Writeln(-1.4, 'becomes ', Trunc(-1.4)); { -1 }& Writeln(-1.5, 'becomes ', Trunc(-1.5)); { -1 }& end.&
四舍五入函数round(x)& 定义：function Round(X: Real): L 注意：X是实型表达式. Round 返回Longint型的X的四舍五入值.如果返回值超出了Longint的表示范围，则出错. 例子：& begin& Writeln(1.4, ' rounds to ', Round(1.4)); { 1 }& Writeln(1.5, ' rounds to ', Round(1.5)); { 2 }& Writeln(-1.4, 'rounds to ', Round(-1.4));{ -1 }& Writeln(-1.5, 'rounds to ', Round(-1.5));{ -2 }& end.&
取小数函数frac(x)& 定义：function Frac(X: Real): R 注意：X 是实型表达式. 结果返回 X 的小数部分; 也就是说，Frac(X) = X - Int(_X). 例子：& var& R: R& begin& R := Frac(123.456); { 0.456 }& R := Frac(-123.456); { -0.456 }& end.&
求平方根函数sqrt(x)和平方函数sqr(x)& 定义：& 平方根：function Sqrt(X: Real): R& 注意：X 是实型表达式. 返回实型的X的平方根. 平方：function Sqr(X): (Same type as parameter);& 注意：X 是实型或整型表达式.返回值的类型和X的类型一致，大小是X的平方，即X*X.& 例子：& begin& Writeln('5 squared is ', Sqr(5)); { 25 }& Writeln('The square root of 2 is ',Sqrt(2.0)); { 1.414 }&&&&2、其他常用函数& &function binstr(value:cnt:byte):& 将value转二进制，取后cnt个字符所成字串& function lowercase(c:char or string):& upcase 的反函数& procedure setlength(var s:len:longint);& 将s长度定为len& function power(base,expon:real):& base的expon次方& strlcopy 函数 将一个字符串中的字符复制到另一个字符串中& strlen 函数 返回字符串中的字符数& strlfmt 函数 格式化一系列的参数，其结果中包含有指向目标缓冲区的指针& strlicomp 函数 以最大长度比较两个字符串（不区分大小写）& strlower 函数 将字符串中的字符转换为小写& strmove 函数 将一个字符串中的字符复制到另一个字符串中& strnew 函数 在堆栈上分配一个字符串& strpas 函数 将以null结束的字符串转换为pascal类的字符串& strpcopy 函数 将pascal类的字符串复制为以null结束的字符串& strplcopy 函数 从pascal类的最大长度字符串复制为以null结束的字符串& strpos 函数 返回一个字符串在另一个字符串中首次出现指针& strrscan 函数 返回字符串中最后出现字符的指针& strscan 函数 返回字符串中出现首字符的指针& strtodate 函数 将字符串转换为日期格式& strtodatetime 函数 将字符串转换为日期/时间格式& strtofloat 函数 将给定的字符串转换为浮点数& strtoint 函数 将字符串转换为整型& strtointdef 函数 将字符串转换为整型或默认值& strtotime 函数 将字符串转换为时间格式& strupper 函数 将字符串中的字符转换为大写& style 属性 类型选择& suce 函数 返回后继的参数& swap 函数 交换参数的高低地址位& tabs 属性 标记每一项的内容& tabindex 属性 标记索引& text 属性 显示的文本& texttofloat 函数 将字符串（以null结束的格式）转换为浮点数& time 函数 返回当前的时间& timetostr 函数 将时间格式转换为字符串& trim 函数 从给定的字符串中删除前导和尾部的空格及控制字符& trimleft 函数 从给定的字符串中删除首部的空格及控制字符& trimright 函数 从给定的字符串中删除尾部的空格及控制字符& trunc 函数 将实型值截取为整型值& truncate 函数 截去当前文件位置后的内容& unselectedcolor 属性 未选中颜色& upcase 将字符转换为大写& uppercase 将给定的字符串变为大写& val 函数 将字符串转换为整型值& vararraycreate 函数 以给定的界限和维数建立变体数组& vararraydimcount 函数 返回给定变体的维数& vararrayhighbound 函数 返回给定变体数组维数的上界& vararraylock 函数 锁定给定的变体数组& vararraylowbound 函数 返回给定变体数组维数的下界& vararrayof 函数 返回指定变体的数组元素& vararrayredim 函数 通过改变上限来调整变体的大小& vararrayunlock 函数 解锁指定的变体数组& varastype 函数 将变体转换为指定的类型& varcase 函数 将变体转换为指定的类型并保存他& varclear 函数 清除指定的变体& varcopy 函数 将指定的变体复制为指定的变体& varformdatetime 函数 返回包含日期时间的变体& varisarray 函数 测试变体是否为数组& varisempty 函数 测试变体是否为unassigned varisnull 函数 测试变体是否为null& vartodatetime 函数 将给定的变体转换为日期时间& vartype 函数 将变体转换为指定的类型并保存他& visible 属性 控件的可见性& wantreturns 属性 为true时，按回车键产生一个回车符；为false时，按下ctrl+enter才产生回车符 write 命令 对有格式的文件，写一变量到文件组件中；对文本文件，写一个或多个值到文件&&&&3、其他不常用函数& &Addr& 语法 function Addr(var f:text);& 说明 addr返回一个变量，类型或过程的地址。结果为指针类型& assigncer& 语法 procedure assigncrt(var f:name:string);& 说明 将文件f的内容输于显示器上& bolckread& 语法 procedure blockread(var f: var b: numrecs:varecsread:integer);& 说明 从无类型文件f中读出number 个记录，放在缓冲区b .recsread表示了实际读出的记& 录数。注意：只有pc\ms-dos版才支持recsread& bolckwrite& 语法 procedure blockwrite(var f: var b: numrecs:integer);& 说明 从缓冲区b读出numrecs个记录至无类型文件中。& chdir& 表示的目录.语法 procedure chdir (s:string);& 说明 将当前的目录换为s所& filesize& 语法 function(f:file):& 说明 返回f当前所含的记录数。& filepos& 语法 function(f:file):& 说明 返回文件f指针所指向的记录号& fillpoly(dos)& 语法 frocedure fillpoly(munpoints:var polypoints);& 说明 用munpoints个点画一个多边形，数组munpoints含多边形的顶点坐标& flush& 说明 procedure flush(var f:file)& 语法 刷新用于输出文件f的全部磁盘缓冲区& frac& 语法 function frac(r:real):& 说明 返回实数r的小数部分& fsearch (dos)& 语法 function fsearch(path:dirlist:string):pathstr& 说明 查找dirlist目录中的与path相匹配的文件。如果找到则以一个字符串返回结果，否则返回的函数 值为一空串& insline& 语法& 说明 在当前光标的所在位置插入一空行& mark& 语法 procedure mark(p:pionter)& 说明 贮存了当前堆顶端知底于指针p中& maxavaih& 语法 function maxavil:longint& 说明 返回堆中最大的自由块的尺寸& menavail& 语法 function memavail:longint& 说明 返回堆中自由空间的总长度& mkdir& 语法 procedure mkdir(s:string)& 说明 以字符串s命名建立一个目录（文件夹）& parammstr& 语法 function paramstr(i;word:string);& 说明 返回命令行所指定的参数。例如 paramstr(1)返回第一个参数。在dos3.0以上的版本 返回执行文 件的路径和文件名& randomize& 语法& 说明 初始化随机产生程序。其基数存放在长整型randseed中& release& 语法 procedure falease(pointer)& 说明 释放由mark命令所设置的内存。用mark于贮存指针的堆地址& rename& 语法 procedure rename(var f:s:string)& 说明 将文件f的文件名变为字符串s& rmdir& 语法 procedure rmdir(s:string)& 说明 删除目录s(文件夹)& sound （crt单元）& sound(i:integer)& 利用内部扬声器发音& seekeof& 语法 function seekeof(var file)：boolean& 说明 与eof相似，只是在测试文件结束前要跳过空格，制表符号和文件的结束符（cr/cf）& truncate& 语法 procedure trunvate& 说明 在当前文件f指针处强行结束文件，文件指针后的内容丢失&&&
copyright& Lushan International Experimental School All right reserved麓山国际实验学校　现代教育技术中心制作湘ICP备0500897号　版权所有pascal字符串问题1、输入一行英文句子，句子中只有英文单词和空格；每个单词之间由若干个空格隔开，英文单词由大小写字母组成。统计此句子中的单词个数，假定重复出现的单词只计一次_百度作业帮
pascal字符串问题1、输入一行英文句子，句子中只有英文单词和空格；每个单词之间由若干个空格隔开，英文单词由大小写字母组成。统计此句子中的单词个数，假定重复出现的单词只计一次，且认为大小写字母是相同的，如‘The’和‘the’是同一个单词。2、做一个简单的加减法计算器，完成30000以内的加减法，两个数之间用“+”或“-”连接，没有括号，可以连加或连减。3、字符串连续统计要求对一个字符串进行连续统计。比如字符串一，对其统计结果为1321111，即第一个数值和第二个数值不连续就为1；第二个数值到第四个数值是三连，即为3；第五个数值到第六个数值为二连，即为2；后面四个数值都没有连续即都为1。321这一类属不连。4、最短字符串截取任意两个字符间最短的字符串，例如：有字符串“”，截取1和3之间的字符，返回 2 ，截取6和2间的字符，返回 34 ，字符相邻时返回“No char”, 截取的两个字符无顺序，如截取2和6与截取6和2是相同的作用。5、对输入的一行英文句子实现查找和置换功能。数据第一行为原句，第二行为要查找的内容，第三行为替换后的目标内容。 6、有一种字符串压缩方式简单易行。那就是,如果有连续很多个相同的字符,就把他们写作:字符+出现次数的形式。 例如:aaagbbbbaac压缩成a3gb4a2c
现在你也来试试。
注意:字符单个出现的不作改变,只有连续出现多次才有改变。7、　每一本正式出版的图书都有一个ISBN号码与之对应，ISBN码包括9位数字、1位识别码和3位分隔符，其规定格式如“x-xxx-xxxxx-x”，其中符号“-”是分隔符（键盘上的减号），最后一位是识别码，例如0-670-82162-4就是一个标准的ISBN码。ISBN码的首位数字表示书籍的出版语言，例如0代表英语；第一个分隔符“-”之后的三位数字代表出版社，例如670代表维京出版社；第二个分隔之后的五位数字代表该书在出版社的编号；最后一位为识别码。　　识别码的计算方法如下：　　首位数字乘以1加上次位数字乘以2……以此类推，用所得的结果mod 11，所得的余数即为识别码，如果余数为10，则识别码为大写字母X。例如ISBN号码0-670-82162-4中的识别码4是这样得到的：对这9个数字，从左至右，分别乘以1，2，…，9，再求和，即0×1+6×2+……+2×9=158，然后取158 mod 11的结果4作为识别码。你的任务是编写程序判断输入的ISBN号码中识别码是否正确，如果正确，则仅输出“Right”；如果错误，则输出你认为是正确的ISBN号码8、在电影里我们常常可以看到这样的镜头，通过在犯罪分子身上安装的信号发射装置，警方可以持续不断的知道犯罪分子的位置。现在请你根据下面这个地图来追踪罪犯（地图中字母固定、字母位置固定、地图四周是墙）：
M N O P图中每个字符代表一个位置，现在你不断地接收到一些位置信号，那么请你编写程序计算从信号开始到信号结束目标至少移动了多少距离，在本地图中，只能上下左右四个方向移动，相邻两个单元格的移动距离为1。例如接受信号如：BJOI，那么移动顺序为B-J-O-I，最少移动距离7。
乸硍睑徘蓓
第六道var s:
i,j,k,l,n,t:beginreadln(s);l:=length(s);for i:=2 to l dobeginif (s[i]=s[i-1]) then s[i]:=2;if (s[i]=s[i-2]) then begin
delete(s,i,1);
anc(s[i-1]);writeln(s);end. 第七道var s:
i,j,n,m,k,l,t:
readln(s);
delete(s,2,1);
delete(s,5,1);
delete(s,10,1);
for i:=1 to 9 do begin
t:=(ord(s[i])-48)*i+t;
case t mod 11 of
10:v:='X';
else begin
v:=chr((t mod 11)+48);
if s[10]=v then writeln('Right')
else writeln(s[1],'-',s[2],s[3],s[4],'-',s[5],s[6],s[7],s[8],s[9],'-',v); end.
扫描下载二维码信息学竞赛：
奥数练习题：
奥数知识点：
期中试题：
期末试题：
单元测试：
小学试题：
信息学竞赛Pascal语言 数组与字符串（五）(3)
来源：&&&& 15:34:13&&&&&&&&标签：
　　字符串
　　1.字符串用于存放整批的字符数据。通常编程中使用字符串存放字符化了的数字数据。如高精度运算时存放操作数和运算结果。字符串可以看作是特殊的字符串数组来处理。当然，它也有自已的特点。下面是字符串定义的格式：
　　s:s1:string[15];
　　字符串定义时，如不指定长度，则按该类型的最大长度（255个字符）分配空间，使用时最大可用长度为255个；如果在中括号中给出一个具体的值（1&255之间），则按这个值的大小分配空间。使用时，最大的可用长度即为该值。
　　2.字符串的输入、输出：
　　字符串类型既可按数组方式输入、输出，也可直接输入、输出：readln(s)；writeln(s)；多个字符串输入时以回车作为数据间的分隔符；每个readln语句只能读入一个字符串。
　　3.有关字符串的操作：
求字符串s的长度
s:='';
l:=length(s);{l的值为9}
copy（s,w,k)
复制s中从w开始的k位
s:='';
s1:=copy(s,3,5);{s1的值是'34567'}
val(s,k,code)
将字符串s转为数值，存在k中；code是错误代码
var s:k,code:
s:='1234';
val(s,k,code);
write(k);{k=1234}
将数值i转为字符串s
write(s);{s='1234'}
Delete(s,w,k)
在s中删除从第w位开始的k个字符
s := 'Honest Abe Lincoln';
Delete(s,8,4);
Writeln(s); { 'Honest Lincoln' }
Insert(s1, S, w)
将s1插到s中第w位
S := 'Honest Lincoln';
Insert('Abe ', S, 8); { 'Honest Abe Lincoln' }
求字符c在s中的位置
S := ' 123.5';
i :=Pos(' ', S);{i的值为1}
将两个字符串连接起来
s1:='1234';
s2:='5678';
s:=s1+s2;{';}
　　思考与练习：
　　1、随机产生20个100以内的数，输出；按从小到大的顺序排序，输出。
　　2、求一个5X5数阵中的马鞍数，输出它的位置。所谓马鞍数，是指在行上最小而在列上最大的数。如下：
　　则1行1列上的数就是马鞍数。
　　3、做一个加法器。完成30000以内的加法，两个加数间用&+&连接，可以连加，回车表示式子输入完成；&#&表示结束运算，退出加法器。
　　往期最新阅读：　　
　　　　　　　　　
　　更多内容，请参加合肥奥数网&&频道。
　　》》&&延伸阅读
关注奥数网抢先查看华杯赛、希望杯考试真题详解
微信搜索“奥数网”或扫描二维码即可添加
欢迎访问合肥奥数网，您还可以通过手机等移动设备查询小升初最新动态、竞赛辅导、重点中学信息等，2016小升初我们一路相伴。pascal编程练习100题1
&|&&|&&|&&|&&|&&|&&|&&|&&|&&|&&|&&|&&|&&|&&|&&|&
您现在的位置：&&>>&&>>&&>>&&>>&正文
pascal编程练习100题1
作者：佚名&&&&信息来源：&&&&点击数：1182&&&&更新时间：&&&&
&&&& 2n,30
&&&&& (3)n4
&&&&&&&& 1543& 7& 11& 15
2EDCBAEDCBAEDCBA……..
&&& &&(2)n30
&&&&& (3)n1-nC,4
&&&&&&&& 15D2& 7& 12&
3’Error’,
’a’’z’’A’’Z’
4TRUEFALSE
15 20 16 20 16 15
45001:15:0
1280A6079B60
&&& 15& 915918& 211821
ex 4b& b 3&&&&&&&&& e
15’Yes’’No’
&&&& (IFCASE)
<SPAN lang=EN-US style="FONT-SIZE: 14 COLOR: #、读入一个小写字母，如果它的ASCII码是奇数，输出其后继字母，如果它的ASCII码是偶数，则输出其前趋字母。
输入：f（ASCII码102）&&&&& 输出：e
<SPAN lang=EN-US style="COLOR: #. 输入两个两位数，它们各位上的数字互不相等，如果这两个两位数的乘积等于把它们各自位上的数字交换后所得的新的两位数的乘积，输出等式，否则输出不等式。
输入：12& 63&&&&&&&&& 输出：12*63=21*36
输入：12& 34&&&&&&&&& 输出：12*34&&21*43
<SPAN lang=EN-US style="COLOR: #. 给出一个英文字母，要求按字母顺序输出5个字母，给定的字母是五个字母中间的一个字母。例如，给定的字母是“R”，应输出PQRST；给定的字母是“Z”，应输出XYZAB；给定的字母是“B”应输出ZABCD，其余类推。（用两种方法解）
输入：R&&&&&& 输出：PQRST
输入：Z&&&&&& 输出：XYZAB
211,2,3,4,5……nx
&& &&&&&16& 73&& 2
&& 1& 2&& 3&& 4&& 5&& 6&& 7
&& 8& 9& 10& 11& 12& 13& 14
22ABA31BABCCA=2B=16C216A=18B=467C=18467
24201212201212& 20 354& 5
25&&&&&&& &&&&&&& &&&&&&& &&&&&&&
26N1NN1N2345……NN
30输出如下图形（单重循环用取余数和计数器两种方法解，再用双重循环做）
上一个信息： 下一个信息：
信息录入：良犬&&&&责任编辑：良犬&
以上资源来源于网络，假如侵害到你的权力请第一时间联系本站，本站将立即删除相关内容。
本站部分资源来自网络，如果侵害到你的权力请第一时间联系我们，本站将立即删除相关内容。
小学生自学网
QQ: 邮箱：(把#改成@)浙ICP备号