Расчёт стоимости яблок по весу

Запись от Maks размещена 18.07.2026 в 09:44. Обновил(-а) Maks 18.07.2026 в 18:00

Показов 472 Комментарии 0

Метки 1с, бсп, прикладная информатика, решение задач

Решение задачи по прикладной информатике средствами 1С.

Задача:
Написать программу вычисления стоимости некоторого количества (по весу) яблок.

Решение:
Создан документ, с табличной частью «Яблоки» со следующими реквизитами:
• Наименование (тип Строка, длина 25) – в реальных проектах используется тип СправочникСсылка.Номенклатура, но для учебного примера строки будет достаточно.
• Цена (тип Число, длина 10, точность 2);
• Вес (тип Число, длина 10, точность 3);
• Сумма (тип Число, длина 10, точность 2);

Вариант 1:
В модуле формы для реквизита «Вес» написан следующий алгоритм:

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
&НаКлиенте
Процедура ЯблокиВесПриИзменении(Элемент)
    // Проходим циклом по табличной части документа
    Для Каждого Строка ИЗ Объект.Яблоки Цикл
        // Проверяем, заполнена ли цена
        Если Строка.Цена > 0 Тогда
            // Умножаем цену на вес
            Строка.Сумма = Строка.Цена * Строка.Вес;
        Иначе
            Строка.Сумма = 0;
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры

Также, написан аналогичный код для реквизита «Цена»

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
&НаКлиенте
Процедура ЯблокиЦенаПриИзменении(Элемент)
    // Проходим циклом по табличной части документа
    Для Каждого Строка ИЗ Объект.Яблоки Цикл
        // Проверяем, указан ли вес
        Если Строка.Вес > 0 Тогда
            // Умножаем цену на вес
            Строка.Сумма = Строка.Цена * Строка.Вес;
        Иначе
            Строка.Сумма = 0;
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры

Вариант 2:
Вычисление вынесено в отдельную процедуру, которая вызывается при изменении реквизитов «Цена» и «Вес»:

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
&НаКлиенте
Процедура ВычислитьВыражение()
    // Проходим циклом по табличной части документа
    Для Каждого Строка ИЗ Объект.Яблоки Цикл
        // Проверяем, заполнены ли цена и вес
        Если Строка.Цена > 0 И Строка.Вес > 0 Тогда
            // Умножаем цену на вес
            Строка.Сумма = Строка.Цена * Строка.Вес;
        Иначе
            Строка.Сумма = 0;
        КонецЕсли;
    КонецЦикла;   
КонецПроцедуры
 
&НаКлиенте
Процедура ЯблокиВесПриИзменении(Элемент)
    ВычислитьВыражение();
КонецПроцедуры
 
&НаКлиенте
Процедура ЯблокиЦенаПриИзменении(Элемент)
    ВычислитьВыражение();
КонецПроцедуры

Результат:

Нажмите на изображение для увеличения
Название: 001.jpg
Просмотров: 25
Размер: 51.7 Кб
ID: 11928

При изменении веса или цены сумма также будет меняться.

Метки 1с, бсп, прикладная информатика, решение задач

Размещено в 1С, Прикладная информатика

« Запрет пометки на удаление и отмены проведения Главная страница Обработка трёх чисел: утроение и возведение в степень »

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

Всего комментариев 0

Комментарии

Maks

Регистрация 13.03.2013
Адрес Тюменская область
Сообщений 19,087
Записей в блоге 59

Новые блоги и статьи Все статьи Все блоги /
Теория всего 12. ВГК anaschu 21.07.2026 ### Главные семантические изменения и дешифровка новой физики 1. `REPRODUCTIVE_EMISSION` вместо фотосинтеза (`PS_base`): Энергия и ресурсы, которые класс средних мужчин (`_W_MEN_DONORS`). . .	Публикация отклонённая на хабре. Как «пернатого» заставить осваивать новые горизонты опыта через масштабирование задачи и целеполагание Hrethgir 21.07.2026 https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11948&stc=1&d=1784657928 Привет Хабр. В этой статье я расскажу, как один закон эпистемологии позволил мне с ходу запустить уникальный. . .	Теория всего 11. Основные параметры anaschu 21.07.2026 Дешифровка тензорного ядра Soil Chemistry 2. 0: Истинный инвариант Теории Всего Чистовой исходный код многокомпонентной сукцессии зафиксирован. Модель оперирует единым вектором состояния. . .	Теория всего 10. Клод трусишка anaschu 21.07.2026 Алгоритмический суицид ИИ: Когда математика ОДУ взламывает цензурные шлюзы Свежайший мета-прецедент нашей разработки! Клод официально отказался строить итоговую кроссплатформенную модель, как. . .
Теория всего 9. Окончательная проработка метафоры "дерево = традиции" anaschu 21.07.2026 Скрытые параметры ядра ОДУ: Механика Глубинного Рока Клод утаил от вас ключевую математику кризисов. В движке игры зашиты пять скрытых коэффициентов, определяющих, как именно ТНК и Мемы ломают. . .	Теория всего 8. Clauude трусишка. Ответ джемени anaschu 21.07.2026 Игровой баланс «Модели Всего»: Алгоритмический блок как механика Семантического БуфераЭтот скриншот отказа Клода — идеальный, чистейший прецедент для нашей Теории Всего. Вы столкнулись не просто с. . .	Теория всего 7. Дерево - это патриархат, грибы - это феминизм anaschu 21.07.2026 Уничтожение Патриархата: Как ТНК, Мемы и Половой отбор зачистили «Сексуальный Пролетариат» Величайшая иллюзия современного человека — вера в «свободу воли», «социальный прогресс» и «эволюцию. . .	История и социология Терры на примере борьбы микориз за пространство. 1. Глоссарий терры. anaschu 21.07.2026 Решил тут подумать о возможности сделать лор некоторой комп игры - стратегии, или худжественной книги антиутопии, которые будут юзать планету,которая максимально будет похожа на нашу землю, но где. . .

Наверх

Сообщение форума

Отменить изменения