Pascalsches Dreieck o0

[AneLSD]

Hallo, könnt ihr mir helfen ein Pascalsches Dreieck zu schreiben? ;/

So weit bin ich bis jetzt gekommen aber mehr schaffe ich einfach nicht und eine Rekursive Lösung habe ich bis jetzt noch nicht gefunden ...

Code:

function pas(reihe,wert:byte):longint;
begin
  if (wert=0) or (wert=reihe)
      then pas:=1
      else pas:=pas(reihe-1,wert-1) + pas(reihe-1,wert)
end;

procedure TPascal.b_berechne_zeileClick(Sender: TObject);
var i: integer;
    exponent: byte;
    zeile: string;
begin
  zeile:='';
  exponent:=spe_exponent.value;
  for i:=0 to exponent do
  zeile:=zeile+inttostr(pas(exponent,i))+' ';
  e_ausgabe.Text:=zeile;
end;

procedure TPascal.b_endeClick(Sender: TObject);
begin
  close;
end;

procedure TPascal.b_koeffizientClick(Sender: TObject);
var exponent, koeffizient: integer;
begin
  exponent:=spe_exponent.Value;
  koeffizient:=spe_koeffizient.value;
  e_koeffizient.Text:=inttostr(pas(exponent,koeffizient-1))
end;

Soo, das Dreieck soll dann in einer Memo oder ähnlichem ausgegeben werden

Ich hoffe ihr könnt mir helfen

Mfg Arne

[Der schöne Günther]

Hallo - Du hast schon verstanden was 'rekursiv' ist, oder? Was du angibst ist rekursiv.

Meinst du zufällig eine 'iterative' Lösung?

[AneLSD]

Sorry Günther Aah

Also es ging mir eigentlich darum, wie ich das Ergebnis nun in einer Art Memo ausgeben kann, sodass es aussieht wie ein Pascalsches Dreieck - Das was ich bisher geschrieben hab zeigt leider imme rnur eine Zeile an :/

[Der schöne Günther]

Ich kann nur raten, wer oder was bsp. e_koeffizient oder e_ausgabe ist - Ein Edit-Feld, irgendetwas anderes?

Wie auch immer, schaue nochmal auf deine drei Zeilen

Delphi-Quellcode:

  for i:=0 to exponent do
   zeile:=zeile+inttostr(pas(exponent,i))+' ';
   e_ausgabe.Text:=zeile;

Wenn wir die "richtig" einrücken, sieht man es vielleicht etwas deutlicher:

Delphi-Quellcode:

for i:=0 to exponent do
   zeile:=zeile+inttostr(pas(exponent,i))+' ';

e_ausgabe.Text:=zeile;

Jetzt? Du schreibst 'exponent mal' in deine Variable zeile einen neuen Wert, erst danach stellst du in e_ausgabe dar, was am Schluss drinsteht.


Wenn du mehrere Zeilen in z.B. einer TMemo haben möchtest: Eine Zeile fügst du mit meineMemo.Lines.Add('Dies ist eine Zeile'); hinzu.


Kommst du jetzt weiter?

[AneLSD]

Ich habe dir eine PM geschrieben Vielen Dank

[Der schöne Günther]

Wenn wir hier weitermachen:

Wir haben zwei Baustellen:

1. Wir müssen der TMemo eine Zeile hinzufügen. Diese Zeile soll das sein, was wir vorher in das Edit-Feld geschrieben haben
2. Wir wollen der Memo mehrere Zeilen hinzufügen

Zu 1)

Das Add() ist eine Prozedur die zum Zeilen-Objekt deiner Memo1-Objekt gehört. Das Zeilen-Objekt ("Lines") wiederum gehört zu deinem Memo1-Objekt. Du sagst also richtigerweise Memo1.Lines.Add(...) . Die Zuweisung dahinter brauchst du nicht, du sagst einfach nur "Ihr Zeilen, fügt das hier (der Parameter in den Klammern) hinzu!". In den Klammern gibt man (leider) nicht an, in welche Zeile man es packen will. Das Add() fügt immer eine neue Zeile ganz unten hinzu. Das muss uns erst einmal reichen.

Für die ...-Angabe brauchen wir jetzt allerdings eine Zeichenkette ("String"). Genau wie beim Edit-Feld auch schon: Dazu hast du ja die Variable zeile gemacht.


Alles klar soweit? Statt e_ausgabe.Text:=zeile; fügen wir jetzt ganz billig eine Zeile in die Memo hinzu: Memo1.Lines.Add(zeile); . Tolle Wurst.


Jetzt kommt noch Punkt 2, das ist eigentlich sogar einfacher. Die Frage vorher: Hast du verstanden, was eine for-Schleife so macht?