Помогите, пожалуйста, высчитать средний балл

[Willy Moon]

Добрый день, Дамы и Господа.
Есть документ "Текущая успеваемость", в который выставляются оценки студентов. Т.е как журнал. Можно ли сделать так, чтобы он высчитывал среднюю оценку в строке? Нужно сделать так, чтобы брал оценки только из заполненных полей, иначе средний бал получается неверным.

[Rasty]

1. Получить реквизиты табличной части
2. берем строку проверяем на заполненное значение
3. если значение заполнено плюсуем его в переменную прибавляем к счетчику + 1

Добавлено: 29 мая 2015, 18:48

Ну или вот вам прям готовый код

Код Выделить Развернуть


Счетчик = 0;
Оценка = 0;
n=31;
Для Кажодго Стр Из ВашаТабличнаяЧасть Цикл
    Попытка
        Для i=1 по n Цикл
            Если ЗначениеЗаполнено(Стр[i]) Тогда
                Оценка = Оценка + Стр[i];
                Счетчик = Счетчик + 1;
            КонецЕсли;
        КонецЦикла;
    Исключение
        Стр.СреднийБалл = Оценка/Счетчик;
    КонецПопытки;
КонецЦикла;



[Willy Moon]

1. Получить реквизиты табличной части
2. берем строку проверяем на заполненное значение
3. если значение заполнено плюсуем его в переменную прибавляем к счетчику + 1

Добавлено: 29 мая 2015, 18:48

Ну или вот вам прям готовый код

Код Выделить Развернуть


Счетчик = 0;
Оценка = 0;
n=31;
Для Кажодго Стр Из ВашаТабличнаяЧасть Цикл
    Попытка
        Для i=1 по n Цикл
            Если ЗначениеЗаполнено(Стр[i]) Тогда
                Оценка = Оценка + Стр[i];
                Счетчик = Счетчик + 1;
            КонецЕсли;
        КонецЦикла;
    Исключение
        Стр.СреднийБалл = Оценка/Счетчик;
    КонецПопытки;
КонецЦикла;



Премного благодарен, сейчас попробую

[cska-fanat-kz]

Rasty,

Код Выделить Развернуть

Если ЗначениеЗаполнено(Стр[i]) Тогда

кто так обращается к каждой отдельной ячейке строки?!
и еще.
в каком случае 1Ска попадет в ветку "Исключение..."?

[Willy Moon]

Ну или вот вам прям готовый код

Код Выделить Развернуть


Счетчик = 0;
Оценка = 0;
n=31;
Для Кажодго Стр Из ВашаТабличнаяЧасть Цикл
    Попытка
        Для i=1 по n Цикл
            Если ЗначениеЗаполнено(Стр[i]) Тогда
                Оценка = Оценка + Стр[i];
                Счетчик = Счетчик + 1;
            КонецЕсли;
        КонецЦикла;
    Исключение
        Стр.СреднийБалл = Оценка/Счетчик;
    КонецПопытки;
КонецЦикла;



Данный код не работает. Выдается ошибка "Деление на 0", т.е. цикл не работает и счетчик не меняет свое значение

[Дмитрий@]

n должно быть равно 32, потому что столько дней нет в месяце.
Счетчик должен обновляться (=0) в каждом цикле.
И поскольку присутствует деление должна быть проверка на ноль.

Код Выделить Развернуть


Счетчик = 0;
Оценка = 0;
n=32;
Для Кажодго Стр Из ВашаТабличнаяЧасть Цикл
    Попытка
        Счетчик = 0;
        Для i=1 по n Цикл
            Если ЗначениеЗаполнено(Стр[i]) Тогда
                Оценка = Оценка + Стр[i];
                Счетчик = Счетчик + 1;
            КонецЕсли;
        КонецЦикла;
    Исключение
        Если Счетчик <> 0 Тогда
        Стр.СреднийБалл = Оценка/Счетчик;
        Иначе
        Стр.СреднийБал = 0;
        КонецЕсли;
    КонецПопытки;
КонецЦикла;


[temrmal]

Конечно ошибка. При первом же цикле исключение срабатывает, а счетчик в этом случае равен 0

[Willy Moon]

Конечно ошибка. При первом же цикле исключение срабатывает, а счетчик в этом случае равен 0

А как реализовать, чтобы это работало?

[Дмитрий@]

А как реализовать, чтобы это работало?

Тот код который я кинул в предыдущем сообщении, он что не работает?

[Willy Moon]

Тот код который я кинул в предыдущем сообщении, он что не работает?

К сожалению, нет