枚举解析练.docVIP

红色字体的是作业，完成在作业本上。 【例1】输入直角三角形的两个直角边的边长值a和b，然后用勾股定理计算出斜边的边长值c。 分析问题： 输入：直角三角形两个直角边的边长a和b。 处理：利用勾股定理公式计算斜边c的值。 输出：直角三角形的斜边长c。 流程图： 程序代码： a=InputBox(请输入第一条直角边的值：) b=InputBox(请输入第二条直角边的值：) c=sqr(a*a+b*b) Print c 【例2】输入三角形边长a，b，c，求三角形面积s。 分析问题： 输入：三角形三个边长a、b、c。 处理：利用海伦公式（其中）计算三角形的面积s。 输出：三角形的的面积s。 流程图： 程序代码： a=InputBox(请输入第一条边的值：) b=InputBox(请输入第二条边的值：) c=InputBox(请输入第三条边的值：) p=(a+b+c)/2 s=sqr(p*(p-a)*(p-b)*(p-c)) Print s 【例3】求两个并联电阻的值，公式为： 。 分析问题： 输入：两个电阻的值r1、r2。 处理：利用公式r=1/(1/r1+1/r2)计算并联电阻的值r。 输出并联电阻的值r。 流程图： 程序代码： r1=InputBox(请输入第一个电阻的值：) r2=InputBox(请输入第二个电阻的值：) c=1/r1+1/r2 r=1/c Print r 【例4】输入一元二次方程ax2+bx+c=0（a≠0）的系数a、b、c，求方程的解。 分析问题： 输入：一元二次方程的三个系数a、b、c。 处理： 计算一元二次方程的判别式b2-4ac。 根据判别式的值，判别方程解的情况，如有实数解，则计算方程的解。 输出：方程的解或“无解”。 程序代码： a=InputBox(请输入系数a的值：) b=InputBox(请输入系数b的值：) c=InputBox(请输入系数c的值：) p=b*b-4*a*c IF p0 THEN h1=(-b+Sqr(p))/(2*a) h2=(-b-Sqr(p))/(2*a) Print h1, h2 ELSE IF p=0 THEN h=-b/(2*a) Print h ELSE Print 无解 END IF END IF 流程图： 百鸡百钱问题：公鸡每只5元，母鸡每只3元，小鸡1元3只，现在用100元钱买100只鸡，求公鸡、母鸡、小鸡各买几只？ 分析问题： 输入：本例没有输入。 处理： 设公鸡买x只，母鸡买y只，小鸡买z只。 数学方法处理时，是列出不定方程： 　　 然后通过讨论，得出方程的解。 使用枚举法时，是对可能的公鸡、母鸡、小鸡数一一列举，然后判断是否满足题意。 输出：满足题意的公鸡、母鸡、小鸡数。 流程图： 程序代码：x=0 程序代码： x=0 DO WHILE x=20 y=0 DO WHILE y=100-x z=100-x-y IF x*5+y*3+z/3=100 THEN Print x, y, z END IF y=y+1 Loop x=x+1 Loop 求1-1000中，能被3整除的数 找出1-1000中所有能被7和11整除的数。（流程图和程序代码） 求十个数中的最大（小）值。（采用“擂台法”找出最大值。） 输入20个数，求其中最大值max和最小值min。（流程图和程序代码）