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

[valiaam55]

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

[Virtson]

Покажите ваши наработки.

[valiaam55]

Вся проблема в том что я не могу разобраться по этой теме.((((((((а так надо понять как эта программа пишется.

[Stilet]

http://www.erudition.ru/referat/ref/id.19742_1.html
http://www.ref.by/refs/67/33427/1.html
Тут даже примеры есть.

[valiaam55]

такой вопрос: Как в программе сделать снежинку, я нашла только рекурсивную программу построения.

[Stilet]

я нашла только рекурсивную программу построения.

Давай сначала:
ты разобралась как объекты описывать и реализовывать?
Сможешь сделать класс, в котором будет один метод - отрисовки той самой снежинки? Покажи то что нашла.

[valiaam55]

рекурсивная программа построения снежинки

program sneg;
uses graph, crt;
var
   x,y,r,d,m:integer;
procedure ris(x,y,r:integer);
var
   x1,y1,t:integer;
begin
   if r<=1 then begin putpixel(x,y,15);exit end;
   for t:=0 to 6 do
   begin
      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*2 div 5);
      delay(500);
   end;
end;
begin
   d:=detect;
   initgraph(d,m,'e:\bp\bgi');
   x:=320;
   y:=240;
   r:=80;
   ris(x,y,r);
   readln;
end.

это то что я нашла по снежинке.

[Stilet]

Ок.
Вот приблизительная обертка этого кода в класс:

uses graph;
type
 TSneginka=object
  private
   t:integer;
  public
   r:integer;
   procedure ris(x,y: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;

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.Free;
   readln;

end.

Приблизительная потому что я паскаль давно не использую и мог забыть что-то указать.

[valiaam55]

а как сделать так чтоб снежинка падала и снежинка мерцала?

[Stilet]

Создаешь еще один метод в котором в цикле пишешь:

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

т.е. вывод снежинки на экран, ожидание, затирание снежинки, и переход к другим координатам

Для мерцания можно вместо SetColor(White); поставить SetColor(random(16));
Чтоб она выводилась разными цветами.