Данный код выводит треугольник Паскаля. Передалайте пожалуйста

[tane]

Данный код выводит треугольник Паскаля. Передалайте пожалуйста

Доброго времени суток,господа!.Данный код выводит треугольник Паскаля.Передалайте пожалуйста этот код,что бы он выводил треугольник Лейбница.(рис.62)
Заранее благодарю за проделаною работу!

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
function F(x,y:integer):integer;
begin
if (x=1)or(y=1)then F:=1
else F:=F(x-1,y)+F(x,y-1);
end;
procedure TForm1.Button1Click(Sender: TObject);
var n,i,j,k:integer;
begin
n:=Strtoint(Edit1.Text);
for i:=1 to n do
begin
for k:=1 to 2*(n-i)+1 do
label1.Caption:=label1.Caption+ ' ';
for j:=1 to i do
label1.Caption:=label1.Caption + inttostr(F(j,i-j+1))+' ';
label1.Caption:=label1.Caption+#13+#10;
end;
 
 
 
end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
begin
Label1.caption:='';
end;
 
end.

 

[Gruvi]

По опыту скажу, что переделывать чей-либо код тяжелее в частых случаях, нежели написать свой.

Вот программа выводит треугольник Лейбница:

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.

будут вопросы по коду, пиши/спрашивай в теме.