Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как сделать перескок через единицу в обыкновенном цикле?

Марина © (2006-06-14 09:15:00)
for i := 0 to oreol.Lines.Count-2 do begin x := strtoint(oreol.Lines.Strings[i]); y := strtoint(oreol.Lines.Strings[i+1]); end;

Цикл простой, но мне надо сделать так, чтобы после первого круга цикла он перескакивал не значение i+1, а на значение i+2. Подскажите пожалуйста как это можно сделать?

Vasiliy (2006-06-14 16:53:00) [1]

> со step'ом в бэйсик!!

Это что, у меня до сих пор бейсик в мозгах сидит :) 13 лет к бейсику близко не подходил ...

palva (2006-06-14 12:02:00) [2]
> Чем continue не понравился???? для этого и сделан.
Естественно. Самое очевидное решение. Но автор уже давно не читает нашего трёпа.

StriderMan (2006-06-14 11:59:00) [3]
Чем continueне понравился???? для этого и сделан.

palva (2006-06-14 11:57:00) [4]
Только автор справшивала не об этом. Ей нужно было пропустить только одно выполнение тела цикла при i = 1

palva (2006-06-14 11:54:00) [5]
со step'ом в бэйсик!!
i = 0 в паскале тоже означает не то что в бейсике.

Dmitrij_K (2006-06-14 11:54:00) [6]

> А что цикл типа for i = 0 to oreol.Lines.Count-2 step 2
> do нельзя применить ?

Попробуй, узнаешь.
Можно еще mod
for j:=0 to 10 do
begin
if (j mod 2)=0 then
begin

end
end

palva (2006-06-14 11:53:00) [7]
> Vasiliy (14.06.06 11:48) [5]
> А что цикл типа for i = 0 to oreol.Lines.Count-2 step 2 do нельзя применить ?

В языке бейсик можно

StriderMan (2006-06-14 11:52:00) [8]

> А что цикл типа for i = 0 to oreol.Lines.Count-2 step 2
> do нельзя применить ?

со step'ом в бэйсик!!

Vasiliy (2006-06-14 11:48:00) [9]
А что цикл типа for i = 0 to oreol.Lines.Count-2 step 2 doнельзя применить ?

StriderMan (2006-06-14 10:06:00) [10]
if i = 1 then continue;

Марина (2006-06-14 09:29:00) [11]
>Сергей М.

спасибо :)

Сергей М. (2006-06-14 09:22:00) [12]
Но можно сделать так:

for i := 0 to oreol.Lines.Count div 2 -1 do
begin
x := strtoint(oreol.Lines.Strings[i * 2]);
y := strtoint(oreol.Lines.Strings[i * 2 + 1]);
end;

Сергей М. (2006-06-14 09:19:00) [13]
Для for-цикла - никак.
Для этой цели используй любой другой цикл - while или repeat

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »