Треугольник Лейбница

[tane]

Построить и вывести на экран треугольник Лейбница(Паскаль или Делфи).
Если для кого-то это "очень" просто,то напишите комментарии построчно.Может нагловато выглядеть,но ой как надо.Благодарю вас заранее!

(Треугольник Лейбница) На рисунке изображен фрагмент гармонического треугольника Лейбница. Его свойства подобны (обратны) свойствам треугольника Паскаля: числа на границе треугольника обратны последовательным натуральным числам, каждое число внутри равно сумме двух чисел, стоящих под ним.

[Аватар]

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

uses Math;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Font.Name:='Courier New';
  GetTextExtentPoint32(Canvas.Handle,'0',1,TextSize);
  DoubleBuffered:=True;
  OnResize:=FormPaint;
end;

procedure TForm1.FormPaint(Sender: TObject);
var BitMap: TBitmap;
    n,i,k,j,m,t: Integer;
    a: array of Integer;
    xRect: TRect;
begin
  BitMap:=TBitmap.Create;
  BitMap.Height:=ClientHeight;
  BitMap.Width:=ClientWidth;
  n:=ClientHeight div (TextSize.cy*2);
  SetLength(a,n);
  for i:=n downto 1 do begin
    k:=i;
    for j:=0 to (i-1) div 2 do begin
      a[j]:=k;
      a[i-1-j]:=k;
      k:=(k*(i-1-j)) div (j+1);
    end;
    if i=n then m:=Length(IntToStr(a[(i-1) div 2]));
    k:=((n-i)*(m+1)*TextSize.cx) div 2;
    for j:=0 to i-1 do begin
      xRect:=Rect(k,(i-1)*TextSize.cy*2+TextSize.cy,k+m*TextSize.cx,(i-1)*TextSize.cy*2+TextSize.cy*2);
      DrawText(BitMap.Canvas.Handle,PChar(IntToStr(a[j])),Length(IntToStr(a[j])),xRect,DT_CENTER);
      if i>1 then begin
        xRect:=Rect(k,(i-1)*TextSize.cy*2,k+m*TextSize.cx,(i-1)*TextSize.cy*2+TextSize.cy);
        DrawText(BitMap.Canvas.Handle,'1',1,xRect,DT_CENTER);
        t:=Length(IntToStr(a[j]))*TextSize.cx;
        BitMap.Canvas.MoveTo(k+(m*TextSize.cx-t) div 2,(i-1)*TextSize.cy*2+TextSize.cy);
        BitMap.Canvas.LineTo(k+(m*TextSize.cx-t) div 2+t,(i-1)*TextSize.cy*2+TextSize.cy);
      end;
      Inc(k,(m+1)*TextSize.cx);
    end;
  end;
  Canvas.Draw(0,0,BitMap);
  BitMap.Free;
end;

end.

Коменты лень писать, разбирайтесь сами, может польза будет

[tane]

Спасибо огромное за программу.Но боюсь я без комментариев не смогу понять,так как за 1 семестр изучения в вузе Delphi,мы сделали только 6 лабораторных(Это программа,можно сказать,выше моих возможностей(на данный момент)).