img154

154

10. Metody ciągowe

procedurę RecJakubowski; begin

actsiną := givesinquad(bufin); firstsinq := actsinq; repeat

newsinq := givesinq(bufin); if actsinq ^ newsinq then begin

putbufout(actsinq,newsinq); actsinq := newsinq end;

until eof(bufin);

if newsinq / firstsinq then putbufout(newsinq,firstsinq);

{ dołożenie przejścia pomiędzy sinquadami w przypadku

end.

gdy analiza startowała z punktu granicznego pomiędzy sinquadami }