Объектно-ориентированное программирование

[valiaam55]

И как это связать в единую программу?

[_-Re@l-_]

uses graph;
type
 TSneginka=object
  private
   t:integer;
  public
   r:integer;
   procedure ris(x,y:integer);
   procedure move(x:integer);
   Constructor Create;
   Destructor Free;
 end;

procedure TSneginka.ris;
var
   x1,y1:integer;
begin
   if r<=1 then begin putpixel(x,y,15);exit end;
   while(t<6) do   begin inc(t);
      x1:=x+trunc(r*cos(t*pi/3));
      y1:=y+trunc(r*sin(t*pi/3));
      line(x,y,x1,y1);
      ris(x1,y1);
      r:=r*2 div 5;
      {delay(500);}
   end;
end;

procedure TSneginka.Move;
begin
       while x<640 do begin
       SetColor(White);
       s.ris(x,100);
       delay(100);
       SetColor(White);
       s.ris(x,100);
       x:=x+1;
end;

Constructor TSneginka.Create;begin end;
Destructor TSneginka.Free;begin end;

var s:TSneginka;d,m:integer;

begin
   d:=detect;
   initgraph(d,m,'e:\bp\bgi');
   s.r:=80;
   s.ris(100,100);
   s.move(100);
   s.Free;
   readln;

end.

[valiaam55]

Это отдельной какой то части, или полностью программа?

[zumm]

А не видно?

[_-Re@l-_]

Ну вообще-то эт полный код...

[valiaam55]

программа, в которой необходимо реализовать следующую иерархию классов: суперкласс снежинка имеет двух потомков – 1) снежинка падающая и 2) снежинка мерцающая. В суперклассе определить абстрактный виртуальный метод, который затем переопределить в потомках.

вроде бы не полня программа, которая нужна.

[_-Re@l-_]

Тебе хватит. Я смотрю, ты и этого не понимаешь.

[zumm]

Учи матчасть