Объясните пожалуйста программу. показать 3 основных признака ООП: наследование, инкапсуляция, полиморфизм (Паскаль)

[mongush]

Это лабораторная работа по Объектно-ориентированному программированию. Здесь надо показать 3 основных признака ООП: наследование, инкапсуляция, полиморфизм.

Program program1;
Uses GraphABC;
Type TFigure=class
     x,y:integer;
     c:color;
     procedure draw(pc:color);
     abstract;
end;
Type TPoint=class(TFigure)

constructor Create(ix,iy:integer; ic:Color);
begin
     x:=ix;y:=iy;c:=ic;
end;
Procedure Draw(pc:color); override;
Begin
     putPixel(x,y,pc);
end;
Procedure Show;
Begin
      draw(c);
end;
Procedure hide;
begin
      draw(clwhite);
end;
Procedure move(dx,dy:integer);
begin
     hide;
     x:=x+dx;
     y:=y+dy;
     Show;
end;
end;

Type Tcircle=class(TPoint)
r:integer;
Constructor Create(ix,iy,ir:integer;ic:color);
begin
x:=ix;y:=iy;r:=ir;c:=ic;
end;
Procedure Draw(pc:color);override;
Begin
  Setpencolor(pc);
  Circle(x,y,r);
end;
end;

Var p1:Tpoint;
    p2:Tpoint;
    p3:Tpoint;
    c1:TCircle;
    c2:Tcircle;
    c3:Tcircle;
    c4:Tcircle;
    c5:Tcircle;
    
begin
     p1:=new TPoint(200,200,clBlue);
     p1.show;
     p2:=new TPoint(200,300,clRed);
     p2.show;
     p3:=new TPoint(200,400,clRed);
     p3.show;
     c1:=new TCircle(450,100,50,clblue);
     c1.show;
     c2:=new TCircle(550,100,50,clblack);
     c2.show;
     c3:=new TCircle(650,100,50,clred);
     c3.show;
     c4:=new TCircle(500,185,50,clyellow);
     c4.show;
     c5:=new TCircle(600,185,50,clgreen);
     c5.show;
var i:integer;
for i:=1 to 963 do
begin
p1.move(-1,0);
p2.move(2,0);
p3.move(6,0);
c1.move(-4,1);
c2.move(7,2);
c3.move(12,3);
c4.move(-8,4);
c5.move(-33,5);
sleep(120);
end;
end.

[Stilet]

Наследование: Tcircle=class(TPoint). Т.е. TCircle наследует свойства TPoint
Инкапсуляция: Как таковой по писанному я тут ее не увидел, но в теории есть мнения что инкапсуляция подразумевает внесение свойства обьекта или процедур работающих с обьектом внутрь обьекта:

Type Tcircle=class(TPoint)
r:integer;
Constructor Create(ix,iy,ir:integer;ic:color);
begin
x:=ix;y:=iy;r:=ir;c:=ic;
end;
Procedure Draw(pc:color);override;
Begin
Setpencolor(pc);
Circle(x,y,r);
end;
end;

Хотя инкапсуляция требует наличие слова private в типе объекта, для того чтоб исключить использование этих свойств за пределом обьекта или в данном случае за пределом модуля.

Полиморфизм:У тебя он описан в виде Procedure Draw(pc:color); override;

[mongush]

может все таки есть??? без этого слова private

препод говорит что это довольно простая программа без скрытия данных

[Serge_Bliznykov]

Type TFigure=class
     x,y:integer;
     c:color;     
     procedure draw(pc:color);      abstract;
end;

рискну предположить, что то, что я выделил зелёным - это и есть инкапсуляция по мнению вашего преподавателя!

[mongush]

Сообщение от Serge_Bliznykov

то, что я выделил зелёным - это и есть инкапсуляция!

разве это не поля?

[Serge_Bliznykov]

Сообщение от mongush

разве это не поля?

Вы правы.
да я хотел показать, что такое инкапсуляция...
но у меня не получилось.

Инкапсуляция - это механизм, который объединяет данные и методы, манипулирующие этими данными, и защищает и то и другое от внешнего вмешательства или неправильного использования. Когда методы и данные объединяются таким способом, создается объект.

вот, видимо, с точки зрения преподавателя, то, что в одном классе присутствуют и поля и методы их обработки и есть инкапсуляция

[mongush]

это то что в классе Tfigure?

[Serge_Bliznykov]

mongush, именно. Но я же говорю, принцип СОКРЫТИЯ данных - весьма важное понятие, которое является неотъемлимой частью инкапсуляции.

Впрочем, думаю, что если Вы укажите преподавателю на поля и методы, которые объединены в одном классе и назовёте это инкапсуляцией, то это может и прокатить.

Но для себя запомните, мало объединить поля (данные) и методы их обработки в один класс, нужно их ещё и спрятать (защитить) от внешнего доступа.
Вот тогда это и будет настоящая инкапсуляция.

[mongush]

спасибо)))

[mongush]

Раз так, если вам не сложно, ты могли бы вы более подробно описать полиморфизм.