Universität Ulm - Abteilung Angewandte Informationsverarbeitung

11. Übungsblatt (23.01.02 bis 30.01.02) zur Vorlesung
Allgemeine Informatik I für Wirtschaftswissenschaftler und Biologen

WS 2001/2002


Kennen Sie Ihren Body Mass Index? ... Teil II (10 Punkte)

Im letzten Übungsblatt haben Sie ein Oberon-Programm geschrieben, das eine BMI-Analyse durchführt (vgl. Blatt 10). Nun soll dieses Programm durch die Verwendung von Prozeduren erweitert werden.

Schreiben Sie Ihr altes Programm derart um, so daß das Hauptprogramm nur noch den folgenden Inhalt hat:


BEGIN
  (* Read all data *)
ReadData(data,count);

  (* Get minimum, maximum and average *)
min:=GetMinimum(data,count);
max:=GetMaximum(data,count);
average:=GetAverage(data,count);

  (* Print results *)
Write.Ln;
Print.F("Patientendaten:\n");
PrintData(data,count);
Write.Ln;
Print.F("Statistische Auswertung:\n");
Print.F1("  Minimaler BMI     : %5.2f\n",min);
Print.F1("  Maximaler BMI     : %5.2f\n",max);
Print.F1("  Durchschnitts-BMI : %5.2f\n",average);

END BodyMassIndex2.

Sie müssen somit die folgenden Prozeduren implementieren:
ReadData(), GetMinimum(), GetMaximum(), GetAverage(), PrintData()

Nützliche Hinweise:

Viel Erfolg!!!