source.txt

来自「Pascal源程序的词法分析器 Pascal有35个关键字」· 文本 代码 · 共 15 行

PROGRAM MERGE(L1,L2;list;car LOUT:listout);
   VAR I,J:inerger;
   BEGIN
     I:=1;J:=1;{从第一个元素开始}
     WHILE(I<=N)and(J<=M)Do
         BEGIN
           LOUT[I+J-1]:=min(L1[I],L2[J]),{找两者中最小者}
           IF L1[I]<L2[J] THEN I:=I+1
           ELSE J:=J+1
           END ;{while}  
     FOR I:=I TO N DO LOUT[I+J-1]:=L1[I];{拷贝尾部元素}
     FOR J:=J TO M DO LOUT[I+J-1]:=L1[J];{如果J〉M，跳过此步}
   END;{MERGE}