Реализация диапазонов

@yupee · Регистрация: 18.07.2012

Author24 — интернет-сервис помощи студентам

Здравствуйте форумчани!
Поискал в интернете, ничего дельного не нашел. Можно ли реализовать подобное с помощью case? или как то уменьшить объем кода?

Delphi

  if (Kf>0) and (Kf<0.00696) then
    Result:=15
  else
  if (Kf>0.00696) and (Kf<0.02014) then
    Result:= 25
  else
  if (Kf>0.02014) and (Kf<0.04058) then
//и так далее, всего около 15 значений

@Alex_pac · 31.07.2012, 11:58

Delphi

function mlogik (var Kf: double; defresult, min,max : double):boolean;
begin
  result:=false;
  if (Kf>min) and (Kf<max) then begin
   result:=true;
   Kf:=defresult;
  end;
end;
 
//// bla bla
 
mlogik(Kf,15,0,0.00696);
mlogik(Kf,25,0.00696,0.02014);
mlogik(Kf,35,0.02014,0.04058);

@Puporev · 31.07.2012, 12:12

Никак ты это не уменьшишь, case с вещественными числами не работает, да и уменьшение не очень уж заметное.
Можно сделать массивы интервалов и значений, тогда все будет в одном цикле.

@yupee · 31.07.2012, 12:51 **[ТС]**

Спасибо за ответы.

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	31.07.2012, 12:12	3
	Никак ты это не уменьшишь, case с вещественными числами не работает, да и уменьшение не очень уж заметное. Можно сделать массивы интервалов и значений, тогда все будет в одном цикле. 0

@yupee 0 / 0 / 0 Регистрация: 18.07.2012 Сообщений: 15
	31.07.2012, 12:51 [ТС]	4
	Спасибо за ответы. 0