文件名称：字符串的函数和过程-机器视觉算法与应用01
文件大小：1.48MB
文件格式：PDF
更新时间：2024-06-28 04:31:09
PASCAL
三、字符串的函数和过程 Turbo Pascal 提供了八个标准函数和标准过程，见下表，利用这些标准函数与标准过程，一些涉及到字符串的问题 可以灵活解决。 函数和过程名 功 能 说 明 copy(s,m,n) 取 s中第m个字符开始的 n个字符 若 m 大于 s 的长度，则返回空串；否则，若 m+n大于 s的长度，则截断 length(s) 求 s的动态的长度 返回值为整数 pos(sub,s) 在 s中找子串 sub 返回值为 sub在 s中的位置，为 byte型 insert(sour,s,m) 在 s的第m个字符位置处 插入子串 sour 若返回串超过 255，则截断 delete(s,m,n) 删除 s中第m个字符开始 的 n个字符串 若 m大于 s的长度，则不删除；否则，若 m+n 大于 s的长度，则删除到结尾 Str(x[:w[:d]],s) 将整数或实数x转换成字 符串 s w 和 d是整型表达式，意义同带字宽的 write 语句 val(s,x,code) 将字符串 S 转换成整数 或实数 x 若 S中有非法字符，则 code存放非法字符在 S 中的下标；否则，code为零。code为整型 upcase(ch) 将字母 ch 转换成大写字 母 若 ch不为小写字母，则不转换 例 4 校对输入日期(以标准英语日期,月/日/年)的正确性，若输入正确则以年．月．日的方式输出。 程序如下: program ex8_4; const max:array[1..12] of byte =(31,29,31,30,31,30,31,31,30,31,30,31); var st:string; p,w,y,m,d:integer; procedure err;