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(‘Вам чуть-чуть не хватило до победы’);