信息技术选修1 数据与数据结构2.3.1 指针与指针变量优秀课件ppt

这是一份信息技术选修1 数据与数据结构2.3.1 指针与指针变量优秀课件ppt

2.3.1 从制作矩形框问题开始 想一想：英文语句的意思？If you enjoy running every moring, then please put your right hand, else please put your left hand.任务一：制作矩形框问题 问题：张军找来了一条长度为L的铁丝，希望用来制作一个面积为S的矩形框。他问李明：这个矩形的长和宽各为多少，才能使制作出来的矩形框面积为指定值呢？（一）分析问题设矩形长为x，根据题意，则宽x1为(L/2-X),面积S=x (L/2-X), 化简方程 得：X^2-1/2Lx+S=0，通过求根公式可以得出x和x1的值。 (二）设计算法算法如下：1，输入铁丝长度L；2，输入矩形框面积S；3，计算判别式D=L*L/4-4S;4，如果D>=0，则计算 X=(L/2+sqr(D)/2 和x1=L/2-X; 否则输出“找不到这样的矩形”。5，结束（三）编写程序请同学把程序空缺的部分补充完整：Dim L, s, x,x1, d As SingleL = InputBox("请输入铁丝的长度L")S = InputBox("请输入要围成的矩形面积S")D = L * L / 4 - 4 * SIf ThenPrint "长方形的长="; (L / 2 + Sqr(D)) / 2Print "长方形的宽="; L / 2 -XElsePrint “ 找不到这样的矩形"End IfD>=0什么是选择结构？当条件成立时，执行语句组1，否则执行语句组2.其中，条件是一个逻辑表达式，语句组是一组VB语句。任务二：猜价格游戏任务二：猜价格游戏程序填空Dim price as integerPrice=val(text1.text)If then msgbox”猜对了“If then msgbox”猜错了“Price=4288Price<>4288思考：如何用一个IF语句完成猜价格程序？任务三：猜价格程序改写条件语句的格式与流程图格式1: If <条件>then <语句组1>Else <语句组2>格式2: If <条件>then <语句组1>Else <语句组2>Endif程序填空Dim price as integerPrice=val(text1.text)▁▁▁▁ price =4288▁▁▁▁ msgbox”猜对了“ ▁▁▁▁msgbox”猜错了“▁▁▁▁IFThenElseEndif 呈现问题： 某火车站规定行李托运收费标准：行李重量小于等于50kg，收行李托运费用为50元；行李重量大于50kg，多出的部分每公斤收费0.8元。请解决这个问题。 50 (x<=50)F(x)= 50+(x-50)*0.8 (x>50)（一）分析问题1）.输入一个数；2）.若该数小于等于50，则输出费用50元；3）.若该数大于50，则费用按50+(x- 50)*0.8 计算再输出.(二）设计算法结束开始输入公斤数xx>50m= (x－50)×0.8+50YN输出mm=50程序代码：Dim x as SingleDim m as Singlex=val(text1.text)If x>50 thenm=50+(x-50)*0.8elsem=50End if Print m思考：1）判断一个考试成绩，若大于等于60，则输出“Pass！”，否则输出“Work hard！”。2）编写一个vb程序，输入三个整数，输出其中最大的数。