# 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