51 lines
968 B
ObjectPascal
51 lines
968 B
ObjectPascal
// Ïðèìåð èëëþñòðèðóåò ðåàëèçàöèþ êëàññîì èíòåðôåéñà IEnumerable
|
|
// äëÿ èñïîëüçîâàíèÿ åãî â îïåðàòîðå foreach
|
|
uses System.Collections;
|
|
|
|
type
|
|
// Ãåíåðàòîð ÷èñåë Ôèáîíà÷÷è
|
|
FibGen = class(IEnumerable, IEnumerator)
|
|
private
|
|
a,b,n,i: integer;
|
|
public
|
|
constructor Create(n: integer);
|
|
begin
|
|
i := -1;
|
|
a := 0;
|
|
b := 1;
|
|
Self.n := n;
|
|
end;
|
|
function Get_Current: Object;
|
|
begin
|
|
if i=0 then
|
|
Result := 1
|
|
else Result := b;
|
|
end;
|
|
function GetEnumerator: IEnumerator;
|
|
begin
|
|
Result := Self;
|
|
end;
|
|
function MoveNext: boolean;
|
|
begin
|
|
i += 1;
|
|
Result := i<n;
|
|
if i=0 then exit;
|
|
var c := a + b;
|
|
a := b;
|
|
b := c;
|
|
end;
|
|
property Current: Object read Get_Current;
|
|
procedure Reset;
|
|
begin
|
|
i := -1;
|
|
end;
|
|
end;
|
|
|
|
var f: FibGen;
|
|
|
|
begin
|
|
writeln('×èñëà Ôèáîíà÷÷è');
|
|
f := new FibGen(25);
|
|
foreach x: integer in f do
|
|
write(x,' ');
|
|
end. |