程序一

cc:=c;

for j=61  to  DATACOUNT-30  do

   begin  

         VARIABLE: i=-1;

         repeat  i:=i+1  until           

         cc[barpos+i-1]>cc[BARPOS+i]&&cc[BARPOS+i]<cc[barpos+i+1];

         jl[j]:=i;

   end

JL1:jl;

程序二

R:=C;

VARIABLE:J=1;

IF  REF(r,1)>r&&r<REFX(r,1)  then  J:=0;

else

   begin

         if  r>refx(r,1)&&refx(r,1)<refx(r,2)  then   j:=1;

            else   

                begin

                      repeat j:=j+1  until  

                      refx(r,j-1)>refx(r,j)&&refx(r,j)<refx(r,j+1) ;

                end;

   end;

jr:j;