Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 21:04

Выведение статистики

Автор vlwalker, 25 окт 2018, 08:49

0 Пользователей и 1 гость просматривают эту тему.

vlwalker

Здравствуйте, обучаюсь программированию, дали следующее задание:

Создайте 2 кнопки:
1 кпСобратьМассив. По кнопке:
а) Создаем и заполняем массив, данными которого является количество принято протеина. Данные должны быть за каждый день. Массив необходимо создать так, что бы первое значение соответствовало понедельнику, но первый прием может быть в любой день недели (все зависит от указанной даты). Последнее значение в массиве соответствовало воскресенью.
б) Выводим общее количество принятого протеина.
2 кпВывестиСтатистикуПоПротеину. По кнопке:
Выводим информацию по принятому протеину по дням недели в виде
31.08 понедельник: 0
01.09 вторник: 0
02.09 среда: 100
03.09 четверг:  0
04.09 пятница: 100
05.09 Суббота: 0
06.09 Воскресенье: 150
...»
Входные данные:
Дата первого приема (переменная типа Дата)  02.09.2015
Частота приема (Число в диапазоне 1-7) 2
Первый прием начинается в день указанный в пункте №1
Продолжительность курса приема (дней, брать не более 100)
Количество протеина в будни 100
Количество протеина в выходные 150

Первую часть сделал, вроде даже правильно:
  масПротеин=Новый Массив(7);
частотаПриема=2;
дата='20181025';
счетчик = ДеньНедели(дата);
Пока счетчик <= 7 Цикл
Если счетчик % частотаПриема = 0 Тогда
масПротеин[счетчик - 1] = 100;
Иначе
масПротеин[счетчик - 1] = 0;
КонецЕсли;
счетчик = счетчик + 1;
КонецЦикла;
принятыйПротеин=0;
Для каждого ЭлементМассива из масПротеин Цикл
Если ТипЗнч(ЭлементМассива) = Тип("Число") Тогда
принятыйПротеин=принятыйПротеин+ЭлементМассива;
КонецЕсли;
конецЦикла;
Сообщить ("Количество принятого протеина: "+принятыйПротеин);


Вот со второй частью пока в тупике. Подскажите пожалуйста, куда хоть начать копать.

Теги: массивы 

Похожие темы (5)

Рейтинг@Mail.ru

Поиск