1. Prozedur Einfügen
Funktionsweise:
Die Prozedur Einfügen fügt an einer vorher zu wählenden Stelle eine Zahl ein.
Prozedurname: Einfuegen
Parameter: zahl Zahl die eingefügt werden soll
groesse Anzahl der bereits im Array gespeicherten Werte. Die Zahl
muss kleiner als die Gesamtgröße des Arrays
arr Array in das die Zahl eingefügt werden soll
Pseudocode:(* Speichere die Zahl an das Ende des Arrays*)
arr[groesse + 1] = zahl
Quellcode:(* Gewerbeoberschule „Max Valier“ Bozen
3ia
Thomas G. *)
PROCEDURE einfuegen (einfuegepos : INTEGER;
VAR groesse : INTEGER;
VAR arr : t_tab;
BEGIN
groesse := groesse + 1;
arr[groesse] := zahl; (* Speichere die Zahl an die Einfuegeposition *)
END; (* of procedure *)
|
