Добрый день!
Столкнулся с простой проблемой, но не могу найти, нужна функция выбора минимального числа из трёх, типа как МИН(а,в,с)
Наименьшее число из трёх
Страница: 1
Сообщений 1 страница 5 из 5
Поделиться225.05.2011 15:59:53
kirillovss написал(а):
Столкнулся с простой проблемой, но не могу найти, нужна функция выбора минимального числа из трёх, типа как МИН(а,в,с)
ОПА! Не уж то и на Пурике началось? Надеюсь, что это не задание преподавателя и всё ещё не так безнадежно?
Код:
Procedure FunMin (A,B,C) Min=A If B<Min:Min=B :EndIf If C<Min:Min=C :EndIf ProcedureReturn Min EndProcedure ; Проверка Debug FunMin (5,-100,1)
Умышленно не объявляю типы переменных - по умолчанию в 5-й версии integer, но думаю уж тут то проблемы не будет?
Поделиться325.05.2011 16:02:02
- Активный участник
- Зарегистрирован: 02.02.2010
- Приглашений: 0
- Сообщений: 306
- Уважение: [+1/-0]
- Позитив: [+0/-0]
- Провел на форуме:
9 дней 5 часов - Последний визит:
27.04.2013 21:06:20
Следующий вопрос наверно будет:
Найти сумму всех натуральных чисел диагонали матрицы 5x5... 
Отредактировано mirashic (25.05.2011 16:36:21)
Поделиться425.05.2011 16:27:14
mirashic написал(а):
Найти сумму всех натуральных чисел диагонали матрицы 5x5...
Поделиться525.05.2011 23:27:13
- Активный участник
- Зарегистрирован: 25.09.2010
- Приглашений: 0
- Сообщений: 126
- Уважение: [+0/-0]
- Позитив: [+1/-0]
- Провел на форуме:
2 дня 16 часов - Последний визит:
07.05.2012 00:38:36
жжёте
Страница: 1