PPT-Folie

Arithmetik

Beispiel: Berechnen der Fakultät

fak(0,1).

fak(N,X) :- N > 0, M is N - 1, fak(M,Y), X is N * Y.

?- fak(0,N).

N = 1

FUNCTION fak(N : Integer) : Integer;

BEGIN

IF N = 0 THEN fak := 1

ELSE IF N > 0 THEN fak := N * fak(N-1);

END;

Aufruf:

?- fak(6,N).

N = 720

Vorherige Folie

Nächste Folie

Zurück zur ersten Folie

Graphik-Version anzeigen