[Inhalt] [______] [______] [Thema] [Index]

Beispiele


# 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