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

7;

else

if n = 2 then

material :='Медь';

density := 8.9;

else

if n = 3 then

material :='Сталь';

density := 7.856;

else

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

density := 1.

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 (цикл с предусловием) в общем виде записывается так:

while условие do

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

// пока условие истинно

end;

Где:

условие – простое или сложное условие выполнения инструкций, находящихся между словами do и end.

Пример:

i := 1;

while i <= 10 do

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

Конец ознакомительного фрагмента.

Текст предоставлен ООО «ЛитРес».

Прочитайте эту книгу целиком, купив полную легальную версию (https://www.litres.