fak.c
author Markus Bröker <mbroeker@largo.dyndns.tv>
Sat, 13 Dec 2008 12:58:26 +0100
changeset 0 af501b0c1716
child 9 c3fecc82ade6
permissions -rw-r--r--
demos cvs copy committer: Markus Bröker <mbroeker@largo.homelinux.org>

/*
 *     $Id: fak.c,v 1.1.1.1 2008-04-28 17:32:53 mbroeker Exp $
 * $Source: /development/c/demos/fak.c,v $
 */

#include <stdio.h>
#include <stdlib.h>

long fak (int i)
{
    if (i == 0)
        return 1;
    else if (i > 0)
        return (i * fak (i - 1));
    else
        return (i * fak (i + 1));
}

int main (int argc, char **argv)
{
    int number;

    printf ("Enter a number: ");
    if (scanf ("%d", &number) < 0) {
        printf ("READ ERROR\n");
        return EXIT_FAILURE;
    }

    printf ("The faktorial of %d is %ld\n", number, fak (number));

    return EXIT_SUCCESS;
}