FIREBIRD: Script da Sequencia Fibonacci

0

Posted on : 13-11-2012 | By : Paulo H Oliveira | In : Banco de Dados, Firebird

Segue um exemplo de um script em Firebird com a famosa sequencia númerica FIBONACCI:

EXECUTE BLOCK
RETURNS (FIBONACCI VARCHAR(50))
AS
DECLARE VARIABLE I INTEGER;
DECLARE VARIABLE Y INTEGER;
DECLARE VARIABLE Z INTEGER;
DECLARE VARIABLE X INTEGER;
BEGIN
  I = 1;
  X = 0;
  Y = 1;
  Z = 1;
  WHILE (I <= 15) DO
  BEGIN
   IF (:I=1) THEN
     X = :Y;
   IF (:I=2) THEN
     X = :Z;
   IF (:I<=3) THEN
   BEGIN
      X = :Y+:Z;
      Y = :Z;
      Z = :x;
   END
   FIBONACCI = 'SEQUENCIA FIBONACCI '||I||': '||X;
   SUSPEND;
   I = :I + 1;
  END
END

Autor: Carlos Alberto Gaspar

Compartilhe :

  • Stumble upon
  • twitter

Escreva um comentário

Security Code: