Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Возвращаемое значение функции 
V
    Опции темы
C4EBA
Дата 6.9.2011, 10:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 62
Регистрация: 13.4.2009

Репутация: нет
Всего: 1



Добрый день!

Код

  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.
PM   Вверх
Keeper89
Дата 6.9.2011, 10:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58



Цитата(C4EBA @  6.9.2011,  10:50 Найти цитируемый пост)
Вопрос: как должен выглядеть код функции, чтобы не было Warning?

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


--------------------
PM MAIL WWW   Вверх
14SatanA88
Дата 6.9.2011, 10:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 393
Регистрация: 13.5.2010

Репутация: нет
Всего: 5



Цитата(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 

Это сообщение отредактировал(а) 14SatanA88 - 6.9.2011, 11:00
PM MAIL ICQ   Вверх
C4EBA
Дата 6.9.2011, 11:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 62
Регистрация: 13.4.2009

Репутация: нет
Всего: 1



В первый 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) ?


PM   Вверх
Keeper89
Дата 6.9.2011, 11:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58



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

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


--------------------
PM MAIL WWW   Вверх
C4EBA
Дата 6.9.2011, 11:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 62
Регистрация: 13.4.2009

Репутация: нет
Всего: 1



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 (исключил возможность отрицательного числа в логарифме).  

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

Это сообщение отредактировал(а) C4EBA - 6.9.2011, 13:46
PM   Вверх
Keeper89
Дата 6.9.2011, 14:17 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58



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

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


--------------------
PM MAIL WWW   Вверх
C4EBA
Дата 6.9.2011, 15:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 62
Регистрация: 13.4.2009

Репутация: нет
Всего: 1



"...Потому что это должна быть одна конструкция, а ты не слышишь."
Да слышу я, слышу 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;   

Еще раз спасибо за ответы.
PM   Вверх
rodnover
Дата 6.9.2011, 15:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 223
Регистрация: 7.4.2009

Репутация: 1
Всего: 10



А лучше в else Exception бросать, чтобы, если, вдруг, диапазон, всё-таки, не полный заметить это сразу.
PM MAIL   Вверх
bems
Дата 6.9.2011, 16:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88



Цитата(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




--------------------
Обижено школьников: 8
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.0494 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.