шаг для for

← →
Андреев (2003-12-29 20:32) [0]

что-то не пойму. неужели в Pascal нет оператора задающего шаг.
В смысле for i=1 to 20 step 2 как на бэйсике?
Что мне теперь if вставлять?

← →
Stilgar © (2003-12-29 20:37) [1]

while do или repeat until (описано в любом учебнике)

← →
jack128 © (2003-12-29 21:11) [2]

> for i=1 to 20 step 2

аналог на паскале

for i := 1 to 20 do
if i mod step = 0 then
<loop statements>

← →
Adil Aliyev (2003-12-30 01:09) [3]

for i=1 to 20 step 2
print i
next i

Аналогично:
step:=2;

for i:=1 to 20 do begin
if i mod step=0 then begin
write(i);
end;
end;

← →
Германн © (2003-12-30 01:16) [4]

Можно еще и так:
for i:=0 to 9 do Write(i*2+1);

← →
Dima_dvp © (2003-12-30 01:22) [5]

По-любому лучше так:
i := 0; while (i < 20) do begin i:=i+2; //Кстати для step=2 быстее будет Inc(i); Inc(i); end;

Здесь нет ни умножения как в примере Германн © (30.12.03 01:16) [4], здесь нет ни деления, как в примере Adil Aliyev (30.12.03 01:09) [3]. Для доказательства моей правоты можете заглянуть в ассемблер:)

← →
Adil Aliyev (2003-12-30 01:43) [6]

Dima_dvp, правильно. Да, оператор for работает быстрее чем while но моем примере используется if поэтому они одиноково.

← →
Германн © (2003-12-30 02:04) [7]

2 Dima_dvp © (30.12.03 01:22) [5]

Первое. В моем примере меньше человеко-часов программистского труда. Точнее человеко-секунд. Да и пальцы меньше страдают от клавы. :)))
Второе. Ваш пример не соответствует сабжу, поскольку начинается с нуля, а не с единицы. :)))

← →
Adil Aliyev (2003-12-30 02:54) [8]

>2 Dima_dvp © (30.12.03 01:22) [5]
>
>Первое. В моем примере меньше человеко-часов программистского >труда. Точнее человеко-секунд. Да и пальцы меньше страдают >от .клавы. :)))
>Второе. Ваш пример не соответствует сабжу, поскольку начинается >с нуля, а не с единицы. :)))

i := 1;
while (i < 20) do begin
i:=i+2; //Кстати для step=2 быстее будет Inc(i); Inc(i);
end;

а теперь?

> Андреев (29.12.03 20:32)

понял бы, еслиб книжки читал...

Ого, какие нешуточные споры тут пошли... а ну-ка, и я влезу в драку.
:о)

> Андреев (29.12.03 20:32)

Паскаль с самого начала строился, так, чтобы в нем было все необходимое, но не было ничего лишнего. А задание шага в цикле for - это избыточная языковая конструкция, поэтому в Паскале ее и нет. Вы же не удивляетесь, например, тому, что бейсик не поддерживает ассемблерные вставки?

А Ваш пример в общем виде реализуется так. Пусть Step - это нужный шаг цикла, а Min и Max - его пределы. Тогда пишем:
var
i, j: integer;
...
for i := 0 to (Max - Min) div Step do
begin
j := Min + i * Step;
... // И теперь вместо i используем j
end;

> Dima_dvp © (30.12.03 01:22) [5]

Уж если оптимизировать код, то надо учесть, что циклы repeat и while работают медленнее, чем for (за счет большего количества операций с памятью, а не с регистрами), а вместо умножения или деления на 2 можно использовать более быстрые операции сдвига. Тогда получим почти вариант 4:
for i := 1 to 10 do WriteLn(i shl 1);

Это сработает быстрее, чем [5], даже если в [5] вместо i+2 или двух Inc(i) написать Inc(i,2).

Юрий Зотов © (30.12.03 04:57) [10]
>> (за счет большего количества операций с памятью, а не с регистрами)

Не знаю как в Delphi, но в C компилятор поймает, что переменная существует только в этом цикле и нигде больше, поймёт, что это счётчик и поместит её в регистр (при соответствующих настройках компилятора)

>Dima_dvp © (31.12.03 01:26) [11]
Loop veriable для for"а в Делфи тоже помещается в регистр, даже если эта переменная используется вне этого цикла. Кстати, на BP7 она была обыкновенной переменной в памяти, поэтому в цикле for можно было делать переприсваивание переменной цикла (чего не сделаешь в Делфи (стандартными средствами))

шаг для for Найти похожие ветки