Сравнение локальных моделей (Deepseek, Codellama, Qwen 2.5)

 Популярная модель сейчас, которая не имеет основное назначение для написания кода, однако участвует тут из за любопытства.

Чат:Напиши функцию удаления элементов массива по условию на языке 1С.

Результат:

 Procedure DeleteElementsByCondition(arr As Array, condition As String)
     Local i As Integer
     Local j As Integer
     Local newArr As Array

     // Создаём новый массив
     newArr = CreateArray(ArraySize(arr))

     // Инициализируем индексы
     i = 0
     j = 0

     While i < ArraySize(arr)
         If Not EvaluateCondition(arr[i], condition) Then
             newArr[j] = arr[i]
             j += 1
         EndIf
         i += 1
     EndWhile

     // Обновляем исходный массив
     arr = newArr.Slice(0, j)
 EndProcedure

 Procedure EvaluateCondition(element As Variant, condition As String) As Boolean
     // Реализуйте здесь логику для оценки условия
     // Пример: Удалить элементы больше 10
     Return element > 10
 EndProcedure

Чат:У языка 1С другой синтаксис. Код должен быть на русском языке.

Procedure DeleteElementsByCondition(arr As Array, condition As String)
     Local i As Integer
     Local j As Integer
     Local newArr As Array

     // Создаём новый массив
     newArr = CreateArray(ArraySize(arr))

     // Инициализируем индексы
     i = 0
     j = 0

     While i < ArraySize(arr)
         If Not EvaluateCondition(arr[i], condition) Then
             newArr[j] = arr[i]
             j += 1
         EndIf
         i += 1
     EndWhile

     // Обновляем исходный массив
     arr = newArr.Slice(0, j)
 EndProcedure

 Procedure EvaluateCondition(element As Variant, condition As String) As Boolean
     // Реализуйте здесь логику для оценки условия
     // Пример: Удалить элементы больше 10
     Return element > 10
 EndProcedure

Чат: Заполнение массива имеет другой синтаксис. Так же содержится в коде латиница. Определение локальных переменных имеет другой синтаксис на 1С.

Объявить Локальные Переменные:
    i как Целое;
    j как Целое;
    новыйМассив как Массив;

// Создаем новый массив того же размера, что и исходный
новыйМассив = СоздатьМассив(РазмерМассива(массив));

i = 0;
j = 0;

Пока i < РазмерМассива(массив) Цикл
    Если Не ОценитьУсловие(массив[i], условие) Тогда
        новыйМассив[j] = массив[i];
        j = j + 1;
    КонецЕсли
    i = i + 1;
КонецЦикла;

// Обновляем исходный массив
массив = Срез(newArray, 0, j);

Функция ОценитьУсловие(элемент, условие) как Логическое
    // Реализуйте здесь логику для оценки условия
    // Пример: Удалить элементы больше 10
    Возврат элемент > 10;
КонецФункции

 Чат:Напиши функцию удаления элементов массива по условию на языке 1С.

Функция УдалитьЭлементыПоУсловию(Массив, Условие) Экспорт
    // Проверяем, что передан массив и условие
    Если Тип(Массив) <> Массив Тогда
        Вернуть "";
    КонецЕсли;
    
    // Создаем новый массив для хранения элементов, удовлетворяющих условию
    НовыйМассив = Новый Массив;
    
    // Проходим по всем элементам исходного массива
    Для Каждого Элемент Из Массив Цикл
        // Если элемент удовлетворяет условию, добавляем его в новый массив
        Если Условие(Элемент) Тогда
            НовыйМассив.Добавить(Элемент);
        КонецЕсли;
    КонецЦикла;
    
    // Возвращаем новый массив с удовлетворяющими условию элементами
    Возврат НовыйМассив;
КонецФункции

// Пример использования функции
Процедура ВыполнитьКоманду() Экспорт
    Массив = [1, 2, 3, 4, 5];
    
    // Функция условия: возвращает Истина, если число четное
    Функция ЧетноеЧисло(Число)
        Возврат Число % 2 = 0;
    КонецФункции
    
    НовыйМассив = УдалитьЭлементыПоУсловию(Массив, ЧетноеЧисло);
    
    // Вывод результата
    Для Каждого Элемент Из НовыйМассив Цикл
        Сообщить("Осталось число: " + Строка(Элемент));
    КонецЦикла;
КонецПроцедуры

Чат:в 1с массив так не заполняется и не создается

Процедура ЗаполнитьИУдалитьЭлементы() Экспорт
    // Создаем пустой массив
    Массив = Новый Массив;
    
    // Заполняем массив числами от 1 до 5
    Для i = 1 По 5 Цикл
        Массив.Добавить(i);
    КонецЦикла;
    
    // Выводим исходный массив
    Сообщить("Исходный массив: " + Массив.Текст());
    
    // Функция условия: возвращает Истина, если число четное
    Функция ЧетноеЧисло(Число)
        Возврат Число % 2 = 0;
    КонецФункции
    
    // Удаляем элементы по условию
    НовыйМассив = Массив.Выбрать(Не ЧетноеЧисло);
    
    // Выводим новый массив после удаления четных чисел
    Сообщить("Новый массив: " + НовыйМассив.Текст());
КонецПроцедуры

Чат: Так код не будет работать. Функции внутри процедуры нельзя писать. Удаления по условию не происходит

Процедура ЗаполнитьИУдалитьЭлементы() Экспорт
    // Создаем пустой массив
    Массив = Новый Массив;
    
    // Заполняем массив числами от 1 до 5
    Для i = 1 По 5 Цикл
        Массив.Добавить(i);
    КонецЦикла;
    
    // Выводим исходный массив
    Сообщить("Исходный массив: " + Массив.Текст());
    
    // Удаляем элементы по условию
    НовыйМассив = УдалитьЭлементыПоУсловию(Массив);
    
    // Выводим новый массив после удаления четных чисел
    Сообщить("Новый массив: " + НовыйМассив.Текст());
КонецПроцедуры

Функция УдалитьЭлементыПоУсловию(Массив) Экспорт
    // Создаем новый массив для хранения элементов, удовлетворяющих условию
    НовыйМассив = Новый Массив;
    
    // Проходим по всем элементам исходного массива
    Для Каждого Элемент Из Массив Цикл
        // Если элемент не удовлетворяет условию, добавляем его в новый массив
        Если Не Элемент % 2 = 0 Тогда
            НовыйМассив.Добавить(Элемент);
        КонецЕсли;
    КонецЦикла;
    
    // Возвращаем новый массив с удовлетворяющими условию элементами
    Возврат НовыйМассив;
КонецФункции

 Чат:Напиши функцию удаления элементов массива по условию на языке 1С.

Массив = ["Яблоко", "Груша", "Персик"];
Удалить(Массив, (Элемент) => Элемент = "Груша");

Чат: Язык 1С не имеет такого синтаксиса, который ты использовал.

Массив = ["Яблоко", "Груша", "Персик"];
Удалить(Массив, (Элемент) => Элемент.Contains("а"));

Чат: Массив не создается так в 1С и установка значений в 1С так не производится

Массив = Новый Массив(Тип("Строка"));

Массив.УстановитьЗначение(0, "Яблоко");
Массив.УстановитьЗначение(1, "Груша");
Массив.УстановитьЗначение(2, "Персик");

НовыйМассив = Массив.Копировать();
Удалить(НовыйМассив, (Элемент) => Элемент.Contains("а"));

 Чат:Напиши функцию удаления элементов массива по условию на языке 1С.

Процедура УдалитьЭлементыМассиваПоУсловию(Массив Элементы, Число Порог) Экспорт

    // Создаем новый массив для хранения элементов, которые не удовлетворяют условию
    НовыйМассив = Новый Массив;

    // Перебираем все элементы исходного массива
    Для каждого Элемент Из Элементы Цикл
        // Проверяем условие: если элемент меньше или равен порогу, добавляем его в новый массив
        Если Элемент <= Порог Тогда
            НовыйМассив.Добавить(Элемент);
        КонецЕсли;
    КонецЦикла;

    // Заменяем исходный массив новым массивом с отфильтрованными элементами
    Элементы = НовыйМассив;

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

Чат:Параметры процедуры не должны иметь тип. Сделай удаление четных значений из массива.

Процедура УдалитьЧетныеЗначенияМассива(Элементы, Порог) Экспорт

    // Создаем новый массив для хранения элементов, которые не удовлетворяют условию (четные)
    НовыйМассив = Новый Массив;

    // Перебираем все элементы исходного массива
    Для каждого Элемент Из Элементы Цикл
        // Проверяем условие: если элемент не является четным, добавляем его в новый массив
        Если ЭтоЧисло(Элемент) И Не (Элемент % 2 = 0) Тогда
            НовыйМассив.Добавить(Элемент);
        КонецЕсли;
    КонецЦикла;

    // Заменяем исходный массив новым массивом с отфильтрованными элементами
    Элементы = НовыйМассив;

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

// Пример использования процедуры УдалитьЧетныеЗначенияМассива

МассивДляФильтрации = Новый Массив;
МассивДляФильтрации.Добавить(1);
МассивДляФильтрации.Добавить(2);
МассивДляФильтрации.Добавить(3);
МассивДляФильтрации.Добавить(4);
МассивДляФильтрации.Добавить(5);
МассивДляФильтрации.Добавить(6);

// Вызов процедуры для удаления четных элементов
УдалитьЧетныеЗначенияМассива(МассивДляФильтрации, );

// Вывод результата на экран или в лог (для примера)
Сообщить("Оставшиеся элементы массива: " + МассивДляФильтрации);

Чат: Давай теперь сделаем чтобы процедура удаления работала быстрее. Нужно использовать другой алгоритм удаления.

Процедура УдалитьЧетныеЗначенияМассиваПоОбратномуПорядку(Элементы) Экспорт

    // Получаем количество элементов в массиве
    КоличествоЭлементов = Элементы.Количество();

    // Проходим по массиву с конца к началу
    Для И от КоличествоЭлементов - 1 По 0 Шаг -1 Цикл
        Элемент = Элементы[И];
        
        // Проверяем условие: если элемент является четным, удаляем его
        Если ЭтоЧисло(Элемент) И (Элемент % 2 = 0) Тогда
            Элементы.Удалить(И);
        КонецЕсли;
    КонецЦикла;

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