Имя: Пароль:
1C
1С v8
Помогите решить задачку с циклом
,
0 kasazanov
 
16.04.13
14:40
Доброго времени суток!
Задача:

Есть какое то число скажем Результат = 100;
нужно написать цикл чтобы в каждой строчке цикла к этой переменной "Результат" прибавлялась единица.

Заранее извиняюсь за глупый вопрос )
1 Ёпрст
 
16.04.13
14:42
Это слишком сложно, ничего попроще в школе не задали ?
2 Fish
 
16.04.13
14:43
(0) Сколько платишь?
3 MSII
 
16.04.13
14:44
(0) А чего извиняться за глупый вопрос, если вопроса-то и нет?
4 CaMoJleT
 
16.04.13
14:44
Сейчас все будут издеваться и гнобить :)
А я вот не понял суть вопроса о_о
5 mistеr
 
16.04.13
14:45
Следующая задача будет - как остановить этот цикл.
6 fisher
 
16.04.13
14:45
Результат = 100;
Пока Истина Цикл
  Результат = Результат + 1;
КонецЦикла;
7 Ёпрст
 
16.04.13
14:46
Ладно, помогаю:

Цикл...
 Результат = Результат+1;
 Сообщить("Результат нынче равен "+Результат);
КонецЦикла
8 kasazanov
 
16.04.13
14:47
(3) просто мозг кипит уже и ничего не соображает, поэтому такую хрень спрашиваю ..
9 Steini
 
16.04.13
14:47
Procedure main()
   value = 100;
   increment(value);
EndProcedure

Procedure increment(value)
   value = value + 1;
   increment(value);
EndProcedure

конкурс на самое филигранное решение
10 fisher
 
16.04.13
14:48
Дык в сях одной строчкой.
11 Fish
 
16.04.13
14:48
(9) Бесконечная рекурсия? Ну-ну :)
12 Infsams654
 
16.04.13
14:48
(6)(9) хватит издеваться
13 Infsams654
 
16.04.13
14:49
сами когда-то были такими
14 Steini
 
16.04.13
14:49
(11) ну по условию же, границы не обозначены...
15 Alex S D
 
16.04.13
14:50
я такими не был) разве что на в школе на информатике)
16 Steini
 
16.04.13
14:50
(13): да в (6) уже есть как бы правильный ответ
17 Fish
 
16.04.13
14:51
(14) Тут дело в другом. Бесконечная рекурсия вызовет переполнение памяти, в отличие от бесконечного цикла.
18 mistеr
 
16.04.13
14:52
(17) Зато спасет от бесконечного счета за электричество или ресурсы облака!
19 fisher
 
16.04.13
14:54
(17) И производительность не фонтан. На самом деле, многие компиляторы умеют заменять хвостовую рекурсию на циклы на этапе компиляции.
20 Necessitudo
 
16.04.13
14:54
(0)
i=0
loop do
i+=1
next if i==5
print "#{i} "
break if i==10
end
21 Steini
 
16.04.13
14:54
(17) с замечанием согласен =)

ТекстКода = "";
Для Индекс = 1 По 1000 Цикл
  ТекстКода = ТекстКода + "Результат = Результат + 1;";
КонецЦикла;
Результат = 100;
Выполнить(ТекстКода);
22 rutony
 
16.04.13
14:54
(17) Да ладно это не так и сложно сделать:D
С = " ";
~Ъ: С = С + С; Перейти ~Ъ;
23 Steini
 
16.04.13
14:55
(20) несчитова!! Здесь кодят на АДИНЭС!!!
24 Паланик
 
16.04.13
14:59
Вопрос: в КАЖДОЙ СТРОЧКЕ цикла. Не в каждой итерации, а в каждой строчке...
Чепуха какая-то.
25 fisher
 
16.04.13
15:01
(24) Все в порядке. Так как доп-ограничений нет, то самая простая реализация достигается циклом с одной строчкой.
26 fisher
 
16.04.13
15:03
(25) + В крайнем случае, дополнительные операторы можно писать в той же строке. Будет оптимизация производительности. Бесконечность будет посчитана быстрее.
27 patapum
 
16.04.13
15:03
(8) а он был?
28 Fish
 
16.04.13
15:03
(24) Тогда так:
Результат = 100;
Пока Истина Цикл
  Результат = Результат + 1;
  Результат = Результат + 1;
  Результат = Результат + 1;
  ...
  Результат = Результат + 1;
  Результат = Результат + 1;
  Результат = Результат + 1;
КонецЦикла;

Все условия задачи соблюдены.
29 Бывший адинэсник
 
16.04.13
15:04
(21) правильное решение в (6)
30 Бывший адинэсник
 
16.04.13
15:05
(24) что такое каждая строчка Цикла? если всё что внутри цикла то правильное решение в (6)
31 Necessitudo
 
16.04.13
15:14
(23) Руби православнее.
32 zak555
 
16.04.13
15:17
(11) где рекурсия ?
33 palpetrovich
 
16.04.13
15:17
(0) автор, чего молчишь? помогли или нет?
34 Privalov
 
16.04.13
15:18
Хороший вброс )))
35 dextermorgan777
 
16.04.13
15:19
(33)может ждет пока посчитает? =)
36 palpetrovich
 
16.04.13
15:19
(32) а что с ней не так в (9)?  вроде-ж она...
37 zzerro
 
16.04.13
15:48
Вроде же не пятница сегодня
38 Infsams654
 
16.04.13
15:51
(37) у некоторых. Нет, чтоб оъяснить новичку, так начали "мозгами" меряться
39 fisher
 
16.04.13
16:00
(38) От тебя новичку в этой ветке пока пользы меньше всех.
40 Infsams654
 
16.04.13
16:19
(38) Думаешь? По крайней мере, есть намек подумать про фигню(6)
41 Fish
 
16.04.13
16:20
(40) Ладно, давай уже своё единственно верное решение задачи в (0).
42 palpetrovich
 
16.04.13
17:17
(41) спугнул :)
43 azernot
 
16.04.13
17:29
ПределФантазии = 1000000000000000000000000;
Для Результат = 100 По ПределФантазии  Цикл
44 Infsams654
 
16.04.13
17:45
(42) не дава
45 YF
 
16.04.13
17:48
(43) Ух, шайтан
46 Infsams654
 
16.04.13
17:49
(42) Fish не давай бедному, лучше дай удочку (старая притча). Хватит страдать как (15)
47 Alex S D
 
16.04.13
17:50
(46) от твоих постов меньше пользы, чем от фиша если что)
48 Infsams654
 
16.04.13
17:57
Это вы в серьЁз ? (0) достойна обсуждения не МИСТЕ ?
Оптимист верит, что мы живем в лучшем из миров. Пессимист боится, что так оно и есть.