Unterprogramme--Beispiele

ohne Datentransport:

zeile () {
   für Zahl i von 1 bis 80 { Ausgabe("*"); }
   Ausgabe (Zeilenschaltung);
}
Datentransport beim Aufruf
zeile (Zahl n) {
   für Zahl i von 1 bis n { Ausgabe("*"); }
   Ausgabe (Zeilenschaltung);
}
Benutzung:
dreieck (Zahl h) {
   für Zahl i von 1 bis n { zeile (h); }
}
Datentransport bei Aufruf und Rückkehr:
-- Vorbedingung: a und b positive ganze Zahlen
-- Nachbedingung: Rückgabewert ist größter
-- gemeinsamer Teiler von a und b
Zahl ggt (Zahl a, Zahl b) {
   solange (a ungleich b) {
       if (a > b) { a := a - b; }
             else { b := b - a; }
   }
   Rückgabewert ist a;
}

Benutzung:

Ausgabe (10 + ggt (12,15));



Johannes Waldmann 2009-01-12