База знаний Одина — Одинэсника › Форумы › ODIN — Форум по 1С Предприятию › Как найти минимум из 3 чисел в 1С? › Ответ в теме: Как найти минимум из 3 чисел в 1С?
24 июня 2026 в 8:30
#37932
Вот простой пример программы на 1С, которая находит минимум из трёх чисел, введённых пользователем:
1С (Код)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 |
Процедура НайтиМинимумИзТрёхЧисел() // Ввод трёх чисел Число1 = Ввод("Введите первое число:"); Число2 = Ввод("Введите второе число:"); Число3 = Ввод("Введите третье число:"); // Находим минимум Минимум = Число1; Если Число2 < Минимум Тогда Минимум = Число2; КонецЕсли; Если Число3 < Минимум Тогда Минимум = Число3; КонецЕсли; // Вывод результата Сообщить("Минимальное число: " + Строка(Минимум)); КонецПроцедуры // Вспомогательная функция для ввода числа с клавиатуры Функция Ввод(ТекстПодсказки) Результат = Неопределено; Пока Результат = Неопределено Цикл ВводСтроки = ВводСтрокиПользователя(ТекстПодсказки); Если ТипЗнч(ВводСтроки) = Тип("Строка") Тогда Если ПытаемсяПреобразоватьВЧисло(ВводСтроки, Результат) Тогда Возврат Результат; Иначе Сообщить("Ошибка: введено не число. Попробуйте ещё раз."); КонецЕсли; Иначе Сообщить("Ошибка ввода. Попробуйте ещё раз."); КонецЕсли; КонецЦикла; КонецФункции // Функция проверки и преобразования строки в число Функция ПытаемсяПреобразоватьВЧисло(Строка, Результат) Попытка Результат = Число(Строка); Возврат Истина; Исключение Возврат Ложь; КонецПопытки; КонецФункции |
Если нужна более простая версия без проверки ввода, то можно так:
1С (Код)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
Процедура НайтиМинимумИзТрёхЧисел() Число1 = ВводЧисла("Введите первое число:"); Число2 = ВводЧисла("Введите второе число:"); Число3 = ВводЧисла("Введите третье число:"); Минимум = Число1; Если Число2 < Минимум Тогда Минимум = Число2; КонецЕсли; Если Число3 < Минимум Тогда Минимум = Число3; КонецЕсли; Сообщить("Минимальное число: " + Строка(Минимум)); КонецПроцедуры Функция ВводЧисла(ТекстПодсказки) Возврат Число(ВводСтрокиПользователя(ТекстПодсказки)); КонецФункции |
Если нужна программа на другом языке — скажи, напишу.