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

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

1. 

   Alenka 25.06.2012 в 08:42

   Здравствуйте. Отчитываюсь о проделанном 4 ДЗ.

   Первая часть.
   <code></code>Процедура ПередНачаломРаботыСистемы(Отказ)
           НачалоРабочегоДня = НачалоДня(ТекущаяДата())+9*3600+5*60+38;
           КонецРабочегоДня = НачалоДня(ТекущаяДата())+18*3600+11*60+42;
           Если ТекущаяДата()<НачалоРабочегоДня ИЛИ ТекущаяДата()>КонецРабочегоДня
                   Тогда
                   Предупреждение(“Сейчас”+Прав(ТекущаяДата(), 8)+” – это нерабочее время!”);
                   Отказ = Истина;
           КонецЕсли    
   КонецПроцедуры<code></code>

   Вторая.
   <code></code>СписокОбедов = Новый СписокЗначений;
           СписокОбедов.Добавить(“Курица”);
           СписокОбедов.Добавить(“Рыба”);
           СписокОбедов.Добавить(“Мясо”);
           глОбед = Новый Массив;
           Если СписокОбедов.ОтметитьЭлементы(“Выберите обед”)
                   Тогда
                   Для Каждого Элемент Из СписокОбедов
                           Цикл
                           Если Элемент.Пометка
                                   Тогда
                                   глОбед.Добавить(Элемент.Значение)
                           КонецЕсли;
                   КонецЦикла;  
           Иначе
                   Пока
                           СписокОбедов.ОтметитьЭлементы(“Выберите обед”)=Ложь
                           Цикл
                           Предупреждение(“Выберите обед!”);
                           СписокОбедов.ОтметитьЭлементы(“Выберите обед”);
                   КонецЦикла;
           КонецЕсли;<code></code>
   Не смогла обеспечить чтобы пользователь обязательно выбрал какой то обед. Если пользователь не выбирает обед и нажимает ОК, программа его пропускает дальше. И еще почему то выбор обедов и кнопок нужно 2 раза осуществлять, т.е. 2 раза кликать мышкой.

   Третья часть ДЗ
   <code></code>Процедура ПередЗавершениемРаботыСистемы(Отказ)
           КонецРабочегоДня = НачалоДня(ТекущаяДата())+18*3600+11*60+42;
           Если ТекущаяДата()<КонецРабочегоДня Тогда
                   Если Вопрос(“Рабочий день еще не кончился, вы уверены, что хотите выйти?”, РежимДиалогаВопрос.ДаНет)=КодВозвратаДиалога.Нет
                           Тогда
                           Отказ=Истина
                   КонецЕсли;
                   КонецЕсли;
   КонецПроцедуры<code></code>

   Последняя.
   <code></code>Числа = Новый Структура();
           Числа.Вставить(“Число1”, “Простое”);
           Для Счетчик=2 По 999 Цикл
                   n=0;
                   Для Счетчик1=2 по Счетчик Цикл
                           Если Счетчик%Счетчик1=0 Тогда
                                   n=n+1;
                           КонецЕсли;
                   КонецЦикла;
                   Если n>1
                           Тогда
                           Числа.Вставить(“Число”+Счетчик, “Не простое”);
                   Иначе
                           Числа.Вставить(“Число”+Счетчик, “Простое”);
                   КонецЕсли;   
           КонецЦикла;
           Числа.Вставить(“Число1000”, “Не простое”); <code></code>
   Вот как то так :-)

   • 

     Dobrenko Oleg 25.06.2012 в 09:01

     Здравствуйте. Alenka, ваш отчет принят.