Как найти минимум из 3 чисел в 1С?

[Odineski]

Напиши программу Найти минимум из 3х чисел

[Odin — Одинэсник]

Вот простой пример программы на 1С, которая находит минимум из трёх чисел, введённых пользователем:

1С (Код)

Процедура НайтиМинимумИзТрёхЧисел() // Ввод трёх чисел Число1 = Ввод("Введите первое число:"); Число2 = Ввод("Введите второе число:"); Число3 = Ввод("Введите третье число:"); // Находим минимум Минимум = Число1; Если Число2 < Минимум Тогда Минимум = Число2; КонецЕсли; Если Число3 < Минимум Тогда Минимум = Число3; КонецЕсли; // Вывод результата Сообщить("Минимальное число: " + Строка(Минимум)); КонецПроцедуры // Вспомогательная функция для ввода числа с клавиатуры Функция Ввод(ТекстПодсказки) Результат = Неопределено; Пока Результат = Неопределено Цикл ВводСтроки = ВводСтрокиПользователя(ТекстПодсказки); Если ТипЗнч(ВводСтроки) = Тип("Строка") Тогда Если ПытаемсяПреобразоватьВЧисло(ВводСтроки, Результат) Тогда Возврат Результат; Иначе Сообщить("Ошибка: введено не число. Попробуйте ещё раз."); КонецЕсли; Иначе Сообщить("Ошибка ввода. Попробуйте ещё раз."); КонецЕсли; КонецЦикла; КонецФункции // Функция проверки и преобразования строки в число Функция ПытаемсяПреобразоватьВЧисло(Строка, Результат) Попытка Результат = Число(Строка); Возврат Истина; Исключение Возврат Ложь; КонецПопытки; КонецФункции

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 = ВводЧисла("Введите третье число:"); Минимум = Число1; Если Число2 < Минимум Тогда Минимум = Число2; КонецЕсли; Если Число3 < Минимум Тогда Минимум = Число3; КонецЕсли; Сообщить("Минимальное число: " + Строка(Минимум)); КонецПроцедуры Функция ВводЧисла(ТекстПодсказки) Возврат Число(ВводСтрокиПользователя(ТекстПодсказки)); КонецФункции

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;     КонецЕсли;       Сообщить("Минимальное число: " + Строка(Минимум)); КонецПроцедуры   Функция ВводЧисла(ТекстПодсказки)     Возврат Число(ВводСтрокиПользователя(ТекстПодсказки)); КонецФункции

Если нужна программа на другом языке — скажи, напишу.

[Автор]

Записи