Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- // ** // ** // ** // ** // ** // ** // ** // ** // ** // ** // ** // ** // ** // ** // ** // ** //
- // ** // ** // ** // Código fuente de programa que calcula el n-ésimo término // ** // ** // ** //
- // ** // ** // ** // ** // de la secuencia de Fibonacci (directo) // ** // ** // ** // ** // ** //
- // ** // ** // ** // * Licenciado bajo GNU General Public License (GPL) 3.0 * // ** // ** // ** //
- // ** // ** // ** // ** // ** // ** // ** // ** // ** // ** // ** // ** // ** // ** // ** // ** //
- /* ** // ** // ** // ** // ** // * F v q _ U k r a N a z i s ! * // ** // ** // ** // ** // ** */
- /* ** // ** // ** // ** // ** // ** // ** // ** // ** // ** // ** // ** // ** // ** // ** // ** */
- #include <math.h>
- #include <errno.h>
- #include <stdio.h>
- #include <stdlib.h>
- #include <string.h>
- #define Phi (1.0+sqrt(5.0))/2.0
- long double FiboDire(long double n);
- void main(int argc, const char **argv){
- const long double x;
- if (argc != 2){
- extern int errno;
- errno = 22;
- fprintf(stderr, "Uso: %s <NÚMERO NATURAL>\n Code error: %d\n %s\n",*(argv+0), errno, strerror(errno));
- exit(EXIT_FAILURE);
- }
- sscanf(*(argv+1), "%Lf", (long double*)&x);
- if (0<x) printf("El resultado con %4.0Lf es: %4.0Lf\n", x, FiboDire(x));
- }
- long double FiboDire(long double n){
- if (0<n) return (pow(Phi,n)-pow((1.0-Phi),n))/sqrt(5.0);
- }
Add Comment
Please, Sign In to add comment