Top.Mail.Ru
Ответы
Аватар пользователя
Аватар пользователя
Аватар пользователя
Программирование
+1

1C 8.3: Как программно проверить строки Таблицы Значений на чётность?

Скажите, пожалуйста:
есть такая вот часть задачи:
"создать таблицу значений. Добавить в неё колонку. Колонку заполнить рандомными числами. Затем удалить из таблицы все чётные числа и вывести таблицу на экран".

Понятно, что
Процедура ВыполнитьКод ();

ТаблицаЗначений1 = Новый ТаблицаЗначений;
ТаблицаЗначений1.Колонки. Добавить ("Числа");

Строка = ТаблицаЗначений1.Добавить ();
Строка. Числа = "3";
Строка. Числа = "17";
Строка. Числа = "6";
Строка. Числа = "9";

... И т. д.

Не знаю, как обойти таблицу и сделать проверку на чётность.
Наверное, что-то вроде
Для Каждого СтрокаТЗ Из Объект. ТЗ Цикл
...
Помогите, пожалуйста.
Всегда выбираю Лучший ответ, заранее спасибо.

По дате
По рейтингу
Аватар пользователя
Мудрец

ТЗ = Новый ТаблицаЗначений;
ТЗ. Колонки. Добавить ("Числа");

ГСЧ = Новый ГенераторСлучайныхЧисел;
Для i=0 по 9 Цикл
----НовСтр = ТЗ. Добавить ();
----НовСтр. Числа = ГСЧ. СлучайноеЧисло (0, 20);
КонецЦикла;

Индекс = ТЗ. Количество ()-1;
Пока Индекс>=0 Цикл
----Если ТЗ [Индекс]. Числа%2 = 0 Тогда
--------ТЗ. Удалить (Индекс);
----КонецЕсли;
----Индекс = Индекс - 1;
КонецЦикла;

Черточки (---) убрать не забудь