Скачать: CL | DM;

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

← →
Марина   (2006-06-14 09:15) [0]


   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. Подскажите пожалуйста как это можно сделать?

---

← →
Сергей М. ©   (2006-06-14 09:19) [1]

Для for-цикла - никак.
Для этой цели используй любой другой цикл - while или repeat

---

← →
Сергей М. ©   (2006-06-14 09:22) [2]

Но можно сделать так:

   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:29) [3]

>Сергей М.

спасибо :)

---

← →
StriderMan ©   (2006-06-14 10:06) [4]

if i = 1 then continue;

---

← →
Vasiliy   (2006-06-14 11:48) [5]

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

---

← →
StriderMan ©   (2006-06-14 11:52) [6]

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

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

---

← →
palva ©   (2006-06-14 11:53) [7]

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

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

---

← →
palva ©   (2006-06-14 11:54) [8]

со step"ом в бэйсик!!
i = 0 в паскале тоже означает не то что в бейсике.

---

← →
Dmitrij_K   (2006-06-14 11:54) [9]

> А что цикл типа 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:57) [10]

Только автор справшивала не об этом. Ей нужно было пропустить только одно выполнение тела цикла при i = 1

---

← →
StriderMan ©   (2006-06-14 11:59) [11]

Чем continue не понравился???? для этого и сделан.

---

← →
palva ©   (2006-06-14 12:02) [12]

> Чем continue не понравился???? для этого и сделан.
Естественно. Самое очевидное решение. Но автор уже давно не читает нашего трёпа.

---

← →
Vasiliy   (2006-06-14 16:53) [13]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.028 c