宁波奥数网
宁波站

2022年大事记

奥数宁波站 > 奥数竞赛频道 > 计算机程序设计 > 计算机编备考 > 正文

宁波计算机程序设计备考:PASCAL中所有单元常用过程及函数列表(4)

来源:宁波奥数网整理      2012-08-21 15:33:10

  取小数函数frac(x)

  定义:function Frac(X: Real): Real; 注意:X 是实型表达式. 结果返回 X 的小数部分; 也就是说,Frac(X) = X - Int(_X). 例子:

  CODE:

  var

  R: Real;

  begin

  R := Frac(123.456); { 0.456 }

  R := Frac(-123.456); { -0.456 }

  end.

  插入子串insert

  定义:procedure Insert(Source: String; var S: String; Index: Integer);

  注意:Source 是字符串类型的表达式。 S 是任意长度字符串类型变量。Index 是整型表达式。Insert 把 Source插在S中Index处。如果结果字符串的长度大于255,那么255之后的字符将被删除。

  例子:

  CODE:

  var

  S: String;

  begin

  S := 'Honest Lincoln';

  Insert('Abe ', S, 8); { 'Honest Abe Lincoln' }

  end.

  取整函数int(x)

  定义:function Int(X: Real): Real; 注意:X是实型数,返回值也是实型的;返回的是X的整数部分,也就是说,X被截尾了(而不是四舍五入)例子:

  CODE:

  var R: Real;

  begin

  R := Int(123.567); { 123.0 }

  R := Int(-123.456); { -123.0 }

  end.

  求长度length

  定义:function Length(S: String): Integer;

  例子:

  CODE:

  var

  S: String;

  begin

  Readln (S);

  Writeln('"', S, '"');

  Writeln('length = ', Length(S));

  end.

  求子串起始位置pos

  定义:function Pos(Substr: String; S: String): Byte;

  注意:Substr和S字符串类型表达式。Pos在S中搜索Substr并返回一个integer值。这个值是Substr的第一个字符在S中的位置。如果在S中没有找到Substr,则Pos返回0。

  例子:

  CODE:

  var S: String;

  begin

  S := ' 123.5';

  { Convert spaces to zeroes }

  while Pos(' ', S) > 0 do

  S[Pos(' ', S)] := '0';

  end.

  四舍五入函数round(x)

  定义:function Round(X: Real): Longint; 注意:X是实型表达式. Round 返回Longint型的X的四舍五入值.如果返回值超出了Longint的表示范围,则出错. 例子:

  CODE:

  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.

关注奥数网官方微信 数学资料、数学真题、更有全国教育资讯
微信搜索“奥数网”或扫描二维码即可添加

  

  • 欢迎扫描二维码
    关注奥数网微信
    ID:aoshu_2003

  • 欢迎扫描二维码
    关注中考网微信
    ID:zhongkao_com

中学推荐

试题资料

教育导航

  1. 北京站 上海站 广州站 深圳站
  2. 天津站 武汉站 成都站
  3. 南京站 杭州站 济南站 苏州站
  4. 郑州站 沈阳站 太原站 重庆站
  5. 长沙站 合肥站 宁波站 青岛站
  6. 石家庄站
本地教育

教育资讯 | 经验交流 | 择校指南

分班考试 | 衔接经验 | 面试指导

学区房 | 试题资料 | 小道消息

热门推荐

常见名词解释 | 教育新闻

宁波中学新闻 | 四大名校

老三区中学 | 县市区中学

重点中学

鄞州蓝青学校 | 海曙外国学校

镇海蛟川书院 | 宁波外国语学校

慈溪实验中学 | 宁波兴宁中学

小学试题

期中试题 | 口算题

期末试题 | 数学知识点

单元测试 | 数学练习题

京ICP备09042963号-9 京公网安备 11010802020155号

违法和不良信息举报电话:010-56762110 举报邮箱:wzjubao@tal.com

奥数网版权所有Copyright@2005-2021 www.aoshu.com. All Rights Reserved.