在数组中查找数据

§3算法的程序实现§3.3在数组中查找数据编程：在10个数中，找出最大数。问题用电脑编程解题的流程用电脑编程解题的流程第一步第一步：分析问题生成10个数在10个数中找出最大数用电脑编程解题的流程第二步第二步：设计算法生成10个数在10个数中找出最大数生成一个包含10个数的数列数学中的“数列”

数列是一组按顺序排列的数，记为｛an｝，即a1,a2,a3,……。称a1为数列的“第一项”，a2是“第二项”，等等。数列中数的总数为数列的“项数”，项数有限的数列为“有限数列”，项数无限的数列为“无限数列”。

数组就是一个特殊的有限数列。数组｛an｝，即a0,a1,a2,a3,……an。称a0为数组的“第一项”，a1是“第二项”，等等。数组的项，也叫数组元素。数组的“项数”为n+1。

编程中的“数列”------“数组”

数组就是一个特殊的有限数列。数组｛an｝，即a0,a1,a2,a3,……an。称a0为数组的“第一项”，a1是“第二项”，等等。数组的项，也叫数组元素。数组｛an｝的“项数”为n+1。

编程中的“数列”------“数组”一般很少使用数组元素a0第二步：设计算法生成10个数在10个数中找出最大数生成一个包含10个数的数列生成一个包含10个数的数组数组｛an｝，即a0,a1,a2,a3,……an。n=10

生成一个包含10个数的数组数组｛an｝，即a0,a1,a2,a3,……an。n=10

怎样生成这10个数呢？生成一个包含10个数的数组电脑自动循环生成随机数。怎样生成这10个数呢？数组｛an｝，即a0,a1,a2,a3,……an。n=10

第二步：设计算法生成10个数在10个数中找出最大数生成10个[0,100]以内的随机整数。第二步：设计算法生成10个数在10个数中找出最大数在10个数中使用“顺序查找”法找出最大数顺序查找a1MAX顺序查找a1a2MAXMAX1顺序查找a1a2a3MAXMAXMAX………………12顺序查找a1a2a3a9MAXMAXMAXMAXMAX………………128顺序查找a1a2a3a10a9MAXMAXMAXMAXMAXMAX………………1289顺序查找第二步：设计算法生成10个数在10个数中找出最大数“顺序查找”使用循环、比较找出最大数用电脑编程解题的流程第三步第三步：描述算法

开始结束生成10个数在10个数中找出最大数开始结束生成随机数Num(i)开始结束生成10个数在10个数中找出最大数电脑自动生成包含10个随机数的数组Num生成10个数开始结束MAX

←Num(i)MAX←Num(1)MAX

<Num(i)NoYes开始结束生成10个数在10个数中找出最大数在10个数中找出最大数“顺序查找”法用电脑编程解题的流程第四步第四步：设计界面，编写代码①

设计界面②

编写代码用电脑编程解题的流程第五步第五步：调试运行用电脑编程解题的流程第四步：设计界面，编写代码①

设计界面FormCommandButton132Form1CommandButton2CommandButton3第四步：设计界面，编写代码②编写代码开始结束生成10个数在10个数中找出最大数PrivateSubcmdMake_Click()DimiAsIntegerfrmMain.ClsFori=1ToMAXintNum(i)=Round(Rnd()*100,0)frmMain.PrintintNum(i)NextIEndSub1.生成10个数开始结束生成随机数Num(i)PrivateSubcmdMake_Click()DimiAsIntegerfrmMain.ClsFori=1ToMAXintNum(i)=Round(Rnd()*100,0)frmMain.PrintintNum(i)NextIEndSub1.生成10个数开始结束生成随机数Num(i)清除frmMain上的全部字符PrivateSubcmdMake_Click()DimiAsIntegerfrmMain.ClsFori=1ToMAXintNum(i)=Round(Rnd()*100,0)frmMain.PrintintNum(i)NextIEndSub1.生成10个数开始结束生成随机数Num(i)生成[0,100]以内的随机整数。PrivateSubcmdMake_Click()DimiAsIntegerfrmMain.ClsFori=1ToMAXintNum(i)=Round(Rnd()*100,0)frmMain.PrintintNum(i)NextIEndSub1.生成10个数开始结束生成随机数Num(i)生成[0,100]以内的随机整数。Rnd()可以得到[0,1)的随机数。Round(x,0)可以得到x四舍五入后的值，其中0代表小数位数PrivateSubcmdSeek_Click()DimintMaxAsIntegerDimiAsIntegerintMax=intNum(1)Fori=2ToMAXIfintNum(i)>intMaxThenintMax=intNum(i)EndIfNextifrmMain.PrintfrmMain.Print"结果是："+Str(intMax)EndSub2.在10个数中找出最大数开始结束MAX

←Num(i)MAX←Num(1)MAX

<Num(i)NoYesPrivateSubcmdSeek_Click()DimintMaxAsIntegerDimiAsIntegerintMax=intNum(1)Fori=2ToMAXIfintNum(i)>intMaxThenintMax=intNum(i)EndIfNextifrmMain.PrintfrmMain.Print"结果是："+

Str(intMax)EndSub2.在10个数中找出最大数开始结束MAX

←Num(i)MAX←Num(1)MAX

<Num(i)NoYesStr(x)可以将数值x转换成字符串x如：Str(81)的结果为“81”PrivateSubcmdSeek_Click()DimintMaxAsIntegerDimiAsIntegerintMax=intNum(1)Fori=2ToMAXIfintNum(i)>intMaxThenintMax=intNum(i)EndIfNextifrmMain.PrintfrmMain.Print"结果是："+

Str(intMax)EndSub2.在10个数中找出最大数开始结束MAX

←Num(i)MAX←Num(1)MAX

<Num(i)NoYes在frmMain上输出一个空行。ConstMAX=10DimintNum(MAX)AsIntegerPrivateSubcmdMake_Click()DimiAsIntegerfrmMain.ClsFori=1ToMAXintNum(i)=Round(Rnd()*100,0)frmMain.PrintintNum(i)NextiEndSubPrivateSubcmdSeek_Click()DimintMaxAsIntegerDimiAsIntegerintMax=intNum(1)Fori=2ToMAXIfintNum(i)>intMaxThenintMax=intNum(i)EndIfNextifrmMain.PrintfrmMain.Print"结果是："+Str(intMax)EndSub完整的程序代码ConstMAX=10DimintNum(MAX)AsIntegerPrivateSubcmdMake_Click()DimiAsIntegerfrmMain.ClsFori=1ToMAXintNum(i)=Round(Rnd()*100,0)frmMain.PrintintNum(i)NextiEndSubPrivateSubcmdSeek_Click()DimintMaxAsIntegerDimiAsIntegerintMax=intNum(1)Fori=2ToMAXIfintNum(i)>intMaxThenintMax=intNum(i)EndIfNextifrmMain.PrintfrmMain.Print"结果是："+Str(intMax)EndSub1.生成10个数2.在10个数中找出最大数0.定义数组完整的程序代码ConstMAX=10DimintNum(MAX)AsIntegerPrivateSubcmdMake_Click()DimiAsIntegerfrmMain.ClsFori=1ToMAXintNum(i)=Round(Rnd()*100,0)frmMain.PrintintNum(i)NextiEndSubPrivateSubcmdSeek_Click()DimintMaxAsIntegerDimiAsIntegerintMax=intNum(1)Fori=2ToMAXIfintNum(i)>intMaxThenintMax=intNum(i)EndIfNextifrmMain.PrintfrmMain.Print"结果是："+Str(intMax)EndSub0.定义数组完整的程序代码为什么在最前面定义数组呢？ConstMAX=10DimintNum(MAX)AsIntegerPrivateSubcmdMake_Click()DimiAsIntegerfrmMain.ClsFori=1ToMAXintNum(i)=Round(Rnd()*100,0)frmMain.PrintintNum(i)NextiEndSubPrivateSubcmdSeek_Click()DimintMaxAsIntegerDimiAsIntegerintMax=intNum(1)Fori=2ToMAXIfintNum(i)>intMaxThenintMax=intNum(i)EndIf