# AZUR-Programm mit einer selbstdefinierten rekursiven Funktion
# zur Berechnung der Fakultaet einer Zahl
fakultaet (Real r) : Real
IF (r<2)
RETURN 1;
ELSE
RETURN r*fakultaet(r-1);
ENDIF
END
AZUR (Real zahl)
ergebnis := fakultaet (zahl)
print (zahl, "! = ", ergebnis)
END
# AZUR-Programm mit selbstdefinierten Funktionen addition (Real a, Real b) : Real RETURN a+b END multiplikation (Real a, Real b) : Real RETURN a*b END AZUR (Real r1, Real r2) Print (r1, " + ", r2, " = ", addition (r1, r2)) ergebnis := multiplikation (r1, r2) Print (r1, " * ", r2, " = ", ergebnis) END
# AZUR-Porgramm mit einer selbstdefinierten Prozedur
write (Zeitpunkt z, Distanz d)
null_dist := ~"0 Tage"
IF (d=null_dist)
Print ("Der ", z, " ist heute.")
ELSE
IF (d<null_dist)
text := " war vor "
faktor := -1
ELSE
text := " ist in "
faktor := 1
ENDIF
Print ("Der ", z, text, d*faktor, ".")
ENDIF
END
AZUR (Zeitpunkt zp)
dist := ~"1 Tag"
dist := zp - @"Heute"
write (zp, dist)
END
toposoft GmbH 1. Oktober 2012