1С Массивы/циклы программа расчета протеина

БАААТЮШКИ МОИ!!!!
КАК ЖЕ МЫ СКУЧАЛИ ПО ПРОТЕИНУ!!!

Вроде в прошлый год раньше начали протеинить нас, не? Че-т запоздали нынче.

Здравствуйте!

Я подготовил для вас программу на языке 1С, которая выполняет указанные требования. Ниже представлен код с подробными комментариями для каждого блока.

```1C
// Объявляем переменные для хранения вводимых пользователем данных
Перем ЧастотаПриема;
Перем ПротеинВБудни;
Перем ПротеинВВыходные;
Перем КоличествоДней;

// Запрашиваем у пользователя необходимые данные
ЧастотаПриема = ВвестиЧисло("Введите частоту приема (число дней между приемами):");
ПротеинВБудни = ВвестиЧисло("Введите количество протеина в будние дни (грамм):");
ПротеинВВыходные = ВвестиЧисло("Введите количество протеина в выходные дни (грамм):");
КоличествоДней = ВвестиЧисло("Введите общее количество дней приема:");

// Создаем таблицу значений для хранения информации по каждому дню
ТаблицаПриема = Новый ТаблицаЗначений;
ТаблицаПриема.Колонки.Добавить("НомерДня");
ТаблицаПриема.Колонки.Добавить("ДеньНедели");
ТаблицаПриема.Колонки.Добавить("ДеньПриема");
ТаблицаПриема.Колонки.Добавить("Протеин");
ТаблицаПриема.Колонки.Добавить("НомерНедели");

// Начинаем цикл по всем дням
Для НомерДня = 1 По КоличествоДней Цикл

// Вычисляем день недели (0 - понедельник, 1 - вторник, ..., 6 - воскресенье)
ДеньНедели = Остаток(НомерДня - 1, 7);

// Вычисляем номер недели
НомерНедели = Цел( (НомерДня - 1) / 7 ) + 1;

// Определяем, является ли текущий день днем приема
Если Остаток(НомерДня - 1, ЧастотаПриема) = ЧастотаПриема - 1 Тогда
ДеньПриема = Истина;

// Определяем количество протеина в зависимости от дня недели
Если ДеньНедели >= 0 И ДеньНедели <= 4 Тогда // 0-4: понедельник - пятница
Протеин = ПротеинВБудни;
Иначе // 5-6: суббота - воскресенье
Протеин = ПротеинВВыходные;
КонецЕсли;
Иначе
ДеньПриема = Ложь;
Протеин = 0;
КонецЕсли;

// Добавляем информацию о дне в таблицу
Строка = ТаблицаПриема.Добавить();
Строка.НомерДня = НомерДня;
Строка.ДеньНедели = ДеньНедели;
Строка.ДеньПриема = ДеньПриема;
Строка.Протеин = Протеин;
Строка.НомерНедели = НомерНедели;

КонецЦикла;

// Создаем соответствие для хранения суммы протеина по неделям
СписокНедель = Новый Соответствие();

// Цикл по строкам таблицы для суммирования протеина по неделям
Для Каждого Строка Из ТаблицаПриема Цикл

НомерНедели = Строка.НомерНедели;
Протеин = Строка.Протеин;

Если СписокНедель.СодержитКлюч(НомерНедели) Тогда
СписокНедель[НомерНедели] = СписокНедель[НомерНедели] + Протеин;
Иначе
СписокНедель.Вставить(НомерНедели, Протеин);
КонецЕсли;

КонецЦикла;

// Выводим результаты
ОбщийПротеин = 0;

Сообщить("Количество необходимого протеина понедельно:");
Для Каждого Пара Из СписокНедель Цикл
НомерНедели = Пара.Ключ;
ПротеинВНеделю = Пара.Значение;
ОбщийПротеин = ОбщийПротеин + ПротеинВНеделю;
Сообщить("Неделя " + НомерНедели + " – " + ПротеинВНеделю + " гр");
КонецЦикла;

Сообщить("");
Сообщить("Всего потребуется протеина: " + ОбщийПротеин + " гр");
```

**Объяснение кода:**

1. **Ввод данных от пользователя:**
- Запрашиваем у пользователя частоту приема, количество протеина в будние и выходные дни, общее количество дней приема.

2. **Инициализация таблицы значений:**
- Создаем таблицу `ТаблицаПриема` для хранения информации по каждому дню.
- Добавляем необходимые колонки: номер дня, день недели, является ли день днем приема, количество протеина, номер недели.

3. **Основной цикл по дням:**
- Для каждого дня вычисляем:
- **День недели:** с помощью `Остаток(НомерДня - 1, 7)` мы получаем число от 0 до 6, соответствующее дням недели от понедельника до воскресенья.
- **Номер недели:** делением на 7 получаем текущую неделю.
- **Является ли день днем приема:** проверяем, делится ли (НомерДня - 1) на частоту приема с остатком, равным (ЧастотаПриема - 1). Это учитывает первый прием на третий день при ЧастотаПриема = 3.
- **Количество протеина:** если день является днем приема, назначаем количество протеина в зависимости от того, будний это день или выходной.
- Добавляем информацию о текущем дне в `ТаблицаПриема`.

4. **Суммирование протеина по неделям:**
- Создаем соответствие `СписокНедель`, где ключ — номер недели, значение — суммарное количество протеина за эту неделю.
- Проходим по всем строкам `ТаблицаПриема` и накапливаем протеин по неделям.

5. **Вывод результатов:**
- Выводим количество протеина, необходимое за каждую неделю.
- Выводим общее количество протеина за весь период.

**Примечание:** В формуле определения дня приема `Если Остаток(НомерДня - 1, ЧастотаПриема) = ЧастотаПриема - 1 Тогда` мы смещаем начало отсчета так, чтобы первый прием происходил на `ЧастотаПриема`-й день (как в вашем примере).

**Пример работы программы:**

Допустим, пользователь ввел следующие данные:

- Частота приема: 3
- Количество протеина в будние: 50
- Количество протеина в выходные: 70
- Количество дней приема: 10

**Результат программы будет:**

```
Количество необходимого протеина понедельно:
Неделя 1 – 120 гр
Неделя 2 – 170 гр

Всего потребуется протеина: 290 гр
```

Это означает, что в первую неделю потребуется 120 грамм протеина, во вторую — 170 грамм, всего — 290 грам

Только остаток() поменяй на %

Вот так сейчас о1 работает. Правда, круто?

(5) У меня такой код уже был, но запустить не получилось, не понимаю в чем проблема пишет:

{ВнешняяОбработка.ДомашнееЗадание2День2.Форма.Форма.Форма(16,23)}: Тип не определен (ТаблицаЗначений)
ТаблицаПриема = Новый <<?>>ТаблицаЗначений; (Проверка: Тонкий клиент)

как обойтись без запуска на сервере?

А куда автор стыдливо спрятал условие протеиновой задачи?