<?xml version="1.0" encoding="UTF-8"?>
<!-- generator="FeedCreator 1.8" -->
<?xml-stylesheet href="http://update.proggen.org/lib/exe/css.php?s=feed" type="text/css"?>
<rdf:RDF
    xmlns="http://purl.org/rss/1.0/"
    xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
    xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
    xmlns:dc="http://purl.org/dc/elements/1.1/">
    <channel rdf:about="http://update.proggen.org/feed.php">
        <title>proggen.org training:fak</title>
        <description></description>
        <link>http://update.proggen.org/</link>
        <image rdf:resource="http://update.proggen.org/lib/tpl/proggenY/images/favicon.ico" />
       <dc:date>2026-04-19T14:01:28+0200</dc:date>
        <items>
            <rdf:Seq>
                <rdf:li rdf:resource="http://update.proggen.org/doku.php?id=training:fak:solution&amp;rev=1663868366"/>
                <rdf:li rdf:resource="http://update.proggen.org/doku.php?id=training:fak:start&amp;rev=1663868366"/>
            </rdf:Seq>
        </items>
    </channel>
    <image rdf:about="http://update.proggen.org/lib/tpl/proggenY/images/favicon.ico">
        <title>proggen.org</title>
        <link>http://update.proggen.org/</link>
        <url>http://update.proggen.org/lib/tpl/proggenY/images/favicon.ico</url>
    </image>
    <item rdf:about="http://update.proggen.org/doku.php?id=training:fak:solution&amp;rev=1663868366">
        <dc:format>text/html</dc:format>
        <dc:date>2022-09-22T19:39:26+0200</dc:date>
        <dc:creator>Anonymous (anonymous@undisclosed.example.com)</dc:creator>
        <title>training:fak:solution</title>
        <link>http://update.proggen.org/doku.php?id=training:fak:solution&amp;rev=1663868366</link>
        <description>Fakultätsberechnung: mögliche Lösungen

C


#include &lt;stdio.h&gt;

int main ()
{
    printf (&quot;%d\n&quot;, fak ( 5 ));
}

int fak ( int n )
{
    if (n&lt;2)
        return 1;
    
    return n * fak (n-1);
}


Fortran


	PROGRAM fak_calc
		write (*,*) fak (5)
	END
	
	recursive function fak ( i ) result(zerg)
		if ( i .LT. 2 ) then
			zerg = 1
			return
		endif
		
		zerg = fak(i-1) * i;
		return
	END</description>
    </item>
    <item rdf:about="http://update.proggen.org/doku.php?id=training:fak:start&amp;rev=1663868366">
        <dc:format>text/html</dc:format>
        <dc:date>2022-09-22T19:39:26+0200</dc:date>
        <dc:creator>Anonymous (anonymous@undisclosed.example.com)</dc:creator>
        <title>training:fak:start</title>
        <link>http://update.proggen.org/doku.php?id=training:fak:start&amp;rev=1663868366</link>
        <description>Fakultätsberechnung

Die mathematische Fakultät ist folgendermaßen definiert:

&lt;m&gt;
n! = 1 * 2 * 3 * ... * (n-1) * n = prod{i=1}{n}{i}
&lt;/m&gt;

Schreiben Sie eine rekursive Funktion, die die Fakultät einer nicht-negativen ganzen Zahl berechnet. 

mögliche Lösungen</description>
    </item>
</rdf:RDF>
