Pascalsches Dreieck o0

[Der schöne Günther]

Wäre ich ein Lehrer, wäre ich über die Antwort wohl nicht ganz glücklich

Eine for-Schleife erzeugt nicht einfach Zahlen und geht dann nach Hause. Ich würde es so darstellen, dass man in einer for-Schleife einmal

• eine Definition einer Zahlenreihe
• und einen Block an Quellcode, indem jede(!) Zahl aus dieser Zahlenreihe zum Einsatz kommt

hat.

Deine Zahlenreihe geht von 0 bis einschließlich "exponent". Das hast du mit deinem for i:=0 to exponent abgedeckt.

Nur wo steckt der zweite Teil? Das ist das, was hinter deinem do kommt. Und zwar nicht alles was du heute noch schreibst, sondern nur die nächste Anweisung hinter dem do. Deshalb hatte ich das vorhin auch so eingerückt:

Delphi-Quellcode:

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

Die Zuweisung zeile:=zeile+inttostr(pas(exponent,i))+' ' wird (exponent+1) mal ausgeführt. In jedem Aufruf ändert sich deine Variable i: Im ersten Aufruf ist sie 0, dann 1, ... und am Schluss ist sie gleich "exponent".

Jetzt wollen wir ja nicht nur in die Variable "zeile" das richtige reinschreiben, wir wollen auch jedes mal eine Zeile an die Memo anhängen - Wir müssen die For-Schleife nun irgendwie so hinbekommen, dass wir den Teil, der für jeden Eintrag unserer Zahlenreihe ausgeführt wird, auf unser Memo1.Lines.Add(...) ausweiten.

Das geschieht mit etwas, das du schonmal gesehen hast: begin und end . Wahrscheinlich werde ich später über den Haufen geknüppelt, aber drücken wir es vereinfacht einmal so aus: Alles was du zwischen ein begin und end packst, kommt Delphi wie eine einzelne Anweisung vor.


Baue dir einmal eine Prozedur (z.B. einem Button-Klick) eine for-Schleife die in etwa folgendermaßen aussieht:

Delphi-Quellcode:

for i:=0 to 10 do begin
   Memo1.Lines.Add('Mein Wert ist gerade '+IntToStr(i));
   Memo1.Lines.Add('Diese Zeile fühlt sich hier wohl');
end;
Memo1.Lines.Add('Diese Zeile kommt ganz zum Schluss... Und das nur ein mal.');

Kommst du damit weiter?

[AneLSD]

for i:=0 to 10 do begin // Warum denn 10? Es müsste doch Exponent sein oder?
Memo1.Lines.Add('Mein Wert ist gerade '+IntToStr(i)); // Der aktuelle Wert ? Der ist doch immer i + 1 also hier 1,2,3 - 11
Memo1.Lines.Add(' '); Die Zeile belibt dann ja leer
end;
Memo1.Lines.Add(' '); Die doch dann auch, aber dann passt das mit dem begin und end nicht...

[Der schöne Günther]

Zitat von AneLSD:

Warum denn 10? Es müsste doch Exponent sein oder?

Es sollte nur ein Beispiel sein.

Dann: Ich hätte auch Smileys oder Gedichte in die Add()-Anweisungen schreiben können. Du kannst den Text natürlich auch gerne entfernen, dann hast du natürlich leere Zeilen. Wie man sieht, ist es wohl eine gute Sache, dass ich meine Brötchen nicht damit verdiene, Dinge zu erklären. Hast du es nicht einmal ausprobiert? Ich wollte mit diesem wundervollen Beispiel nur zeigen, wie eben das, was zwischen begin und end steht für jede Zahl in deiner Zahlenreihe wiederholt wird, die letzte Zeile allerdings nicht!

In deinem Memo-Feld würde somit nach dem Klick folgendes stehen:

Code:

Mein Wert ist gerade 1
Diese Zeile fühlt sich hier wohl
Mein Wert ist gerade 2
Diese Zeile fühlt sich hier wohl
Mein Wert ist gerade 3
Diese Zeile fühlt sich hier wohl
Mein Wert ist gerade 4
Diese Zeile fühlt sich hier wohl
Mein Wert ist gerade 5
Diese Zeile fühlt sich hier wohl
Mein Wert ist gerade 6
Diese Zeile fühlt sich hier wohl
Mein Wert ist gerade 7
Diese Zeile fühlt sich hier wohl
Mein Wert ist gerade 8
Diese Zeile fühlt sich hier wohl
Mein Wert ist gerade 9
Diese Zeile fühlt sich hier wohl
Mein Wert ist gerade 10
Diese Zeile fühlt sich hier wohl
Diese Zeile kommt ganz zum Schluss... Und das nur ein mal.

[AneLSD]

Es tut mir Leid, du erklärst wirklich sehr professionell und ausfühlich, allerdings bin ich das absolute Gegenteil eines Schnelllerners

for i := 0 to exponent do
Memo1.Lines.Add('Mein Wert ist gerade '+IntToStr(i)); // Das habe ich Versatnden, der aktuelle Wert ist also immer der Exponent aber was ist dann mit #Mein Wert ist gerade ' gemeint? Klar, der aktuelle Wert - aber was soll ich hier einsetzen?

Memo1.Lines.Add('Diese Zeile fühlt sich hier wohl'); // Das ist doch nur ein 'Lückenfüller' oder?
end;
Memo1.Lines.Add // gibt dann ja einfach die letzte Zeile an

[Der schöne Günther]

Ja, das "Mein Wert ist gerade" war unglücklich formuliert. Es hätte besser "Die schleifenvariable i entspricht gerade:" oder ähnlich heißen sollen.

Wie gesagt, im Endeffekt hattest du eigentlich schon alles. Die einzige Herausforderung, vor der wir momentan stehen, ist in der for-Schleife nicht eine Sache (die Variable "zeile" setzen), sondern zwei Sachen zu tun: Die Variable "zeile" setzen und die Variable "zeile" dann ins Memo schreiben.

In Delphi ist es (glaube ich) nicht sonderlich populär, aber in anderen Sprachen nennt zusammen gruppierte, aufeinanderfolgende (sehr salopp umschrieben ) "einen Block". Wie weiter oben: Die For-Schleife hat zwei Bestandteile:

• Die Definition deiner Zahlenreihe
• Den Codeblock, der FÜR JEDE Zahl deiner Zahlenreihe ausgeführt werden soll

In unserem Fall ist der ganze Codeblock unsere Zwei Anweisungen: Variable "zeile" setzen und die Variable "zeile" in unserer Memo ausgeben.


Du hast anscheinend privat keine Delphi-Installation und kannst nicht mal etwas ausprobieren? Gerade das ist eigentlich, was an der Informatik Spaß macht: (Zumindest meistens) kann man herumprobieren wie man lustig ist, ohne etwas kaputt zu machen...

PS: Bitte packe Delphi-Quellcode hier im Forum immer in (delphi)(/delphi)-Tags (mit eckigen Klammern), somit kann man das besser lesen.

[AneLSD]

Delphi-Quellcode:

begin
  for i:=0 to exponent do
                         Memo1.Lines.Add('Mein Wert ist gerade '+IntToStr(i));
                         Memo1.Lines.Add (zeile(i))

So etwa?

Ich besitze Delphi 6 - leider kann ich keine Anwendungen starten, da dich mein liebes Programm dann immer aufhängt

[Der schöne Günther]

Nein, nicht ganz. Bislang hatten wir für jeden Zahlenwert zwischen 0 bis "exponent" die Zuweisung der Variable Zahl. Das war schon ganz gut so. Jetzt wollen wir nach jeder Zuweisung das in die Memo schreiben. Weiterhin für jeden Zahlenwert. Und das beides muss direkt zwischen das begin und end:

Delphi-Quellcode:

for i:=0 to exponent do BEGIN

   zeile:=zeile+inttostr(pas(exponent,i))+' ';
   Memo1.Lines.Add(zeile); 

END;

Dinge wie Einrückungen sind im Endeffekt nur Geschmackssache für das menschliche Auge, dem Computer ist das (in Delphi) relativ egal, für ihn zählt nur das begin und end. Aber so sieht man als Mensch auf einen Blick, dass sich diese zwei Anweisungen immer wiederholen und zusammengehören.

Zitat:

leider kann ich keine Anwendungen starten, da dich mein liebes Programm dann immer aufhängt

Das ist als würde man sagen "Ich habe zwar einen Stift, aber der kann nicht schreiben weil da vorne kommt irgendwie nichts raus. Aber immerhin habe ich einen Stift..." - Das sollten wir bei Gelegenheit auch einmal in Angriff nehmen, das bringt ja so nichts...