fibonacci.pas

   1 PROGRAM Fibonacci;\r
   2 \r
   3 VAR x1, x2, n, aux: real;\r
   4     i: integer;\r
   5 \r
   6 \r
   7 FUNCTION numeroValido(numero: real): boolean;\r
   8 \r
   9 BEGIN\r
  10      IF numero < 1 THEN numeroValido := false\r
  11                    ELSE numeroValido := true;\r
  12 END;\r
  13 \r
  14 \r
  15 BEGIN\r
  16      write('Que cantidad de n£meros de la sucesion de Fibonacci desea ver? ');\r
  17      readln(n);\r
  18      IF numeroValido(n) THEN\r
  19                          BEGIN\r
  20                               x1 := 0;\r
  21                               x2 := 1;\r
  22                               IF n = 1 THEN writeln(x1)\r
  23                                        ELSE writeln(x1, x2);\r
  24                               FOR i := 3 TO trunc(n) DO BEGIN\r
  25                                                       aux := x2;\r
  26                                                       x2 := x1 + x2;\r
  27                                                       x1 := aux;\r
  28                                                       writeln(x2);\r
  29                                                  END;\r
  30                          END\r
  31                      ELSE writeln('El n£mero debe ser mayor o igual que 1. Pruebe otra vez...');\r
  32 END.\r