信息学竞赛Pascal语言 数组与字符串（五） 标签：信息学
<p>青少年信息学竞赛Pascal语言：数组与字符串</p><p><strong>一维数组</strong> </p><p>1、定义：</p><p>var</p><p>a:arrayofinteger;</p><p>其中：a是这一批数据的名称，称为数组名；array、of是定义数组的保留字；中括号中的数字是数据编号的下限和上限，财时也说明了数据的个数（上限-下限）；最后一个是数据的基类型，如integer，char，real，boolean。</p><p>2、数组元素的输入：</p><p>数组名代表的并不是一个变量，而是一批变量，因而，不能直接整个数组读入，而是要逐个数组元素读入，通常用循环结构来完成这一功能。下面是几个常用输入数组元素的例子：</p><p>fori:=1to10doread(a);</p><p>{————从键盘读入数组元素的值；最常用的方法}</p><p>fori:=1to10doa:=i;</p><p>{————数组元素a到a的值分别为1到10；数据赋初值}</p><p>fori:=1to10doa:=0;</p><p>{————数组元素清0；最常用的数据初始化的方法}</p><p>fori:=1to10doa:=random(100);</p><p>{————随机产生10个100以内的数，赋给各数组元素}</p><p>3、数组元素的输出：</p><p>和数组元素的输入相同，数组元素的输出也不能由一个write语句直接完成。同样要逐个数组元素输出。通常也用循环结构来完成这一功能：</p><p>fori:=1to10dowrite(a,'');{————数组元素之间用空格分隔}</p><p>writeln;</p><p>4、数组的应用：</p><p>例1：从键盘输入10个数，将这10个数逆序输入，并求这10个数的和，输出这个和。</p><p>programp1;</p><p>var</p><p>a:arrayofinteger;</p><p>i,s:integer;</p><p>begin</p><p>fori:=1to10doread(a);</p><p>fori:=10downto1dowrite(a,'');</p><p>writeln;</p><p>s:=0;</p><p>fori:=1to10dos:=s+a;</p><p>writeln('s=',s);</p><p>end.</p><p>例2：用筛法求100以内的素数（质数）。</p><p>分析：素数是除了1和它本身以外没有其它约数的数。用筛法求素数的方法是：用质数筛去合数：从第一个素数2开始，把它的倍数去掉；这样2以后的第一个非0数就一定也是素数，把它的倍数也删了……重复这个删数过程，直到在所找到的素数后再也找不到一个非0数。把所有非0数输出。</p><p>programp2;</p><p>var</p><p>a:arrayofinteger;</p><p>i,j,k:integer;</p><p>begin</p><p>fori:=1to100doa:=i;</p><p>a:=0;i:=2;</p><p>whilei<=100do</p><p>begin</p><p>k:=i;</p><p>whilek<=100do</p><p>begin</p><p>k:=k+i;</p><p>a:=0;</p><p>end;</p><p>{————上面将所有a的倍数清0}</p><p>i:=i+1;</p><p>whilea=0doi:=i+1;</p><p>{————查找接下来的第一个非0数}</p><p>end;</p><p>fori:=1to100doifa<>0thenwrite(a,'');</p><p>end.</p><p><strong>下一页阅读</strong>：<strong>二维数组</strong><strong></strong> </p><p><strong>二维数组</strong> </p><p>一维数组在编程中多用于描述线性的关系：如一组数；一组成绩；一组解答等。数组元素只有一个下标，表明该元素在数组中的位置。二维数组在编程中多数用于描述二维的关系：如地图、棋盘、城市街道、迷宫等等。而二维数组元素有两个下标：第一个下标表示该元素在第几行，第二个下标表示在第几列。</p><p>1.二维数组的定义：</p><p>var</p><p>a：arrayofinteger；</p><p>其中：a是数组名，由程序员自定；array和of是定义数组的保留字；（这两点和一维数组定义的格式一样）中括号中的两个范围表示二维数组共有多少行、多少列（第一个范围表示行数，第二个范围表示列数）；最后一个表示数组元素的类型，规定和一维数组一样。如上例，定义了一个二维数组a，共有10行5列。</p><p>2.使用二维数组：</p><p>1、数组元素的指称：数组名[行号，列号]。如第三行第四个元素：a。</p><p>对某一行进行处理。如累加第4行的数据。则固定行号为4。如：fori:=1to5dos:=s+a;</p><p>对某一列进行处理。如累加第4列的数据。则固定列号为4。如：fori:=1to10dos:=s+a;</p><p>2、二维数组的输入输出要用双重循环来控制：</p><p>fori:=1to10do{————控制行数}</p><p>begin</p><p>forj:=1to5doread(a){————第一行读入5个元素}</p><p>readln;{————读入一个换行符}</p><p>end;</p><p>{————最常用的方法：从键盘读入数据初始化二维数组}</p><p>fori:=1to10do</p><p>forj:=1to5doa:=0;</p><p>{————最常用的方法：将二维数组清0}</p><p>fori:=1to10do</p><p>begin</p><p>forj:=1to5dowrite(a:4);</p><p>writeln;</p><p>end;</p><p>{————最常用的输出方法：按矩阵形式输出二维数组的值}</p><p>例1：竞赛小组共有20位同学，这学期每位同学共参与了三项比赛，请统计每位同学的平均分。</p><p>分析：定义一个20行3列的二维数组来存放这些成绩。定义一个20个元素的一维数组来存放平均分。</p><p>programp1;</p><p>var</p><p>a:arrayofinteger;</p><p>b:arrayofreal;</p><p>i,j:integer;</p><p>begin</p><p>fori:=1to20do</p><p>begin</p><p>forj:=1to3doread(a);</p><p>readln;</p><p>end;</p><p>{————从键盘上读入20个同学的三次竞赛成绩}</p><p>fori:=1to20dob:=0;</p><p>{————先将平均分数组清0}</p><p>fori:=1to20do</p><p>begin</p><p>forj:=1to3dob:=b+a;{————计算总分}</p><p>b:=b/3;{————计算平均分}</p><p>end;</p><p>fori:=1to20dowrite(b:5:1);</p><p>{————输出平均分}</p><p>writeln;</p><p>end.</p><p><strong>下一页阅读</strong>：字符串</p><p><strong>字符串</strong> </p><p>1.字符串用于存放整批的字符数据。通常编程中使用字符串存放字符化了的数字数据。如高精度运算时存放操作数和运算结果。字符串可以看作是特殊的字符串数组来处理。当然，它也有自已的特点。下面是字符串定义的格式：</p><p>var</p><p>s:string;s1:string;</p><p>字符串定义时，如不指定长度，则按该类型的最大长度（255个字符）分配空间，使用时最大可用长度为255个；如果在中括号中给出一个具体的值（1—255之间），则按这个值的大小分配空间。使用时，最大的可用长度即为该值。</p><p>2.字符串的输入、输出：</p><p>字符串类型既可按数组方式输入、输出，也可直接输入、输出：readln(s)；writeln(s)；多个字符串输入时以回车作为数据间的分隔符；每个readln语句只能读入一个字符串。</p><p>3.有关字符串的操作：</p><p><table width="95%"><tbody><tr><td width="18%">操作</td><td width="3%">类型</td><td width="18%">作用</td><td width="5%">返回值</td><td width="56%">例子</td></tr><tr><td width="18%">length(s)</td><td width="3%">函数</td><td width="18%">求字符串s的长度</td><td width="5%">整型</td><td width="56%">s:='202320239';<br />l:=length(s);{l的值为9}</td></tr><tr><td width="18%">copy（s,w,k)</td><td width="3%">函数</td><td width="18%">复制s中从w开始的k位</td><td width="5%">字符串</td><td width="56%">s:='202320239';<br />s1:=copy(s,3,5);{s1的值是'20237'}</td></tr><tr><td width="18%">val(s,k,code)</td><td width="3%">过程</td><td width="18%">将字符串s转为数值，存在k中；code是错误代码</td><td width="5%"></td><td width="56%">var s:string;k,code:integer;<br />begin<br />s:='2023';<br />val(s,k,code);<br />write(k);{k=2023}</td></tr><tr><td width="18%">str(i,s)</td><td width="3%">过程</td><td width="18%">将数值i转为字符串s</td><td width="5%"></td><td width="56%">i:=2023;<br />str(i,s);<br />write(s);{s='2023'}</td></tr><tr><td width="18%">Delete(s,w,k)</td><td width="3%">过程</td><td width="18%">在s中删除从第w位开始的k个字符</td><td width="5%"></td><td width="56%">s := 'Honest Abe Lincoln';<br />Delete(s,8,4);<br />Writeln(s); { 'Honest Lincoln' }</td></tr><tr><td width="18%">Insert(s1, S, w)</td><td width="3%">过程</td><td width="18%">将s1插到s中第w位</td><td width="5%"></td><td width="56%">S := 'Honest Lincoln';<br />Insert('Abe ', S, 8); { 'Honest Abe Lincoln' }</td></tr><tr><td width="18%">Pos(c, S)</td><td width="3%">函数</td><td width="18%">求字符c在s中的位置</td><td width="5%">整型</td><td width="56%">S := ' 123.5';<br />i :=Pos(' ', S);{i的值为1}</td></tr><tr><td width="18%">+</td><td width="3%">运算符</td><td width="18%">将两个字符串连接起来</td><td width="5%"></td><td width="56%">s1:='2023';<br />s2:='2023';<br />s:=s1+s2;{'20232023'}</td></tr></tbody></table></p><p>思考与练习：</p><p>1、随机产生20个100以内的数，输出；按从小到大的顺序排序，输出。</p><p>2、求一个5X5数阵中的马鞍数，输出它的位置。所谓马鞍数，是指在行上最小而在列上最大的数。如下：</p><p>20239</p><p>20238</p><p>20231</p><p>20230</p><p>20238</p><p>则1行1列上的数就是马鞍数。</p><p>3、做一个加法器。完成20230以内的加法，两个加数间用“+”连接，可以连加，回车表示式子输入完成；“#”表示结束运算，退出加法器。</p><p><span></span></p>
页:
[1]