Pascalsche Dreieck

[lbccaleb]

Die Wiki sollte für Aufklärung sorgen:

http://de.wikipedia.org/wiki/Pascalsches_Dreieck

Edit. Achso, poste vllt. mal deinen Code von FPC. Dann kann man da vllt. auch helfen

[Sir Rufo]

Was ist denn mit so einem Konstrukt:

Delphi-Quellcode:

TPDNode = class
private
  FLeft, FRight : TPDNode;
  function GetValue : Integer;
public
  property Left : TPDNode read FLeft write FLeft;
  property Right : TPDNode read FRight write FRight;
  property Value : Integer read GetValue;
end;

function TPDNode.GetValue : Integer;
begin
  Result := 0;
  if Assigned( Left ) then
    Result := Result + Left.Value;
  if Assigned( Right ) then
    Result := Result + Right.Value;
  if Result = 0 then
    Result := 1;
end;

Diese passend verknotet und das Dreieck berechnet sich von selbst

[lbccaleb]

Zitat von Sir Rufo:

Was ist denn mit so einem Konstrukt:

Delphi-Quellcode:

TPDNode = class
private
  FLeft, FRight : TPDNode;
  function GetValue : Integer;
public
  property Left : TPDNode read FLeft write FLeft;
  property Right : TPDNode read FRight write FRight;
  property Value : Integer read GetValue;
end;

function TPDNode.GetValue : Integer;
begin
  Result := 0;
  if Assigned( Left ) then
    Result := Result + Left.Value;
  if Assigned( Right ) then
    Result := Result + Right.Value;
  if Result = 0 then
    Result := 1;
end;

Diese passend verknotet und das Dreieck berechnet sich von selbst

Wie genau kann man das dann verwenden?