Problem bei Pascalsche Dreieck

[Sir Rufo]

Zitat von Borgschüler:

ja ber ich kann den fehler dann nachvollziehen und beim nächsten mal selber draufkommen.
Außerdem könnten es ja fehler sein, die ich aufgrund meines wissenstandes gar nicht erkennen kann, da hilft es niemandem wenn ich einen taqg meinse lebens vergeblich aufopfere.

ich versichere dir, mit deinem wissensstand kannst du das lösen

[Borgschüler]

kann es ein, dass ich acol und arow verwechsle?

und um die 0er wegzubekommen, muss ich eine if abfrage vor der ausgabe machen.

aber ich versteh zb. überhaupt nicht

Delphi-Quellcode:

x:= x + strtointdef(stringgrid1.cells[Acol - 1,Arow - 1 ] , 0)
         + strtointdef(stringgrid1.cells[Acol - 1 ,Arow + 1 ] , 0);

was die 0er nach der ] sollen

[Fridolin Walther]

function StrToIntDef(const S: string; Default: Integer): Integer; StrToIntDef konvertiert den String S in eine Zahl. Falls S keine gültige Zahl ist, wird stattdessen der Integer Wert Default zurückgegeben. Die ", 0" bedeutet also soviel wie: "Gib mir den String in der Zelle als Zahl zurück, und wenn da nichts drin steht, bitte 0.".

[Sir Rufo]

Zitat von 0xF30FC7:

"Gib mir den String in der Zelle als Zahl zurück, und wenn da nichts drin steht, bitte 0.".

"..., und wenn das nicht als Zahl zu interpretieren ist, bitte 0."

StrToIntDef( 'Guten Tag aber auch mal', 0 ) ergibt 0
StrToIntDef( '10 kleine ...', 0 ) ergibt 0

cu

Oliver

[Fridolin Walther]

Zitat von Borgschüler:

und um die 0er wegzubekommen, muss ich eine if abfrage vor der ausgabe machen.

Das ist schon mal richtig .

Die anderen Sachen sind minimal. Nochmal kurz wie man das Dreieck berechnet:

Man geht jede Spalte durch. In jeder Spalte schaut man sich nun jede Zelle an. Für jede Zelle berechnet man jetzt die Summe der Zellen links oberhalb und rechts oberhalb der aktuellen Zelle. Die Summe trägt man dann in die aktuelle Zelle ein.

Und jetzt schau mal was Du dort machst .

[Sir Rufo]

Zitat von Borgschüler:

kann es ein, dass ich acol und arow verwechsle?

und um die 0er wegzubekommen, muss ich eine if abfrage vor der ausgabe machen.

aber ich versteh zb. überhaupt nicht

Delphi-Quellcode:

x:= x + strtointdef(stringgrid1.cells[Acol - 1,Arow - 1 ] , 0)
         + strtointdef(stringgrid1.cells[Acol - 1 ,Arow + 1 ] , 0);

was die 0er nach der ] sollen

ok, wir machen das jetzt noch einfacher:

Code:

..: 0 1 2 3 4 5 6
--+---------------
0 :       1
1 :     1   1
2 :   1   2   1
3 : 1   ?   ?   1

- Was für ein Wert kommt bei den Fragezeichen ( Feld[ 2, 3 ] und Feld[ 4, 3 ] ) hin?
- Wie wird der errechnet?
- Macht dein Programm das genauso?

cu

Oliver

[Sir Rufo]

Entweder er hat es jetzt oder uns nicht mehr lieb ...

cu

Oliver

[Fridolin Walther]

Ob wir mal in die anderen Delphi Foren schauen ob ers jetzt da versucht? Aber das wär schon böse . Dabei sind das - wenn er das IF einbaut - wirklich nur 2 winzige Kleinigkeiten.

[Sir Rufo]

Zitat von 0xF30FC7:

Ob wir mal in die anderen Delphi Foren schauen ob ers jetzt da versucht? Aber das wär schon böse .

Hab ich schon geschaut, aber bis jetzt nichts gefunden

Zitat von 0xF30FC7:

Dabei sind das - wenn er das IF einbaut - wirklich nur 2 winzige Kleinigkeiten.

yes, sir

[lbccaleb]

ich weiß nicht ob es dir weiter hilft, aber sonnst kannst du hier nochmal schauen:

Pascalsche Dreieck