Name : STRING[30];
Date : STRING[10];
Rate :
REAL;
CONSTRUCTOR Init(Nm,Dt:STRING; Rt:REAL);
DESTRUCTOR Done; VIRTUAL;
PROCEDURE ShowAll; VIRTUAL;
END;
PStudent = ^TStudent;
TStudent = OBJECT(TPerson)
Ball : REAL;
CONSTRUCTOR Init(Nm,Dt:STRING; Rt,Bl:REAL);
DESTRUCTOR Done; VIRTUAL;
FUNCTION GetSum : REAL; VIRTUAL;
PROCEDURE ShowSum; VIRTUAL;
PROCEDURE ShowAll; VIRTUAL;
END;
PStaff = ^TStaff;
TStaff = OBJECT(TPerson)
Bonus : REAL;
CONSTRUCTOR Init(Nm,Dt:STRING; Rt,Bn:REAL);
DESTRUCTOR Done; VIRTUAL;
FUNCTION GetSum : REAL; VIRTUAL;
PROCEDURE ShowSum; VIRTUAL;
PROCEDURE ShowAll; VIRTUAL;
END;
PTeacher = ^ТТеаcher;
TTeacher = OBJECT(TStaff)
Hours : WORD;
HourRate : REAL;
CONSTRUCTOR Init(Nm,Dt:STRING; Rt,Bn,Hrt:REAL; Hr:W0RD);
DESTRUCTOR Done; VIRTUAL;
FUNCTION GetSum : REAL; VIRTUAL;
PROCEDURE ShowAll; VIRTUAL;
END;
Например: