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

[AngelOfLove]

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

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

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

1 if {условия} then begin
2
3 {действие, выполняющееся при условии};
4
5 {действие, выполняющееся при условии};
6
7 end;

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

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

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

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

1 if {условия} then begin
2
3 {действие, выполняющееся при условии};
4
5 {действие, выполняющееся при условии};
6
7 end else begin
8
9 {действие, которое выполняется в противном случае};
10
11 {действие, которое выполняется в противном случае};
12
13 end;

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

1 if {условия} then {действие, выполняющееся при условии} else
2
3 {действие, которое выполняется в противном случае};
Теперь разберемся, как же задавать нам сами условия. Условия, как я уже говорил могут быть сложными, т.е. состоять из нескольких подусловий. Примеры условий:

1 if a>b then {если a численно больше b (только для численных переменных)};
2
3 if (a>b)or(c>d) then {если a численно больше b или c>d (только для численных переменных)};
4
5 if (a>b) then {если a численно больше b (только для численных переменных)};
6
7 if not(a>b) then {если не выполняется условие "a численно больше b" (только для численных переменных)};
8
9 if (a<>b) then {если a не равняется b (только для численных переменных)};
10
11 if str1=str2 then {если строка1 посимвольно равна строке2};
12
13 if str1<>str2 then {если не выполняется условие "строка1 посимвольно равна строке2"};
14
15 if str1<>str2 then {если не выполняется условие "строка1 посимвольно равна строке2"};
16
17 if str1='test' then {если строка1 посимвольно равна строке "test"};

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

1 if (a=b)and(c<0) then begin
2
3 if c+1>d-sin(e) then showmessage('test!') else c:=c+1;
4
5 h:=h+20;
6
7 end else x:=0;

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

 

[Dance]

I'm not sure what Delphi is or what language it is, but the title seems to be referring to an educational series in Russian. Can someone translate the thread title or summarize what it's about? Maybe we can learn something new.