Задачка для начинающих

@vbs · Регистрация: 22.06.2013

Студворк — интернет-сервис помощи студентам

На базе 1с7.7 нужно вывести произвольное число, представляющее собой массу,
в виде, например, "Двадцать две тонны триста сорок пять килограммов семьсот один грамм".
Исходное число дробное, масса представлена в килограммах (22345,701).
Ваши предложения ?

@kyr · 21.04.2009, 12:45

это прикол?

@kortomovmox · 21.04.2009, 12:46

А если, посмотреть документ Расходная Накладная? Там же есть пропись суммы накладной.

@vbs · 21.04.2009, 13:02

Сообщение от GorlanovMax

Там же есть пропись суммы накладной.

В правильном направлении мыслите

Сообщение от KiR

это прикол?

Да нет - в реальной жизни потребовалось при печати ТТН

@puh14 · 21.04.2009, 13:06

********

@kyr · 21.04.2009, 13:15

Сообщение от vbs

Да нет - в реальной жизни потребовалось при печати ТТН

Я чего спросил - очень сомневаюсь в том что автор не может данную задачу решить самостоятельно. В приныпе в теме написано для новичков, а отвечают далеко не новечки)

@puh14 · 21.04.2009, 13:29

Я чего спросил - очень сомневаюсь в том что автор не может данную задачу решить самостоятельно. В приныпе в теме написано для новичков, а отвечают далеко не новечки)

Ник не посмотрел и не подумал

А что - каким-то особо забористым образом решили?

@vbs · 21.04.2009, 13:50

Сообщение от puh14

А что - каким-то особо забористым образом решили?

Не очень сложно, если как верно заметил Макс, использовать пропись по аналогии с валютами, но камушки попадаются...

@kyr · 21.04.2009, 14:23

vbs ну уж пошла такая пьянка и нет новечков - рассказывайте что за камушки, авось кто-то прочитает и ему энто поможет

@vbs · 21.04.2009, 14:30

Сообщение от KiR

vbs ну уж пошла такая пьянка и нет новечков - рассказывайте что за камушки, авось кто-то прочитает и ему энто поможет

Первая мысль - взять файл прописи (например, USD.spl) и заменить в нем тысячи на тонны, доллары на килограммы, а центы на граммы.
Беда в том, что дробная часть валюты содержит два знака, а у килограммов - три...

@puh14 · 21.04.2009, 14:56

Гм - про spl только щас узнал. Валютных счетов не выписывали пока. Пригодится.

без заморочи на суффиксы -а, -ов и без spl (но опять же с двумя знаками)
именно это я и имел в виду под забористым способом.

ПечМасса = Прав(Формат(Сумма,"ЧПДС"),Найти(Формат(С умма,"ЧПДС"),"руб")-1) + " килограммов " + Сред(Формат(Сумма,"ЧПДС"),Найти(Формат(С умма,"ЧПДС"),"руб")+4,4) + "грамм"

@vbs · 21.04.2009, 15:02

Сообщение от puh14

ПечМасса = Прав(Формат(Сумма,"ЧПДС"),Найти(Формат(С умма,"ЧПДС"),"руб")-1) + " килограммов " + Сред(Формат(Сумма,"ЧПДС"),Найти(Формат(С умма,"ЧПДС"),"руб")+4,4) + "грамм"

Понятно, что торопился и не все правильно выделил, но вот что получится для моего примера (22345.701) :
ячи триста сорок пять рублей 70 копеек килограммов ей 7грамм
И опять же проблема с граммами и при таком подходе решена НЕ БУДЕТ (701 грамм, как ни крути, превратится в прописи в 70 !)

@puh14 · 21.04.2009, 15:17

Я за рулем право-лево тоже бывает путаю ;-)

По идее одними ЧП всё прекрасно разруливается, только с суффиксами надо помучится.

@Koo · 22.04.2009, 03:47

1C
1
2
3
4
5
6
7
ПечСумма = Формат(Сумма,"ЧПДС");
ПечСумма = ?(Найти(ПечСумма,"тысяч")>0,СтрЗаменить(ПечСумма,"тысяч","тонн"),ПечСумма);
ПечСумма = ?(Найти(ПечСумма,"тысячи")>0,СтрЗаменить(ПечСумма,"тысячи","тонн"),ПечСумма);
ПечСумма = ?(Найти(ПечСумма,"рубль")>0,СтрЗаменить(ПечСумма,"рубль","киллограм"),ПечСумма);
ПечСумма = ?(Найти(ПечСумма,"рублей")>0,СтрЗаменить(ПечСумма,"рублей","киллограм"),ПечСумма);
ПечСумма = ?(Найти(ПечСумма,"копейка")>0,СтрЗаменить(ПечСумма,"копейка","грамм"),ПечСумма);
ПечСумма = ?(Найти(ПечСумма,"копеек")>0,СтрЗаменить(ПечСумма,"копеек","грамм"),ПечСумма);

может так?

@puh14 · 22.04.2009, 10:34

Месье знает толк в извращенях! :D

@Koo · 22.04.2009, 10:37

нет ну можно завести переменную список значений напихать туда нужные значения со строковым представлениям и в цикле менять при нахождении в строке значения на представление :D

@tomot · 22.04.2009, 10:59

Сообщение от vbs

И опять же проблема с граммами и при таком подходе решена НЕ БУДЕТ (701 грамм, как ни крути, превратится в прописи в 70 !)

Незнаю, как в 7.7, а в 8ке у функции ЧислоПрописью(<Число>, <Форматная строка>, <Параметры предмета исчисления>) в параметрах предмета исчисления можно задать разрядность (кол-во знаков после запятой). Ну а дальше уже преобразовывать тыщи в тонны).

@vbs · 22.04.2009, 13:33

Сообщение от kaa

ПечСумма = ?(Найти(ПечСумма,"копейка")>0,СтрЗаменит ь(ПечСумма,"копейка","грамм"),ПечСумма);
ПечСумма = ?(Найти(ПечСумма,"копеек")>0,СтрЗаменить (ПечСумма,"копеек","грамм"),ПечСумма);

Для граммов все равно придется написать свою обработку

@Koo · 23.04.2009, 04:59

граммы = Цел((Сумма-Цел(Сумма))*1000);

и т.д.

@vbs · 23.04.2009, 13:42

Сообщение от kaa

граммы = Цел((Сумма-Цел(Сумма))*1000);

да это понятно. Я просто хотел подчеркнуть, что тупое использование ЧПДС не прокатит, кое-что придется поменять

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

@vbs 0 / 0 / 1 Регистрация: 22.06.2013 Сообщений: 9

	Задачка для начинающих 21.04.2009, 12:29. Показов 32889. Ответов 21 Метки нет (Все метки) На базе 1с7.7 нужно вывести произвольное число, представляющее собой массу, в виде, например, "Двадцать две тонны триста сорок пять килограммов семьсот один грамм". Исходное число дробное, масса представлена в килограммах (22345,701). Ваши предложения ? 0

@kyr 1 / 1 / 0 Регистрация: 04.12.2005 Сообщений: 1,588
	21.04.2009, 12:45
	это прикол? 0

@kortomovmox 0 / 0 / 0 Регистрация: 15.06.2008 Сообщений: 278
	21.04.2009, 12:46
	А если, посмотреть документ Расходная Накладная? Там же есть пропись суммы накладной. 0

@puh14 0 / 0 / 0 Регистрация: 07.07.2008 Сообщений: 1,401
	21.04.2009, 13:06
	******** 0

@kyr 1 / 1 / 0 Регистрация: 04.12.2005 Сообщений: 1,588
	21.04.2009, 14:23
	vbs ну уж пошла такая пьянка и нет новечков - рассказывайте что за камушки, авось кто-то прочитает и ему энто поможет 0

@puh14 0 / 0 / 0 Регистрация: 07.07.2008 Сообщений: 1,401
	21.04.2009, 14:56
	Гм - про spl только щас узнал. Валютных счетов не выписывали пока. Пригодится. без заморочи на суффиксы -а, -ов и без spl (но опять же с двумя знаками) именно это я и имел в виду под забористым способом. ПечМасса = Прав(Формат(Сумма,"ЧПДС"),Найти(Формат(С умма,"ЧПДС"),"руб")-1) + " килограммов " + Сред(Формат(Сумма,"ЧПДС"),Найти(Формат(С умма,"ЧПДС"),"руб")+4,4) + "грамм" 0

@puh14 0 / 0 / 0 Регистрация: 07.07.2008 Сообщений: 1,401
	21.04.2009, 15:17
	Я за рулем право-лево тоже бывает путаю ;-) По идее одними ЧП всё прекрасно разруливается, только с суффиксами надо помучится. 0

@puh14 0 / 0 / 0 Регистрация: 07.07.2008 Сообщений: 1,401
	22.04.2009, 10:34
	Месье знает толк в извращенях! :D 0

@Koo 0 / 0 / 0 Регистрация: 22.04.2010 Сообщений: 38
	22.04.2009, 10:37
	нет ну можно завести переменную список значений напихать туда нужные значения со строковым представлениям и в цикле менять при нахождении в строке значения на представление :D 0

@Koo 0 / 0 / 0 Регистрация: 22.04.2010 Сообщений: 38
	23.04.2009, 04:59
	граммы = Цел((Сумма-Цел(Сумма))*1000); и т.д. 0