例1打印AB,C三数中最小者程序 B<NB、7 A< A<、T 打印B打印C 打印A
例1 打印A, B, C三数中最小者程序
程序1 if (A<B)goto 120 f(B<≤C)goto110 100 write(C) goto 140 110 write (B goto 140 120 if (A <C) goto 130 i goto 100 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) e se 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用二分法求方程f(x)=0在区间 ab中的根的程序 假设在闭区间ab上函数f(x)有唯 一的一个零点 F(x)
例2 用二分法求方程 f (x)＝0 在区间 [a..b]中的根的程序 假设在闭区间[a..b]上函数 f (x) 有唯 一的一个零点
后=f(a);f=f(b);席1 if(0f≤=0){ i x=b for(i=1;i<n计+){ m (x+x1)/2;fm=∫(xm) (abs(fm)<eps‖ abs(x-xo<eps) goto finish i if(0*fm>0) dxo=xmi fo-fm i) else xi=Im
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； }