Цикл

[~Sл@\/яH~]

Добрый вечер. Подскажи пожалуйста, как реализовать на Паскале, вот такой цикл:

 for (int i = sizeof(value) * 8 - 1; i >=0; --i)

И еще я бы хотел узнать как такое выражение можно реализовать:

(value & (1 << i)) >> i)

[BDA]

for i := sizeof(value) * 8 - 1 downto 0 do

(value and (1 shl i) shr i)

Последнее условие я бы лучше записал так:

(value shr i) and 1

[~Sл@\/яH~]

Сообщение от BDA

for i := sizeof(value) * 8 - 1 downto 0 do

(value and (1 shl i) shr i)

Последнее условие я бы лучше записал так:

(value shr i) and 1

Спасибо, все работает.

Сообщение от BDA

Последнее условие я бы лучше записал так:

(value shr i) and 1

В конкретном случае лучше лучше так:

(value and (1 shl i) shr i)

[BDA]

Просто эти строки равноценны (пока не придумал никакого отрицания этого), а действий меньше.

[~Sл@\/яH~]

Сообщение от BDA

Просто эти строки равноценны (пока не придумал никакого отрицания этого), а действий меньше.

Ты прав, просто мне показалось, что другие значения вывело