Исправление ошибки "goto to invalid target" в программе на Паскале

Delphi , Синтаксис , Циклы

В данной статье мы рассмотрим проблему, с которой вы можете столкнуться при написании программы на Паскале, и покажем, как исправить ошибку "goto to invalid target".

Проблема заключается в следующем коде:

PROGRAM RandomNumber;
Var rand, count, guess: integer;
LABEL correct, loop, wrong, end1;
begin
{Initialization, so that random numbers are drawn}
 Randomize;
 count := 0;
 repeat
 loop:
 count := count + 1;
{Random(i) Creates random numbers between 0 and i.}
 rand := Random(10);
 guess := Random(10);
 if rand = guess
 then
 goto correct
 else
 goto wrong;
 until count > 10;
 goto end1;
 correct:
 WriteLn('Correct');
 goto end1;
 wrong:
 WriteLn('False Guess');
 goto loop;
 end1:
 WriteLn;
end.

При компиляции этого кода в онлайн-компиляторе вы можете получить ошибку "goto to invalid target". Эта ошибка происходит из-за того, что метки, к которым осуществляется переход с помощью goto, не определены или находятся вне досягаемости.

Чтобы исправить эту ошибку, нужно правильно использовать метки и goto. Вот исправленный код:

PROGRAM RandomNumber;
Var rand, count, guess: integer;
begin
{Initialization, so that random numbers are drawn}
 Randomize;
 count := 0;
 repeat
 count := count + 1;
{Random(i) Creates random numbers between 0 and i.}
 rand := Random(10);
 guess := Random(10);
 if rand = guess
 then begin
 WriteLn('Correct');
 break;
 end
 else
 WriteLn('False Guess');
 until count > 10;
 WriteLn;
end.

В данном примере мы использовали цикл repeat-until вместо goto для управления потоком выполнения программы. Это более структурированный и читаемый подход, чем использование goto.

Если вам все же необходимо использовать goto, убедитесь, что метки определены и находятся в досягаемости. Также рекомендуется использовать goto только в крайних случаях, когда другие способы управления потоком выполнения не подходят.

В заключение, при написании программ на Паскале важно правильно использовать метки и goto, а также знать альтернативные способы управления потоком выполнения, чтобы писать чистый и эффективный код.

Создано по материалам из источника по ссылке.

В данной статье рассматривается проблема, связанная с ошибкой 'goto to invalid target' в программе на Паскале, и показывается, как исправить эту ошибку путем правильного использования меток и goto или альтернативных способов управления потоком выполнения,

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Циклы ::