ошибка Определения процедур и функций долны размещаться перед операторами тела

16.12.14

✎

14:20

модуля.
доброго дня, что не так?
где накасячил?

ЧислоЛет = 10;

Процедура ИзЧислаВСлово(ЧисловоеЗначениеКонцаГода);


    Если ЧисловоеЗначениеКонцаГода = 1 Тогда
        БуквОбознКонцаГода = "понедельник";
    ИначеЕсли  ЧисловоеЗначениеКонцаГода = 2 Тогда
        БуквОбознКонцаГода = "вторник";
    ИначеЕсли  ЧисловоеЗначениеКонцаГода = 3 Тогда
        БуквОбознКонцаГода = "среда";
    ИначеЕсли  ЧисловоеЗначениеКонцаГода = 4 Тогда
        БуквОбознКонцаГода = "четверг";
    ИначеЕсли  ЧисловоеЗначениеКонцаГода = 5 Тогда
        БуквОбознКонцаГода = "пятница";
    ИначеЕсли  ЧисловоеЗначениеКонцаГода = 6 Тогда
        БуквОбознКонцаГода = "суббота";
    Иначе
        БуквОбознКонцаГода = "воскресенье";
    КонецЕсли;


КонецПроцедуры

ТекДатаКонцаГода = КонецГода(ТекущаяДата());

Для Счетчик = 1 По ЧислоЛет Цикл

    ЧисловоеЗначениеКонцаГода = ДеньНедели(ТекДатаКонцаГода);
    ИзЧислаВСлово(ЧисловоеЗначениеКонцаГода);

    Сообщить("31 декабря " + Год(ТекДатаКонцаГода) + " года - " + БуквОбознКонцаГода + ".");

    ТекДатаКонцаГода = ДобавитьМесяц(ТекДатаКонцаГода,12);

КонецЦикла;

1 ale-sarin

16.12.14

✎

14:21

ЧислоЛет = 10; вниз надо, видимо.

2 Адский плющ

16.12.14

✎

14:21

Процедура ИзЧислаВСлово(ЧисловоеЗначениеКонцаГода); //<- вот тут

3 program345

16.12.14

✎

14:26

перем БуквОбознКонцаГода;

Процедура ИзЧислаВСлово(ЧисловоеЗначениеКонцаГода);


    Если ЧисловоеЗначениеКонцаГода = 1 Тогда
        БуквОбознКонцаГода = "понедельник";
    ИначеЕсли  ЧисловоеЗначениеКонцаГода = 2 Тогда
        БуквОбознКонцаГода = "вторник";
    ИначеЕсли  ЧисловоеЗначениеКонцаГода = 3 Тогда
        БуквОбознКонцаГода = "среда";
    ИначеЕсли  ЧисловоеЗначениеКонцаГода = 4 Тогда
        БуквОбознКонцаГода = "четверг";
    ИначеЕсли  ЧисловоеЗначениеКонцаГода = 5 Тогда
        БуквОбознКонцаГода = "пятница";
    ИначеЕсли  ЧисловоеЗначениеКонцаГода = 6 Тогда
        БуквОбознКонцаГода = "суббота";
    Иначе
        БуквОбознКонцаГода = "воскресенье";
    КонецЕсли;


КонецПроцедуры

ЧислоЛет = 10;

ТекДатаКонцаГода = КонецГода(ТекущаяДата());

Для Счетчик = 1 По ЧислоЛет Цикл

    ЧисловоеЗначениеКонцаГода = ДеньНедели(ТекДатаКонцаГода);
    ИзЧислаВСлово(ЧисловоеЗначениеКонцаГода);

    Сообщить("31 декабря " + Год(ТекДатаКонцаГода) + " года - " + БуквОбознКонцаГода + ".");

    ТекДатаКонцаГода = ДобавитьМесяц(ТекДатаКонцаГода,12);

КонецЦикла;

все робит!

4 program345

16.12.14

✎

14:27

(1) спс