1
Download HANDBUCH
Transcript
Seite 123
Zeigertypen
procedure Jobs,
type
PersonZeiger
PersonRecord;
PersonRecold record
Name: string50 ;
Job: string 50 ;
Next: PersonZeiger;
end;
Var
HeapTop: ''integer;
FirstPerson, Last:Person, NewPerson: PersonZeiger;
Name: string1501;
begin
FirstPerson
nil;
Mark(fleapTop);
repeat
VVrite('Enter Haine:
ReaclIn(Name);
if Name " then
begin
Nevv(NewPerson);
NewPerson''. Name : Name;
VVrite('Enter Profession: ');
Readln(NewPerson .Job);
VVriteln;
if FirstPerson nil then
FirstPerson : NewPerson
eise
LastPerson A .Next. := NewPerson;
LastPerson : = NewPerson;
nil;
LastPerson A .Next
end; •
until Narrte "
VVriteln;
white FirstPerson () nil do
with FirstPerson' do
begin
Writeln(Name,' is a ',Job);
FirstPerson = Next;
end;
Release(HeapTop);
end.
