X
Пользователь приглашает вас присоединиться к открытой игре игре с друзьями .
[{{mminutes}}:{{sseconds}}] Ожидаем начала...    
1С программер
(0)       Используют 9 человек

Комментарии

Ни одного комментария.
Написать тут
Описание:
Тренировка на стандартные конструкции
Автор:
7erg
Создан:
9 сентября 2015 в 08:20
Публичный:
Да
Тип словаря:
Фразы
В этом режиме перемешиваться будут не слова, а целые фразы, разделенные переносом строки.
Содержание:
1 МояСтруктура = Новый Структура;
2 МояСтруктура.Вставить("НазваниеСклада", "МойСклад");
3 МояСтруктура.Вставить("КоличествоТоваров", 50000);
4 МояСтруктура.Свойство("НазваниеСклада");
5 МояСтруктура.Количество();
6 Сообщить(МояСтруктура.НазваниеСклада);
7 МоеСоответствие = Новый Соответствие;
8 МоеСоответствие.Вставить(25, Дата(2015, 09, 07));
9 Сообщить(МоеСоответствие.Получить(25));
10 МойСписокЗначений = Новый СписокЗначений;
11 МойСписокЗначений.Добавить(5, "Пять");
12 МойСписокЗначений.Добавить(10, "Десять");
13 МойСписокЗначений.Добавить(15, "Пятнадцать");
14 Для каждого ТекЭлемент Из МойСписокЗначений Цикл
15 Сообщить(ТекЭлемент.Значение);
16 КонецЦикла;
17 НайденныйЭлемент = МойСписокЗначений.НайтиПоЗначению(5);
18 НайденныйЭлемент = МойСписокЗначений квадратные скобки 0;
19 МойСписокЗначений.Удалить(НайденныйЭлемент);
20 МойСписокЗначений.СортироватьПоЗначению(НаправлениеСортировки.Убыв);
21 Процедура СоздатьТаблицуЗначенийНаСервере()
22 КС = Новый КвалификаторыСтроки(15);
23 КЧ = Новый КвалификаторыЧисла(3,0);
24 Массив = Новый Массив;
25 Массив.Добавить(Тип("Строка"));
26 ОписаниеТиповС = Новый ОписаниеТипов(Массив, , КС);
27 Массив.Очистить();
28 Массив.Добавить(Тип("Число"));
29 ОписаниеТиповЧ = Новый ОписаниеТипов(Массив, , КЧ);
30 МояТаблицаЗначений = Новый ТаблицаЗначений;
31 МояТаблицаЗначений.Колонки.Добавить("Товар",ОписаниеТиповС,"Товар",20);
32 МояТаблицаЗначений.Колонки.Добавить("Количество",ОписаниеТиповЧ,"Количество",15);
33 МояТаблицаЗначений.Колонки.Добавить("Сумма",ОписаниеТиповЧ,"Сумма",15);
34 НоваяСтрока = МояТаблицаЗначений.Добавить();
35 НоваяСтрока.Товар = "Хлеб";
36 НоваяСтрока.Количество = 10;
37 НоваяСтрока.Сумма = 200;
38 НоваяСтрока = МояТаблицаЗначений.Добавить();
39 НоваяСтрока.Товар = "Молоко";
40 НоваяСтрока.Количество = 5;
41 НоваяСтрока.Сумма = 250;
42 НоваяСтрока = МояТаблицаЗначений.Добавить();
43 НоваяСтрока.Товар = "Сахар";
44 НоваяСтрока.Количество = 15;
45 НоваяСтрока.Сумма = 500;
46 КонецПроцедуры
47 Если Справочники.Номенклатура.НайтиПоНаименованию("Доставка") = Справочники.Номенклатура.ПустаяСсылка() Тогда
48 НовыйЭлемент = Справочники.Номенклатура.СоздатьЭлемент();
49 НовыйЭлемент.Родитель = Справочники.Номенклатура.Услуги;
50 НовыйЭлемент.Наименование = "Доставка";
51 НовыйЭлемент.Записать();
52 КонецЕсли;

Связаться
Выделить
Выделите фрагменты страницы, относящиеся к вашему сообщению
Скрыть сведения
Скрыть всю личную информацию
Отмена