fortran程序设计.第7章.ppt

[例7.4]折半查找 序号 A数组元素值 查找x(x=68) 1 10 -TOP 2 17 3 20 4 22 5 31 6 44 7 51 8 59 -MID 9 68 -TOP -TOP -TOP-BOT-MID 10 73 -MID 11 89 -BOT 12 95 -MID 13 120 14 133 15 137 -BOT -BOT (a) (b) (c) (d) PARAMETER (NA=15) INTEGER A(NA), TOP, BOT, MID, X LOGICAL FIND DATA A/10, 17, 20, 22, 31, 44, 51, 59, 68, 73, 89, 95, 120, 133, 137/ READ (*, *) X F