Хочу понять ООП. есть задача, что нужно делать и как правильно нужно делать Опции

[noskovgleb]

Сама задача выглядит вот так:
Дан файл "Багаж пассажиров", который содержит данные о количестве вещей и их общем весе для каждого пассажира. Выделить пассажиров, данные которых превышают средние показатели файла.
Объясните пожалуста... код мне впринципе ненужен!

[noskovgleb]

вот вообщем получилось зделать уже и наследование, осталось зделать полиморфизм.... и каким образом его втыкнуть? и что он должен делать)?

 
program laba13;
   type
      tm = array[1..5] of integer;
      OO = object
              m    : tm;                               { object }
              kolv : byte;                    { count of things }
              oves : integer;                { weight of things }
              constructor init(var im:tm);
              procedure openbogazh;        { open list of thing }
              procedure createmassiv(var cm:tm);{ mas of things }
           end;
      tves = object(OO)
                 procedure sves(var sm:tm);   { find max weight }
              end;
{---------------------------------------------------------------}
   constructor OO.init;
   begin
      im:=m;
   end;
{---------------------------------------------------------------}


{---------------------------------------------------------------}
   procedure tves.sves(var sm:tm);
      var
         i    :byte;
         summa:integer;
         j    :byte;
   Begin
      j:=0;
      writeln;
      writeln('3десь будем определять кто взял большой вес одежды) ');
      writeln;
      for i:=1 to 5 do
          begin
             summa:=summa+sm[i];
             inc(j);
          end;
      for i:=1 to 5 do
         if sm[i] > (summa/j)
            then writeln(i,'-й пассажир превысил средний вес вещей.');

   End;
{---------------------------------------------------------------}
   procedure OO.openbogazh;
      var f : text;
          i : byte;
          b : byte;
   Begin
      i:=0;
      assign(f,'bagag.txt');
      reset(f);
      while not eof (f) do
            begin
               i:=i+1;
               read(f,b);
               write(b:2,' ');
               if i=2 then
                 begin
                    writeln;
                    i:=0;
                 end;
            end;
      close(f);
   End;
{---------------------------------------------------------------}
   procedure oo.createmassiv(var cm:tm);
   var j : integer;
       i : integer;
       f : text;
       b : byte;
       y : byte;
       xm:   tm;
   Begin
       writeln;
       i:=0;
       j:=1;
       y:=0;
      assign(f,'bagag.txt');
      reset(f);
      while not eof (f) do
            begin
               i:=i+1;
               read(f,b);
               if i=2 then
                 begin
                    xm[j]:=b;
                    inc(y);
                    writeln('ves veshei ',y,
                            '-ogo passagira ',xm[j],' kg');
                    cm[y]:=xm[j];
                    inc(j);
                    i:=0;
                 end;
            end;
      close(f);
   End;
(*--------------------                           --------------*)
   var
      BP : OO;
      ves:tves;
BEGIN
   writeln('--------------------------------------------------');
   BP.openbogazh;
   BP.createmassiv(BP.m);
   ves.sves(BP.m);
   readln;
END.

 

Сообщение отредактировано: noskovgleb - 26.12.2009 17:59