算法流程解析

算法举例若干三角形面积计算判断质数二分法解方程判断三角形数列求和程序三数大小排序一元二次方程求根第一页，共十八页。算法举例若干辗转相除法秦九韶算法进制转换割圆术根分数计算搜索问题整除问题第二页，共十八页。p=（2+3+4）/2s=SQR(p*(p－2)*(p－3)*(p-4))输出s结束开始第三页，共十八页。开始输入nflag=1d=2flag=0d=d+1n＞2d整除n?d＜=n－1且flag=1?flag=1?n是质数n不是质数结束是否否是否是否是第四页，共十八页。开始x1=1x2=2f(x)=x2－2x1=mx2=mm=(x1+x2)/2x1=mx2=mf(m)=0?f(x1)f(m)＞0|x1-x2|＜0.005结束输出所求的近似根mm=(x1+x2)/2是否否是否是第五页，共十八页。开始输入a，b，ca+b＞c，a+c＞b，b+c＞a是否同时成立？存在这样的三角形不存在这样的三角形结束否是第六页，共十八页。开始i=1sum=0i=i+1sum=sum+ii≤100?输出sum结束否是第七页，共十八页。开始t=a,a=b,b=tt=a,a=c,c=tt=b,b=c,c=t输入a，b，c输入a，b，cb＞a?c＞a?c＞b?结束是是否否是否三数排序程序第八页，共十八页。开始输入a，b，cΔ=b2－4acp=－b/2aq=SQR(ABS(Δ))/(2a)x1=p+qx2=p-qΔ≥0?x1=x2?原方程有两个不等的实数根x1,x2原方程有两个相等的实数根x1,x2原方程无实数根结束是否是否一元二次方程求根第九页，共十八页。开始输入两个正整数n，mn＞m?t=nn=mm=tr=mMODnr=0?m=nn=r输出最大公约数n结束否是第十页，共十八页。开始输入f(x)的系数：a0、a1、a2、a3、a4、a5输入x0n=1v=a5n=n+1v=v·x0+a5-nn≤5?输出v结束否是第十一页，共十八页。开始输入一个k进制的数a输入基数kS=0I=1将数字a转换顾字符bb$=str$(a)计算b$的长度m=Len(b$)取出b$中左起第I个字符c$=mid#(b$,I,1)转换成数字c=val(c$)S=S+c*k^(I－1)I=I+1I＞m输出结果S结束是否第十二页，共十八页。开始输入n（n=96)输出n，s结束i=6x=1计算正六边形面积S=6*SQR(3)/4计算多边形的高h=SQR(1-(x/2)^2)计算多边形面积s=s+i*x*(1-h)/2计算多边形边长x=SQR((x/2)^2+(1-h)^2)i=2*in=2*ni>n?否是第十三页，共十八页。体会计数器—根分数(含有8个6)

a1/6开始n1ann+1n>7

结束NY

计数器

处理器输出a初始值８根分数线中，只有上面７根决定循环的次数，注意排除最后１根的干扰．同样，８个“６”中只有前７个决定循环的次数．实质上，最后那个１／６可以换为任意数而不影响总体设计，只是改变一下a的初始值而已．第十四页，共十八页。

I1<12.1PrintII+1I10

结束ＮＹＹＮ计数器第十五页，共十八页。例写出在数５、８、１９、７、３５、６、１８、５６、２中搜索数１８的一个算法，并画出流程图。NY开始打印结束＝１８

i1ii+1

输入各数据i<11NY第十六页，共十八页。整除问题：例画出求两个正整数a与b相除所得商q及余数r的一个算法的流程图开始

输入a、bq0a-bq<bra-bq输出qr结束qq+1ＮＹ第十七页，共十八页。内容总结算法举例若干。p=（2+3+4）/2。s=SQR(p*(p－2)*(p－3)*(p-4))。d=d+1。d＜=n－1且flag=1。f(x1)f(m)＞0。输入a，b，c。b+c＞a是否同。i=i+1。sum=sum+i。q=SQR(ABS(Δ))/(2a)。r=mMODn。a0、a1、a2、a3、a4、a5。n=n+1。v=v·x0+a5-n。b$=str$(a)。c$=mid#(b$,I,1)。c=val(c$)