StringGrid Gerade Zahlen Ausgeben

[tobey1990]

Hallo,

programmiere mit Delphi 7.


ich will in eine stringgrid gerade Zahlen ausgeben lassen, nur weiß leider nicht, wie es geht.
Hat davon jemand Ahnung?
bin Anfänger , also bitte ich um unkomplizierte Antworten

http://www.materialordner.de/KhOacCu...RTqIh8rAH.html

bei Primzahlen und Quadratzahlen klappt alles wunderbar.

Danke

[sirius]

Und ich tippe, die Primzahlen und Quadratzahlen hast du nicht selber programmiert (außerdem hat Delphi 7 nichts mit .Net am Hut)

Dann zeig vielleicht mal wie du Quadratzahlen ausgibst! Da kann man besser daran erklären.

[tobey1990]

primzahlen & quadratzahlen hatten wir in der 11. schon im unterricht..
das war leichtes Spiel..

der quelltext zu quadratzahlen

VAR n,q,i:Integer;
begin
n:=StrToInt(EingabeEdit_n.Text);
FOR i:=1 TO n+1 DO
begin
q:=i*i;
stringgrid1.cells[2,i]:=IntToStr(q);
end;

[jfheins]

Okay. Jetzt zu den geraden Zahlen.

Was macht eine Zahl gerade?

Genau, sie hat den Faktor 2 in ihrer Primfaktorzerlegung.

Mit anderen Worten: 2*n ist immer eine gerade Zahl, wenn n ∈ N (also wenn n in den natürlichen Zahlen ist)

[freak4fun]

gerade zahlen sind durch 2 teilbar ;)

[tobey1990]

Zitat:

Zitat von freak4fun

gerade zahlen sind durch 2 teilbar ;)

sind wohl alle nä^^ problem is ja dass ich keine ahnung hab, wie man es programmiert, dass dann auch nur die geraden zahlen ausgegben werden.. wäre ja was mit DIV 2 ..

[Frankfurtoder]

Wie wäre es mit mod 2? Wenn kein Rest, also 0, das Result ist wäre die zahl gerade.

[jfheins]

2****= 2 * 1
4****= 2 * 2
6****= 2 * 3
8****= 2 * 4
10**= 2 * 5
12**= 2 * 6
14**= 2 * 7

Ist das so schwierig, da ein Muster zu erkennen?

(Gerade Zahl) = 2 * (fortlaufende Zahl)

:gruebel:

Roter Kasten: Ja, mod 2 ginge auch - viele Werge führen nach Rom

[tobey1990]

Zitat:

Zitat von Frankfurtoder

Wie wäre es mit mod 2? Wenn kein Rest, also 0, das Result ist wäre die zahl gerade.

quasi if k mod 2 then !?

kann ja hinter then nich schreiben "die zahl ist gerade" ^^

[ATSV]

Delphi-Quellcode:

for i := 0 to x do
begin
if i mod 2 = 0 then
//ausgabe
end;

sollte so funktionieren :wink:

zu langsam gluab ich^^