4056

Принцип наследования. Создание иерархии классов. Классы и модули

Лабораторная работа

Информатика, кибернетика и программирование

Принцип наследования. Создание иерархии классов. Классы и модули. Задание: Создать иерархию графических классов в соответствии с рисунком. Описания классов оформить в отдельном модуле. Для создания данной программы, нам нужно обязательно созда...

Русский

2012-11-12

46.5 KB

65 чел.

Принцип наследования. Создание иерархии классов. Классы и модули.

Задание:

Создать иерархию графических классов в соответствии с рисунком. Описания классов оформить в отдельном модуле.

Для  создания данной программы, нам нужно обязательно создать для каждого рисунка иерархию графических классов.

Текст программы:

Unit labs3;

Interface

TYPE

    tLocation=object {создание типа фигуры}{класс TLocation}

       x,y,x1,y1:integer; {описание переменных координат}

       procedure Init(InitX,InitY:integer); {процедура инициализации}

    end;

    tPoint=object(tLocation) {описание объекта}{ класс tPoint}

       color:word; {цвет}

       procedure Init(InitX,InitY:integer;col:word);

       procedure Move(NewX,NewY:integer); {процедура движения фигур}

      { procedure Hide;}

       Procedure Draw; {процедура рисования}

    end;

    tCircle=object(tPoint) {класс tCircle, окружность}

       Rx,Ry,VRx:word;

       procedure Init(InitX,InitY:integer;col,RRx:word);

       procedure Move(NewX,NewY:integer);

      { procedure Hide;}

       Procedure Draw;

    end;

    tEllipse=object(tCircle) {элипс}

       procedure Init(InitX,InitY:integer;col,NRx,NRy:word);

       procedure Move(NewX,NewY:integer);

      { procedure Hide;}

       Procedure Draw;

    end;

    tLine=object(tPoint) {линия}

       Rx,Ry:word;

       procedure Init(InitX,InitY:integer;coll:word);

       procedure Move(NewX,NewY,NewX1,NewY1:integer);

      { procedure Hide;}

       Procedure Draw;

    end;

    tTriangle =object(tLine) {треугольник}

       procedure Init(InitX,InitY:integer;coll:word);

       procedure Move(NewX,NewY,NewX1,NewY1:integer);

      { procedure Hide;}

       Procedure Draw;

    end;

    tKvadrat=object(tLine) {квадрат}

       procedure Init(InitX,InitY:integer;coll:word);

       procedure Move(NewX,NewY,NewX1,NewY1:integer);

      { procedure Hide;}

       Procedure Draw;

    end;

implementation

Uses Crt,Graph; {инициализация графики}

                   {Метод tLocation}

procedure TLocation.Init(InitX,InitY:integer); {процедура, имя класса имя метода и так везде, где в скобках()указаны параметры}

begin

x:=InitX; y:=InitY;

end;

                   {Метод tPoint}

procedure tPoint.Init(InitX,InitY:integer;col:word);

begin

tLocation.Init(InitX,InitY);

color:=col;

end;

procedure tPoint.Move(NewX,NewY:integer);

begin

{Hide;}

x:=NewX;

y:=NewY;

Draw; {метод рисующий фигуру заданным цветом}

end;

{procedure tPoint.Hide;

begin

PutPixel(x,y,GetBkColor);

end;}

procedure tPoint.Draw; {процедура рисования}

begin

PutPixel(x,y,color);

end;

                 {Метод класса tCircle}

procedure tCircle.Init(InitX,InitY:integer;col,RRx:word);

begin

tPoint.Init(InitX,InitY,col);

Rx:=RRx;

end;

procedure tCircle.Move(NewX,NewY:integer);

begin

{Hide;}

x:=NewX;

y:=NewY;

Draw;

end;

{procedure tCircle.Hide;

begin

SetFillStyle(1,GetBkColor);

Setcolor(GetBkcolor);

Circle(x,y,Rx);

end;}

procedure tCircle.Draw;

begin

SetFillStyle(1,GetBkColor);

Setcolor(color);

Circle(x,y,Rx);

end;

                 {Метод класса tEllips}

procedure tEllipse.Init(InitX,InitY:integer;col,NRx,NRy:word);

begin

tCircle.Init(InitX,InitY,col,VRx);

Rx:=NRx;

Ry:=NRy;

end;

procedure tEllipse.Move(NewX,NewY:integer);

begin

{Hide;}

x:=NewX;

y:=NewY;

Draw;

end;

{procedure tEllipse.Hide;

begin

SetFillStyle(1,GetBkColor);

Setcolor(GetBkcolor);

FillEllipse(x,y,Rx,Ry);

end;}

procedure tEllipse.Draw;

begin

SetFillStyle(1,GetBkColor);

Setcolor(color);

FillEllipse(x,y,Rx,Ry);

end;

                  {Метод класса tLine}

procedure tLine.Init(InitX,InitY:integer;Coll:word);

begin;

tLocation.Init(InitX,InitY);

color:=coll;

end;

procedure tLine.Move(NewX,NewY,NewX1,NewY1:integer);

begin

{Hide;}

x:=NewX;

y:=NewY;

x1:=NewX1;

y1:=NewY1;

Draw;

end;

procedure tLine.Draw;

begin

SetFillStyle(1,GetBkColor);

Setcolor(color);

Line(x,y,x1,y1);

end;

            {Метод класса tTriangle}

procedure tTriangle.Init(InitX,InitY:integer;Coll:word);

begin;

tLine.Init(InitX,InitY,color);

color:=coll;

end;

procedure tTriangle.Move(NewX,NewY,NewX1,NewY1:integer);

begin

{Hide;}

x:=NewX;

y:=NewY;

x1:=NewX1;

y1:=NewY1;

Draw;

end;

procedure tTriangle.Draw; {процедура прорисовки треугольника}

begin

SetFillStyle(1,GetBkColor);

Setcolor(color);

  Line(x,x,y,x1); {линии треугольника}

  Line(x,x,y1,x1);

  Line(y,x1,y1,x1);

end;

              {Метод класса tKvadrat}

procedure tKvadrat.Init(InitX,InitY:integer;Coll:word);

begin;

tLine.Init(InitX,InitY,color);

color:=coll;

end;

procedure tKvadrat.Move(NewX,NewY,NewX1,NewY1:integer);

{Hide;} {метод, рисующий фигуру цветом фона}

begin

x:=NewX;

y:=NewY;

x1:=NewX1;

y1:=NewY1;

Draw; {метод, рисующий фигуру цветом фона}

end;

procedure tKvadrat.Draw; {класс,объект}

begin

SetFillStyle(1,GetBkColor); {цвет закраски}

Setcolor(color); {цвет которым будет производится закраска}

Rectangle(x,y,x1,y1); {прямоугольник}

end;

end.


 

А также другие работы, которые могут Вас заинтересовать

44238. Система управления научными проектами 3.89 MB
  Управление ОС. Причины и формы приобретения оборудования. Преимущества и недостатки форм Управление ОС. Схемы аренды оборудования Управление ОС. Продажа основных средств, причины и учитываемые факторы Интерактивные электронные технические руководства. Назначение, применение
44239. Специфика коллективного любительского творчества 135.5 KB
  Творчество превращается в важный фактор общественного развития способствует реализации потенциала личности и социумов различного уровня. Любительское творчество органично вписывается в духовную жизнь общества как область социальнокультурной деятельности отвечая потребностям творческой релаксации в сложных условиях переходного периода а также самореализации личности в ответственных но неформальных отношениях досугового коллектива. Концепции личности в психологии В психологической науке категория личности относится к числу...
44240. ПОРЯДОК ЛИЦЕНЗИРОВАНИЯ ДЕЯТЕЛЬНОСТИ ПО СБОРУ, ИСПОЛЬЗОВАНИЮ, ОБЕЗВРЕЖИВАНИЮ, ТРАНСПОРТИРОВКЕ, РАЗМЕЩЕНИЮ ОТХОДОВ I – IV КЛАССА ОПАСНОСТИ 471 KB
  При такой форме контроля лимиты на экологическое воздействие установок устанавливаются так, чтобы защитить соответствующий компонент окружающей среды (воздух, воду или почву) лишь до определенного уровня, выраженного стандартом качества окружающей среды
44241. Электрокардиограф. Диагностическая система для сбора данных и анализа сердечной деятельности человека 1.14 MB
  Современные методы анализа ЭКГ В клиническую практику вошли новые способы снятия ЭКГ: длительная регистрация электрокардиограммы на магнитную ленту или в память ЭВМ передача электрокардиограммы по телефону телеэлектрокардиография и др. Однако часто ЭКГ снимают по-прежнему при помощи самописца что хотя и является достаточно простым проверенным временем способом но обладает рядом недостатков: трудность сравнительного анализа электрокардиограмм в разные периоды времени необходимость использования специальной диаграммной бумаги...
44242. Изучение теоретических и практических основ учета и анализа оплаты труда, а так же разработка предложений по его совершенствованию в ООО «Росгосстрах» 556 KB
  Оплата труда заработная плата представляет собой один из основных факторов социально экономической жизни страны коллектива человека. Учет труда и заработной платы по праву занимает одно из центральных мест во всей системе учета на предприятии. Он должен обеспечить оперативный контроль над количеством и качеством труда за использованием средств включаемых в фонд заработной платы и выплаты социального характера. При переходе к рыночной экономике произошли кардинальные изменения во многих сферах экономической деятельности в том числе и в...
44243. Изучение порядка и оценка правильности учета затрат и калькулирования себестоимости строительно-монтажных работ на предприятии «Пермавтодор» 459.5 KB
  Под себестоимостью строительных работ понимаются затраты строительной организации на их производство и сдачу заказчику. Целью учета себестоимости строительных работ является своевременное полное и достоверное отражение фактических затрат связанных с производством и сдачей этих работ заказчику по видам и объектам строительства выявление отклонений от применяемых норм и плановой себестоимости а также контроль за использованием материальных трудовых и финансовых ресурсов. Целью выполнения данной работы было изучение порядка и оценка...
44244. Анализ качества атмосферного воздуха в салоне автотранспортных средств (АТС) 650 KB
  Вызывает тревогу тот факт что несмотря на проводимую работу выбросы загрязняющих веществ в атмосферу от автотранспортных средств увеличиваются в год в среднем на 31. В масштабах страны доля транспорта в суммарных выбросах загрязняющих веществ в атмосферу от всех источников достигает 45 в выбросах парниковых газов примерно 10 в массе промышленных отходов 2 в сбросах вредных веществ со сточными водами около 3 в потреблении озоноразрушающих веществ не более 5 Чуйкова 1996. т вредных веществ что представляет серьезную...
44245. Разработка рекомендаций по использованию стратегии диверсификации в организации на примере «ООО Премьер» 439.5 KB
  Сущность и виды стратегии диверсификации Разработка рекомендаций по использованию стратегии диверсификации в организации на примере ООО Премьер Рекомендации по реализации стратегии диверсификации Динамичность развития и глобализация современной мировой экономики обусловили необходимость диверсификации как способа снижения рисков неопределенности внешней среды и повышения конкурентоспособности компаний.
44246. Анализ и оценка текущего финансового состояния предприятия, и разработка возможных рекомендаций по его улучшению и эффективности деятельности ФГУП «ПО Завод имени Серго» 8.75 MB
  Цель работы провести анализ и оценку текущего финансового состояния предприятия и разработать рекомендации по его улучшению и эффективности деятельности предприятия. Рассмотрены теоретические и методологические основы финансового анализа его роль и значение в эффективности деятельности предприятия. Произведен полный анализ финансового состояния предприятия за 20092010 года предложены пути совершенствования финансовой и хозяйственной деятельности предприятия....