Informatika va at

Vorislikni aniqlanishi.
Type

Object( )

;

;

End;

Uses Crt;

{ bu yerda ObjPos obyekt e’loni bo‘lishi kerak}

Type

ObjSym qObject (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;
Bu misoldan ko‘rinib turibdiki, Init protsedurasi Line, Col va ObjPos.Init komponentalarini vorislik bo‘yicha ishlatmoqda.

Obyektlarni aniqlashni xuddi shu yo‘sinda davom ettirib belgini, uning ranglar atributi bilan birga aniqlovchi obyekni aniqlashimiz mumkin. Bunda yangi obyekt ObjSym vorisi bo‘lib, unga kerakli maydonlar va atiribut bilan ishlovchi metodni ko‘shish kerak bo‘ladi. Hosil bo‘lgan obyekt ObjPosga nisbatan uchinchi bosqich vorisi bo‘ladi.

ObjPosga nisbatan vorislik bosqichi ObjSym bilan bir bosqichda bo‘lgan obyektlarni ham yaratish mumkin. Misol uchun ekranga satr chiqaradigan obyekt yaratmoqchi bo‘lsak, u ObjPos vorisi bo‘ladi.

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;

Vorislikda hosil bo‘luvchi yangi turlarda ajdod obyektlardagi identifikatorlarni qaytadan e’lon qilish mumkin emas. Lekin bu cheklanish metodlarga taalluqli emas, ya’ni har bir voris obyekt yuqoridagi aniqlangan metodlarni, yangidan e’lon qilishi mumkin (o‘ziga xoslikdan kelib chiqqan holda). Bunga misol sifatida Print metodini ko‘rsatishimiz mumkin. Bu hollarda har bir obyekt uchun o‘z metodi (Print) ishlaydi. Vorislikda ham obyektlar iyerarxiyasidagi oxirgi aniqlangan metod ishlaydi.