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

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

Показов 305 Комментарии 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
Просмотров: 6
Размер: 51.7 Кб
ID: 11928

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

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

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

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

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

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

Комментарии

Maks

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

Новые блоги и статьи Все статьи Все блоги /
Грибы - это женщины, деревья - это мужчины. Анти инь янь для союза мужчины и женщины. anaschu 18.07.2026 ГЛАВНЫЙ НАУЧНО-ФИЛОСОФСКИЙ ВЫВОД: Сексуально-Репродуктивный Капитализм против Государства Моногамии Коллеги, мы вышли на финишную прямую 20-мерного ОДУ-моделирования вековой сукцессии (ветка. . .	Текстовый слайдер с нумерацией страниц и кроссбраузерность. russiannick 18.07.2026 Один мой друг написал текстовый слайдер с нумерацией страниц. Сегодня я расскажу как он умудрился подружить его с кроссбраузерностью. Очевидно сложно угодить с шириной каждому браузеру. Один крадет. . .	Грибы - это мемы, дерево - это человек. Применение микоризной модели к теории меметики Докинза. anaschu 18.07.2026 Меметический изоморфизм теории «всего»: Грибная сукцессия как модель эволюции идей Докинза Базовый код системы ОДУ микоризной сукцессии описывает не просто биологию, а универсальную. . .	Грибы - это корпорации, деревья - это государства. Механизм массонского захвата власти anaschu 18.07.2026 Макроэкономический изоморфизм теории «всего»: Грибная сукцессия как модель транснационального капитализма Базовый код системы ОДУ микоризной сукцессии описывает не просто биологию, а. . .
Расчёт периметра прямоугольника по координатам вершин Maks 18.07.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Вычислить периметр прямоугольника, заданного координатами своих вершин на плоскости. Решение: Создан документ со следующими. . .	Подсчёт частоты трёхбуквенных слов в тексте Maks 18.07.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Выясните, сколько раз в предложенном тексте встречается каждое трехбуквенное слово. Решение: Создан документ с единственным. . .	Сумма и количество положительных элементов в чётных строках массива Maks 18.07.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Вычислить сумму и количество положительных элементов массива, расположенных в четных строках. Решение: Создан документ с. . .	Поиск произведения положительных чётных чисел в последовательности Maks 18.07.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Дана произвольная последовательность целых чисел. Найти произведение положительных четных чисел данной последовательности. . . .

Наверх

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

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