Problem bei Pascalsche Dreieck

[Fridolin Walther]

Hier die gefixte Routine für alle Interessierten:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ACol, ARow, x : Integer;
begin
  StringGrid1.Cells[ 17, 1 ] := '1';
  for ARow := 1 to 10 do
    for ACol := 1 to 34 do
      begin
        x :=
          StrToIntDef(StringGrid1.Cells[ACol - 1, ARow - 1], 0) +
          StrToIntDef(StringGrid1.Cells[ACol + 1, ARow - 1], 0);
        if x <> 0 then StringGrid1.Cells[ACol, ARow] := IntToStr(x);
      end;
end;

Die Fehler in der Routine des Threaderstellers sind folgende:

Er geht zuerst Spalte für Spalte durch und nicht Zeile für Zeile. Da sich die Berechnung darauf verlässt, das die Zeile davor komplett berechnet ist, müssen wir Zeile für Zeile arbeiten.

Ausserdem berechnet sich x nicht durch "x + <Wert Links Oben> + <Wert Rechts Oben>" sondern nur durch "<Wert Rechts Oben> + <Wert Links Oben>".

[Sir Rufo]

Hast Du Deinen Code auch überprüft?

Ich sehe da auf jeden Fall noch einen groben Fehler ...

cu

Oliver

[Fridolin Walther]

Jo. Welchen Fehler denn?

[Borgschüler]

der fehler ist, dass man in der 2ten reihe anfangt und nicht in der ersten.

[Fridolin Walther]

Ist in dem Fall unnötig, weil in Zeile 0 keine Werte vorhanden sind und somit niemals irgendwelche Werte in die Zeile 1 geschrieben werden (die 1 die dort platziert wird, wird also niemals geändert).

[Borgschüler]

hinterher find ichs schad dass ich da gestern nicht draufgekommen bin.

naja ich hab auch schlecht wissen können was es mit dem Def auf sich hatte, danke jedenfalls!

[Sir Rufo]

Zitat:

Zitat von Borgschüler

naja ich hab auch schlecht wissen können was es mit dem Def auf sich hatte, danke jedenfalls!

Öh, das hatte mit der Lösung eigentlich nichts zu tun, war in dem Fall nur eleganter zu lösen.
Und ausserdem ist dir der Unterschied zwischen StrToInt und StrToIntDef erklärt worden.
Der eigentliche Fehler lag doch wohl darin, dass du

a) den vorherigen wert mit dazuaddiert hattest ( x := x + ... )
b) du keine überprüfung gemacht hast, ob für das feld überhaupt eine berechnung erfolgen darf

Das Argument "konnte ich doch gar nicht wissen" kann hier wohl nicht gelten.

cu

Oliver