Pascal Next. Руководство программиста. Никита Борисович Культин

a[i] < a[i+1] then

      b:=a[i];

      a[i]:=a[i+1];

      a[i+1]:=b;

      end;

      Множественный выбор

      Множественный выбор (выбор одного действия из нескольких возможных) осуществляется при помощи вложенных инструкций if.

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

      if условие1 then

      // здесь инструкции, которые будут выполнены,

      // если условие1 истинно

      else

      if условие2 then

      // здесь инструкции, которые будут выполнены,

      // если уловие1 ложно, а условие2 истинно

      else

      if условие3 then

      // здесь инструкции, которые будут выполнены,

      // если условия условие1 и условие2 ложны, а условие3 истинно

      else

      // здесь инструкции, которые будут выполнены,

      // если ни одно из условий условие1, условие2 или условие3

      // НЕ выполняется

      end;

      end;

      end;

      Пример:

      if n = 1 then

      material :='Алюминий';

      density := 2.7;

      else

      if n = 2 then

      material :='Медь';

      density := 8.9;

      else

      if n = 3 then

      material :='Сталь';

      density := 7.856;

      else

      material :='Пластик';

      density := 1.9;

      end;

      end;

      end;

      Условие

      Условие это – выражение логического типа, которое может принимать одно из двух значений: Истина или Ложь.

      Различают простое и сложное условия.

Простое условие

      Простое условие в общем виде записывается так:

      op1 оператор_сравнения op2

      Где:

      op1 и op2 – сравниваемые операнды, в качестве которых могут выступать константы, переменные, функции или выражения.

      Операторы сравнения:

      = равно

      > больше

      >= больше или равно

      < меньше

      <= меньше или равно

      != не равно

      Примеры простых условий:

      a[i+1] < a[i]

      d != 0

      pos(' ', st) = 1

      name = 'simpson'

      Сложное условие

      Сложное условие в общем виде записывается так:

      усл1 логический_оператор усл2

      Где:

      усл1 и усл2 – выражения логического типа, в качестве которых могут выступать простые или сложные условия.

      Логические операторы:

      AND – логическое И

      OR – логическое ИЛИ

      NOT – логическое НЕ

      Примеры сложных условий:

      x >= x1 AND x <= x2

      NOT((x < x1) OR (x > x2))

      sum >=1000 and sum <10000

      name = 'Bart' OR name = 'Homer'

      Цикл for

      Инструкция цикла for в общем виде записывается так:

      for сч := start to finish do

      // инструкции, которые надо выполнить несколько раз

      end;

      Где:

      сч – счетчик циклов (переменная целого типа);

      start и finish – выражения целого типа (в