Определить класс, описывающий круг.

[vitek]

Здравствуйте, у меня такая проблемка... нужно- определить класс, описывающий круг. И написать программу, в кторой используются методы определенного класса. на FreePascal
Буду рад любой помоши
Большое Спасибо

[скалогрыз]

такое вот счастье:

Код: Выделить всё

type
  TDefecator = class(TObject)
     procedure Defecate; virtual; abstract;
  end;

  TCirclePissing = class(TDefecator)
  public
     procedure Defecate; override;
  end;

procedure TCirclePissing.Defecate; 
begin
  writeln('pissing on a circle:');
  writeln('    ****    ');
  writeln('   *    *   ');
  writeln('  *      *  ');
  writeln('  *      *  ');  
  writeln('   *    *   ');
  writeln('    ****    ');
end;

var
  pisser : TCirclePissing;
begin
  pisser := TCirclePissing.Create;
  pisser.Defecate; 
  pisser.Free;
end;

[Bupyc]

Супер
Пять баллов.

[vitek]

спппасибо

[Bupyc]

Сегодня ржали всем отделом

[Mr.Smart]

Bupyc
А что, приведённый код скалогрыз'а, не соответствует формулировки вопроса?

[Bupyc]

Самое смешное, что как раз соответствует полностью