Использование нескольких условий в цикле While в Pascal

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

В языке Pascal цикл While продолжает выполнять действие, пока условие истинно. Это означает, что если значение переменной e равно 0, цикл войдет в него. Когда значение, например, 1, цикл сможет выйти. Если вы хотите, чтобы цикл завершился при значении 0, вам нужно изменить цикл на цикл Until или проверить значение e внутри цикла и использовать инструкцию Break, или изменить условие на НЕ.

Ниже приведен пример кода на Object Pascal (Delphi), в котором используется цикл While с несколькими условиями:

program MultipleConditionsInWhileLoop;

uses
  SysUtils;

var
  e, i, mv, im: Integer;

begin
  i := 1;
  mv := 0;
  im := 1;
  e := 0;

  Write('Enter the number n°1: ');
  Readln(e);

  mv := e;

  while not ((e mod 5 = 0) and (e mod 2 = 0)) and e <> 0 do
  begin
    i := i + 1;
    Write('Enter the number n°', i, ': ');
    Readln(e);

    if mv < e then
    begin
      im := i;
      mv := e;
    end;
  end;

  Writeln('The largest of these numbers is ', mv, '.');
  Writeln('It is the number n°', im, '.');
end.

В данном примере цикл While продолжает выполняться, пока значение переменной e не будет равно 0 или не будет одновременно делиться на 5 и 2 без остатка. Если значение e равно 0, цикл завершится, так как условие не будет истинным. Если значение e не равно 0 и не удовлетворяет условию, цикл продолжит выполняться.

Если вы хотите, чтобы цикл завершился, когда значение e равно 0, вы можете изменить цикл While на цикл Repeat...Until, как показано в альтернативном ответе:

program MultipleConditionsInWhileLoop;

uses
  SysUtils;

var
  e, i, mv, im: Integer;

begin
  i := 1;
  mv := 0;
  im := 1;
  e := 0;

  Write('Enter the number n°1: ');
  Readln(e);

  mv := e;

  repeat
    i := i + 1;
    Write('Enter the number n°', i, ': ');
    Readln(e);

    if mv < e then
    begin
      im := i;
      mv := e;
    end;
  until ((e mod 5 = 0) and (e mod 2 = 0)) or (e = 0);

  Writeln('The largest of these numbers is ', mv, '.');
  Writeln('It is the number n°', im, '.');
end.

В этом примере цикл Repeat...Until будет продолжаться до тех пор, пока значение переменной e не будет равно 0 или не будет одновременно делиться на 5 и 2 без остатка. Как только условие будет истинным, цикл завершится.

В обоих примерах цикл продолжает выполняться, пока пользователь вводит числа, и находит максимальное число, введенное пользователем, а также номер этого числа.

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

В приведенном примере кода на Object Pascal (Delphi) используется цикл While, который продолжает выполняться, пока значение переменной e не станет равным 0 или не будет одновременно делиться на 5 и 2 без остатка. В то же время, цикл также ищет и выводит н

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

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

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