信息学竞赛Pascal语言 数组与字符串(五)
青少年信息学竞赛Pascal语言:数组与字符串
一维数组
1、定义:
var
a:array[1..10]ofinteger;
其中:a是这一批数据的名称,称为数组名;array、of是定义数组的保留字;中括号中的数字是数据编号的下限和上限,财时也说明了数据的个数(上限-下限);最后一个是数据的基类型,如integer,char,real,boolean。
2、数组元素的输入:
数组名代表的并不是一个变量,而是一批变量,因而,不能直接整个数组读入,而是要逐个数组元素读入,通常用循环结构来完成这一功能。下面是几个常用输入数组元素的例子:
fori:=1to10doread(a[i]);
{————从键盘读入数组元素的值;最常用的方法}
fori:=1to10doa[i]:=i;
{————数组元素a[1]到a[10]的值分别为1到10;数据赋初值}
fori:=1to10doa[i]:=0;
{————数组元素清0;最常用的数据初始化的方法}
fori:=1to10doa[i]:=random(100);
{————随机产生10个100以内的数,赋给各数组元素}
3、数组元素的输出:
和数组元素的输入相同,数组元素的输出也不能由一个write语句直接完成。同样要逐个数组元素输出。通常也用循环结构来完成这一功能:
fori:=1to10dowrite(a[i],'');{————数组元素之间用空格分隔}
writeln;
4、数组的应用:
例1:从键盘输入10个数,将这10个数逆序输入,并求这10个数的和,输出这个和。
programp1;
var
a:array[1..10]ofinteger;
i,s:integer;
begin
fori:=1to10doread(a[i]);
fori:=10downto1dowrite(a[i],'');
writeln;
s:=0;
fori:=1to10dos:=s+a[i];
writeln('s=',s);
end.
例2:用筛法求100以内的素数(质数)。
分析:素数是除了1和它本身以外没有其它约数的数。用筛法求素数的方法是:用质数筛去合数:从第一个素数2开始,把它的倍数去掉;这样2以后的第一个非0数就一定也是素数,把它的倍数也删了……重复这个删数过程,直到在所找到的素数后再也找不到一个非0数。把所有非0数输出。
programp2;
var
a:array[1..100]ofinteger;
i,j,k:integer;
begin
fori:=1to100doa[i]:=i;
a[1]:=0;i:=2;
whilei<=100do
begin
k:=i;
whilek<=100do
begin
k:=k+i;
a[k]:=0;
end;
{————上面将所有a[i]的倍数清0}
i:=i+1;
whilea[i]=0doi:=i+1;
{————查找接下来的第一个非0数}
end;
fori:=1to100doifa[i]<>0thenwrite(a[i],'');
end.
下一页阅读:二维数组
二维数组
一维数组在编程中多用于描述线性的关系:如一组数;一组成绩;一组解答等。数组元素只有一个下标,表明该元素在数组中的位置。二维数组在编程中多数用于描述二维的关系:如地图、棋盘、城市街道、迷宫等等。而二维数组元素有两个下标:第一个下标表示该元素在第几行,第二个下标表示在第几列。
1.二维数组的定义:
var
a:array[1..10,1..5]ofinteger;
其中:a是数组名,由程序员自定;array和of是定义数组的保留字;(这两点和一维数组定义的格式一样)中括号中的两个范围表示二维数组共有多少行、多少列(第一个范围表示行数,第二个范围表示列数);最后一个表示数组元素的类型,规定和一维数组一样。如上例,定义了一个二维数组a,共有10行5列。
2.使用二维数组:
1、数组元素的指称:数组名[行号,列号]。如第三行第四个元素:a[3,4]。
对某一行进行处理。如累加第4行的数据。则固定行号为4。如:fori:=1to5dos:=s+a[4,i];
对某一列进行处理。如累加第4列的数据。则固定列号为4。如:fori:=1to10dos:=s+a[i,4];
2、二维数组的输入输出要用双重循环来控制:
fori:=1to10do{————控制行数}
begin
forj:=1to5doread(a[i,j]){————第一行读入5个元素}
readln;{————读入一个换行符}
end;
{————最常用的方法:从键盘读入数据初始化二维数组}
fori:=1to10do
forj:=1to5doa[i,j]:=0;
{————最常用的方法:将二维数组清0}
fori:=1to10do
begin
forj:=1to5dowrite(a[i,j]:4);
writeln;
end;
{————最常用的输出方法:按矩阵形式输出二维数组的值}
例1:竞赛小组共有20位同学,这学期每位同学共参与了三项比赛,请统计每位同学的平均分。
分析:定义一个20行3列的二维数组来存放这些成绩。定义一个20个元素的一维数组来存放平均分。
programp1;
var
a:array[1..20,1..3]ofinteger;
b:array[1..20]ofreal;
i,j:integer;
begin
fori:=1to20do
begin
forj:=1to3doread(a[i,j]);
readln;
end;
{————从键盘上读入20个同学的三次竞赛成绩}
fori:=1to20dob[i]:=0;
{————先将平均分数组清0}
fori:=1to20do
begin
forj:=1to3dob[i]:=b[i]+a[i,j];{————计算总分}
b[i]:=b[i]/3;{————计算平均分}
end;
fori:=1to20dowrite(b[i]:5:1);
{————输出平均分}
writeln;
end.
下一页阅读:字符串
字符串
1.字符串用于存放整批的字符数据。通常编程中使用字符串存放字符化了的数字数据。如高精度运算时存放操作数和运算结果。字符串可以看作是特殊的字符串数组来处理。当然,它也有自已的特点。下面是字符串定义的格式:
var
s:string;s1:string[15];
字符串定义时,如不指定长度,则按该类型的最大长度(255个字符)分配空间,使用时最大可用长度为255个;如果在中括号中给出一个具体的值(1—255之间),则按这个值的大小分配空间。使用时,最大的可用长度即为该值。
2.字符串的输入、输出:
字符串类型既可按数组方式输入、输出,也可直接输入、输出:readln(s);writeln(s);多个字符串输入时以回车作为数据间的分隔符;每个readln语句只能读入一个字符串。
3.有关字符串的操作:
操作 | 类型 | 作用 | 返回值 | 例子 |
length(s) | 函数 | 求字符串s的长度 | 整型 |
s:='123456789'; l:=length(s);{l的值为9} |
copy(s,w,k) | 函数 | 复制s中从w开始的k位 | 字符串 |
s:='123456789'; s1:=copy(s,3,5);{s1的值是'34567'} |
val(s,k,code) | 过程 | 将字符串s转为数值,存在k中;code是错误代码 |
var s:string;k,code:integer; begin s:='1234'; val(s,k,code); write(k);{k=1234} |
|
str(i,s) | 过程 | 将数值i转为字符串s |
i:=1234; str(i,s); write(s);{s='1234'} |
|
Delete(s,w,k) | 过程 | 在s中删除从第w位开始的k个字符 |
s := 'Honest Abe Lincoln'; Delete(s,8,4); Writeln(s); { 'Honest Lincoln' } |
|
Insert(s1, S, w) | 过程 | 将s1插到s中第w位 |
S := 'Honest Lincoln'; Insert('Abe ', S, 8); { 'Honest Abe Lincoln' } |
|
Pos(c, S) | 函数 | 求字符c在s中的位置 | 整型 |
S := ' 123.5'; i :=Pos(' ', S);{i的值为1} |
+ | 运算符 | 将两个字符串连接起来 |
s1:='1234'; s2:='5678'; s:=s1+s2;{'12345678'} |
思考与练习:
1、随机产生20个100以内的数,输出;按从小到大的顺序排序,输出。
2、求一个5X5数阵中的马鞍数,输出它的位置。所谓马鞍数,是指在行上最小而在列上最大的数。如下:
56789
45678
34521
23490
12548
则1行1列上的数就是马鞍数。
3、做一个加法器。完成30000以内的加法,两个加数间用“+”连接,可以连加,回车表示式子输入完成;“#”表示结束运算,退出加法器。
【信息学竞赛Pascal语言 数组与字符串(五)】相关文章:
★ 2008—2012走美杯考试试题类型分析与统计(五年级)
相关文章
网友关注
网友关注视频
精品推荐
分类导航
- 太原小学奥数第二讲—有余除法
- 太原小学奥数第一讲—找规律
- 武汉楚才作文登报作品《一件“伟大”事》
- 武汉楚才作文登报作品《又是一年银耳飘香》
- 武汉楚才作文登报作品《芬芳何处寻》
- 武汉楚才作文登报作品《我总想着这些事》
- 合肥市28届青少年信息学(计算机)竞赛获奖名单(小学组)
- 屯小13名选手参加包河区第四届青少年信息学计算机竞赛
- NOIP2013普及组初赛答案
- 2013全国青少年信息学奥林匹克竞赛时间日程
- 合肥中小学生参加信息学奥赛有哪些好处?
- 信息学竞赛Pascal语言 数组与字符串(五)
- 合肥市“讯飞”杯信息学竞赛(小学组)考试大纲
- 青少年信息学竞赛对小升初的作用?
- 合肥市青少年信息学竞赛(小学组)大纲
- 合肥市讯飞杯青少年信息学竞赛规则(小学组)
- 全国青少年信息学(计算机)奥林匹克联赛初赛内容
- 全国青少年信息学(计算机)奥林匹克联赛题型