A Der PASCAL – Teil

Skript zur Vorlesung Allgemeine Datenverarbeitung 51
Typgleich deklarierte Variablen können einander zugewiesen werden. Dabei
findet ein kompletter Datenaustausch aller Elemente des Record statt:
{..}
var ware,ware1: artikel;
begin
ware1 := ware;
{..}
Typgleich deklarierte Elemente können einander zugewiesen werden. Dabei
wird nur dem entsprechendem Element des Record ein neuer Dateninhalt
zugewiesen:
{..}
var ware,ware1: artikel;
begin
ware1.num := ware.num;
{..}
Die bisher erfolgte Deklaration der Variablen "ware" hat den Nachteil, daß nur
ein Datensatz (Artikel) eingegeben werden kann. Um nun auch mehrere Artikel
in das Lagerverwaltungsprogramm aufnehmen zu können, muß die Deklaration
wie folgt erweitert werden:
program lager;
uses wincrt;
type artikel = record
num : byte;
bez : string[20];
best: word;
ort : string[5];
lief: string[50];
ekpr,vkpr: real;
end;
var ware: array[0..255] of artikel;
begin
{..}
end.
Der Zugriff auf einzelne Elemente der Variablen 'ware' erfolgt analog dem
Zugriff auf einzelne Elemente eines Feldes:
ware[1].num := 001;
Fachhochschule Gelsenkirchen Prof. Dr.-Ing. A. Rinschede
Fachbereich Versorgungs- und Entsorgungstechnik