Avtomatika va elektrotexnologiya

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.