Теория и практика объектно-ориентированного программирования. Ноткин А.М. - 40 стр.

                                    41
     inherited Run;
     End;

     Procedure TCalc.OutPutX;
     begin
     writeln(sum^.GetX:0:8)
     end;
     Procedure TCalc.InPutX(x1:real);
     begin
     sum^.SetX(x1);
     end;

     Procedure TAdd.HandleEvent(Var Event:TEvent);
     begin
     if Event.What=evMessage
      then begin
      case Event.Command of
      cmAdd:begin PCalc(owner)^.r1^.SetX(Event.A); Add;end
      else exit end;
     ClearEvent(Event) end
     end;

      Procedure TAdd.Add;
      begin
      PCalc(owner)^.sum^.SetX(PCalc(owner)^.sum^.GetX+PCalc(owner)^.r1
^.GetX)
      end
      END.

                 Итоговая лабораторная работа № 1
                ИЕРАРХИЯ КЛАССОВ И ОБЪЕКТОВ
     Цель. Получить практические навыки создания иерархий объектов и
выполнения запросов с использованием итераторов.

     Порядок выполнения работы.
     1. Создать иерархию объектов определенной предметной области.
     2. На основе иерархии объектов определить иерархию классов.
     3. Реализовать классы. Определения и реализации классов поместить
в модуль.
     4.Определить, какие запросы должна выполнять программа.
     5. Написать методы-итераторы.