Збекистон миллий университети

Ворисликни аниқланиши.
Type
<Ворис объект номи>Object(<Аждод объект номи> )
<Ворис объект берилганлар майдони>;
<Ворис объектнинг методлари>;
End;
Uses Crt;
{ бу ерда ObjPos объект эълони бўлиши керак}
Type
ObjSym =Object (ObjPos)
Sym : Char;
Procedure Init (Init_Line, Init_Col : Word; Init_Sym: Char);
Procedure Print;
Procedure ObjSym.Init;
Begin
ObjPos.Init(Init_Line, Init_Col);
Sym : Init_Sym;
End;
Procedure ObjSym.Print;
Begin
Crt.GotoXY(Col,Line);
Write(Sym);
End;

Бу мисолдан кўриниб турибдики, Init процедураси Line, Col ва ObjPos.Init компоненталарини ворислик бўйича ишлатмоқда.

Объектларни аниқлашни худди шу йўсинда давом эттириб белгини, унинг ранглар атрибути билан бирга аниқловчи объекни аниқлашимиз мумкин. Бунда янги объект ObjSym вориси бўлиб, унга керакли майдонлар ва атирибут билан ишловчи методни кўшиш керак бўлади. Ҳосил бўлган объект ObjPosга нисбатан учинчи босқич вориси бўлади.
ObjPosга нисбатан ворислик босқичи ObjSym билан бир босқичда бўлган объектларни хам яратиш мумкин. Мисол учун экранга сатр чиқарадиган объект яратмоқчи бўлсак, у ObjPos вориси бўлади.
Type
ObjStr  Object (ObjPos)
Substr : String;
Procedure Init (Init_Line, Init_Col : Word; Init_Str: String);
Procedure Print;
End;
Procedure ObjStr.Init;
Begin
ObjPos.Init(Init_Line, Init_Col);
Substr : Init_Str;
End;
Procedure ObjStr.Print;
Begin
Crt.GotoXY(Col,Line);
Write(Substr);
End;
Ворисликда ҳосил бўлувчи янги турларда аждод объектлардаги идентификаторларни қайтадан эълон қилиш мумкин эмас. Лекин бу чекланиш методларга тааллуқли эмас, яъни ҳар бир ворис объект юқоридаги аниқланган методларни, янгидан эълон қилиши мумкин (ўзига хосликдан келиб чиққан ҳолда). Бунга мисол сифатида Print методини кўрсатишимиз мумкин. Бу ҳолларда ҳар бир объект учун ўз методи (Print) ишлайди. Ворисликда ҳам объектлар иерархиясидаги охирги аниқланган метод ишлайди.