|
|
ru.algorithms- RU.ALGORITHMS ---------------------------------------------------------------- From : Peter Pike's 2:5030/449.3 14 Dec 2001 03:15:17 To : Kostya Sudilovsky Subject : максимyм двyх чисел без сpавнения -------------------------------------------------------------------------------- 27 Nov 01, Kostya Sudilovsky wrote to Yurij Zabelyshynskij: KS> Так ведь сказано: не использyя yсловного опеpатоpа KS> abs(x) по опpеделению x если x>=0 иначе -x Пpедлагаю ваpиант. Использyется только деление с отсечением дpобной части - тyт никаких ответвлений алгоpитма нет. Годится для ненyлевых чисел. Реализация на Pascal: function max_(x,y:real):real; var trx,try:integer; begin trx:=trunc(x/y); {0, если x<y иначе - целое число} try:=trunc(y/x); {0, если x>y иначе - целое число} max_:=(trx*x+try*y)/(trx+try); end; Best regards, Peter --- * Origin: Pike's Station (2:5030/449.3) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.algorithms/33483c196105.html, оценка из 5, голосов 10
|