Сокрлп 1с функция что делает
« Как стать программистом 1С » Язык 1С » 1С СокрЛП, 1С СокрЛ, 1С СокрП – удаление лишних символов
1С СокрЛП, 1С СокрЛ, 1С СокрП – удаление лишних символов
Функции 1С СокрЛП(Строка), 1С СокрЛ(Строка) и 1С СокрП(Строка) удаляют из текста лишние символы.
- Выполняем
СокрЛП(»
| Привет, мир!
| «) - 1С возвращает «Привет, мир!»
- 1С СокрЛ – с начала строки до «значащих символов»
- 1С СокрП – с последнего «значащего символа» до конца строки
- 1С СокрЛП – одновременно слева и справа.
«Лишние символы», которые можно убрать с помощью 1С СокрЛ, 1С СокрП, 1С СокрЛП:
- Пробел
- Перенос строки, страницы
- Табуляция.
Лишние пробелы внутри строки, между словами функции 1С СокрЛ, 1С СокрП, 1С СокрЛП не удаляют.
Строковые реквизиты, например справочнков, имеют обычно определенную длину, например возьмем 50 символов. При вводе пользователи может ввести лишние пробелы в конце, особенно если текст в поле не вводится вручную, а копируется из сторонней программы.
Если пользователь ввел значение с пробелом, то сравнение с заданной строкой не будет работать – ведь сравнение учитывает все символы, включая незначимые.
- Пользователь ввел: «РОССИЯ «
- Мы сравниваем: Если Страна = «РОССИЯ» //не сработает
- Чтобы сработало, пишем: Если СокрЛП(Страна) = «РОССИЯ» //сработает
1С СокрЛП() некоторые программисты используют при переводе чисел в строку, вместо Строка(). Дело в том, что числа форматируются при переводе по настройкам локализации с пробелами между разрядами: 22500 -> «22 500». Однако 1С СокрЛП() не убирает пробелы между словами. Вместо этого можно применять Формат():
Число = 22500;
ЧислоСтрокой = Формат(Число, «ЧГ=0»);
//ЧислоСтрокой будет равно «22500»
Добавим в наш анализатор строки программы, позволяющие удалить незначащие символы как слева и справа, так и между словами (про анализатор текста см. выше «Функции работы со строками 1С»).
Только зарегистрированные пользователи VIP группы могут видеть этот контент.
Проголосовать за этот пост:
Функция СокрЛП()
Функция СокрЛП() удаляет пробельные символы в начале (до первого значащего символа) и в конце (после последнего значащего символа) исходной строки.
Примечание: К незначащим символам относятся символы:
- «пробел»,
- «неразрывный пробел» (НПП),
- «табуляция» (горизонтальная Таб и вертикальная ВТаб),
- «возврат каретки» (ВК),
- «перевод строки» (ПС),
- «перевод формы (страницы)» (ПФ).
Доступность
| Версия | Поддержка |
|---|---|
| 8.1 | Сервер, Клиент, Внешнее соединение |
| 8.2 | Сервер, Толстый клиент, Тонкий клиент, Веб-клиент, Внешнее соединение |
| 8.3 | Сервер, Толстый клиент, Тонкий клиент, Веб-клиент, Внешнее соединение, Мобильный автономный сервер, Мобильный клиент, Мобильное приложение |
Пример использования
Пример кода с использованием функции СокрЛП() :
ИсходнаяСтрока = " Строка с пробелами "; Сообщить("*" + СокрЛП(ИсходнаяСтрока) + "*"); //Результат: //*Строка с пробелами*
Сокрлп 1с функция что делает
выгружаю в файл значения, полученный из ДокументУдЛичность, АдресПрописка в ЗиК и еще несколько значений
получаю методом глРазложить, после получения каждого значения делаю СокрЛП (Значение);
в файле в 2 местах в каждой строке в одном и том же месте огромнейший пробел симовлов на 40
фигня какая.
как исправить?
покажи программный код
(0) такое ощущение, что у тебя пробел не справа и слева, а посередине.
приведи само значение, кторое ты пытаешься сократить.
не можу скопипастить, лезут крякозябры
набью так, на очепятки внимания не обр, код работает кроем сокр ЛП
параметр=сотр.Документудличность;
документ-глРазложитьДокументудличность(параметр);
виддокумента=документ.получитьзначение(1);
//получаем значения от (1) до (5)
сокрлп(виддокумента);
//делаем скорлп всем 5 значениям
табзн.новаястрока();
табзн.виддокумента-виддокумента;
//заносим все знач в таблзн
текст=создатьобъект(«текст»);
файл=создатьобъект(«ФС»);
табзн.выбратьстроки();
пока табзн.получитьстроку()=1 цикл
текст.добавитьстроку(«»+виддокумента+»,»+следующее значение+»
//ну и так до конца
а те значения, которые нужно будет потом выгрузить в 1 (одну) ячейку, пишу не через запятую-разделитель, а: «+значение+» «+тожезначение+»
они через пробел пишутся в строку
потом уже записать файл
в 2 местах после одного и того же значения пробелы((
(3)сокрлп(виддокумента); .
СокрЛП — это функция, возвращаемый ей результат надо чему-нибудь присвоить
Когда копипастишь, а реестр в порядок не привел, при копи д.б. раскладка на кириллице.
А сокрлп(виддокумента); — это забавно.
интересно чтобы это значило?
а результат можешь привести?
(5) В ЗиКе все хранится в виде одной строки с разделителями-запятыми. И ВидДокумента там — строка «Паспорт России», «Паспорт моряка» и т.д.
(0) Не гони, все там работает правильно. Просто поле ДокументУд. очень большое, и к последнему элементу приписывается куча пробелов. СокрЛП() всегда помогает. Если нет, то попробуй вывести Сообщить(Прав(МояСтрока,1)), может у тебя там не пробел, а что-то еще. А лучше посмотри, как сделана стандартная обработка.
СокрЛП() в запросе или что все-таки возможно получить с помощью запросов
Недавно понадобилось в запросе получить значение строковых кодов справочника без концевых пробелов. Как вы знаете, в языке запросов нет ничего похожего на функцию СокрЛП(), как же быть? Можно, конечно, предварительно выполнить вспомогательный запрос, выгрузить его в таблицу значений, перебрать ее в цикле выполняя СокрЛП(), и затем передать обратно в нужный запрос в виде параметра (создать временную таблицу). Или, если максимальная длина строки, как в случае кода справочника, фиксирована можно написать в запросе громоздкую конструкцию из вложенных конструкций ВЫБОР КОГДА. Но это неинтересно. Благо на глаза попалась статья ildarovich-а //infostart.ru/public/90367/. Оказалось, что с помощью временой таблицы с числами 0,1,2,3. можно получить много нетривиальных вещей в запросах. Далее несколько примеров. Сначала удаление начальных и конечных пробелов, аналог функции СокрЛП(). Заодно мы попутно получаем длину обрезанных строк. Идея очень простая: ищем первый пробельный символ после которого идет не пробел (учитываем, что первый же символ может быть не пробелом) и последний не пробел после которого идет пробел. Дополнительно тут используется, что выражение ПОДСТРОКА(СтрокаСПробелами, ЗначениеБольшеДлиныСтроки, 1) возвращает пустую строку, а при сравнении cтандарт SQL говорит, что строки, отличающиеся незначащими символами в хвосте не различаются. В языке запросов 1С сравнение происходит точно так-же. Т.е. для запроса «» = » «.
// Вспомогательный порождающий запрос ВЫБРАТЬ 0 КАК Х ПОМЕСТИТЬ Регистр1 ОБЪЕДИНИТЬ ВЫБРАТЬ 1; ВЫБРАТЬ Младшие.Х + 2 * Старшие.Х КАК Х ПОМЕСТИТЬ Регистр2 ИЗ Регистр1 КАК Старшие, Регистр1 КАК Младшие; ВЫБРАТЬ Младшие.Х + 4 * Старшие.Х КАК Х ПОМЕСТИТЬ Регистр4 ИЗ Регистр2 КАК Старшие, Регистр2 КАК Младшие; ВЫБРАТЬ Младшие.Х + 16 * Старшие.Х КАК Х ПОМЕСТИТЬ Регистр8 ИЗ Регистр4 КАК Старшие, Регистр4 КАК Младшие; ВЫБРАТЬ Младшие.Х + 256 * Старшие.Х КАК Х ПОМЕСТИТЬ Регистр16 ИЗ Регистр8 КАК Старшие, Регистр8 КАК Младшие; // Создание таблицы с исходными строками, для тестирования ВЫБРАТЬ "1 " КАК СтрокаСПробелами ПОМЕСТИТЬ ИсходнаяТаблица ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ "22 " ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ "333 " ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ " 4 4 " ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ "5 555 " ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ " 666666 " ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ "7777777 " ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ " 88888888 " ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ "999999999"; // Непосредственно запрос обрезающий начальные и конечные пробелы и попутно получающий реальную длину строки ВЫБРАТЬ СтрокаСПробелами КАК СтрокаСПробелами, МАКСИМУМ(Цикл_2.Х + 1) КАК ПоследнийЗначащийСимвол, МИНИМУМ(Цикл_1.Х + 1) КАК ПервыйЗначащийСимвол ПОМЕСТИТЬ ПромежуточнаяТаблица ИЗ ИсходнаяТаблица ЛЕВОЕ СОЕДИНЕНИЕ Регистр16 КАК Цикл_1 ПО (ПОДСТРОКА(СтрокаСПробелами, Цикл_1.Х, 1) = " " И ПОДСТРОКА(СтрокаСПробелами, Цикл_1.Х + 1, 1) > " ") ИЛИ (Цикл_1.Х = 0 И ПОДСТРОКА(СтрокаСПробелами, Цикл_1.Х + 1, 1) > " ") ЛЕВОЕ СОЕДИНЕНИЕ Регистр16 КАК Цикл_2 ПО ПОДСТРОКА(СтрокаСПробелами, Цикл_2.Х + 1, 1) > " " И ПОДСТРОКА(СтрокаСПробелами, Цикл_2.Х + 2, 1) = " " СГРУППИРОВАТЬ ПО СтрокаСПробелами ; ВЫБРАТЬ ПОДСТРОКА(СтрокаСПробелами, ПервыйЗначащийСимвол, ПоследнийЗначащийСимвол - ПервыйЗначащийСимвол + 1) КАК СтрокаОбрезанная, ПоследнийЗначащийСимвол - ПервыйЗначащийСимвол + 1 КАК ДлинаСтроки ИЗ ПромежуточнаяТаблица
Теперь выполним разложение строки на слова, используя эту же идею: не пробельный символ, перед которым идет пробел, считаем началом слова, и к нему берем первый не пробельный символ, после которого идет пробел. Здесь в качестве «пробельных» символов введена вспомогательная таблица с несколькими разделителями. Т.е. мы выполняем разложение строки не по пробелам, а по заданным разделителям.
// Вспомогательный порождающий запрос ВЫБРАТЬ 0 КАК Х ПОМЕСТИТЬ Регистр1 ОБЪЕДИНИТЬ ВЫБРАТЬ 1; ВЫБРАТЬ Младшие.Х + 2 * Старшие.Х КАК Х ПОМЕСТИТЬ Регистр2 ИЗ Регистр1 КАК Старшие, Регистр1 КАК Младшие; ВЫБРАТЬ Младшие.Х + 4 * Старшие.Х КАК Х ПОМЕСТИТЬ Регистр4 ИЗ Регистр2 КАК Старшие, Регистр2 КАК Младшие; ВЫБРАТЬ Младшие.Х + 16 * Старшие.Х КАК Х ПОМЕСТИТЬ Регистр8 ИЗ Регистр4 КАК Старшие, Регистр4 КАК Младшие; ВЫБРАТЬ Младшие.Х + 256 * Старшие.Х КАК Х ПОМЕСТИТЬ Регистр16 ИЗ Регистр8 КАК Старшие, Регистр8 КАК Младшие; // Таблица разделителей слов ВЫБРАТЬ " " КАК Разделитель ПОМЕСТИТЬ Разделители ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ " " ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ ";" ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ ","; // Создание таблицы с исходной строкой для разложения ВЫБРАТЬ "Съешь еще этих французских булок" КАК СтрокаДляРазложения ПОМЕСТИТЬ ИсходнаяТаблица; // Получаем границы слов ВЫБРАТЬ Цикл_1.Х + 1 КАК НачалоСлова, МИНИМУМ(Цикл_2.Х + 1) КАК КонецСлова ПОМЕСТИТЬ ГраницыСлов ИЗ ИсходнаяТаблица ЛЕВОЕ СОЕДИНЕНИЕ Регистр16 КАК Цикл_1 ПО (ПОДСТРОКА(СтрокаДляРазложения, Цикл_1.Х, 1) В (ВЫБРАТЬ Разделитель ИЗ Разделители) ИЛИ Цикл_1.Х = 0) И ПОДСТРОКА(СтрокаДляРазложения, Цикл_1.Х + 1, 1) НЕ В (ВЫБРАТЬ Разделитель ИЗ Разделители) ЛЕВОЕ СОЕДИНЕНИЕ Регистр16 КАК Цикл_2 ПО ПОДСТРОКА(СтрокаДляРазложения, Цикл_2.Х + 1, 1) НЕ В (ВЫБРАТЬ Разделитель ИЗ Разделители) И ПОДСТРОКА(СтрокаДляРазложения, Цикл_2.Х + 2, 1) В (ВЫБРАТЬ Разделитель ИЗ Разделители) И Цикл_2.Х >= Цикл_1.Х СГРУППИРОВАТЬ ПО Цикл_1.Х ; // Исходя из полученных границ слов выполняем разложение строки ВЫБРАТЬ ПОДСТРОКА(СтрокаДляРазложения, НачалоСлова, КонецСлова - НачалоСлова + 1) ИЗ ИсходнаяТаблица, ГраницыСлов
Решето Эратосфена, выдающее таблицу простых чисел
// Вспомогательный порождающий запрос ВЫБРАТЬ 0 КАК Х ПОМЕСТИТЬ Регистр1 ОБЪЕДИНИТЬ ВЫБРАТЬ 1; ВЫБРАТЬ Младшие.Х + 2 * Старшие.Х КАК Х ПОМЕСТИТЬ Регистр2 ИЗ Регистр1 КАК Старшие, Регистр1 КАК Младшие; ВЫБРАТЬ Младшие.Х + 4 * Старшие.Х КАК Х ПОМЕСТИТЬ Регистр4 ИЗ Регистр2 КАК Старшие, Регистр2 КАК Младшие; ВЫБРАТЬ Младшие.Х + 16 * Старшие.Х КАК Х ПОМЕСТИТЬ Регистр8 ИЗ Регистр4 КАК Старшие, Регистр4 КАК Младшие; ВЫБРАТЬ Младшие.Х + 256 * Старшие.Х КАК Х ПОМЕСТИТЬ Регистр16 ИЗ Регистр8 КАК Старшие, Регистр8 КАК Младшие; // Решето Эратосфена, на выходе получаем таблицу всех простых чисел меньших 65536 + 2 ВЫБРАТЬ Регистр4.Х + 2 КАК Х ПОМЕСТИТЬ Решето4 ИЗ Регистр4 ЛЕВОЕ СОЕДИНЕНИЕ Регистр2 ПО Регистр4.Х > Регистр2.Х + 1 И (Регистр4.Х + 2) / (Регистр2.Х + 2) = ВЫРАЗИТЬ((Регистр4.Х + 2) / (Регистр2.Х + 2) КАК Число(32)) ГДЕ Регистр2.Х ЕСТЬ NULL ; ВЫБРАТЬ Регистр8.Х + 2 КАК Х ПОМЕСТИТЬ Решето8 ИЗ Регистр8 ЛЕВОЕ СОЕДИНЕНИЕ Решето4 ПО Регистр8.Х + 1 > Решето4.Х И (Регистр8.Х + 2) / Решето4.Х = ВЫРАЗИТЬ((Регистр8.Х + 2) / Решето4.Х КАК Число(32)) ГДЕ Решето4.Х ЕСТЬ NULL ; ВЫБРАТЬ Регистр16.Х + 2 ПростоеЧисло ИЗ Регистр16 ЛЕВОЕ СОЕДИНЕНИЕ Решето8 ПО Регистр16.Х + 1 > Решето8.Х И (Регистр16.Х + 2) / Решето8.Х = ВЫРАЗИТЬ((Регистр16.Х + 2) / Решето8.Х КАК Число(32)) ГДЕ Решето8.Х ЕСТЬ NULL
Степени двойки до 2^106, большие степени не помещаются в 32 знака (не разряда!) числа, которыми оперирует 1С
ВЫБРАТЬ 0 КАК Степень, 1 КАК Результат ПОМЕСТИТЬ Регистр1 ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ 1, 2; ВЫБРАТЬ РАЗЛИЧНЫЕ ПервыйСомножитель.Степень + ВторойСомножитель.Степень КАК Степень, ПервыйСомножитель.Результат * ВторойСомножитель.Результат КАК Результат ПОМЕСТИТЬ Регистр2 ИЗ Регистр1 КАК ПервыйСомножитель, Регистр1 КАК ВторойСомножитель; ВЫБРАТЬ РАЗЛИЧНЫЕ ПервыйСомножитель.Степень + ВторойСомножитель.Степень КАК Степень, ПервыйСомножитель.Результат * ВторойСомножитель.Результат КАК Результат ПОМЕСТИТЬ Регистр4 ИЗ Регистр2 КАК ПервыйСомножитель, Регистр2 КАК ВторойСомножитель; ВЫБРАТЬ РАЗЛИЧНЫЕ ПервыйСомножитель.Степень + ВторойСомножитель.Степень КАК Степень, ПервыйСомножитель.Результат * ВторойСомножитель.Результат КАК Результат ПОМЕСТИТЬ Регистр8 ИЗ Регистр4 КАК ПервыйСомножитель, Регистр4 КАК ВторойСомножитель; ВЫБРАТЬ РАЗЛИЧНЫЕ ПервыйСомножитель.Степень + ВторойСомножитель.Степень КАК Степень, ПервыйСомножитель.Результат * ВторойСомножитель.Результат КАК Результат ПОМЕСТИТЬ Регистр16 ИЗ Регистр8 КАК ПервыйСомножитель, Регистр8 КАК ВторойСомножитель; ВЫБРАТЬ РАЗЛИЧНЫЕ ПервыйСомножитель.Степень + ВторойСомножитель.Степень КАК Степень, ПервыйСомножитель.Результат * ВторойСомножитель.Результат КАК Результат ПОМЕСТИТЬ Регистр32 ИЗ Регистр16 КАК ПервыйСомножитель, Регистр16 КАК ВторойСомножитель; ВЫБРАТЬ РАЗЛИЧНЫЕ ПервыйСомножитель.Степень + ВторойСомножитель.Степень КАК Степень, ПервыйСомножитель.Результат * ВторойСомножитель.Результат КАК Результат ПОМЕСТИТЬ Регистр64 ИЗ Регистр32 КАК ПервыйСомножитель, Регистр32 КАК ВторойСомножитель; ВЫБРАТЬ РАЗЛИЧНЫЕ ПервыйСомножитель.Степень + ВторойСомножитель.Степень КАК Степень, ПервыйСомножитель.Результат * ВторойСомножитель.Результат КАК Результат ИЗ Регистр64 КАК ПервыйСомножитель, Регистр64 КАК ВторойСомножитель ГДЕ ПервыйСомножитель.Степень + ВторойСомножитель.Степень 107
Запрос, выполняющий точное вычисление квадратного корня числа в диапазоне 0 — 1 048 576, развитие запроса из статьи ildarovich-а (см. ссылку в начале), который вычислял целое значение квадратного корня.
// Вспомогательный порождающий запрос ВЫБРАТЬ 0 КАК Х ПОМЕСТИТЬ Регистр1 ОБЪЕДИНИТЬ ВЫБРАТЬ 1; ВЫБРАТЬ Младшие.Х + 2 * Старшие.Х КАК Х ПОМЕСТИТЬ Регистр2 ИЗ Регистр1 КАК Старшие, Регистр1 КАК Младшие; ВЫБРАТЬ Младшие.Х + 4 * Старшие.Х КАК Х ПОМЕСТИТЬ Регистр4 ИЗ Регистр2 КАК Старшие, Регистр2 КАК Младшие; ВЫБРАТЬ Младшие.Х + 16 * Старшие.Х КАК Х ПОМЕСТИТЬ Регистр8 ИЗ Регистр4 КАК Старшие, Регистр4 КАК Младшие; ВЫБРАТЬ Младшие.Х + 256 * Старшие.Х КАК Х ПОМЕСТИТЬ Регистр16 ИЗ Регистр8 КАК Старшие, Регистр8 КАК Младшие; // Для проверки создается таблица с различными значениями аргумента ВЫБРАТЬ 123456 КАК У ПОМЕСТИТЬ Аргументы ОБЪЕДИНИТЬ ВЫБРАТЬ 555555 ОБЪЕДИНИТЬ ВЫБРАТЬ 987654; // Вычисляем сначала целую часть (решение ildarovich-а) ВЫБРАТЬ У КАК У, МАКСИМУМ(Х) КАК Квадратный_корень_У, У - МАКСИМУМ(Х) * МАКСИМУМ(Х) КАК Дельта ПОМЕСТИТЬ ЦелаяЧастьКорня ИЗ Аргументы ЛЕВОЕ СОЕДИНЕНИЕ Регистр16 ПО (Х * Х = У) СГРУППИРОВАТЬ ПО У; // Продолжение запроса, вычисляющее дополнительные знаки после запятой // Вспомогательная таблица для уменьшения количества делений ВЫБРАТЬ Х КАК Х, Х/65536 КАК Дробь ПОМЕСТИТЬ Дроби16 ИЗ Регистр16; // Теперь уточним значение с точностью до 1/65536 ВЫБРАТЬ У КАК У, Квадратный_корень_У + МАКСИМУМ(Дробь) КАК Квадратный_корень_У, У - (Квадратный_корень_У + МАКСИМУМ(Дробь)) * (Квадратный_корень_У + МАКСИМУМ(Дробь)) КАК Дельта ПОМЕСТИТЬ Приближение1 ИЗ ЦелаяЧастьКорня ЛЕВОЕ СОЕДИНЕНИЕ Дроби16 ПО ((Квадратный_корень_У + Дробь) * (Квадратный_корень_У + Дробь) = У) СГРУППИРОВАТЬ ПО У, Квадратный_корень_У; // Вспомогательная таблица для уменьшения количества делений ВЫБРАТЬ Х КАК Х, Дробь/65536 КАК Дробь ПОМЕСТИТЬ Дроби32 ИЗ Дроби16; // С точностью до 1/4294967296 ВЫБРАТЬ У КАК У, Квадратный_корень_У + МАКСИМУМ(Дробь) КАК Квадратный_корень_У, У - (Квадратный_корень_У + МАКСИМУМ(Дробь)) * (Квадратный_корень_У + МАКСИМУМ(Дробь)) КАК Дельта ПОМЕСТИТЬ Приближение2 ИЗ Приближение1 ЛЕВОЕ СОЕДИНЕНИЕ Дроби32 ПО ((Квадратный_корень_У + Дробь) * (Квадратный_корень_У + Дробь) = У) СГРУППИРОВАТЬ ПО У, Квадратный_корень_У; // Вспомогательная таблица для уменьшения количества делений ВЫБРАТЬ Х КАК Х, Дробь/65536 КАК Дробь ПОМЕСТИТЬ Дроби48 ИЗ Дроби32; // С точностью до 1/281474976710656 ВЫБРАТЬ У КАК У, Квадратный_корень_У + МАКСИМУМ(Дробь) КАК Квадратный_корень_У, У - (Квадратный_корень_У + МАКСИМУМ(Дробь)) * (Квадратный_корень_У + МАКСИМУМ(Дробь)) КАК Дельта ПОМЕСТИТЬ Приближение3 ИЗ Приближение2 ЛЕВОЕ СОЕДИНЕНИЕ Дроби48 ПО ((Квадратный_корень_У + Дробь) * (Квадратный_корень_У + Дробь) = У) СГРУППИРОВАТЬ ПО У, Квадратный_корень_У; // Вспомогательная таблица для уменьшения количества делений ВЫБРАТЬ Х КАК Х, Дробь/65536 КАК Дробь ПОМЕСТИТЬ Дроби64 ИЗ Дроби48; // С точностью до 1/18446744073709551616 ВЫБРАТЬ У КАК У, Квадратный_корень_У + МАКСИМУМ(Дробь) КАК Квадратный_корень_У, У - (Квадратный_корень_У + МАКСИМУМ(Дробь)) * (Квадратный_корень_У + МАКСИМУМ(Дробь)) КАК Дельта ИЗ Приближение3 ЛЕВОЕ СОЕДИНЕНИЕ Дроби64 ПО ((Квадратный_корень_У + Дробь) * (Квадратный_корень_У + Дробь) = У) СГРУППИРОВАТЬ ПО У, Квадратный_корень_У