الگوریتمی بنویسید که جاهای خالی انتهای رشته را به صورت بازگشتی خذف کند؟
Procedure DeleteBlanks
1.[save return address]
Call push(s,TOP,temp)
2.[check for the blanks]
If sub(str,N,1) ? ‘ ‘
Then Goto step 3
Else N ? N-1
Address ? step 4
str? sub(str,1,N)
Goto step 1
3.[restore return address]
Temp?pop(s,Top)
Goto Address
4.[finished]
Goto step 3

تحقیق یکسان بودن دو لیست با استفاده از جستجو ی ترتیبی‌
Procedure verify(F1,F2:alist;n,m:integer);
var
i,j:integer;
marked:array[1..maxsize] of boolean;
begin
for i:=1 to m do marked[i]:=false;
for i:=1 to n do
begin
seqsearch(f2,j,m,f1[i].key);
if j=0 then writeln(F1[i].key,"not In F2.")
else begin
if F1[i].other <>F2[j].other then
writeln("Discrepancy In " , F1[i].key,F1[i].other,F2[j].other);
marked[j]:=true;
end;
end;
for i:=1 to m do
if Not marked[i] then writeln (F2[i].key,"Not In F1.");
end; FPRIVATE "TYPE=PICT;ALT=Nesta is offline"