Мир ПК, #07/2001

Листинг 7. Модуль Pascaline.
Реализация чисел Фибоначчи через стек

PROCEDURE Fibonacci3* (i: SHORTINT): LONGINT;
VAR x: LONGINT; k: SHORTINT; stack: ARRAY 2 OF LONGINT;
BEGIN (* PRE: i >= 0; i <= MaxFibINDEX *)
  IF (i = 0) OR (i = 1) THEN RETURN 1
  ELSE (* i > 1 *) stack[0] := 1; stack[1] := 1;
  k := 2;
  REPEAT
    x := stack[0] + stack[1]; stack[0] := stack[1];
    stack[1] := x;
    INC(k);
  UNTIL (k > i);
  RETURN x
  END; (* POST: sBadIndex = FALSE *)

END Fibonacci3;

назад