Имя: Пароль:
1C
 
Цикл Для с заданным шагом, как реализовать ?
0 El_Duke
 
гуру
02.02.11
12:16
Собственно вопрос в заголовке
1 Wobland
 
02.02.11
12:17
Пока
2 Wobland
 
02.02.11
12:17
Пока й<=Н Цикл
 й=й+шаг;
КонецЦикла;
3 Denp
 
02.02.11
12:18
(0) при использовании счетчика внутри цикла умножать на шаг. Это азы, нет?
4 vicof
 
02.02.11
12:19
шаг = 3;
Для к = 1 по количество - 1 Цикл
если не  ОстатокОтДеленияНа0(шаг/к) = 0 тогда
продолжить;
Конецесли;
конеццикла
5 1Сергей
 
02.02.11
12:19
сдвиг = -1;
шаг = 2;
Для ю=1 по 10 Цикл
   ы = ю * шаг + сдвиг;
конеццикла
6 andrewks
 
02.02.11
12:23
правильный ответ (2)
7 Лефмихалыч
 
02.02.11
12:23
(0) херня это не нужна тебе (с) магистр Ёда
8 zak555
 
02.02.11
12:24
ещё варианты
9 zak555
 
02.02.11
12:24
где goto ?
10 andrewks
 
02.02.11
12:26
(8) и этого много
11 Ненавижу 1С
 
гуру
02.02.11
12:26
нужно купить внешнюю компоненту
12 Лефмихалыч
 
02.02.11
12:29
(11) с аппаратной защитой
13 Ненавижу 1С
 
гуру
02.02.11
12:31
не слушай их, надо так:

итератор = НачЗнач;
~1: //начало цикла

... //тело цикла

итератор = итератор+Шаг;
Если итератор>КонЗнач Тогда
 Перейти ~2;
КонецЕсли;
Перейти ~1;
~2: //завершение цикла
14 Wobland
 
02.02.11
12:32
(13) этот цикл мы зациклим циклом (с)Фукс А.Л.
15 1Сергей
 
02.02.11
12:35
рекурсия где?
16 Кирпич
 
02.02.11
12:35
Математика и алгоритмы
17 orefkov
 
02.02.11
12:39
(15)
Процедура Сделать(Знач Счетчик, Шаг, Кон)
   Счетчик = Счетчик + Шаг;
   Если Счетчик >= Кон Тогда
       Возврат;
   КонецЕсли;
   Сделать(Счетчик, Шаг, Кон);
КонецПроцедуры
18 Vladimirr
 
02.02.11
12:44
(6) а мне кажется, что в (2) неправильный ответ. Допустим, й=1, шаг=2. Получится на первом витке й=1+2=3. Доходим до конца цикла й автоматом прибавляется 1 и получается уже 4. Т.е. на втором витке й=4+2=6. Т.е. шаг получился 3, а не 2.
19 hd1
 
02.02.11
12:45
КомандаСистемы("for /l %I in (0,10,100) do @echo %I & pause");
20 Vladimirr
 
02.02.11
12:45
(6) Не. Туплю. Все ок.
21 El_Duke
 
гуру
02.02.11
14:22
Спасибо. А как  цикл Для i=2 по N прогнать только по четным i ?
22 KishMish
 
02.02.11
14:23
(21)
Для и=1 по n/2 цикл
i=и*2;
//вот твое i
конеццикла
23 KishMish
 
02.02.11
14:25
(21) еще вариант
для и=1 по N Цикл
и=и+1;
//вот еще вариант
КонецЦикла
24 ado
 
02.02.11
14:29
(13) Еретик!
25 hd1
 
02.02.11
14:33
(21)
СпрЧет = СоздатьОбъект("Справочник.ЧетныеЧисла");
СпрЧет.ВыбратьЭлементы();
Пока СпрЧет.ПолучитьЭлемент() = 1 Цикл
   Сообщить(СпрЧет.ТекущийЭлемент().Код);
КонецЦикла;
26 El_Duke
 
гуру
02.02.11
14:34
Благодарю всех коллеги ! Сегодня после бессонной ночи голова что то совсем не варит
27 Ненавижу 1С
 
гуру
02.02.11
14:40
(26) выбрал (13)?
28 Skom
 
02.02.11
14:42
ветку В ЮМОР))
29 G-Re
 
02.02.11
16:46
(27) GOTO некошерный оператер, правильней (2) с установкой нач. значений.
30 igorevsky
 
02.02.11
17:16
А мне так нравится
<CODE>
Счетчик = 0;
Итератор = 10;
Ограничитель = 100;
Пока 1 > 0 Цикл
Счетчик = Счетчик + Итератор;
Сообщить(Счетчик);
Если Счетчик >= Ограничитель Тогда
 Прервать;
КонецЕсли;
КонецЦикла;
</CODE>
Просто и понятно, ну пофиг что лишнюю проверку условия делает.
31 Ненавижу 1С
 
гуру
02.02.11
17:17
(30) Тогда так уж:

Пока Истина Цикл
32 Ненавижу 1С
 
гуру
02.02.11
17:17
(29) зачем пенсионеру 1С?
33 igorevsky
 
02.02.11
17:21
В 7.7 нету кейворда ИСТИНА
34 Ненавижу 1С
 
гуру
02.02.11
17:22
(33) это в корне меняет дело
35 G-Re
 
02.02.11
17:30
(32) Хобби+небольшая прибавка к пенсии(раз в несколько), дети, внуки..., голова вроде работает еще немного.
36 VasilyKushnir
 
02.02.11
22:21
(18) "Доходим до конца цикла й автоматом прибавляется 1 и получается уже 4" - от какого дива автоматом прибавляется единица?
37 Vladimirr
 
03.02.11
10:18
(36) см. (20)
38 МихаилМ
 
03.02.11
10:27
для ии = НачЗнач по КонЗнач цикл
ии = ии+(заданный шаг -1)

далее как обычно

конеццикла
39 Ненавижу 1С
 
гуру
03.02.11
11:47
(35) а чувство юмора у пенсионеров бывает?
Ошибка? Это не ошибка, это системная функция.