Pascal Next. Руководство программиста - страница 6

Шрифт
Интервал


// если условие выполняется (истинно)

end;


Пример:

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

b:=a[i];

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

a[i+1]:=b;

end;


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

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

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


ifусловие1then

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

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

else

ifусловие2then

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

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

else

ifусловие3then

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

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

else

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

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

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

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 – выражения целого типа (в простейшем случае – целые константы), определяющие, соответственно, начальное и конечное значение счетчика циклов.


Примеры:

for i:=1 to 10 do

writeln(i:2, ' Hello, World!');

end;


for i:=1 to n do

writeln(i:2, ' Hello, World!');

end;


Цикл

While

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