问题描述:
中学的东西吧 我不太懂 但希望能知道 请讲的详细一点 谢谢了
解析:
一维数组
1、定义:
var
a:array [1..10] of integer
其中:a是这一凯歼批数据的名称,称为数组名;array、of是定义数组的保留字;中括号中的数字是数据编号的下限和上限,财时也说明了数据的个数(上限-下限);最后一个是数据的基类型,如integer,char,real,boolean。
2、数组元素的输入:
数组名代表的并不是一个变量,而是一批变量,因而,不能直接整个数组读入,而是要逐个数组元素读入,通常用循环结构来完成这一功能。下面是几个常用输入数组元素的例子:
for i:=1 to 10 do read(a[i])
{————从键盘读入数组元素的值;最常用的方法}
for i:=1 to 10 do a[i]:=i
{————数组元素a[1]到a[10]的值分别为1到10;数据赋初值}
for i:=1 to 10 do a[i]:=0
{————数组元素清0;最常用的数据初始化的方法}
for i:=1 to 10 do a[i]:=random(100)
{————随机产生10个100以内的数,赋给各数组元素}
3、数组元素的输出:
和数组元素的输入相同,数组元素的输出也不能由一个write语句直接完成。同样要逐个数组元素输出。通常也用循环结构来完成这一功能:
for i:=1 to 10 do write(a[i],' '){—乱孙迟———数组元素之间用空格分隔}
writeln
4、数组的应用:
例1:从键盘输入10个数,将这10个数逆序输入,并求这10个数的和,输出这个和。
program p1
var
a:array [1..10] of integer
i,s:integer
begin
for i:=1 to 10 do read(a[i])
for i:=10 downto 1 do write(a[i],' ')
writeln
s:=0
for i:=1 to 10 do s:=s+a[i]
writeln('s=',s)
end.
例2:用筛法求100以内的素数(质数)。
分析:素数是除了哗李1和它本身以外没有其它约数的数。用筛法求素数的方法是:用质数筛去合数:从第一个素数2开始,把它的倍数去掉;这样2以后的第一个非0数就一定也是素数,把它的倍数也删了……重复这个删数过程,直到在所找到的素数后再也找不到一个非0数。把所有非0数输出。
program p2
var
a:array [1..100] of integer
i,j,k:integer
begin
for i:=1 to 100 do a[i]:=i
a[1]:=0i:=2
while i<=100 do
begin
k:=i
while k<=100 do
begin
k:=k+i
a[k]:=0
end
{————上面将所有a[i]的倍数清0}
i:=i+1
while a[i]=0 do i:=i+1
{————查找接下来的第一个非0数}
end
for i:=1 to 100 do if a[i]<>0 then write(a[i],' ')
end.
6.2 二维数组
一维数组在编程中多用于描述线性的关系:如一组数;一组成绩;一组解答等。数组元素只有一个下标,表明该元素在数组中的位置。二维数组在编程中多数用于描述二维的关系:如地图、棋盘、城市街道、迷宫等等。而二维数组元素有两个下标:第一个下标表示该元素在第几行,第二个下标表示在第几列。
1.二维数组的定义:
var
a:array[1..10,1..5] of integer;
其中:a是数组名,由程序员自定;array和of是定义数组的保留字;(这两点和一维数组定义的格式一样)中括号中的两个范围表示二维数组共有多少行、多少列(第一个范围表示行数,第二个范围表示列数);最后一个表示数组元素的类型,规定和一维数组一样。如上例,定义了一个二维数组a,共有10行5列。
2.使用二维数组:
1、数组元素的指称:数组名[行号,列号]。如第三行第四个元素:a[3,4]。
对某一行进行处理。如累加第4行的数据。则固定行号为4。如:for i:=1 to 5 do s:=s+a[4,i]
对某一列进行处理。如累加第4列的数据。则固定列号为4。如:for i:=1 to 10 do s:=s+a[i,4]
2、二维数组的输入输出要用双重循环来控制:
for i:=1 to 10 do{————控制行数}
begin
for j:=1 to 5 do read(a[i,j]){————第一行读入5个元素}
readln{————读入一个换行符}
end
{————最常用的方法:从键盘读入数据初始化二维数组}
for i:=1 to 10 do
for j:=1 to 5 do a[i,j]:=0
{————最常用的方法:将二维数组清0}
for i:=1 to 10 do
begin
for j:=1 to 5 do write(a[i,j]:4)
writeln
end
{————最常用的输出方法:按矩阵形式输出二维数组的值}
例1:竞赛小组共有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(a[i,j])
readln
end
{————从键盘上读入20个同学的三次竞赛成绩}
for i:=1 to 20 do b[i]:=0
{————先将平均分数组清0}
for i:=1 to 20 do
begin
for j:=1 to 3 do b[i]:=b[i]+a[i,j]{————计算总分}
b[i]:=b[i]/3{————计算平均分}
end
for i:=1 to 20 do write(b[i]:5:1)
{————输出平均分}
writeln
end.
希望你能采纳我的答案 谢谢
我磨禅们做程序的经常会遇到函数 array 转为 object 或者是反向的转换。我一般有个习惯就是把对应的功能封瞎基尘装成函数来方便以后的调用和使用。
// 转换对象为数组
// 转换数组为对象
这里要说一个不经常用的以前开发的过程锋前中,为了避免自己替换父级都只是标注或者给客户说明一下,后来发现一个东西 final
这样就可以避免子级替换父级。我感觉挺好的,大家可以踊跃发言,毕竟程序员的世界 **分享既能让别人获得帮助,也会让自己提升,一种互利共赢**
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)