例1打印A,B,C三数中最小者程序 A<B F F B<C 打印B打印C打印A
例1 打印A, B, C三数中最小者程序
程席1 if(A<B) goto 120 if (B<C) goto 110 100 write(C): goto 140 110 write(B)i goto 140 120 if(A<C) goto 130: goto 100 i 130 write (A): 140 end
程序1 if ( A < B ) goto 120； if ( B < C ) goto 110； 100 write ( C )； goto 140； 110 write ( B )； goto 140； 120 if ( A < C ) goto 130； goto 100； 130 write ( A )； 140 end
程序2 if (A<B) and(A<C)then write(A) e se if(A≥B)and(B<C)then write(B) else write(C) endif endif
程序2 if ( A < B ) and ( A < C ) then write ( A ) else if ( A B ) and ( B < C ) then write ( B ) else write ( C ) endif endif
例2用二分法求方程∫(x)=0在区间 ab中的根的程序 假设在闭区间ab上函数∫(x)有唯 的一个零点 F(x)
例2 用二分法求方程 f (x)＝0 在区间 [a..b]中的根的程序 假设在闭区间[a..b]上函数 f (x) 有唯 一的一个零点
f6=f(a);f=f(b);/程1 if(f0*f<=0){ a, x,=b ior(i=1;i<=n:计+){ =(x0+x1)/2;fm=∫(xm) (abs ( m)<eps abs (i -xo<eps) goto finish i if (om>0) Kxo=m i f= i) eise X=x
f0 = f (a)； f1 = f (b)； //程序1 if ( f0 * f1 <= 0 ) { x0 = a； x1 = b； for ( i = 1；i <= n；i++ ){ xm = ( x0＋x1 ) / 2； fm = f (xm)； if ( abs (fm) < eps || abs (x1－x0 ) < eps) goto finish； if ( f0 * fm > 0 ) { x0 = xm； f0 = fm；} else x1 = xm； }