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

  • 24
  • 0
  • 约 3页
  • 2017-08-23 发布于河南
  • 举报
17-一维数组查找、排序

一维数组应用(查找、排序) 例一:查找数组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 ] 称为

您可能关注的文档

文档评论(0)

1亿VIP精品文档

相关文档