Функция выдает ошибку: "Return value of function 'Through' might be undefined"

@dpmkh · Регистрация: 06.10.2012

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

Привет Всем!
Вот написана функция :

Delphi

 
FUNCTION  Through( k, m :INTEGER; N_f :WORD) :WORD;    //  skvoznoy nomer uzla*
   BEGIN
      IF ((k <= N_f)  AND  (m <= N_f))  THEN
         IF  (m > k)  THEN Through :=  SQR(m+1)-k
                    ELSE  Through :=  SQR(k)+1+m  
      ELSE
         IF  (k > N_f)  AND  (m <= N_f)  THEN
             Through :=  SQR(N_f+1) + 2*(k-N_f-1)*N_f + k - N_f + m  
         ELSE  IF  (k <= N_f)  AND  (m > N_f)  THEN
                  Through := sqr(N_f+1) + 2*(m-N_f)*N_f + m - N_f - k   
           
   END; //........................................................  Through

В общем написал функцию но при запуске на делфи выдаёт ошибку :

Return value of function 'Through' might be undefined.

Подскажите пожалуйста где ошибка?

Вот ещё один вопрос свзанный с паскалем:

Xmax:= X_Node^[1];

Что означает это стрелочка вверх, если Xmax и X_Node это два массива.
Заранее спасибо.

Vovan-VE · 06.10.2012, 16:15

Сообщение от dpmkh

Return value of function 'Through' might be undefined.

Возвращаемое значение может быть не определено.
Если мы попадем в else на строке 7, а затем ни в один из if'ов (т.е. в else, которого нет в коде), то в результат функции Through так ничего и не будет присвоено.

06.10.2012, 16:19

Delphi

function Through(k, m : Integer; N_f : Word) : Word;    //  skvoznoy nomer uzla*
begin
  Result := 0;
  if (k <= N_f) and (m <= N_f) then
    if m > k then
      Result :=  SQR(m + 1) - k
    else
      Result := Sqr(k) + 1 + m  
  else if (k > N_f) and (m <= N_f) then
    Result :=  Sqr(N_f + 1) + 2 * (k - N_f - 1) * N_f + k - N_f + m  
  else if (k <= N_f) and (m > N_f) then
    Result := Sqr(N_f + 1) + 2 * (m - N_f) * N_f + m - N_f - k;
end;

^ - указатель.

@dpmkh · 06.10.2012, 16:26 **[ТС]**

Спасибо! понял а если вот я добавил строку, но опять ошибка:

Delphi

 FUNCTION  Through( k, m :INTEGER; N_f :WORD) :WORD;    //  skvoznoy nomer uzla*
   BEGIN
      IF ((k <= N_f)  AND  (m <= N_f))  THEN
         IF  (m > k)  THEN Through :=  SQR(m+1)-k
                    ELSE  Through :=  SQR(k)+1+m
      ELSE
         IF  ((k > N_f)  AND  (m <= N_f))  THEN
              Through :=  SQR(N_f+1) + 2*(k-N_f-1)*N_f + k - N_f + m
         ELSE  IF  ((k <= N_f)  AND  (m > N_f))  THEN
                  Through := sqr(N_f+1) + 2*(m-N_f)*N_f + m - N_f - k
            [COLOR="Red"]ELSE showmessage('  WRITELN(!!!  DISKRETNYE KOORDINATY - VNE OBLASTI  !!!)   ')[/COLOR]
   END; //........................................................  Through

Выдаёт ошибку :
[Error] Decl_U.pas(354): Undeclared identifier: 'showmessage'

Не подскажешь почему команду showmessage не воспринимает?

@volvo · 06.10.2012, 16:31

Сообщение от dpmkh

почему команду showmessage не воспринимает?

Потому что модуль Dialogs не подключен, или приложение вообще консольное.

Vovan-VE 13208 / 6597 / 1041 Регистрация: 10.01.2008 Сообщений: 15,069
	06.10.2012, 16:15	2
	Сообщение от dpmkh Return value of function 'Through' might be undefined. Возвращаемое значение может быть не определено. Если мы попадем в else на строке 7, а затем ни в один из if'ов (т.е. в else, которого нет в коде), то в результат функции Through так ничего и не будет присвоено. 0

@volvo Супер-модератор 32955 / 21273 / 8168 Регистрация: 22.10.2011 Сообщений: 36,542 Записей в блоге: 8
	06.10.2012, 16:31	5
	Сообщение от dpmkh почему команду showmessage не воспринимает? Потому что модуль Dialogs не подключен, или приложение вообще консольное. 0