213213

21313  ？？
就是在过程中再套用过程，比如
快排
procedure qsort(l,r:longint;var a:arr);
var x,i,j:longint;
begin
  if l>=r then exit;
  i:=l;j:=r;x:=a[i];
  repeat
    while (a[j]>=x)and(i<j) do dec(j);
    if (a[j]<x)and(i<j) then begin a[i]:=a[j]; inc(i); end;
    while (a[i]<=x)and(i<j) do inc(i);
    if (a[i]>x)and(i<j) then begin a[j]:=a[i]; dec(j); end;
  until i=j;
  a[i]:=x;
  qsort(l,i,a);qsort(i+1,r,a);
end;

递归

you are bc!

procedure suan(i:integer);
begin
a[i]:=a[i]+1;
if i=5 then print{检查是否满足条件然后输出}
       else suan(i+1);
if a[i]=5 then a[i]:=0;
end;
begin{主程序}
suan(1);
end.

前面的少了东西,这是递归回溯
procedure suan(i:integer);
begin
repeat
a[i]:=a[i]+1;
if i=5 then print{检查是否满足条件然后输出}
       else suan(i+1);
if a[i]=5 then a[i]:=0;
until (a[i]=0);
end;
begin{主程序}
suan(1);
end.