4.1 数组 课件-2021-2022学年高中信息技术浙教版选修1（20张PPT）

(共20张PPT)
程序设计的核心——数组
目 录
1
考试要求
3
学习难点
5
作业讲解
7
课后巩固
2
学习重点
4
作业讲解
6
课堂练习
1.数组 (c)
考试要求
1.掌握数组的定义。
2.理解数组的含义。
3.尝试用数组来解决问题
学习重点
1.数组的含义。
2.用数组来解决问题
学习难点
目
录
01
作业讲解
作业讲解
3.VB程序如下
a(1)=5: a(2)=9: a(3)=-1: a(4)=12: a(5)=11: a(6)=-7: a(7)=2: a(8)=22
k = a(1)
For i = 2 To 8
If a(i) < k Then k = a(i)
Next i
Text1.Text = Str(k)
程序运行后文本框 Text1 显示_________。
-7
作业讲解
4. 有 8 个数据：46、78、12、55、17、9、33、80 依次存放在数组 d(1)到 d(8)中，k=1,程序段如下所示：
For i=2 To 8
If d(i) > a(k) Then k = i
Next i
Text2.Text=Str(k)
程序运行时，文本框 Text2 显示的是____________。
8
作业讲解
5. 有如下 VB 程序段
Dim a(0 To 10) As Integer
n = 10
For i = 0 To n / 2
a(i) = 2 * i + 1
Next i
For i = n To 6 Step -1
a(i) = a(n - i)
Next i
Text1.Text = Str(a(n - 3))
n 的值为 10，程序执行后，Text1 中显示的内容是_____________。
7
a(0) a(1) a(2) a(3) a(4) a(5) a(6) a(7) a(8) a(9) a(10)
3
5
11
7
9
9
7
5
3
1
1
作业讲解
有 VB 编写的程序如下：
Dim a(0 To 9) As Integer,t as Long
t = Val(Text1.Text)
Do While t <> 0
a(t Mod 10) = 1
t = t \ 10
Loop
For i = 0 To 9
x = x + a(i)
Next i
Text1中输入10242048则程序执行后x的值为___________。
5
a(0) a(1) a(2) a(3) a(4) a(5) a(6) a(7) a(8) a(9)
1
1
0
0
1
0
0
1
0
1
1
1
1
目
录
02
课堂练习
课堂练习
k = a(2) - a(1)
For i = 3 To 10
If a(i) - a(i - 1) > k Then
k = a(i) - a(i - 1)
EndIf
Next i
a(1) a(2) a(3) a(4) a(5) a(6) a(7) a(8) a(9) a(10)
5 9 -1 12 11 32 -7 2 22 3
1.程序运行后k的值是___________。
2.程序的功能是什么？
数组相邻元素差值的最大值
k
i
13
4
21
4
3
5
6
8
7
9
10
11
课堂练习
k = a(2) - a(1)
For i = 3 To 10
If a(i) - a(i - 1) > k Then
k = a(i) - a(i - 1)
EndIf
Next i
a(1) a(2) a(3) a(4) a(5) a(6) a(7) a(8) a(9) a(10)
5 9 -1 12 11 32 -7 2 22 3
求哪两个元素间的差值最大？
k = 2
For i = 3 To 10
If a(i) - a(i - 1) > a(k) - a(k - 1) Then
k = i
EndIf
Next i
课堂练习
某地1900-1999年的平均降水量数据保存在数据库中。现要求找出相邻两年平均降水量变化（即本年度与上年度“年平均降水量”差值的绝对值）最大的年份区间。小吴为此编写了VB程序，程序运行时，单击按钮Command1后，在文本框Text1中输出运行结果。实现上述功能的VB代码如下，请在划线处填写合适代码：
课堂练习
某地1900-1999年的平均降水量数据保存在数据库中。现要求找出相邻两年平均降水量变化（即本年度与上年度“年平均降水量”差值的绝对值）最大的年份区间。小吴为此编写了VB程序，程序运行时，单击按钮Command1后，在文本框Text1中输出运行结果。实现上述功能的VB代码如下，请在划线处填写合适代码：
Dim w(1 To 100) As Single
'依次存储1900-1999年的年平均降水量数据
Const n = 100
Private Sub Command1_Click()
Dim i As Integer, imax As Integer
imax= ①
For i = ② To n
if abs(w(i)-w(i-1))>= ③ then
imax=i
Endif
Next i
text1.Text = "年均降水变化最大的年份是" + ④ + "-" + ⑤End Sub
2
3
abs(w(imax)-w(imax-1))
Str(1900+imax-2)
Str(1900+imax-1)
课堂练习
tmp=1 : ans=0
For i = 2 To 6
If a(i) > a(i - 1) Then tmp=tmp+1 Else tmp=1
If tmp > ans Then ans=tmp
Next i
a(1) a(2) a(3) a(4) a(5) a(6)
2 1 3 7 5 8
数组最长连续上升子序列
1.程序运行后ans的值是___________。
2.程序的功能是什么？
课堂练习
a(1) a(2) a(3) a(4) a(5) a(6) a(7) a(8) a(9) a(10)
56 67 89 28 66 11 86 65 18 10
编程统计峰值的个数，并在列表框中显示这些峰值。
课堂练习
a(1) a(2) a(3) a(4) a(5) a(6) a(7) a(8) a(9) a(10)
56 67 89 28 66 11 86 65 18 10
c=0
For
If Then
c=c+1
list1.additem
Endif
Next i
统计峰值的个数，并在
列表框中显示这些峰值。
a(i) > a(i - 1) and a(i)i = 2 To 9
str(a(i))
课堂练习
a(1) a(2) a(3) a(4) a(5) a(6) a(7) a(8) a(9) a(10)
2 5 6 9 11 20 21
思考：在一个有序的数组中，插入一个新数据x（比如x=10）后。数组依然有序，编程解决这个问题。
谢谢.！