Изучение нового материала:. if <условие> then. lt;дейстрие_1>. lt;действие_2>;. if <условие> then. lt;действие_1>;

1. Изучение нового материала:

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

if <условие> then

<дейстрие_1>

else

<действие_2>;

Условный оператор работает по следующему алгоритму: Сначала проверяется условное выражение <условие>. Если условие верно, то выполняется действие <действие__1>, а <действие_2> пропускается. Но если условие ложно, то будет выполняться действие <действие_2>, следующий за словом else. Такой условный оператор называется условным оператором полного ветвления.

Блок-схема:

Альтернативная ветвь else может отсутствовать, если в ней нет необходимости. В таком «усеченном» условном операторе в случае невыполнения условия ничего не происходит, и выполняется действие, следующий за условным. Такой условный оператор называется условным оператором неполного ветвления:

if <условие> then

<действие_1>;

Блок-схема:

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

if <условие> then

begin

<действие_1>;

<действие_2>;

…

<действие_n>

end

else

begin

<действие_1>;

<действие_2>;

…

<действие_n>

end;

2. Разбор задач:

1) Ввести 2 числа, вывести максимальное.

Program Maximum;

var a.b: Real;

BEGIN

write(‘Ввести 2 числа');

readln(a,b);

If a>b then

write('максимальное=',а)

Else

write('максимальное=',b);

readln;

END.

2) Ввести число. Определить, является ли число четным.

Program Chetnost;

var a: Integer;

BEGIN

write(‘Ввести число');

readln(a);

If a mod 2=0 then

write('число четное')

Else

write('число нечетное');

readln;

END.

3) Ввести число. Определить, оканчивается ли число на цифру 7.

Program Chislo;

var a: Integer;

BEGIN

write(‘Ввести число');

readln(a);

If a mod 10=7 then

write('число оканчивается на 7')

Else

write('число не оканчивается на 7');

readln;

END.

4) Ввести 2 числа. Вывести их в порядке убывания.

Program Poriadoc;

var a.b: Real;

BEGIN

write(‘Ввести 2 числа');

readln(a,b);

If a>b then

write(а, b)

Else

write(b, a);

readln;

END.

3. Решить задачи самостоятельно:

1) Ввести 2 числа. Вывести их в порядке возрастания.

2) Ввести число. Определить, оканчивается ли число на цифру 1.

3*) Ввести 3 числа. Вывести наименьшее из них.

4. Домашнее задание:

1) Ввести число. Определить, кратно ли оно 5.

2) Ввести число. Определить, положительно оно или отрицательно.