A Der PASCAL – Teil

Skript zur Vorlesung Allgemeine Datenverarbeitung 52
program lager;
uses wincrt;
const max = 3;
type artikel = record
num : byte;
bez : string[20];
best: word;
lief: string[50];
end;
var i :integer;
such_bez,such_lief :string[50];
gefunden :boolean;
ware :array[1..max] of artikel;
begin
{--Datensatz anlegen----------------------------------------}
clrscr;
writeln('DATENSATZ ANLEGEN: ');writeln;
for i:= 1 to max do
begin
writeln('Bitte ',i,'-ten Datensatz eingeben:');
with ware[i] do
begin
write('Artikelnummer : ');readln(num);
write('Artikelbezeichnung: ');readln(bez);
write('Lagerbestand : ');readln(best);
write('Lieferant : ');readln(lief);
writeln;
end; {-with-}
end; {-for-}
{--Datensatz suchen und ausgeben----------------------------}
repeat
clrscr;
writeln('DATENSATZ SUCHEN: ');writeln;
write('Artikelbezeichnung: ');readln(such_bez);
write('Lieferant : ');readln(such_lief);
writeln;
for i:= 1 to max do
begin
gefunden:=true;
if (ware[i].bez = such_bez) and (ware[i].lief = such_lief)
then break
else gefunden:= false;
end; {-for-}
if gefunden = true
then with ware[i] do
begin
writeln;
write('Artikelnummer : ');writeln(num);
write('Artikelbezeichnung: ');writeln(bez);
write('Lagerbestand : ');writeln(best);
write('Lieferant : ');writeln(lief);
end {-with-}
else writeln('Datensatz konnte nicht gefunden werden !!');
writeln('Suche wiederholen ? (J/N) ');
until upcase(readkey) = 'N';
end.
Fachhochschule Gelsenkirchen Prof. Dr.-Ing. A. Rinschede
Fachbereich Versorgungs- und Entsorgungstechnik