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

[Svenkan]

Hey!
Für eine Berechnung von ausschließlich ungraden Zahlen in einer FOR-Schleife (For zaehler:=start To ende Do Begin) muss 'zaehler' während des Durchlaufs immer schon um 1 erhöht werden, damit er beim nächsten z.B. direkt von 1 auf 3 springt.
Weiß jemand, wie das geht?
Wenn ichs mit zaehler:=zaehler+1 mache, bekomm ich nur nen Fehler ([Error] Unit1.pas(530): Assignment to FOR-Loop variable 'zaehler').

[Tyrael Y.]

Mach es mit einer WHILE Schleife

[TonyR]

Es gibt eine Variante, aber die sollte man glaube ich nicht anwenden...
verwende als Ersatz eine While x=... do - Schleife!

[Svenkan]

Das Problem ist, dass ich das für Informatik brauche und es dort mit einer FOR-Schleife gemacht werden muss...
Welche Variante wär das denn?

[sakura]

Zitat:

Zitat von Svenkan

Das Problem ist, dass ich das für Informatik brauche und es dort mit einer FOR-Schleife gemacht werden muss...
Welche Variante wär das denn?

Ein bisschen Assembler, Pointer-Arithmetik, etc. Dinge die in der Schule nie dran genommen werden und wenn Du die erklären müsstest... Nein, in Pascal/Delphi erlaubt es die Sprache nicht die Schleifenvariabel zu ändern. Das kann der Lehrer dann auch nicht verlangen, da musst Du auf WHILE ausweichen.

...:cat:...

[Tormentor32]

Dann mach doch einfach:

Delphi-Quellcode:

If Zaehler mod 2 <> 0

Edit: Tag korriegiert

[mkinzler]

Entkoppele die Laufvariable von der in der Schleife verwendeten.:

Delphi-Quellcode:

For i := 0 to ... do
begin
    i2 := i*2+1;
...
end;

[Svenkan]

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var zaehler,zaehler2,ende,start: Integer;
    zahl: Real;
begin
start:=StrToInt(Edit12.text);
ende:=StrToInt(edit14.Text);
zahl:=1;
 For zaehler:=start To ende Do Begin
  zahl:=zahl+zaehler;
  zaehler2:=zaehler+1;
 end;
 edit13.text:=FloatToStr(zahl);
end;

Wie setze ich das nun wieder ein?
Weil, wenn ich zaehler=zaehler2 wähle, bekomm ich wieder den gleichen Fehler wie zum Anfang.
Das hatte ich ja auch schonmal ausprobiert...

[mkinzler]

Man sollte den Zähler der Schleife nicht manuell verändern.

[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.

[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;

[TonyR]

Ja das hat er ja vor mir so gemacht mkinzler :wink:

Ich wollt bloß mal wissen, ob es even auch gibt...
(und, ja... ich weis, ich hätte auch in der Delphi-Hilfe nachgucken können)

[Torpedo]

Zitat:

Zitat von HannosG

Wozu auch. Man kann genauso gut im Schleifenrumpf eine If-Abfrage einbinden.

Damit man sich Code ersparen kann? (auch wenns nur eine Zeile ist) Wenn man sowas öfters machen will, wäre eine Schleife, bei der man die Schrittweite einstellen kann sicher, ganz nützlich.

[cruiser]

Wie wäre folgendes:

Delphi-Quellcode:

type
  TLoopProc = procedure(const counter: Int64);

{ ... }

procedure ForDo(const start, stop, step: Int64; LoopProc: TLoopProc);
var
  counter: Int64;
begin
  counter := start;
  if start <= stop then while counter <= stop do begin
    LoopProc(counter);
    counter := counter + step;
  end else while stop <= counter do begin
    LoopProc(counter);
    counter := counter - step;
  end;
end;

Beispiel:

Delphi-Quellcode:

procedure aLoop(const counter: Int64);
begin
  Form1.lst1.Items.Add(IntToStr(counter));
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  lst1.Items.Clear;
  ForDo(
    StrToInt64(edt1.Text),
    StrToInt64(edt2.Text),
    StrToInt64(edt3.Text),
    aLoop
  );
end;

zum rückwärtszählen dann einfach start grösser stop einstellen

[TonyR]

Das ist ja mal was Orginelles!!!
Sieht gut aus, deine For To Step - Schleife!!!

Wär das nicht auch was für die CodeLib???

[cruiser]

Evtl. Post ichs da ja... aber vorher bau ich noch wat äquivalentes für Double-Variablen und natürlich ableger für Object-Methods

[TonyR]

Zitat:

Zitat von cruiser

Evtl. Post ichs da ja... aber vorher bau ich noch wat äquivalentes für Double-Variablen und natürlich ableger für Object-Methods

Mach das! Wäre IMHO eine Bereicherung!!!