Базовый курс. Занятие №2

14.09.2012 комментария 3

Приступайте ко второму занятию базового курса.

ps. На этой странице не нужно отчитываться о выполнении ДЗ.

[Базовый курс], [ДЗ 13-го потока Базового]

комментария 3 на “Базовый курс. Занятие №2”

  1. idspooler 25.09.2012 в 08:12
    &НаСервереБезКонтекста
    Процедура ИсполнитьВолю()
        //Задача1----------------------------
        //Сч = 0;
        //Масс = Новый Массив;
        //Пока Сч < 1000 Цикл
        //
        //  Масс.Добавить(Сч=Сч+1);
        // 
        //КонецЦикла;Раньше программировал на 7.7 и почему-то подумал,
        //что произойдет инкрементирование счетчик, а на самом деле зацикливание
        //Задача1----------------------------
        //Задача2
        Начислено = 150;
        Выплачено = 301;
        //ВременнаяПеременная = 0;
        Если Начислено <> Выплачено Тогда
           
            //ВременнаяПеременная = Начислено;
            //Начислено = Выплачено;
            //Выплачено = ВременнаяПеременная;
           
            //Вариант 2 -----------------------
           
            Начислено = (Начислено + Выплачено)-(Поменять(Выплачено,Начислено));
           
            //Вариант 2 -----------------------
        КонецЕсли;
       
            Сообщить("Начислено ="+Начислено);
            Сообщить("Выплачено ="+Выплачено);
           
            //Зачада 3
        //  А. «010» + «010»Досмотрев главы 2го занятия изменил свою точку зрения
        //  Б. «010» ++ «010»Поочередно продумывая и проверяя задачи
        //  В. «010» - «010» + 1 Понял, как производятся преобразования.
        //  Г. «010» +- «010» + 1
        ////----------------------------
    КонецПроцедуры

    &НаСервереБезКонтекста
    Функция Поменять(Выплачено,Начислено)
       
            Выплачено = Начислено;
            Возврат Выплачено;
       
    КонецФункции // Поменять()

    &НаКлиенте
    Процедура Щелк(Команда)
        ИсполнитьВолю();
    КонецПроцедуры
  2. Юрий Сартинский 24.09.2012 в 17:55
    &НаСервереБезКонтекста
    Функция ПоменятьМестамиПараметры(Начислено,Выплачено)

        //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        // без буфера
        //// вариант 1: строки
        //Начислено = Строка(Начислено) + "~" + Выплачено;
        //Выплачено = Число(Сред(Начислено,1,Найти(Начислено,"~") - 1));
        //Начислено = Число(Сред(Начислено,Найти(Начислено,"~") + 1));
       
        // вариант 2: математика
        Начислено = Начислено + Выплачено;
        Выплачено = Начислено - Выплачено;
        Начислено = Начислено - Выплачено;
       
        ////~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        //// с буфером
        //Буфер = Начислено;
        //Начислено = Выплачено;
        //Выплачено = Буфер;
       
    КонецФункции // ПоменятьМестамиПараметры()

    &НаСервере
    Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
       
        // вечный цикл, счетчик не наращивается
        //Счетчик = 0;
        //М = Новый Массив;
        //Пока Счетчик < 1000 Цикл
        //  М.Добавить(Счетчик = Счетчик +1);
        //КонецЦикла;
       
        Начислено = 1000;
        Выплачено = 2000;
       
        Сообщить("До перестановки параметр 1: " + Начислено);
        Сообщить("До перестановки параметр 2: " + Выплачено);
     
        ПоменятьМестамиПараметры(Начислено,Выплачено);
       
        Сообщить("После перестановки параметр 1: " + Начислено);
        Сообщить("После перестановки параметр 2: " + Выплачено);
       
        Начислено = 150;
        Выплачено = 301;
       
        Сообщить("До перестановки параметр 1: " + Начислено);
        Сообщить("До перестановки параметр 2: " + Выплачено);
     
        ПоменятьМестамиПараметры(Начислено,Выплачено);
       
        Сообщить("После перестановки параметр 1: " + Начислено);
        Сообщить("После перестановки параметр 2: " + Выплачено);
       
    КонецПроцедуры