FOR-Schleifen-Start während Durchlauf +1 zählen

[TonyR]

Zitat:

Zitat von Svenkan

Gibts denn sonst noch ne Möglichkeit, dass man innerhalb einer Schleife halt nur die ungraden Zahlen addiert?
Das Problem ist, dass ich in der Stunde leider nicht da war und deswegen leider grad vor dem Problem stehe.

Lösung in Beitrag #6 ???

[Torpedo]

Zitat:

Zitat von Svenkan

Gibts denn sonst noch ne Möglichkeit, dass man innerhalb einer Schleife halt nur die ungraden Zahlen addiert?
Das Problem ist, dass ich in der Stunde leider nicht da war und deswegen leider grad vor dem Problem stehe.

Das was du da geschrieben hast kann man ja fast 1:1 in Delphi-Code umsetzen:
Addiere nur die ungeraden Zahlen.
Dafür brauchst du nur if und mod (siehe oben)

[Blackheart]

Nicht unbedingt schön aber naja

Delphi-Quellcode:

var
  Form1: TForm1;
  j:Integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
  for i:=1 to 50 do
  begin
  inc(j,2);
  Memo1.Lines.Add(IntToStr(j));
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 j:=-1;
end;

[Svenkan]

Zitat:

Zitat von TonyR

Zitat:

Zitat von Svenkan

Gibts denn sonst noch ne Möglichkeit, dass man innerhalb einer Schleife halt nur die ungraden Zahlen addiert?
Das Problem ist, dass ich in der Stunde leider nicht da war und deswegen leider grad vor dem Problem stehe.

Lösung in Beitrag #6 ???

Autsch >.<
Den hab ich völlig überlesen..:oops:
Passt :)
Danke nochmal für den Hinweis ^^

[SirThornberry]

Zitat:

Zitat von Blackheart

Nicht unbedingt schön aber naja

Delphi-Quellcode:

var
  Form1: TForm1;
  j:Integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
  for i:=1 to 50 do
  begin
  inc(j,2);
  Memo1.Lines.Add(IntToStr(j));
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 j:=-1;
end;

ganz und gar nicht schön! warum ist j global anstelle local?

[uwewo]

Auch noch ein Vorschlag

Delphi-Quellcode:

For i := 1 to 50 do
  begin
    if not odd(i) then continue;
  end;

[TonyR]

Geht nicht auch das ???

Delphi-Quellcode:

For i := 1 to 50 do
  begin
    if even(i) then continue;
  end;

[uwewo]

Zitat:

Zitat von TonyR

Geht nicht auch das ???

Delphi-Quellcode:

For i := 1 to 50 do
  begin
    if even(i) then continue;
  end;

Nein even gibt es nicht

[HannosG]

In einigen anderen Programmiersprachen gibt es dafür das "STEP"

Code:

FOR Iterator:=Anfangszahl TO Endezahl STEP Schrittweite DO Schleifenrumpf.

For-Schleife - Wikipedia
In Pascal gibt es keine Schrittweite für For-Schleifen.
Wozu auch. Man kann genauso gut im Schleifenrumpf eine If-Abfrage einbinden.

[mkinzler]

Zitat:

Nein even gibt es nicht

Aber Odd():

Delphi-Quellcode:

if not Odd(i) then continue;