Delphi-PRAXiS - Delphi benoetige eine Schleife, die 2^i zweimal ausfuehrt

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi benoetige eine Schleife, die 2^i zweimal ausfuehrt (https://www.delphipraxis.net/10152-benoetige-eine-schleife-die-2%5Ei-zweimal-ausfuehrt.html)

lkz633

12. Okt 2003 18:01

benoetige eine Schleife, die 2^i zweimal ausfuehrt

Hallo ,

ich muss eine bestimmte Anzahl ausrechnen, wie oft etwas vorkommt. Dazu habe ich folgenden Code:

Code:

for j:=1 to (1 shl i) do

diese Schleife laeuft jetzt bis 2,4,8,16,32 usw

Ich braeuchte aber jetzt 2,2,4,4,8,8,16,16 usw und komm einfach nicht drauf wie ich das hinbekomme, ist wohl Sonntag abend.

Bitte helft mir

Gruss lkz633

Luckie

12. Okt 2003 18:14

Re: benoetige eine Schleife, die 2^i zweimal ausfuehrt

Müßte mit zwei verschachtelten Schleifen gehen.

Tonic1024

13. Okt 2003 07:26

Re: benoetige eine Schleife, die 2^i zweimal ausfuehrt

Moin...

Delphi stellt sich ja immer ein wenig pingelig an wenn man den Schleifenzähler manuell beeinflussen will... Ich würde eine Zweite variable nehmen und die jeweils auf den gewünschten wert (2,2,4,4,8,8 etc) setzen. Der Schleifenzähler (i) müsste dann natürlich bis(anzahlBits*2) gehen. dann brauchst du nur noch prüfen ob i durch 2 teilbar ist (MOD) und dann kommt dein SHL-Befehl.

Bis denne...

Alle Zeitangaben in WEZ +1. Es ist jetzt 11:29 Uhr.