2022年程序设计提高班培训讲义.doc

程序设计提高班培训讲义胡苗坤 （2007寒假）第一讲 顺序构造程序设计主要内容：1、 纯熟掌握赋值语句、输入输出语句的用法2、 掌握顺序构造程序设计常用方法3、 根本运算符的使用4、常用函数和过程一、赋值语句（：=）格式：变量名：=表达式 功能：将表达式的值计算出来赋给相应的变量。 不管什么计算机语言，赋值语句都是最根本最常用的语句，通过它给变量赋值来进展各种运算、处理。如 a:=10*5; a的值为50a:=a+1；将a的值增加1，常用此语句来进展计数s:=s+a; 将s的值增加a，常用类似的累加语句来进展求和t:=t*a; 将t的值变为原来的a后倍，常用类似的语句来进展累乘例题1：交换两个数值型变量a和b的值分析与算法选择：要交换两个变量的值，能够联想起现实世界中交换两个容器A和B中所装的东西，一般要先引进一个空的容器C，先将一个容器（如A）里的倒入C，再将另一个容器B的倒入A，最后将C的倒入B，从而实现A、B容器内容的互换。方法1：引进第三个变量c:=a;a:=b;b:=c;方法2：先合并后分开a:=a+b; 如原来a=3,b=5，执行此语句后a=8,b=5b:=a-b; 执行此语句后a=8,b=3a:=a-b; 执行此语句后a=5,b=3还有其它一些方法，但都没有上面的两种方法通用。如可先乘再除，这种方法关于有一个变量为0的情况就不正确了。也可能会出现除数为0的情况。例题2：计算四个变量的乘积分析与算法选择：一般的计算，能够直截了当用一个表达式将运算结果给一个变量就行了。假如变量的个数不确定，或者说变量的个数特别多，如今用一个表达式就不方便了，可行的方法是来一个就算一个，直到全部的都算好完毕。在后面的循环中常用这种方法。参考程序：program example5_2;var t:longint; a,b,c,d:integer;begin write(Enter integer a,b,c,d:); readln(a,b,c,d);t:=1;t:=t*a;t:=t*b;t:=t*c;t:=t*d;writeln(a*b*c*c=,t); end. 补充说明：累加时，存放累加值的变量初值一般为0；而累乘时必须将相应变量的初值赋为1。如上述程序中t的初值为1，假如没有这句，系统默认的初值为0，那么乘下来结果也是0。二、read/readln 读取数据格式：read(变量) 或 read(变量1，变量2，)readln(变量) 或 readln(变量1，变量2，)功能：在运转程序时读入相应数据给指定变量，直到读入的数据满足为止，这里所说的满足有两个方面的含义，一是类型的一致，二是数据的满足。Readln跟read不同的地点确实是它执行完后将到下一行。例：read(a,b,c) ;依照事先定义的类型由用户在运转程序时输入相应的数据给a,b,c,也可分开写成三个read语句：read(a);read(b);read(c)。readln(a,b,c); 与read(a,b,c)不同是读完数据后另起一行，假如将它分为三个语句readln(a); readln(b); readln(c)执行时可能读入的数据跟原来不一样，本人上机去试试吧！readln; 空读语句，一般起到让程序运转时停顿由用户回车后接着或跨过一行中其余的数据，保证下一个读语句从下一行头一个数据开场读取。三、write/writeln 输出语句语句功能：输出指定表达式的值。 如wirte(a),write(Jiangshu); 分别输出a的值和Jiangshu（1）场宽在输出项后用“：数字”指明输出的宽度。如write(5:6)，则输出： 55的前面有5个空格，整个输出项占6个字符的位置关于实数类型的还能够通过“：数字1：数字2”指明输出数字的宽度和小数点后的位数。如：write(1.2:10:5) 将输出： 1.50000 整个输出项占10个字符位置，整数部分占4位，小数点1位，小数部分5位，其中整数部分缺乏的在高位补空，小数部分缺乏在后面补0假如指定的宽度比原输出项应有的宽度小呢？关于整数或字符等类型的，将自动调整到最小所要的宽度，如write(ABCD:2)仍将输出ABCD。关于实数，小数部分会取自定的位数，将尾部去除（四舍五入），并自动习惯到最少的宽度。考虑：如何对小数点后指定位进展四舍五入？解答：一种方法是直截了当指定输出小数点后指定的位数，如关于变量a要保存到小数点后第三位并考虑四舍五入，能够直截了当写为write(a:0:3)。这种方法跟系统的设置有关，也确实是说如此不能保证任何时候都正确。能够对指定位加5后从这位始截尾。如要求对实型变量a要求精确到小数点后两位，对小数点后第三位进展四舍五入，能够用如此的输出语句write(a+0.005:0:2)。一般来说关于变量的处理，能够先按这种方法（即相应位加5后再去尾）通过赋值语句进展处理，输出时不进展处理，只是直截了当输出就行了。四、writeln跟wirte的区别writeln语句在输出完指定内容后另起一行，write只管输出除非真满一行后才另起一行。 空的wirteln起到一个输出空行的作用，假如它前面有write语句，则在其它输出空行（可能不满一行），保证下一个输出另起一行。在程序中经常用一个空的writeln语句起换行的作用。五、一个语句多个输出项一个write或writeln中能够有多个输出项，各项之间用逗号间隔。如write(1,2,3)；它与三个write语句作用一样：write(1);write(2);write(3);再如 writeln(1,2,3); 输出123后换行。 与它等同的分开写的方式为：write(1);write(2);writeln(3)；练习及作业：(1) 输入三角形的三边，输出三角形的面积（假设这三边一定能构成三角形）。计算三角形面积的公式：p:=(a+b+c)/2s:=sqrt(p*(p-a)*(p-b)*(p-c)(2) 输入一个三位整数，逆向输出，如输入123，输出为321，假如个位数是零，则输出二位数，如 ：320，输出为23。(3) 输入一个10000以内的整数，输出它的位数(4) 分钱游戏：甲、乙、丙三人共有24元钱，先由甲分钱给乙、丙两人，所分给的数与各人已有数一样；接着由乙分给甲、丙，分法同前；再由丙分钱给甲、乙，分法亦同前。经上述三次分钱之后，每个人的钱数恰好一样多。求原先各人的钱数分别为多少？第二讲 分支构造程序设计主要内容：1、 掌握复合语句、根本IF语句及CASE语句语法格式和执行过程；2、 能够依照实际情灵敏运用IF语句和CASE语句3、掌握IF语句的嵌套原则一复合语句1为什么要用复合语句 在程序中有时候要将多个语句结合起来作为一个整体，象一个语句一样来使用。这时就要用到复合语句，用begin和end将多个语句结合在一起。2格式：begin语句1；语句2；语句N； end;说明：end前的最后一个分号能够不写，也能够写，相当于其后是一个空语句。其效果跟一般的语句一样，也确实是将多个语句合并成一个语句来使用，特别是在后面的条件语句或循环语句里执行的是多个语句要像一个语句一样时就必需要使用复合语句。二条件语句（if-then-else）格式1：一个分支if 条件then 语句；格式2：两个分支if 条件then 语句1 else 语句2；留意else前没有分号，否则会出错。（考虑这是为什么？）1条件的描绘 在使用条件语句时主要的难点确实是条件的描绘和满足条件或不满足条件时要执行的语句的描绘。条件通过布尔表达式来描绘。 例：条件语句与自然语言描绘的比照（1）if a>1 then a:=a-1 else a:=a+1;假如a大于1那么将a的值减少1，否则将a的值增加1（2）if (a>b) and (b>c) then s:=(a-b)*(b-c);假如a大于b同时b大于c，那么s的值为（a-b）乘以(b-c)（3）if (a>0) or (b>0) then s:=a+b;假如a>0或者b>0，那么s的值等于a+b（4）if f then t:=t+1; 这里f为布尔型的变量假如f成立即等于true，那么t的值增加12语句的选择 满足条件时执行什么、不满足条件时执行什么要先搞清晰。 当满足条件时或不满足条件时执行的是多个语句时要使用复合语句的格式。所以单个语句也使用复合语句的格式也不会错，只不过多此一举而已，并不妨碍程序的执行，有时先如此写是为了后来的扩大。例：条件语句与自然语言描绘if a<0 then begin a:=a+1; s:=s+1; end;假如a小于0，那么执行两部分：（1）a的值增加1；（2）s的值增加1。三、多分支语句case 有时也叫多路分支1格式：case 表达式 of值1： 语句1；值2： 语句2；else 语句end;2例如（1） 两个分支的情况，还不如直截了当用条件语句case random(Maxint) mod 2 of 0: writeln(Even digit); 1: writeln(Odd digit.); end; 等同于 if random(maxint) mod 2=0 then writeln(Even digit.) else writeln(Odd digit.);依照随机产生的非负整数情况来确定 偶数时：输出Even digit； 奇数时：输出Odd digit.（2）依照字符型变量ch的值来确定不同的执行case ch of A.Z,a.z: writeln(ch, is an identifier character.); 0.9: writeln(ch, is a decimal digit.); else writeln(ch, is a special character.); end;等同于： if (ch>=A) and (ch<=Z) or ( (ch>=a) and (ch<=z) then writeln(ch, is an identifier character.) else if (ch>=0) and (ch<=9) then writeln(ch, is a decimal digit.) else writeln(ch, is a special character.);3使用留意点当有else部分时它上面的语句的最后一行能够有分号也能够没有分号，这点跟if-then-else不一样；case语句构造中最后要有一个end作为结尾；其中的语句能够是单语句也能够是复合语句。练习及作业：1、输入三个整数，按由大到小的顺序输出。设三个数为a，b，c，一种方法能够用条件的并列，列举出可能有的6种情况。另一种方法是用条件的嵌套，从而输出结果。2编写程序输入年份和月份，输出这个月的天数。3编一个随机产生一个100以内的四则运算题，要求先输出这个四则运算的式子，这个四则运算的式子要能确保第一个数不小于第二个数，假如是除法的话要能确保能够整除，然后让用户输入结果，假如输入的结果正确则输出“Right!”否则输出“Error!”。分析与提示： 用随机函数来产生四则运算的操作数和操作符，其中操作数都是100以内的整数，因而能够直截了当用random(100)就行了，假如第一个数比第二个数小则交换两个数。而操作符（运算符）只有四种可能，因而先用随机函数产生出0-3间的数，再依照产生的是什么数来确定是“+、-、*、/”。其中关于除法运算要考虑除数不能为0，再要考虑能整除，因而先进展整除运算，得到一个结果，再将第一个数变为除数乘以商。4编程输入三角形的三条边长，输出三角形的面积，假如不能构成三角形输出错误信息。5.期末降临了，班长小Q决定将剩余班会费，用于购置假设干支钢笔奖励给一引起学习好、表现好的同学。已经明白商店里有三种钢笔，它们的单价为6元、5元和4元。小Q想买尽量多的笔（鼓舞尽量多的同学），同时他又不想有剩余钱。请你编写一程序，帮小Q制订出一种买笔的方案。6.编写一个评分程序，接受用户输入10位选手的得分（010分），然后去掉一个最高分和一个最低分，求出某选手的最后得分（平均分）。第三讲 循环构造的程序设计主要内容：1、 掌握三种循环语句的格式和执行过程；2、 掌握三种循环语句的异同，能够依照实际情况灵敏运用循环语句；3、 掌握累加器和累乘器和计数器；4、 掌握多重循环及循环的嵌套；5、 纯熟运用循环语句解各种实际咨询题，如打印图形、推断素数等常用算法。许多处理过程中有连续的重复，这时候假如依然一句句地重复写的话，既烦恼又负担，当要重复成千上万次时，这种重复的书写几乎是不可能实现的。直截了当简便的方法是用循环语句来实现循环。一While语句（当型循环）1格式：while 布尔表达式 do 语句；2说明：格式中while和do都是保存字，布尔表达式表示条件，它的描绘跟条件语句里的条件描绘是一样的。Do后面的语句能够是单一语句也能够是复合语句，称为循环体。只要布尔表达式成立时（即值为TRUE时）就执行循环体，如此反复直到布尔表达式不成立（值为FALSE）时停顿。假如一开场就为布尔表达式就不成立（值为FALSE），那么循环体一次也不执行。例31用当循环计算1+2+3+100分析：此类题也称累加，设最后结果放入变量S中，设计一指针I，让I从1开场递增，并累加到S中，当I的值等于100时，循环完毕。Var S,I:integer;BeginS:=0;I:=1;While I<=100 doBeginS:=s+I;I:=I+1;End;Writeln(s)End.留意：在while循环体中一定要有相应的语句使布尔表达式的值可能为false,否则就会构成死循环。二、Repeat语句（直到型循环）1格式：repeat 语句；语句；语句；until 布尔表达式；2. 说明格式中repeat和until都是保存字，其间的语句构成循环体，最后一个语句的分号能够省略；until后的布尔表达式表示条件，描绘的是循环完毕的条件。3. 功能反复执行循环体直到布尔表达式的值为true时为止。例32用直到型循环解例3.vars,I:integer;begins:=0;I:=1;RepeatS:=s+1;I:=I+1;Until I=100;Writeln(s)End.总结与提高While与Repeat语句比照while和repeat语句一般情况下能够互相交换。它们的主要区别是：while是先推断后执行，而repeat是先执行后推断，因而while语句的循环体有可能一次也不执行，而repeat语句至少执行一次；前者是当条件满足时执行，而后者是当条件不满足时执行；前者的循环体是复合语句时要用begin、end，而后者却不一定要用。三、for语句（计数循环）1格式：（1）for 变量标识符：=初值表达式 to终值表达式 do 语句； 从小到大执行的格式（2）for 变量标识符：=初值表达式 downto终值表达式 do 语句； 从大到小执行的格式2说明格式中的for,to,downto,do都是保存字，to一般用在升序的计数，而downto用在降序的计数。变量标识符在这里称作是操纵变量，必须是离散（有序）数据类型，如：for i:=1 to 100 do .for ch:=a to z do.3例如上面的例题我们能够用计数循环来实现：begins:=0;I:=1;For I:=1 to 100 doS:=S+I;Writeln(s)End.总结与提高for语句的方式简单，但它也有一定的局限性，主要是操纵变量的值不能随意变化，每次只能取其后继(用to的情况)或前趋（用downto的情况），另一限制是操纵变量只能用简单的有序的离散量，且循环次数已定，不能象while或repeat那样通过布尔表达式来操纵循环的操作。四多重循环（循环的嵌套）当程序中要用到多个循环时，假如这些循环是并列的关系，那么它们彼此之间的操纵变量不互相妨碍。而当一个循环的循环体中又有循环时，这确实是循环的嵌套，称为多重循环。例3.3编写程序输出如下的字母塔： A ABA ABCBA.ABCDDCBA分析：此题有两个关键：一是确定每一行前导空格符的数目；二是按一定规律输出英文大写字母，共26行。应能保证最后一行前导空格数目至少为0，设最后一行的前面空格数为10个，那么倒数第二行前面的空格数为11，倒数第三行的数目为12，假如操纵输出行的字符变量为c，则空格数为：ord(Z)-ord(c)+10var ch,c:char;beginfor c:=A to Z do begin write( :ord(Z)-ord(c)+10); 输出空格数 for ch:=A to c do write(ch); 输出一行的左半部分 for ch:=pred(c) downto A do write(ch); 输出一行的右半部分 writeln; 换行 end;end.考虑与提高：上面整个程序是个两重循环，而外循环的循环体是两个并列的循环，因而尽管程序中有三个for语句，但只是两重循环。练习及作业：一、完善程序1求100以内所有质数的和。变量说明：h存放所有质数的和；I、j为循环检测变量程序清单：program ex7_2_1;var i,j,h:integer;begin _(1)_; for i:=3 to 100 do begin j:=2; while (i mod j>0) and (j<i) do j:=j+1; if _(2)_ then h:=_(3)_; end; writeln(h)end.1 输出四位数以内（包括四位数）是一个质数的完全平方数的数，并输出总的个数。变量说明：n存放符合条件的数的个数；I、j是循环检测变量；K存放完全平方数。程序清单：program ex7_2_2;var i,j,k,n:integer;begin n:=0; for i:=2 to 99 do begin k:=_(1)_; j:=2; while (i mod j>0) and (j<i) do j:=j+1; if _(2)_ then begin write(_(3)_:5); _(4)_; end end; writeln; writeln('Count=',n);end.二、编写程序题1. 输出以下图所示的图形* * * * * * * * * * * * * * * * * * * * *2编写输出“右三角的九九乘法表”的程序： 1 2 3 4 5 6 7 8 9 4 6 8 10 12 14 16 18 9 12 15 18 21 24 27 16 20 24 28 32 36 25 30 35 40 45 36 42 48 54 49 56 63 64 72 813找出100以内所有被2、3、5除余数为1的整数4求出100999内所有的水仙花数，所谓水仙花数是该数等于它各位上的数的立方和。例：153=13+33+535.求1100内所有的素数6. 要将一张100元的钞票换成等值的10元、5元、2元、1元的小钞票，要求每次换成40张小钞票，每种至少一张，编程输出所有可能的换法，程序应适当考虑减少重复次数。7. 四个学生上地理课，答复我国四大淡水湖大小时如此说：                               甲：“最大洞庭湖，最小洪泽湖，鄱阳湖第三。” 乙：“最大洪泽湖，最小洞庭湖，鄱阳湖第二，太湖第三。”丙：“最小洪泽湖，洞庭湖第三。” 丁：“最大鄱阳湖，最小太湖，洪泽湖第二，洞庭湖第三。” 关于每个湖的大小，每个学生仅答对一个，请编程确定四个湖的大小。8. 谁是小偷? 咨询题：警察局抓了4名嫌疑犯：A，B，C，D，其中一人是小偷，审咨询中A说：“我不是小偷。” B说：“C是小偷。”C说：“小偷确信是D。”D说：“C冤枉人。”，现已经明白四人中三人说的是真话，一人说的是假话。咨询到底谁是小偷？9. 求二个正整数的最小公倍数和最大公约数第四讲 数组和字符串主要内容：1、 掌握数组类型的定义及根本操作；2、 掌握字符串类型的定义及常用函数过程的操作；3、 纯熟掌握通过数组来实现常见的排序、查找算法；4、 纯熟掌握通过字符串来处理各种实际咨询题如加解密，查找子串等。Turbo-pascal的数据类型分为三品种型：简单类型、构造类型、指针类型。前面介绍的整型、实型、布尔型以及枚举类型等都是简单类型，而构造类型有字符串、数组、记录、集合、文件类型。描绘一个构造类型特征的是其成分的类型和它的构造方法。因而关于构造类型，主要去考虑如何构造即其构造方法。指针类型是一种特别的数据类型，它涉及到动态存储分配。一、数组 在代数上我们常常如此写：a1,a2.ai.a100(0<i<101)，通过i来指明详细的ai，如i=10时代表a10，在pascal语言里我们也希望能够类似地描绘。从前面的变量名里我们已经明白，a1,a2.ai彼此之间是互相独立的，并没有必定的联络。如要象代数上那样，能够使用数组。数组事实上是一组一样值类型的变量的集合，这些变量共用一个名，彼此之间通过下标来区别。如定义了数组a，它的下标能够从1到100，那么就能够直截了当通过ai来指明第i个量，如i=10，ai指的是a10。1数组的说明 能够先通过 type 标识符=array下标范围 of 值类型；然后再在变量说明里援用。 如：type array1=array1.100 of integer;var a,b:array1; 也能够直截了当在变量说明里说明：变量名：array下标范围 of 值类型； 如：var a,b:array1.100 of integer; 描绘下标范围一般通过离散（有序）类型，如从一个整数到另一个整数，或者从一个字符到另一个字符等。如： var a:array-5.5 of integer;c:array1.20 of char;d:arraya.z of integer;2数组的使用刚刚我们已从代数上使用说明了数组使用的优点，特别是要保存的量比拟多且这些量之间又有某种联络。如要将假设干数重新依照由大到小或由小到大的顺序排序时，这些数都是要保存的，只是位置换了而已，如今用数组变能够实现。后面我们会专门介绍排序的算法的。(1)数组元素的输入：数组名代表的并不是一个变量，而是一批变量，因而，不能直截了当整个数组读入，而是要逐一数组元素读入，通常用循环构造来完成这一功能。下面是几个常用输入数组元素的例子：for i:=1 to 10 do read(ai);     从键盘读入数组元素的值；最常用的方法for i:=1 to 10 do ai:=i;    数组元素a1到a10的值分别为1到10；数据赋初值for i:=1 to 10 do ai:=0;    数组元素清0；最常用的数据初始化的方法for i:=1 to 10 do ai:=random(100);    随机产生10个100以内的数，赋给各数组元素(2)数组元素的输出：    和数组元素的输入一样，数组元素的输出也不能由一个write语句直截了当完成。同样要逐一数组元素输出。通常也用循环构造来完成这一功能：for i:=1 to 10 do write(ai,' ');数组元素之间用空格分隔writeln;3.二维数组 一维数组在编程中多用于描绘线性的关系：如一组数；一组成绩；一组解答等。数组元素只有一个下标，说明该元素在数组中的位置。二维数组在编程中多数用于描绘二维的关系：如地图、棋盘、城市街道、迷宫等等。而二维数组元素有两个下标：第一个下标表示该元素在第几行，第二个下标表示在第几列。 (1).二维数组的定义：var    a：array1.10,1.5 of integer；     其中：a是数组名，由程序员自定；array和of是定义数组的保存字；（这两点和一维数组定义的格式一样）中括号中的两个范围表示二维数组共有多少行、多少列（第一个范围表示行数，第二个范围表示列数）；最后一个表示数组元素的类型，规定和一维数组一样。如上例，定义了一个二维数组a，共有10行5列。(2).使用二维数组：     1、数组元素的指称：数组名行号，列号。如第三行第四个元素：a3,4。     对某一行进展处理。如累加第4行的数据。则固定行号为4。如：for i:=1 to 5 do s:=s+a4,i;    对某一列进展处理。如累加第4列的数据。则固定列号为4。如：for i:=1 to 10 do s:=s+ai,4;    2、二维数组的输入输出要用双重循环来操纵：for i:=1 to 10 do操纵行数begin    for j:=1 to 5 do read(ai,j)第一行读入5个元素     readln;读入一个换行符end;最常用的方法：从键盘读入数据初始化二维数组for i:=1 to 10 do     for j:=1 to 5 do ai,j:=0;最常用的方法：将二维数组清0for i:=1 to 10 dobegin     for j:=1 to 5 do write(ai,j:4);     writeln;end;最常用的输出方法：按矩阵方式输出二维数组的值 例：竞赛小组共有20位同学，这学期每位同学共参与了三项竞赛，请统计每位同学的平均分。分析：定义一个20行3列的二维数组来存放这些成绩。定义一个20个元素的一维数组来存放平均分。program p1;var    a:array 1.20,1.3 of integer;     b:array 1.20 of real;     i,j:integer;begin     for i:=1 to 20 do     begin         for j:=1 to 3 do read(ai,j);         readln;     end;从键盘上读入20个同学的三次竞赛成绩     for i:=1 to 20 do bi:=0;先将平均分数组清0     for i:=1 to 20 do     begin         for j:=1 to 3 do bi:=bi+ai,j;计算总分         bi:=bi/3;计算平均分     end;     for i:=1 to 20 do write(bi:5:1);输出平均分writeln;end.例4_1：让计算机随机产生100个0到1000之间的整数，输出其中最大的数。分析与算法选择: 随机产生数能够用其random函数，产生的100个数依次存放在a1到a100里。选最大数时可用“擂台比武”的思想，假设最大数放在变量max里，假如ai比max大，则取而代之，i从1到100重复此操作。程序清单： program maxdigit; var a:array1.100 of integer;i,max:integer; begin randomize; for i:=1 to 100 do ai:=random(1000); max:=a1; for i:=2 to 100 do if ai>max then max:=ai; writeln(Max=,max); end.例4_2 键盘输入40个5位以下的整数，最后分批输出其中的奇数和偶数。分析与算法选择: 断定一个数是奇数或偶数比拟简单，假如不是要分批输出能够一边输入一边断定，如今要分批输入因而输入跟输出的过程要分开，输入的40个数要先存放起来，通过数组特别方便。程序清单：program digit;var a:array1.40 of integer; i:integer;begin for i:=1 to 40 do read(ai); writeln; for i:=1 to 40 do if odd(ai) then write(ai:5);writeln; for i:=1 to 40 do if not odd(ai) then write(ai:5);writeln;end.二、字符串类型定义和变量说明1定义type 变量标识符=string常数；还能够使用不带字符串最大长度（即不用方括号）的字符串定义，如今取时大长度的缺省值255，方式为：type 变量标识符=string;例：type class=string10; name=string20; address=string;定义了三个字符串类型，最大长度为别是10，20，255。2字符串变量说明字符串变量与简单类型变量说明一样，有两种方式：一是先写字符串类型定义，后用其进展变量说明；二是直截了当将字符串类型写于变量说明之中。曾上例子能够写出如下的字符串类型变量说明：var class1, class2: class; myname, yourname,hisname: name; heraddress: address; 也能够直截了当说明：var class1, class2: string10; myname, yourname, hisname: string20; heraddress: string;3字符串长度为了记录一个字符串的实际长度即有效字符的长度，系统在所有字符串变量前保存一个不可见字符，称它为长度字节，因而turbo-pascal编译器为每一字符串变量在内存中所分配的字节数（一个字符占一个字节）是其长度加1。在长度字节中存放的是如此一个字符：其相应的ASCII序数值为该字符串变量的当前实际长度。由于系统同意对一个字符串变量进展整体访咨询，也能够对字符串变量中的各个字符逐一地访咨询，第二种访咨询应指定某字符在字符串中的位置即下标，如myname1表示字符串变量myname的第一个字符，myname2表示第二个字符，依次类推。因而可用myname0表示在长度字节中所存放的字符，而字符串的实际长度可用ord(myname0)求得。也能够直截了当用系统函数来求字符串的长度，如length(myname)。4字符串与字符字符串变量和字符类型char相兼容，可把char视作长度为1的字符串类型，因而它们在字符串表达式计值时可混合使用。如A可看作是字符，也可视为字符串。但字符串类型和字符类型在内存中的存储方式不同。另外同意长度为0的空串如今字符串的存储仍然要一个字节，用来存放其长度字符，但字符类型必须也只能有一个字符。5字符串的常数定义与类型常数定义可将任意字符串定义成一个常数标识符，以供程序各处援用。字符串常数定义的一般方式为：const 常数标识符=字符串常数；其中字符串常数是用单引号括起的字符串序列。如：const heading=Difference between string variable and string typed constant;splitline=-;分别以常数标识符heading表示一个表头信息，splitline表示分隔线。字符