《信息的编程加工》由会员分享，可在线阅读，更多相关《信息的编程加工（24页珍藏版）》请在金锄头文库上搜索。
1、信息的编程加工乐陵市第二中学 第 章3编程绘制 y=x2 的函数图像问题分析“描点法”手工绘制步骤：第一步 准备好绘图工具； 第二步 绘制坐标系的横轴与纵轴；第三步 依据要绘图的函数表达式，选择几个自变量的值算出相应的因变量值，得到一组坐 标点； 第四步 在坐标系上描出这几个点，尽量光滑地描点连线。问题分析计算机编程绘制函数图像的过程：第一步 选择计算机程序设计语言；第二步 绘制坐标系；第三步 根据函数表达式计算所要描点的坐标；第四步 在坐标系上描点成像。让我们一起动手体验编程信息编程加工的四个步骤 分析信息； 设计方法； 编写代码； 调试运行。 设计方法； 编写代码；编程加工第一步：分析问题
2、问题描述如下：有三个牧师和三个野人过河，只有一条 能装下两个人的船，在河的任何一方或者 船上，如果野人的人数大于牧师的人数， 那么牧师就会有危险。 你能不能找出一种 安全的渡河方法呢？算法的概念是指为解决一个问题而采取的方法和步骤。强调：算法不仅是指计算的方法，而且还包含从 何处着手、解题步骤以及结果处理等全过程。 算法的概念：1.输入三个不相同的数，求出其中的大数。 先将a与b进行比较，若ab，则amax,否则bmax； 再将c与max进行比较，若cmax,则cmax。 2. 如何交换两变量a,b中的值。 在计算机中处理此类问题时不能直接交换a,b的值，需临时 变量 M，逐步交换。 将X的值
3、9赋给M; 将Y的值2赋给X； 将M的值9赋给Y。 算法的描述已知变量x和y中分别存放了数据，现在要交换其中 数据。为了达到交换的目的，需要引进一个中间变量m， 其算法如下： 将x中的数据送给变量m，即xm； 将y中的数据送给变量x，即yx； 将m中的数据送给变量y，即my。交换两个变量中的数据mxy图形符号名称说明起止框表示一个算法的开始或结束输入、输出框框内标明输入、输出内容处理框框内标明所进行的处理判断框框内标明判断条件，框外标明条 件成立或不成立的不同流向带箭头的流线表示从某一框到另一框的流 向认识代码 Private Sub Command1_Click()Dim x, y As S
4、inglePicture1.Scale (-10, 25)-(10, -25)Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)Picture1.Line (0, 25)-(0, -25), RGB(0, 0, 255)For x = -10 To 10 Step 0.0001y = x 2Picture1.PSet (x, y), RGB(255, 0, 0)Next xEnd Sub编程加工第三步：编写代码认识代码Private Sub Command1_Click() 确定按钮单击事件Dim x, y As SinglePicture1.Scal
5、e (-10, 25)-(10, -25)Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)Picture1.Line (0, 25)-(0, -25), RGB(0, 0, 255)For x = -10 To 10 Step 0.0001y = x 2Picture1.PSet (x, y), RGB(255, 0, 0)Next xEnd Sub 结束程序认识代码Private Sub Command1_Click()Dim x, y As Single 定义x,y两个变量Picture1.Scale (-10, 25)-(10, -25)Pic
6、ture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)Picture1.Line (0, 25)-(0, -25), RGB(0, 0, 255)For x = -10 To 10 Step 0.0001y = x 2Picture1.PSet (x, y), RGB(255, 0, 0)Next xEnd Sub认识代码Private Sub Command1_Click()Dim x, y As SinglePicture1.Scale (-10, 25)-(10, -25) 定义坐标系Picture1.Line (-10, 0)-(10, 0), RGB(
7、0, 0, 255)Picture1.Line (0, 25)-(0, -25), RGB(0, 0, 255)For x = -10 To 10 Step 0.0001y = x 2Picture1.PSet (x, y), RGB(255, 0, 0)Next xEnd Sub（-10，25）（10，-25）认识代码Private Sub Command1_Click()Dim x, y As SinglePicture1.Scale (-10, 25)-(10, -25)Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255) 画横坐标轴，颜色为蓝色P
8、icture1.Line (0, 25)-(0, -25), RGB(0, 0, 255)For x = -10 To 10 Step 0.0001y = x 2Picture1.PSet (x, y), RGB(255, 0, 0)Next xEnd Sub（-10，0）（10，0）认识代码Private Sub Command1_Click()Dim x, y As SinglePicture1.Scale (-10, 25)-(10, -25)Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)Picture1.Line (0, 25)-(0, -
9、25), RGB(0, 0, 255) 画纵坐标轴，颜色为蓝色For x = -10 To 10 Step 0.0001y = x 2Picture1.PSet (x, y), RGB(255, 0, 0)Next xEnd Sub（0，25）（0，-25）认识代码Private Sub Command1_Click()Dim x, y As SinglePicture1.Scale (-10, 25)-(10, -25)Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)Picture1.Line (0, 25)-(0, -25), RGB(0, 0,
10、 255)For x = -10 To 10 Step 0.0001y = x 2 用循环语句描点画函数图像Picture1.PSet (x, y), RGB(255, 0, 0)Next xEnd Sub认识代码Private Sub Command1_Click()Dim x, y As SinglePicture1.Scale (-10, 25)-(10, -25)Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)Picture1.Line (0, 25)-(0, -25), RGB(0, 0, 255)For x = -10 To 10 Step 0.0001 x值从-10变化到10，每次增量为0.0001y = x 2 计算y值Picture1.PSet (x, y), RGB(255, 0, 0) 用红色描出坐标为（x,y）的点Next x 取下一个x值End Sub此线由二十万 个点组成无论是手工绘制还是编程实现， 其本质都是“描点法”。练习一如何绘制如下函数图像？练习二如何绘制如下函数图像？“我们只要把问题原封不动地交 给计算机，计算机就会完全自 动得出结果。”此说法正确吗？ 为什么？问题思考祝同学们 身体健康 学习进步！谢谢合作！
