For loop i+3

[slai]

Hallo zusammen

Da ich noch nie einen for loop benötigte der die zählervariable beliebig inkrementiert weis ich nicht wie ich das lösen kann.

java beispiel:

for (int i = 0;i<=12;i+=3){
System.out.println(i);
}
Hier wäre die ausgabe vom system:
0
3
6
9
12


Wie kann ich das in freepascal machen?

danke für antworten

[Euklid]

Hallo slai,

Wie kann ich das in freepascal machen?

Entweder mit einer Repeat-Until-Schleife oder mit einer while-Schleife:

Code: Alles auswählen

//...
var n:integer;
//...
n:=0;
while n<=12 do 
begin
  writeln(n);
  inc(n,3);
end;

oder:

Code: Alles auswählen

n:=0;
repeat
  writeln(n);
  inc(n,3);
until n=12;

Viele Grüße, Euklid

[Linkat]

Hallo slai,
da in Pascal die for-Schleife zum hoch- oder runterzählen nur mit ordinalen Typen genutzt werden kann, musst du entweder in der Schleife multiplizieren, oder du benutzt gleich die while oder repeat until Schleife.

Hier einige Beispiele:

für alle Beispiele gilt:

Code: Alles auswählen

var i    :byte;     (oder integer ...)

for - Schleife:

Code: Alles auswählen

for i:=0 to 3 do writeln(3*i);

while - Schleife:

Code: Alles auswählen

i:=0;
while i<=12 do begin
  writeln(i);
  inc(i,3);     {oder: i:=i+3;}
end;

reapeat-until - Schleife

Code: Alles auswählen

i:=0;
repeat
  writeln(i);
  inc(i,3);
until i>12;

Ich hoffe, ich konnte die weiter helfen.

Gruß, Linkat

[Linkat]

Hallo Euklid,
da haben wir wohl gleichzeitig fast das Gleiche geantwortet. Aber ich war eben langsamer (abgelenkt durch die Familie). Aber in deiner Lösung (repeat-until) wird n nur bis 9 angezeigt.

Gruß, Linkat

[slai]

Hallo Linkat und euklid

ich danke euch für eure antworten, an den while und repeat ansatz hab ich gar nicht gedacht

gruss

[Euklid]

Hallo Euklid,
da haben wir wohl gleichzeitig fast das Gleiche geantwortet. Aber ich war eben langsamer (abgelenkt durch die Familie). Aber in deiner Lösung (repeat-until) wird n nur bis 9 angezeigt.

Gruß, Linkat

Ja, du hast recht. So ist es richtig:

Code: Alles auswählen

n:=-3;
repeat
  inc(n,3);
  writeln(n);
until n=12;

[Dets]

Warum nicht so?

Code: Alles auswählen

for i:=0 to 4 do
  writeln(i*3); 

Dets ...

[slai]

Meiner Meinung nach benötigt

Code: Alles auswählen

for i:=0 to 4 do
        writeln(i*3);

mehr systemleistung, sobald man mehr als 1 mal auf das i*3 Element zugreifen muss.

[Christian]

spekulation aber bitte

Code: Alles auswählen

#
for i:=0 to 4 do
  begin
     a := i*3;
      writeln(a);  
  end;

[slai]

hy Christian

in deinem Fall hat man aber 2 variablen zum einen das i und dann noch das a, was man ja bei der repeat nicht hat
aber eben, schlussendlich kommts nicht wirklich drauf an...

[theo]

Warum spekulieren, wenn man messen kann?
Sieht so aus als ob slai recht hat, dass die repeat Variante schneller ist. Aber messt selbst.