Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Возвращаемое значение функции

Автор: C4EBA 6.9.2011, 10:50

Добрый день!

Код


  function Kns(const ARvn, A_S: double): double;
   var
    R_S: double;
   begin
      R_S:=ARvn/A_S;
    if (R_S>=0.1) and (R_S<= 0.8) then
     Result:=0.1239*R_S+0.3151;
    if (R_S>0.8) and (R_S<=4) then
    Result:=0.0024*(R_S*R_S*R_S)-0.025*(R_S*R_S)+0.0903*R_S+0.353;
    if (R_S>4) and (R_S<=10) then
     Result:=0.0329*LN(R_S)+0.4235;
    if (R_S>10) then
     Result:=0.5;
   end;

Компилятор выдает Warning:

...W1035 Return value of function 'Kns' might be undefined

которое я понял как "Возвращаемое значение функции 'Kns' может быть неопределеным".
Постарался исключить неопределенность (так, как я ее понимаю):
- заменил ARvn/A_S на ARvn+A_S (исключил возможность деления на ноль). Не помогло. Вернулся к исходному коду
- заменил LN(R_S) на R_S (исключил возможность отрицательного числа в логарифме). Не помогло. Вернулся к исходному коду
- убрал все if-ы, кроме первого, и дополнил его else, куда вписал произвольный Result. Компилятор "успокоился". Но понятно, что в таком виде функция не выполняет свою задачу
Вопрос: как должен выглядеть код функции, чтобы не было Warning?
Среда разработки - Delphi XE.

Автор: Keeper89 6.9.2011, 10:54

Цитата(C4EBA @ 6.9.2011, 10:50

)

Вопрос: как должен выглядеть код функции, чтобы не было Warning?

Надо завершить if else с произвольным Result (каким оно может быть в остальных случаях), либо перед if поставить что-то типа Result := 0;

Автор: 14SatanA88 6.9.2011, 10:58

Цитата(C4EBA @ 6.9.2011, 10:50

)

Вопрос: как должен выглядеть код функции, чтобы не было Warning?

определи какое-нибудь дефолтное значение для результата, потому что компилятор не уверен, что в ходе выполнения программы выполнится какое-либо условие.

например:

Код


  function Kns(const ARvn, A_S: double): double;
   var
    R_S: double;
   begin
      R_S:=ARvn/A_S;
Result:=0; // результат по умолчанию
    if (R_S>=0.1) and (R_S<= 0.8) then
     Result:=0.1239*R_S+0.3151;
    if (R_S>0.8) and (R_S<=4) then
    Result:=0.0024*(R_S*R_S*R_S)-0.025*(R_S*R_S)+0.0903*R_S+0.353;
    if (R_S>4) and (R_S<=10) then
     Result:=0.0329*LN(R_S)+0.4235;
    if (R_S>10) then
     Result:=0.5;
   end;

теперь варнинга нет.

в общем-то уважаемый Keeper89 меня опередил smile

Автор: C4EBA 6.9.2011, 11:32

В первый if я ввел секцию else с произвольным, взятым "с потолка", значением в Result-е

Код


    if (R_S>=0.1) and (R_S<= 0.8) then
     Result:=0.1239*R_S+0.3151
     else
     Result:=12345;
    if ... ... ...
    ... ... ...

Теперь варнинга нет.
Попробовал вариант 14SatanA88. Также варнинга нет.

И теперь вопрос по этим двум вариантам: это значение Result-а (12345 в первом случае, 0 - в варианте 14SatanA88) может стать значением функции, только если R_S не будет попадать ни в один из диапазонов, указанных в четырех if-ах (то есть будет меньше 0.1) ?

Автор: Keeper89 6.9.2011, 11:46

Цитата(C4EBA @ 6.9.2011, 11:32

)

И теперь вопрос по этим двум вариантам: это значение Result-а (12345 в первом случае, 0 - в варианте 14SatanA88) может стать значением функции, только если R_S не будет попадать ни в один из диапазонов, указанных в четырех if-ах (то есть будет меньше 0.1) ?

Да. А еще лучше переделать все на else if, дабы видеть что это одна конструкция, а уже в конце поставить else.

Автор: C4EBA 6.9.2011, 11:58

14SatanA88: "...компилятор не уверен, что в ходе выполнения программы выполнится какое-либо условие...."

В начальном варианте функции это было действительно так: результат функции был определен только для значений от 0.1 до плюс бесконечности. Я добавил в код функции следующее:

1)

Код


     if (R_S<0.1) then
     Result:=12345;

2) опять заменил ARvn/A_S на ARvn+A_S (исключил возможность деления на ноль).
3) опять заменил LN(R_S) на R_S (исключил возможность отрицательного числа в логарифме).

Теперь результат функции определен для ВСЕХ значений от минус бесконечности до плюс бесконечности. Но варнинг все равно появляется. Выходит, не так уж и умен компилятор ;-)
------------
Спасибо за разъяснения, тему закрываю.

Автор: Keeper89 6.9.2011, 14:17

Цитата(C4EBA @ 6.9.2011, 11:58

)

Теперь результат функции определен для ВСЕХ значений от минус бесконечности до плюс бесконечности. Но варнинг все равно появляется. Выходит, не так уж и умен компилятор ;-)

Потому что это должна быть одна конструкция, а ты не слышишь.

Автор: C4EBA 6.9.2011, 15:51

"...Потому что это должна быть одна конструкция, а ты не слышишь."
Да слышу я, слышу smile

Имеется в виду следующее?

Код


 function Kns(const ARvn, A_S: double): double;
   var
    R_S: double;
   begin
      R_S:=ARvn/A_S;
    if (R_S>=0.1) and (R_S<= 0.8) then
    Result:=0.1239*R_S+0.3151
     else
      if (R_S>0.8) and (R_S<=4) then
      Result:=0.0024*(R_S*R_S*R_S)-0.025*(R_S*R_S)+0.0903*R_S+0.353
       else
        if (R_S>4) and (R_S<=10) then
        Result:=0.0329*LN(R_S)+0.4235
         else
          if (R_S>10) then
          Result:=0.5
           else
           Result:=12345; //у функции этого значения никогда не будет
   end;

Еще раз спасибо за ответы.

Автор: rodnover 6.9.2011, 15:57

А лучше в else Exception бросать, чтобы, если, вдруг, диапазон, всё-таки, не полный заметить это сразу.

Автор: bems 6.9.2011, 16:33

Цитата(rodnover @ 6.9.2011, 15:57

)

А лучше в else Exception бросать, чтобы, если, вдруг, диапазон, всё-таки, не полный заметить это сразу.

Да. А еще лучше Assert

Добавлено через 5 минут и 54 секунды

Цитата(C4EBA @ 6.9.2011, 11:58

)

2) опять заменил ARvn/A_S на ARvn+A_S (исключил возможность деления на ноль).
...
3) опять заменил LN(R_S) на R_S (исключил возможность отрицательного числа в логарифме).

совершенно лишнее, потому что в случае исключения твоя функция ничего не вернёт

Цитата(C4EBA @ 6.9.2011, 11:58

)

Выходит, не так уж и умен компилятор ;-)

правда, чтоли? smile