PPT Slide

procedure Example is

type Name_Str is String( 1..10 );

type Person is record

Name : Name_Str;

Age : Integer; Next : … ;

end record;

Person_List : access Person;

procedure Add_Person( Birth_Year : Date;

N : Name_Str ) is

Years : Integer;

begin

Years := Today.Year – Birth_Year;

Person_List := … new Person …

end Add_Person;

Birth_Year : Integer;

New_Name : Name_Str;

begin

while more names loop

Get( New_Name ); Get( Birth_Year );

Add_Person( Birth_Year, New_Name );

end loop;

end Example;

Previous slide

Next slide

Back to first slide

View graphic version