#6 - Delphi

Author: [email protected]

Roadmap/06 - RECURSIVIDAD/delphi/fduron.dpr

@@ -0,0 +1,63 @@
+(*
+ * EJERCICIO:
+ * Entiende el concepto de recursividad creando una función recursiva que imprima
+ * números del 100 al 0.
+ *
+ * DIFICULTAD EXTRA (opcional):
+ * Utiliza el concepto de recursividad para:
+ * - Calcular el factorial de un número concreto (la función recibe ese número).
+ * - Calcular el valor de un elemento concreto (según su posición) en la
+ *   sucesión de Fibonacci (la función recibe la posición).
+ *)
+
+program fduron;
+
+{$APPTYPE CONSOLE}
+
+{$R *.res}
+
+uses
+  System.SysUtils;
+
+procedure NumerosDescendentes(const Numero: integer);
+begin
+  if numero >= 0 then
+  begin
+    WriteLn(Numero);
+    NumerosDescendentes(Numero - 1);
+  end;
+end;
+
+function Factorial(const Numero: Integer): Integer;
+begin
+  if Numero > 1 then
+    Result := Numero * Factorial(Numero - 1)
+  else
+    Result := 1;
+end;
+
+function Fibonacci(const Posicion: Integer): Integer;
+begin
+  if Posicion < 2 then
+    Result := Posicion
+  else
+    Result := Fibonacci(Posicion - 1) + Fibonacci(Posicion - 2);
+end;
+
+var
+  Numero: Integer;
+begin
+  NumerosDescendentes(100);
+
+  WriteLn('*****************************');
+  WriteLn(' Dificultad extra');
+  WriteLn('*****************************');
+  Write('Escribe un numero entero: ');
+  ReadLn(Numero);
+  WriteLn('El Factorial de ', Numero, ' es: ', Factorial(Numero));
+  WriteLn;
+  Write('Escribe la posicion de la serie fibonacci: ');
+  ReadLn(Numero);
+  WriteLn('En la posicion ', Numero, ' el valor fibonacci es: ', fibonacci(Numero));
+  ReadLn;
+end.