高中信息技术选修一解析法穷举法课件.ppt

上传人（卖家）：ziliao2023

文档编号：5709410

上传时间：2023-05-05

格式：PPT

页数：15

大小：128KB

文档加载中……请稍候！
如果长时间未打开，您也可以点击刷新试试。

下载文档到电脑，查找使用更方便

20 文币

交易提醒：下载本文档，相应价格的文币将全额进入上传人（卖家）的账号。立即下载优惠套餐（点此详情）

【下载声明】
1. 本站全部试题类文档，若标题没写含答案，则无答案；标题注明含答案的文档，主观题也可能无答案。请谨慎下单，一旦售出，不予退换。
2. 本站全部PPT文档均不含视频和音频，PPT中出现的音频或视频标识（或文字）仅表示流程，实际无音频或视频文件。请谨慎下单，一旦售出，不予退换。
3. 本页资料《高中信息技术选修一解析法穷举法课件.ppt》由用户（ziliao2023）主动上传，其收益全归该用户。163文库仅提供信息存储空间，仅对该用户上传内容的表现方式做保护处理，对上传内容本身不做任何修改或编辑。若此文所含内容侵犯了您的版权或隐私，请立即通知163文库（点击联系客服），我们立即给予删除！
4. 请根据预览情况，自愿下载本文。本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
5. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007及以上版本和PDF阅读器，压缩文件请下载最新的WinRAR软件解压。

配套讲稿：: 如PPT文件的首页显示word图标，表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
特殊限制：: 部分文档作品中含有的国旗、国徽等图片，仅作为作品整体效果示例展示，禁止商用。设计者仅对作品中独创性部分享有著作权。
关键词：: 高中信息技术选修解析穷举课件

资源描述：: 1、零售价*数量，当数量=10解析表达式解析表达式解析表达式解析表达式t0-h/100*0.5Private Sub Command1_Click()Const pi=3.14159265Dim i As Integer,j As IntegerDim x1 As Single,y1 As SingleDim x2 As Single,y2 As SingleDim a As SingleDim r As SingleDim nodes As IntegerPicture1.Scale(-1.5,1.5)-(1.5,-1.5)建立坐标系Picture1.Clsr=1nodes=15a=2*pi/n
2、odes 弧度数For i=1 To nodes 枚举求(x1,y1)x1=r*Cos(a*i)y1=r*Sin(a*i)For j=1 To nodes 枚举求(x2,y2)If i j Then x2=r*Cos(a*j)y2=r*Sin(a*j)Picture1.Line(x1,y1)-(x2,y2),vbBlue 画线 End If Next jNext iEnd Sub注意：需要添加picture1和command1很难得到有效的解析式。穷举法100999a3+b3+c3=xFor x=100 To 999 a=x 100 b=(x Mod 100)10 c=x Mod 10 I
3、f x=a 3+b 3+c 3 Then Print x End IfNext xPrivate Sub Command2_Click()For a=1 To 9 For b=0 To 9 For c=0 To 9 If a*100+b*10+c=a 3+b 3+c 3 Then Print a*100+b*10+c End If Next c Next b Next aEnd Sub a1*x+b1*y=c1 a2*x+b2*y=c2x=(c2-b2*c1)/(a2-a1*b2/b1)y=(c1-a1*x)/b1Private Sub Command1_Click()For x=1 To 20 For y=1 To 33 z=100-x-y If x*5+y*3+z/3=100 Then Print x,y,z End If Next yNext xEnd Sub

展开阅读全文

163文库所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。