17-一维数组查找、排序.docVIP

一维数组应用（查找、排序） 例一：查找数组A中是否有等于NUM的这个数，有，则返回这个数在数组中的位置；没有，则返回0。（假设A中有N个互异的整数） 程序： CONST N = 10； VAR A：= ARRAY [ 1．．N ] OF INTEGER ； P，X ： INTEGER； BEGIN 给数组A赋初值； WRITELN（‘PLEASE INPUT X ： ’）； READLN（X）； P ：= N； WHILE （ A[ P ] X）AND （ P 0 ） DO P：= P - 1； IF A[ P ] 〈 〉 X THEN P：=0 ； WRITELN（P）； END. 改进：多定义1个A [ 0 ] ，即VAR A：= ARRAY [ 0．．N ] OF INTEGER ； 然后： P：=N； A[ 0 ] ：= X ； WHILE A[ P ] 〈 〉 X DO P ：= P – 1 ； 其中A[ 0 ] 称为