Readln(b)

Begin

Var

Begin

Else

End

Begin

Begin

Else

End

Begin

Логический тип данных. Логические выражения и логические операции.

Алгоритмы с разветвляющейся структурой. Оператор выбора IF.

End.

Begin

a:=m; //a=29

 

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

 

 

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

 

В качестве другого примера можно рассмотреть вопрос о том, правильно ли ввёл пользователь входные данные. Допустим, что введённое число должно быть строго положительным, а пользователь ввёл отрицательное число. Пусть это введённое число будет записываться в переменную х. В этом случае мы должны проверить, будет ли x>0. Если х>0, мы можем продолжать вычисления с этим введённым числом, ну а если x<0 или x=0, то нужно обратить на это внимание пользователя, выведя сообщение о том, что исходные данные введены неправильно, и попросить ввести верные исходные данные заново. Вот как будет выглядеть фрагмент такой программы:

 

Varx: integer;

Writeln(‘Введите первое число. Это число должно быть положительным’);

Readln(x);

Ifx<=0 thenwriteln(‘Вы ввели отрицательное или равное 0 число. Введите, пожалуйста, строго положительное число’);

Readln(x);

Как видим, для описания оператора ветвления мы используем структуру:

 

If логическое условие then операция;

 

Часто бывает необходимо выполнить некоторые действия и в том случае, если логическое условие будет неверным, то есть ложным. Например, пользователь вводит год своего рождения. Если этот год больше 1980, то мы записываем его в переменную a, а если меньше 1980 г., то в переменную b, но при этом незадействованным переменным нужно присвоить значение 0.

 

Ниже приведён фрагмент такой программы:

 

Var a,b,c: integer;

Writeln(‘Введите год вашего рождения’);

Readln(c);

If c>1980 then

a:=c;

b:=0;

b:=c;

a:=0;

end;

Как видим, в этом случае мы используем оператор else:

 

If логическое условие then оператор 1

 

Else оператор 2

 

Кроме того, в фрагменте выше операторы 1 и 2 представляют из себя последовательность действий, содержащую более одной операции. В таком случае необходимо использовать операторные скобки begin … end, которые как раз и обозначают нашу последовательность действий.

 

Получается, что оператор ifв этом случае становится таким:

 

If логическое условие then

 

Оператор 1;

Оператор 2;

Оператор n;

Оператор 1;

Оператор 2;

Оператор n;

End;

 

Обратите внимание, что перед словом else“;” не ставится!

 

Иногда бывает необходимо проверить что-то несколько раз подряд. Например, нам нужно узнать, больше ли введённый год рождения 1980 года и если он больше, то попросить пользователя ввести ещё и месяц своего дня рождения, и если этот месяц относится ко второй половине год (месяцы с 7 по 12), то вручить пользователю приз. Ну а если год рождения меньше 1934, то пользователь получит утешительный приз. В этом случае нам нужно использовать вложенные логические операторы:

 

a: word; //год рождения

b: 0..12; //месяц рождения (задан интервальным типом данных)

Writeln(‘Введите год своего рождения’);

Readln(a);

If a>1980 then

Writeln(‘Введите месяц рождения’);

Ifb>=7 thenwriteln(‘Вы получаете приз!’)

Elsewriteln(‘Вам чуть-чуть не хватило до победы’);