Версия для печати темы (https://pro1c.org.ua/index.php?s=a09182a36245f9e05f0124eb68149a17&showtopic=38251)

Нажмите сюда для просмотра этой темы в обычном формате

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 _ Программирование обычных форм 1С 8.2 и не интерфейсной логики _ Самое длинное слово в строке

Автор: cao0603 27.06.17, 19:36

имеется массив слов,как найти самое длинное среди них, пожалуйста помогите

cao0603 @ Сегодня, 20:28 * ,
уже нашел решение,

МассивЧисел = Новый Массив(3);
МассивЧисел[0] = 234;
МассивЧисел[1] = 100;
МассивЧисел[2] = 54;

ИндексМаксимальногоЭлемента = -1;
ЗначениеМаксимальногоЭлемента = -Pow(2, 31); // Значение, заведомо меньшее любого элемента в массиве.

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

Если ИндексМаксимальногоЭлемента >= 0 Тогда
    Сообщить("Значение максимального элемента равно " +
        Строка(ЗначениеМаксимальногоЭлемента) +
        " . Его индекс в массиве равен " +
        Строка(ИндексМаксимальногоЭлемента)
    );
КонецЕсли;


если у кого то есть решение получше пишите, посмотрим

Автор: andr_andrey 28.06.17, 14:34

Цитата(cao0603 @ 27.06.17, 20:36) *
имеется массив слов

А в алгоритме
МассивЧисел = Новый Массив(3);
МассивЧисел[0] = 234;
МассивЧисел[1] = 100;
МассивЧисел[2] = 54;


Это какой-то - позор (с)

Автор: nik389 04.07.17, 20:59


 ! 

http://pro1c.org.ua/index.php?act=announce&id=2: 16
 

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua