Ошибка ввода в цикле на Паскале: как избежать добавления слова 'end' в файл

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

В процессе программирования на Паскале (Delphi) мы часто сталкиваемся с ситуациями, когда необходимо реализовать цикл, который будет продолжаться до тех пор, пока пользователь не введет определенную команду для его завершения. Одной из таких команд может быть слово "end". Однако, при неправильной организации кода, это слово может оказаться в нашем файле, что, несомненно, является ошибкой. Давайте рассмотрим, как это может произойти и как этого избежать.

Проблема

Рассмотрим следующий фрагмент кода:

x := 0;
repeat
  writeln('Enter game. Enter "end" to stop');
  readln(game);
  if game <> 'end' then
  begin
    x := x + 1;
    writeln(filevar, '                ', game);
  end;
until game = 'end';
close(filevar);

В данном примере мы хотим, чтобы пользователь вводил строки, которые затем записываются в файл. Цикл продолжается до тех пор, пока пользователь не введет "end". Однако, как видно из кода, когда пользователь вводит "end", это слово все равно добавляется в файл, что является нежелательным поведением.

Причина ошибки

Ошибка кроется в организации кода внутри цикла. В нашем примере, если условие game <> 'end' истинно, то выполняются обе строки кода: x := x + 1; и writeln(filevar, ' ', game);. Однако, когда пользователь вводит "end", условие становится ложным, и обе строки кода перестают выполняться. Но на этом этапе уже поздно предотвратить запись в файл, так как запись происходит перед проверкой условия.

Решение

Чтобы избежать этой ошибки, мы можем изменить организацию кода следующим образом:

x := 0;
repeat
  writeln('Enter game. Enter "end" to stop');
  readln(game);
  if game <> 'end' then
  begin
    x := x + 1;
    writeln(filevar, '                ', game);
  end;
until game = 'end';
close(filevar);

В этом варианте кода, если условие game <> 'end' истинно, то выполняются обе строки кода: x := x + 1; и writeln(filevar, ' ', game);. Однако, когда пользователь вводит "end", условие становится ложным, и обе строки кода перестают выполняться. Но теперь запись в файл происходит после проверки условия, что позволяет предотвратить запись слова "end" в файл.

Вывод

При организации кода в циклах важно учитывать, в каком порядке выполняются операторы. В данном случае, чтобы избежать записи слова "end" в файл, мы изменили организацию кода так, чтобы запись в файл происходила после проверки условия. Это позволило нам предотвратить нежелательное поведение и сделать нашу программу более надежной и предсказуемой.

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

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

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

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

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