Ежегодная Международная Олимпиада по объектно-ориентированному программированию учетно- аналитических задач для студентов ВУЗов Для чего студенту принимать. - презентация

1 Ежегодная Международная Олимпиада по объектно-ориентированному программированию учетно- аналитических задач для студентов ВУЗов Для чего студенту принимать участие в Олимпиаде по программированию? Постовалов Сергей Николаевич, Член жюри регионального тура доцент кафедры прикладной математики

2 Общие положения В Олимпиаде по программированию учетно- аналитических задач могут принять участие студенты с 1-го по 5 й курс любого ВУЗа, получающие первое высшее образование. В качестве языка программирования участник использует встроенный язык прикладной системы "1С:Предприятие 8". Олимпиада проводится в два тура. Первый тур (заочный или региональный) проводится в январе - марте, второй тур (очный) - в апреле

3 24-я олимпиада, второй тур

4 Федорова Наталья, победитель регионального тура Олимпиады, г. Новосибирск Новосибирский государственный университет экономики и управления

5 Победители 24-й олимпиады Абсолютный победитель - Шевченко Дмитрий Павлович, Дальневосточная государственная социально-гуманитарная академия Факультет математики и информатики, 5-й курс I место - Холостов Александр, г. Москва Финансовая академия при Правительстве Российской Федерации Факультет Математические методы в экономике и анализ рисков, 5-й курс II место - Наумов Сергей Валерьевич, г. Москва Национальный исследовательский ядерный университет «МИФИ» Экономико-аналитический институт, 5-й курс III место – Афанасьева Александра Викторовна, г.Москва Московский государственный технический университет имени Н.Э.Баумана Факультет информатики и системы управления, 6-й курс Тюкмаев Рустам Искандерович, г. Москва Московский государственный технический университет имени Н.Э.Баумана. Факультет робототехники и комплексной автоматизации, 5-й курс Сивин Алексей Юрьевич, г. Барнаул. Всероссийский заочный Финансово-экономический институт. Факультет менеджмента и маркетинга, 2-й курс

6 Задание 2 тура 24-й Олимпиады по программированию учетно-аналитических задач в «1С:Предприятие 8» С 1 апреля 2010 г. организация переходит с ручного на автоматизированное ведение бухгалтерского учета. При учете основных средств организация применяет метод начисления амортизации способом «по сумме чисел лет срока полезного использования». В компьютерной программе на счетах 01 «Основные средства» и 02 «Амортизация ОС» организован пообъектный аналитический учет в разрезе элементов справочника «Основные средства». В учетную систему по каждому объекту ОС на дату начала ведения учета введены следующие данные: первоначальная стоимость ОС - дебетовое сальдо счета 01 накопленная сумма амортизации ОС на первое число месяца начала ведения автоматизированного учета - кредитовое сальдо счета 02 оставшийся срок полезного использования в месяцах (включая первый месяц начала ведения учета) - реквизит справочника «Основные средства». Введя указанные данные учетные работники выяснили, что программа не сможет по этим данным производить начисление амортизации по объектам основных средств в течение оставшегося срока их полезного использования. Для последующего начисления амортизации необходимо ввести в программу: год и месяц первого периода начисления амортизации, полный срок полезного использования (в целых годах).

7 Требуется создать отчет: Основное средство Первоначальная стоимость ОС Износ на дату начала ведения учета Оставшийся срок полезного использования (мес) Первый период начисления амортизации Полный срок полезного использования (лет) месяцгод ОС , , ОС , , ОС , , ОС , , ОС , ,0037н/о Выбрать из информационной базырассчитать

8 25-я олимпиада Региональный тур. Новосибирск Организация торгует товарами в розницу в киоске. По результатам продаж за неделю продавцом киоска составляется отчет, в котором указывается список проданных товаров, цены, сумма продажи. Также к отчету прикладывается кассовая лента, в которой отражена полученная выручка. В процессе составления отчета (регистрации продаж в течение недели) возможны ошибки, и по итогам недели может оказаться, что сумма выручки больше итоговой суммой продаж по товарному отчету. Причина – ошибочно пропущена продажа одного или нескольких товаров. Так как отчет надо сдавать уже сейчас, и времени на поиск ошибок нет, продавец согласен на «временное решение» - просто добавить в отчет какие-нибудь товары, чтобы сошлась сумма. Требуется реализовать алгоритм, выполняющий «подгонку».

9 Исходные данные Учет ведется в информационной базе 1С в бухгалтерской подсистеме. Остатки товаров хранятся на счете 41 в разрезе Номенклатуры. Справочник «Номенклатура» содержит дополнительный реквизит «Цена продажи». По этой цене и реализуется товар (отражается в товарном отчете). Для отражения товарного отчета в системе предусмотрен документ «Продажа товаров», в котором указывается список товаров, количество, цена, сумма.

10 Задача Требуется реализовать отчет (обработку), показывающий, какие товары и в каком количестве надо добавить в выбранный документ «Продажа товаров», чтобы сошлась сумма. В форме отчета (обработки) выбирается документ «Продажа товаров» и вводится фактическая сумма выручки. На выходе отчет показывает таблицу товаров, добавляемых в документ. При этом нельзя допускать, чтобы в документе «Продажа товаров» количество продаваемого товара оказалось больше, чем в момент продажи было на складе. Если вариант подобрать не удается, вместо вывода таблицы надо оповестить пользователя об отсутствии решения. Если вариантов несколько, вывести первый найденный. Добавлять можно только целое количество единиц товара.

11 Остатки на складе (счет 41) НаименованиеКол-воЦена Бахилы Ортопедическая подушка Фарма Ортопедич. подушка стандартная Ортопедич. подушка средняя Матрас орт сегм. Пастер 1сп Коврик массажный Валик массажный Шарик массажный 1970 Бандаж коленный Наколенник эластичный15945 Стельки ортопедические М31290 Стельки ортопедические Ж7390

12 Продажи киоска НаименованиеКол-воЦенаСумма Бахилы Ортопедическая подушка Фарма Ортопедич. подушка стандартная Ортопедич. подушка средняя Матрас орт сегм. Пастер 1сп Коврик массажный Шарик массажный 1970 Бандаж коленный Итого 17530

13 Сумма выручки составляет руб, следовательно, в продажах не хватает товаров на 970 рублей. Вывод отчета (товары, которые надо добавить на сумму 970): Наименование Кол-воЦенаСумма Стельки ортопедические М Стельки ортопедические Ж1390 Итого 970

14 Дополнение для тех, кто решил основную задачу Решить задачу удаления части товаров из товарного отчета, в случае, когда сумма выручки меньше итоговой суммы продаж по товарному отчету.

15 Решение // Сумма текущего товарного отчета СуммаТоварногоОтчета = Отчет.ДокументПродажи.Товары.Итог("Сумма"); Недостаток = Отчет.СуммаВыручки - СуммаТоварногоОтчета; Сообщить("Сумма товарного отчета: "+СуммаТоварногоОтчета); Сообщить("Выручка: "+Отчет.СуммаВыручки); Сообщить("Недостаток: "+Недостаток);

16 Извлечение остатков Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ |ПроводкиОстатки.Субконто1 КАК Товар, ПроводкиОстатки.КоличествоОстатокДт - ЕСТЬNULL(ПродажаТоваровТовары.Количество, 0) КАК Остаток, |ПроводкиОстатки.Субконто1.ЦенаПродажи КАК Цена |ИЗ |РегистрБухгалтерии.Проводки.Остатки(&Момент, Счет = &Счет41,, ) КАК ПроводкиОстатки |ЛЕВОЕ СОЕДИНЕНИЕ Документ.ПродажаТоваров.Товары КАК ПродажаТоваровТовары |ПО ПроводкиОстатки.Субконто1 = ПродажаТоваровТовары.Номенклатура | |УПОРЯДОЧИТЬ ПО |Цена УБЫВ";

17 Выполнение запроса Запрос.УстановитьПараметр("Момент", Момент); Запрос.УстановитьПараметр("Ссылка", Отчет.ДокументПродажи); Запрос.УстановитьПараметр("Счет41", ПланыСчетов.Бухгалтерский.Товары); Результат = Запрос.Выполнить(); // Таблица с остатками Остатки = Результат.Выгрузить();

18 // Наша задача перебрать все варианты включения товаров в отчет так, чтобы сумма недостачи была // минимальной (в идеале - нулевой!) // Алгоритм переборный - рассматриваем все комбинации // Товары к // Количество 1000 // 2000 //... //М1000 //0100 // //... //M1M2M3Mк // к - количество товаров

19 Проверяем остатки // к - количество товаров к=Остатки.Количество(); Если к = 0 Тогда Сообщить("Недостаточно остатков на складе!"); Возврат; КонецЕсли;

20 Проверяем остатки // к - количество товаров к=Остатки.Количество(); Если к = 0 Тогда Сообщить("Недостаточно остатков на складе!"); Возврат; КонецЕсли;

21 Проверяем остатки // M* - колиичество доступного остатка на складе М = Новый Массив (к); // Цены на товары Ц = Новый Массив (к); ТК = Новый Массив (к);// Текущая комбинация товаров для добавления в товарный отчет ЛК = Новый Массив (к);// Лучшая комбинация товаров для добавления в товарный отчет Макс = 0;// Максимальная сумма, меньшая суммы недостатка СуммаТоваровНаСкладе = 0; Для Н=0 По к-1 Цикл М[Н]=Остатки[Н].Остаток; Ц[Н]=Остатки[Н].Цена; ТК[Н]=0;ЛК[Н]=0; Если М[Н]*Ц[Н]>Недостаток Тогда М[Н]= Цел(Недостаток/Ц[Н]); // Ограничиваем использование данного товара суммой недостатка КонецЕсли; СуммаТоваровНаСкладе = СуммаТоваровНаСкладе+М[Н]*Ц[Н]; КонецЦикла;

22 Проверяем остатки // Проверяем возможность решения задачи "в принципе" Если СуммаТоваровНаСкладе

23 Выход = Ложь; Рез = "Решение невозможно!"; Пока Не Выход Цикл Выход = Истина; Для Н=0 По к-1 Цикл Если ТК[Н]Макс И Сум

24 Вывод результата // Выводим результат Отчет.Подгонка.Очистить(); Для Н=0 По к-1 Цикл Если ЛК[Н]0 Тогда Стр= Отчет.Подгонка.Добавить(); Стр.Товар = Остатки[Н].Товар; Стр.Количество = ЛК[Н]; Стр.Цена = Ц[Н]; Стр.Сумма = Стр.Количество*Стр.Цена; КонецЕсли; КонецЦикла;

25 Дополнительная задача // берем товар со из товарного отчета для исключения Запрос.Текст = "ВЫБРАТЬ |ПродажаТоваровТовары.Номенклатура КАК Товар, |ПродажаТоваровТовары.Количество КАК Остаток, |ПродажаТоваровТовары.Цена КАК Цена |ИЗ |Документ.ПродажаТоваров.Товары КАК ПродажаТоваровТовары |ГДЕ |ПродажаТоваровТовары.Ссылка = &Ссылка | |УПОРЯДОЧИТЬ ПО |Цена УБЫВ"; Недостаток = - Недостаток;// Избыток!!!