Бухгалтерия / Говнокод #21594 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
  12. 12
  13. 13
  14. 14
  15. 15
  16. 16
  17. 17
  18. 18
  19. 19
  20. 20
  21. 21
Функция ПроставитьНули (ЧислоНулей)
	
Если ЧислоНулей = 7 Тогда 	
СтрокаНулей = "000000";	
ИначеЕсли ЧислоНулей = 6 Тогда 	
СтрокаНулей = "00000";		
ИначеЕсли ЧислоНулей = 5 Тогда 		
СтрокаНулей = "0000";		
ИначеЕсли ЧислоНулей = 4 Тогда 		
СтрокаНулей = "000";		
ИначеЕсли ЧислоНулей =3 Тогда 		
СтрокаНулей = "00";		
ИначеЕсли ЧислоНулей =2 Тогда 		
СтрокаНулей = "0";	
ИначеЕсли ЧислоНулей =1 Тогда
СтрокаНулей = "0";
КонецЕсли;

Возврат СтрокаНулей;
		
КонецФункции

Разгребал завалы от предшественника. Случайно наткнулся.
Правильно было бы так:
Функция ПроставитьНули (ИсходноеЧисло, ЧислоНулей)
Возврат Формат(ИсходноеЧисло, "ЧЦ="+ЧислоНулей+"; ЧВН=; ЧГ=0");
КонецФункции

Запостил: Vince Vince, (Updated )

Комментарии (12) RSS

  • ava barop # Ссылка на оригинал 0

    м-да

    курица -- не птица
    1С-ник -- не программист
    Ответить

  • ava Rijen # Ссылка на оригинал 0

    Млин.. Вспоминаю как один товарищ делал это на моих глазах..
    Ответить

  • ava inho # Ссылка на оригинал 0 

    Функция ПроставитьНули (ЧислоНулей)
	
Если ЧислоНулей = 0 Тогда 	
СтрокаНулей = "";	
ИначеЕсли ЧислоНулей % 2 = 1 Тогда 	
СтрокаНулей =  ПроставитьНули(ЧислоНулей - 1) + "0";		
Иначе
СтрокаНулей = ПроставитьНули(ЧислоНулей / 2);
СтрокаНулей = СтрокаНулей + СтрокаНулей;
КонецЕсли;

Возврат СтрокаНулей;
		
КонецФункции
    Ответить

    • ava bormand # Ссылка на оригинал 0 ⇈

      Добавим хвостовой рекурсии:
      Функция ПроставитьНули(ЧислоНулей, СтрокаНулей)
    Если ЧислоНулей = 0 Тогда
        Возврат СтрокаНулей
    ИначеЕсли ЧислоНулей % 2 = 1 Тогда
        Возврат ПроставитьНули(ЧислоНулей - 1, СтрокаНулей + "0")
    Иначе
        Возврат ПроставитьНули(ЧислоНулей / 2, СтрокаНулей + СтрокаНулей)
    КонецЕсли
КонецФункции

Функция ПроставитьНули(ЧислоНулей)
    Возврат ПроставитьНули(ЧислоНулей, "")
КонецФункции
      Ответить

Добавить комментарий

Переведи на "PHP", guest!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓