PascalОписать функции Min2(A,B) и Max2(A,B)2 вещественного типа, обретающие малое и
Pascal
Обрисовать функции Min2(A,B) и Max2(A,B)2 вещественного типа, находящие малое и максимальное из 2-ух вещественных чисел A и B.
Надежда Бурдукская
Писать, как это предлагается в учебниках, с внедрение условия "Если больше/меньше" - неправильно. Если есть возможность построения условия больше/меньше то и задачка написания функций MAX и MIN утрачивает всякий смысл. Для корректного алгоритма Паскаль не особо удобен, так как в нем нет функции Сигнум. Ее придется раздельно описывать, при этом без критерий на больше/меньше.
1 ответ
Левшаков
Даниил
Function max(a As Double, b As Double) As Double
Dim i, j, k, l As Integer
k = Sgn(a - b)
l = k * k
i = l * (l + k) / 2
j = l * (l - k) / 2
max = a * i + b * j
End Function
Function min(a As Double, b As Double) As Double
Dim i, j, k, l As Integer
k = Sgn(b - a)
l = k * k
i = l * (l + k) / 2
j = l * (l - k) / 2
min = a * i + b * j
End Function
Excel VBA
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
по шкале высот определить ,в каком направлении происходит понижение релефа уральских гор
География.
Помогите пожалуйста написать Сочинение Овчинникова "победитель'
Литература.
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести
Разные вопросы.
Я хочу найти решение и ответ для этой задачи и получить
Математика.
Здравствуйте
Меня зовут Виталий, я AdOps-аналитик компании Adfinity.pro
Заинтересовал ваш проект obrazovalka.com
Думаю сможем увеличить
Разные вопросы.
мне очень срочно нужно сочинение по рассказу экспонат номер по дной
Литература.
мне очень срочно нужно сочинение по рассказу экспонат номер по дной
Литература.
В семье из трех человек три электронных устройства: ноутбук, планшет и
Разные вопросы.
Жаркыраган кашка маш жаралгандан ашка маш табышмак жообу менен
Кыргыз тили.
За лето подруги прочитали 48 книг.Причем Оля прочитала в 3 раза
Математика.
Облако тегов