Экзаменационная работа по дисциплине: Объектно-ориентированное программирование Билет 4

Экзаменационная работа по дисциплине: Объектно-ориентированное программирование Билет 4

Билет № 4
Требуется:
1) оставить метод Proc только в классе TFigura;
2) Изменить программу так, чтобы после выполнения п.1 результат ее работы не изменился.
{TFigura – фигура; TLine – линия; TRectangl – прямоугольник}

Type int=integer;
TFigura=object
X, Y: int;
procedure Proc(X,Y:int);
procedure Display;
End;
TLine=object (TFigura)
procedure Proc(X,Y:int);
procedure Display();
End;
TRectangl=object (TLine)
procedure Proc(X,Y:int);
procedure Display;
End;
Procedure TFigura.Proc(X,Y:int);
Begin
End;
Procedure TLine.Proc(X,Y:int);
Begin
{рисует цветом фона}
 Display ();
X:= X;
Y:= Y;
{рисует заданным цветом}
 Display();
{реализация метода Proc класса TRectangl аналогична}
End; Procedure TFigura.Display;
begin
{рисует символ *}
end;
Procedure TLine.Display;
begin
{рисует линию}
end;
Procedure TRectangl.Display;
begin
{рисует прямоугольник}
end;

var p: TRectangl;
begin
…
p.Proc(100,120);
…
end.

Экзамен 31.05.2026 15.06.2026 Отлично Уважаемый, Ситняковская Елена Игоревна