Informatika va programmalash

Vorislikni aniqlanishi.

Type
Object( )

;
;
End;
Uses Crt;
{ bu yerda ObjPos obyekt e’loni bo‘lishi kerak}
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;

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.