Delphi. Объект, отображающий кв. корень.

[fanta707]

я ещё не силён в програмировании а написать очень надо мож у кого есть что похожее я сам поправлю надо здавать в институте, или кто может написать буду очень благодарен за помошь.
Такая задача: "создать объект который отоброжает выражение с квадратным корнем в котором подкоренное выражение является дробью"
На Delphi...

[DRAgon™]

какой язык сначала скажите

[Stilet]

Подсказка:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TRadiks=class
  private
   Canvas:TCanvas;
    FSubRadiks: String;
    procedure SetSubRadiks(const Value: String);
  public
   property SubRadiks:String read FSubRadiks write SetSubRadiks;
   Constructor Create(ACanvas:TCanvas);
  end;

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var     rad:TRadiks;
  Form1: TForm1;

implementation

{$R *.dfm}

{ TRadiks }

constructor TRadiks.Create(ACanvas: TCanvas);
begin
  Canvas:=ACanvas;
end;

procedure TRadiks.SetSubRadiks(const Value: String);
begin
  FSubRadiks := Value;
   with Canvas do begin
    MoveTo(100,100);
    LineTo(120,200);
    LineTo(120,100);
    LineTo(400,100);
    Font.Size:=36;
    TextOut(130,110,FSubRadiks);
   end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  rad:=TRadiks.Create(Canvas);
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
 rad.SubRadiks:='123';
end;

end.

Понятно от чего отталкиваться надо?