benoetige eine Schleife, die 2^i zweimal ausfuehrt

[lkz633]

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