Pascalsche Dreieck

[Mr. General]

Also erstmal hallo!

Arbeitsauftrag ist folgender:

Pascalsches Dreieck
Eingabe in Edit: Anzahl der Zeilen, die berechnet werden sollen
Ausgabe in einem Memo-Feld

Ich weiß nicht wie ich da ran gehen soll... Ich hab schon viel gegoogelt aber nichts passendes gefunden.

Wäre echt nett wenn ihr mir helfen könntet

[lbccaleb]

Hey, ich habe vor einger Zeit schon mal das Dreieck hier veröffentlicht, vllt kann es dir weiterhelfen,du kannst es ja weiterentwickeln, mit den Dingen die du benötigst!!

Hoof mal das kann dir weiter helfen

[Mr. General]

passt perfekt ich habs jetzt so wie ich es brauche.

funktioniert genau so wie es soll, jetzt muss ich es nurmehr verstehen, kommentieren und fertig.

[ericsson333]

Hallo zusammen,

bäuchte auch mal das Pascal'sche Dreieck mit Eingabe der Zeilenlänge in einem Edit-Feld. Ausgabe über
ButtonClick in einer Listbox. Könnte mit hierzu vielleicht einer behilflich sein.
Habe nächste Woche Klausur und keinen Plan wie ich das umsetzen soll. Ich weiß auch nicht wie ich
die Ausgabe über Memofeld umschreiben könnte.

Weiß hier jemand was??
VIelen dank vorab.

[MrMooed]

Bist du dir sicher, dass die Ausgabe über eine TListBox erfolgen soll?

Vielleicht meinst du eine TListView? Wäre jedenfalls meiner Meinung nach deutlich sinnvoller

[Furtbichler]

Also eine Listview?
Dann eine ListBox mit Courier-Zeichensatz und '*' und ' '.
Noch hübscher ist natürlich eine Paintbox.

[MrMooed]

Ansonsten habe ich mir ein altes Schulprojekt herausgekramt:

Stell dir das Dreieck einfach als 2D-Array vor.

Code:

Ebene: | Ergebnis:
0      |     1
1      |    1 1
2      |   1 2 1
3      |  1 3 3 1
4      | 1 4 6 4 1

Bei dem Dreieck wissen wir als einziges, dass außen immer eine '1' steht. Außerdem sehen wir, dass jede Dimension (Ebene) einen Wert mehr hat, als die vorherige.
D.h. konkret, dass wir ein Array erschaffen müssen, dessen Dimensionen immer um eins incrementiert werden und "außen" den Wert '1' besitzen:

Delphi-Quellcode:

procedure PasDreieck(var Ebenen: Integer);
var 
  PasDreieck : Array of Array of Integer;
  i, j       : Integer;
begin
for i:=0 to Ebenen -1 do    
    begin
      SetLength(PasDreieck[i], i+1);             // Länge für jede Ebene um 1 erweitern
      PasDreieck[i,Low(PasDreiech[i])] := 1;                      // Eins am Anfang
      PasDreieck[i,high(PasDreieck[i])] := 1;    // Eins am Ende
    end;
end;

Wie man aus der Tabelle sehen kann, müssen wir erst ab der 3. Ebene anfangen zu rechnen - davor kommen nur unsere Einsen vor

Delphi-Quellcode:

for i:=2 to Ebene -1 do
  for j:=1 to High(PasDreieck[i]) -1 do
    begin
      PasDreieck[i,j] := PasDreieck[i-1,j-1] + PasDreieck[i-1, j];
    end;

Und das Array kannst du nun in welcher Form auch immer du willst ausgeben.

Delphi-Quellcode:

for i:=Low(PasDreieck) to High(PasDreieck) do
  for b:=Low(PasDreieck[i]) to High(PasDreieck[i]) do
    StringGrid1.Cells[i,b] := IntToStr(PasDreieck[i,b]);

Wäre z.B. eine von vielen Möglichkeiten