PASCAL编程基础篇.pptVIP

Pascal编程基础篇 ——信息学奥赛培训班讲座 第三讲：字符和字符串 一、字符和字符串函数 练习 二、字符串过程 例1：301：打印下面的文本图形。当N=5时，图形如下。（0N27） 　 A 　ABA 　ABCBA　ABCDCBA ABCDEDCBA 302：输入一个多位自然数，然后将各位重新排列成一个仍由原来的那些数字组成的位数不变的最大数和最小数。(0X10200) 303：键盘输入一个大于五位的自然数，然后将各位数字重新排列成一个仍由原来那些数字组成的位数不变的,比原数大的最小的数。如果没有则输出原数。（105X10200） * * 测长函数：Length(x) Length(‘akdfieoq’)= 8 取子串函数：copy(a,i,n) copy(‘djfpueriq’,3,6)= fpueri 定位函数：pos(x,a) 后续函数：succ(x) 字符函数：chr(x) 前导函数：pred(x) 序号函数：ord(x) 字符串的函数： 字符的函数： pred(‘p’)= o pred(‘B’)= A pred(‘p’)= q pred(‘B’)= C ord(‘p’)= 111 chr(65)= A pos(‘is’,’This is a pen’)= 3 字符串定义：X：string; Length(‘abcde’)= 5 copy(‘abc12345gh’,6,4)= 345g ord(‘B’)= 66 chr(100)= d ord(chr(98))= 98 chr(ord(‘A’))= A pred(5)= 4 succ(5)= 6 pos(‘x’,’This is a pen’)= 0 pred(succ(8))= pred(‘B’)= succ(‘B’)= Succ(pred((‘B’))= 8 A C B 删除过程：delete(s,i,n) 字符串转换成数值过程：val(s,v,c) 插入过程：insert(s1,s2,i) 数值转换为字符串过程：str(v,s) insert(‘ab’,’12345’,3)= 12ab345 delete(‘abcdefg’,2,4)= afg V是数值型，S是字符串型 S是字符串型，V是数值型，出错位放在C中，为数值型 分析： 先将最大一行的可能值赋给字符串A A=‘ABCDEFGHIJKLMNOPQRSTUVWXYZYXWVUTSRQPONMLKJIHGFEDCBA’ 然后从A串中左取一部分，右取一部分 N=5时 I: 1 2 3 4 …… N A: 1 2 3 4 …… N B: 0 1 2 3 …… N-1 A:=I B:=I-1 For i:=1 to 5 do 分析： 大于10位只能用字符串方式输入 302：输入一个多位自然数，然后将各位重新排列成一个仍由原来的那些数字组成的位数不变的最大数和最小数。(0X10200) 开始 给A数组冒泡排序 输出A[I]，A[1]~ A[I-1]，A[I+1]~最后 结束 N Y i?1 A[i]=‘0’ i ? i+1 读入字符串A 302：输入一个多位自然数，然后将各位重新排列成一个仍由原来的那些数字组成的位数不变的最大数和最小数。(0X10200) 需要转换成数吗？ 由大到小输出最大数 302：输入一个多位自然数，然后将各位重新排列成一个仍由原来的那些数字组成的位数不变的最大数和最小数。(0X10200) 分析： 大于10位只能用字符串方式输入 开始 给A数组冒泡排序 输出A[I]，A[1]~ A[I-1]，A[I+1]~最后 结束 N Y i?1 A[i]=‘0’ i ? i+1 读入字符串A 需要转换成数吗？ 由大到小输出最大数 *