Delphi для начинающих – Урок 7 – Условия. Оператор IF

Условия в языках программирования позволяют создавать сложные нелинейные алгоритмы, о которых и пойдет речь в этом уроке.Условия в программном коде Delphi/Pascal обозначаются специальными условными операторами if и case, без которых сейчас не обходится практически не одна программа. Условные операторы позволяют выполнять какие-либо действия при определенных условиях. Разберем непосредственно конструкцию простого условия:

 
1
 
if {условия} then {действие, выполняющееся при условии};
 

Как видите, сначала мы ставим оператор if , затем указывам условие или условия (их может быть несколько). Затем ставим оператор then и указываем действие, которое выполнится при указанном условии. Такая конструкция позволяет создавать несколько условий, однако позволяет создать только одно действие, выполняющееся при этом условии. После единственного действия мы как обычно ставим «;«.

 

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

 
1

2

3

4

5

6

7
 
if {условия} then begin



{действие, выполняющееся при условии};



{действие, выполняющееся при условии};



end;

Стоит учесть, что «;» ставиться только в конце оператора, т.к. служебные слова then и else входят в состав оператора if, и перед ним точка не ставиться.

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

Таким образом, между вложенными в условие операторами begin и end мы можем задавать несколько действий. Каждое действие оканчивается «;». После end в условии тоже ставится «;».

Существует также более сложная конструкция условий, которая позволяет задавать действия для такого случая, когда условия оператора if не выполняются:

1

2

3

4

5

6

7

8

9

10

11

12

13
 
if {условия} then begin



{действие, выполняющееся при условии};



{действие, выполняющееся при условии};



end else begin



{действие, которое выполняется в противном случае};



{действие, которое выполняется в противном случае};



end;

Также, если в условной конструкции нам нужно выполнить только одно действие, то справедлива следующая конструкция:

1

2

3
 
if {условия} then {действие, выполняющееся при условии} else



{действие, которое выполняется в противном случае};

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

 
1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17
 
if a>b then {если a численно больше b (только для численных переменных)};



if (a>b)and(a>c) then {если a численно больше b и численно больше c (только для численных переменных)};



if (a>b)or(c>d) then {если a численно больше b или c>d (только для численных переменных)};



if (a>b) then {если a численно больше b (только для численных переменных)};



if not(a>b) then {если не выполняется условие "a численно больше b" (только для численных переменных)};



if (a<>b) then {если a не равняется b (только для численных переменных)};



if str1=str2 then {если строка1 посимвольно равна строке2};



if str1<>str2 then {если не выполняется условие "строка1 посимвольно равна строке2"};



if str1='test' then {если строка1 посимвольно равна строке "test"};

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








 
 
1

2

3

4

5

6

7
 
if (a=b)and(c<0) then begin



if c+1>d-sin(e) then showmessage('test!') else c:=c+1;



h:=h+20;



end else x:=0;

В следующем уроке я расскажу вам об условном операторе case, который дает возможность создавать большое количество пар «условие-действие». Подписывайтесь на рассылку новых статей и уроков по электронной почте.

Категория: delphi 7 | Добавил: ghost_mod (14.09.2016)
Просмотров: 850 | Рейтинг: 0.0/0
Всего комментариев: 0
Имя *:
Email:
Подписка:1
Код *: