Die Unterprogrammtechnik - lehrer

program funkt_1;
uses crt;
var a,b,c : integer;
frage : char;
procedure eingabe (ch:char;var x:integer);
begin
write ('Die ',ch,'. Zahl eingeben: ');
readln (x);
end;
function max(x,y,z:integer):integer;
var m : integer;
begin
m:=x;
if y>m then m:=y;
if z>m then m:=z;
max:=m;
end;
begin
repeat
clrscr;
eingabe('1',a);
eingabe('2',b);
eingabe('3',c);
writeln ('Maximum der drei Zahlen = ',max(a,b,c));
write ('Noch eine Berechnung (j/n)?');
readln (frage);
until upcase(frage)='N'
end.
Die Vereinbarung einer Funktion wird mit dem Schlüsselwort FUNCTION eingeleitet, dem der
Name der Funktion folgt. Danach folgt optional die Parameterliste mit Wertparametern (in
unserem Beispiel die drei INTEGER-Zahlen) und Variablenparametern (wieder mit VAR). Zusätzlich
muß in der FUNCTION-Vereinbarung der Typ der Funktion festgelegt werden. Dieser
entspricht dem Datentyp des Funktionsergebnisses und kann jeder einfache Datentyp
(INTEGER, REAL, CHAR, BOOLEAN, STRING) sein. Der Typ der Funktion wird nach der
Parameterliste, getrennt durch einen Doppelpunkt, angegeben.
Für lokale und globale Variablen gelten alle Aussagen wie bei den Prozeduren.
Wichtig ist, daß im Anweisungsteil der Funktion dem Funktionsnamen das Funktionsergebnis
in einer Wertzuweisung zugeordnet wird.
funktionsname:=funktionsergebnis;
Aufruf der Funktion direkt in der WRITELN-Zeile. Der Ausdruck max(a,b,c) wird dann
durch den Funktionswert ersetzt. Ebenso möglich ist auch die Zuweisung des
Funktionswertes an eine Variable:
...
var a,b,c,ergebnis : integer;
...
ergebnis:=max(a,b,c);
writeln ('Maximum der drei Zahlen = ',ergebnis);
...
Funktionsaufrufe können in Ausdrücken direkt verwendet werden, wie z.B.:
ergebnis:=3*(max(a,b,c)+15);
Aufbau einer Funktion (reservierte TP - Wörter in Großbuchstaben):
Wolfgang Demel | TP Upro Skriptum Querformat.doc | Seite 5
FUNCTION Funktionsname (Parameterliste):Ergebnistyp; {Funktionskopf}
{Vereinbarungsteil}
CONST ... {Vereinbarung von lokalen Konstanten}
VAR ... {Vereinbarung von lokalen Variablen}
BEGIN {Anweisungsteil}
Anweisung 1;
Anweisung 2;
...
Anweisung x;
Funktionsname:=Funktionsergebnis; {Zuordnung des Funktionswertes}
END; {Ende der Funktion}
Wie wichtig benutzerdefinierte Funktionen sind, erkennen wir, wenn wir uns den Vorrat an Funktionen
ansehen, den uns Turbo Pascal standardmäßig zur Verfügung stellt.
Turbo Pascal Standardfunktionen:
Ergebnis- Ergebnis der Funktion Beispiel
typ Argument Ergebnis
ABS(x) REAL Absolutbetrag von x -3.25 3.25
SQR(x) REAL Quadrat von x 5.0 25.0
SQRT(x) REAL Quadratwurzel von x (x ≥ 0) 25.0 5.0
SIN(x) REAL Sinus von x (in Radiant) PI/2 1.0
COS(x) REAL Cosinus von x (in Radiant) PI -1.0
ARCTAN(x) REAL Arcustangens von x (in Radiant) PI 1.262...
PI REAL die Konstante π ----- 3.141...
LN(x) REAL Natürl. Logarithmus von x (positiv) 100 4.605...
EXP(x) REAL Exponentialfunktion von x (e x ) 1.0 2.718...
TRUNC(x) INTEGER Umwandlung in INTEGER durch abschneiden
der Dezimalstellen
11.8 11
ROUND(x) INTEGER Rundung auf ganzzahligen Wert 11.8 12
INT(x) REAL ganzzahliger Anteil von x 11.234 11.0
FRAC(x) REAL nicht-ganzzahliger Anteil von x 11.234 0.234
Es fehlen viele oft gebrauchte Funktionen. Als Beispiele sollen die Winkelfunktion Tangens und
die Berechnung von Potenzen herausgegriffen werden.