Die Unterprogrammtechnik - lehrer

Der Aufbau von Prozeduren:
Der Aufbau einer Prozedur entspricht größtenteils dem eines Turbo Pascal Programms. Einem
Unterprogrammkopf (mit dem Prozedurnamen) folgt ein Anweisungsteil (zwischen den beiden
Schlüsselwörtern BEGIN und END).
procedure Prozedurname; Statt PROGRAM steht PROCEDURE !!
begin
Anweisung 1;
Anweisung 2;
...
Anweisung n;
end; Kein PUNKT sondern STRICHPUNKT !!
In einem Turbo Pascal Programm folgt nach dem Programmkopf der Vereinbarungsteil und erst
dann der Anweisungsteil. Auch bei Unterprogrammen kann dem Unterprogrammkopf ein Vereinbarungsteil
folgen. Alle Variablen, die im Vereinbarungsteil des Unterprogramms stehen, sind
allerdings nur für das Unterprogramm verwendbar. In Zusammenhang mit Unterprogrammen
müssen deshalb verschiedene Arten von Variablen und Konstanten unterschieden werden.
Lokale und globale Variable (Konstante, Datentypen):
globale Variable (Konstanten):
Unter globalen Variablen (global = gesamt) werden Variablen verstanden, die dem gesamten
Programm (also dem Hauptprogramm und allen Unterprogrammen) bekannt
sind. Sie werden im Vereinbarungsteil des Hauptprogramms wie üblich vereinbart. Jedes
Turbo Pascal Programm besitzt einen globalen Datenraum, in dem alle globalen Variablen
abgelegt sind. Im vorigen Beispiel sind a, b und summe globale Variablen. Sie
sind allen Unterprogrammen und dem Hauptprogramm bekannt.
lokale Variable (Konstanten):
Lokale Variablen (lokal = örtlich) hingegen sind Variablen, die nur jenem Unterprogramm
bekannt sind, in dessen Vereinbarungsteil sie deklariert worden sind. Sie sind den
anderen Unterprogrammen und dem Hauptprogramm unbekannt und können dort nicht
verwendet werden. Jedes Unterprogramm hat seinen eigenen lokalen Datenraum, in dem
die lokalen Variablen abgelegt sind. Dieser existiert jedoch nur zur Laufzeit des
Unterprogramms.
Machen Sie möglichst oft Gebrauch von lokalen Variablen. Dadurch ist die Prozedur
nicht mehr so stark abhängig von Gegebenheiten des Hauptprogramms und kann leichter
in anderen Programmen eingesetzt werden.
Beispiel: Das Programm soll nach der Eingabe der beiden Radien den Umfang und den Flächeninhalt
eines Kreisrings berechnen.
program proz_2;
uses crt;
var r1,r2 : real;
procedure eingabe;
begin
write ('Außenradius eingeben: ');
readln (r1);
write ('Innenradius eingeben: ');
readln (r2);
end;
procedure berechnung;
const pi=3.14;
var u,a : real;
begin
writeln;
u:=2*pi*(r1+r2);
a:=pi*(sqr(r1)-sqr(r2));
writeln ('Umfang = ',u:1:2);
writeln ('Fläche = ',a:1:2);
end;
begin
clrscr;
writeln ('Berechnung des Kreisrings');
eingabe;
berechnung;
readln;
end.
Wolfgang Demel | TP Upro Skriptum Querformat.doc | Seite 2
Im Vereinbarungsteil des Hauptprogramms stehen r1 u. r2. Sie sind daher globale
Variablen.
Die Prozedur eingabe hat keinen eigenen Vereinbarungsteil und kennt daher nur die globalen
Variablen.
In berechnung wird π durch die lokale Konstante pi auf den Wert 3.14 festgelegt.
Für den Umfang und die Fläche werden die lokalen Variablen u und a vereinbart.
Im Hauptprogramm werden die Unterprogramme mit ihren Namen aufgerufen
Übungen 1:
(1) Schreibe HERON.PAS mit den Unterprogrammen EINGABE und BERECHNUING
(speichern als HERON_2.PAS).
(2) Schreibe das Programm TRAPEZ_1.PAS, das nach Eingabe der Seitenlängen Umfang,
Höhe, Fläche und die Diagonale e eines gleichschenkligen Trapezes berechnet. Verwende
die Unterprogramme EINGABE, UMFANG, HOEHE, FLAECHE und DIAGONALE.
Anleitung:
a + c
m =
2
A = m ⋅h
2
2 2 ⎛ a − c ⎞ 2 2 ⎛ a + c⎞
h = b − ⎜ ⎟ e = h + ⎜ ⎟
⎝ 2 ⎠
⎝ 2 ⎠
2
D
A a
B
Kontrolle: a = 32 | b = 18 | c = 25 ⇒ U = 93,00 | h = 17,66 | FL = 503,21 | e = 33,53
Prozeduren mit Parameterübergabe:
Um die Verwendung von Unterprogrammen noch flexibler zu gestalten, erlaubt es Turbo Pascal,
Werte (die sogenannten Parameter) an die Unterprogramme zu übergeben. Dadurch wird ein
gezielter Datenaustausch mit dem Hauptprogramm ermöglicht. Auch bei den in Turbo Pascal
bereits definierten Standardprozeduren gibt es solche mit und solche ohne Parameterübergabe.
So wird zum Beispiel die Prozedur für das Bildschirmlöschen CLRSCR ohne Parameter aufgerufen.
Um hingegen mit der Prozedur WRITELN einen Wert x am Bildschirm auszugeben, muß der
Prozedur auch der Wert als Parameter übergeben werden, was durch den Aufruf WRITELN(X)
geschieht. Der zu übergebende Wert steht dabei in Klammern nach dem Namen der Prozedur.
b
m
c
e
h
C
b