pascal_数组概述.ppt

练习 A是一个元素个数为10的数组，删除数组A中的第3位，请编程实现。 输入数据：1 2 3 4 5 6 7 8 9 10 输出结果：1 2 4 5 6 7 8 9 10 * * * * 数组元素的插入 【试题描述】 在一个数组的第x个位置插入一个新的数y 【输入描述】 有四行 第一行有一个整数n 第二行有n个整数 第三行有一个整数x，为要插入的位置 第四行有一个整数y，为要插入的整数 【输出描述】 更新后的数组 【输入样例】 5 7 2 3 4 5 2 9 【输出样例】 7 9 2 3 4 5 练习 将整数X插入到一个元素个数为10的有序数组A中，插入后数组仍然是一个有序数组，请编程实现。 输入数据： Input x 4 Input array 1 3 5 7 9 12 13 14 15 20 输出结果：1 3 4 5 7 9 12 13 14 15 20 * * * * 数组元素的排序 【试题描述】 输入一个数组的n个元素，按从小到大顺序输出 【输入描述】 有2行 第一行有一个整数n 第二行有n个整数 【输出描述】 更新后的数组 【输入样例】 5 7 2 3 4 5 【输出样例】 2 3 4 5 7 * * 数组元素的排序 Var L, i, j: LongInt; a: Array[0..100] Of LongInt; Begin Readln(L); For i := 1 To L Do Read(a[i]); Readln; For i := 1 To L - 1 Do For j := i + 1 To L Do If a[j] a[i] Then Begin a[0] := a[i]; a[i] := a[j]; a[j] := a[0]; End; For i := 1 To L - 1 Do Write(a[i], ); Writeln(a[L]); End. 练习 将整数X插入到一个元素个数为10的无序数组A中，插入后数组变成一个从大到小排列的有序数组，请编程实现。 输入数据： Input x 4 Input array 1 20 5 12 9 15 13 7 14 3 输出结果：1 3 4 5 7 9 12 13 14 15 20 * * * * 练习：斐波那契数列 【试题描述】 利用数组，生成并输出“斐波那契数列”的前n(n＜＝30)项：1 1 2 3 5 8 13 … (占一行，数据之间有一个空格)。 【输入样例】 7 【输出样例】 1 1 2 3 5 8 13 * * 斐波那契数列 Program FeibonaqiShulie; Var n, i: LongInt; f: Array[1..30] Of LongInt; Begin Readln(n); f[1]:=1; f[2]:=1; For i:=3 To n Do f[i]:=f[i-1]+f[i-2]; For i:=1 To n-1 Do Write(f[i], ); Writeln(f[n]); End. * * 恭喜你成为数组列车优秀列车长！ * 信息学奥赛培训 ——数组 * * 为什么要用数组？ 如果不用数组，…… 变量定义很长 var a1,a2,a3,a4…… 变量调用很烦 a1:=a1+1;a2=a2+1;…… 不能循环遍历 如果用数组，一切那么轻松！ * * 数组“列车” 在程序设计中，为了处理方便， 把具有相同类型的若干变量按有序的形式组织起来。这些按序排列的同类数据元素的集合称为数组。 * * 数组 一系列相同类型、有顺序的数据可以定义成一个数组。 数组要先定义才能使用： var 数组名:[下标类型] of 元素类型 下标类型常见为子界类型：下界..上界 可以用循环方便的输入、输出、统计数组元素。 例、记录身高 小东东是个爱好运动的好学生，加上睡眠好不挑食，眼看个子长得一天比一天高，这个星期天，小东东提议大家来量量身高，想算一算家里人的平均身高是多少？ 爷爷：175 奶奶：160 外公：172 外婆：158 爸爸：178 妈妈：162 小东东：142（单位：厘米） 要把数据记录到表格中，然后由后向前按如下顺序显示出来： 用程序怎么实现？ 175 160 172 158 178 162 142 1 2 3 4 5 6 7 Bianhao: 7