Логический тип данных

Переменные логического типа описываются посредством идентификатора Boolean. Они могут принимать только два значения: true (истина) и false (ложь).

Переменные логического типа получают значения в результате выполнения операций сравнения: <,<=,>,>=,=,≠.

В Паскале имеются 4 логические операции: отрицание –NOT, логическое умножение – AND, логическое сложение –OR, исключающее «или» - XOR. Результаты логических операций для различных значений операндов приведены в таблице. Использованы обозначения: T – true, F – false.

Приоритеты логических операций:

1) not; 2) and; 3) or; 4) xor.

Операции отношений (<, <=, >, >=, =, <>) имеют более низкий приоритет, чем логические операции, поэтому их следует заключать в скобки при использовании по отношению к ним логических операций.

Пример. Составить программу, по которой выведется значение true, если точка с заданными координатами (х,у) лежит внутри кругового кольца с центром в начале

координат, и false – в противном случае. Внутренний радиус кольца – r, внешний радиус – R.

Program Point;

Var x,y,Z: real; L: Boolean;

Begin

Writeln(‘Введите х: ‘); Readln(x);

Writeln(‘Введите y: ‘); Readln(y);

Z:= sqrt(sqr(x) + sqr(y));

L:= (Z >= r) and (Z <= R);

Writeln (‘ Точка лежит в заданной области? ‘, L);

Readln;

End.

Оператор ВЕТВЛЕНИЯ

Оператор ветвления (условный оператор) имеет следующий формат:

If < логическое выражение > then < оператор 1 > else < оператор 2 >;

Если логическое выражение, выступающее в качестве условия ветвления, принимает значение False, то выполняется оператор 2, если True – оператор 1.

Если в качестве оператора должна выполниться серия операторов, то они заключаются в операторные скобки Begin – End;

Неполная форма оператора ветвления:

If < логическое выражение > then < оператор >;

Задания:

3. 5 Оператор ВЫБОРА

Case K of

А1: <оператор 1>;

А2: <оператор 2>;

...

АN: <оператор N>

else <оператор N+1>

End;

Здесь К – выражение-селектор, которое может иметь только простой порядковый тип (целый, символьный, логический). А1,…,AN – константы тоже же типа, что и селектор, выполняющие роль меток ветвей. Исполнение оператора начинается с вычисления выражения К, полученное значение сравнивается с константами (метками) и выполняется соответствующий оператор. Если ни одна из меток не совпала со значением К, то выполняется оператор после слова else.

Возможно использование неполного оператора выбора без ветви else. Метки ветвей также могут быть заданы списком или интервалом.

Пример 3. В старояпонском календаре был принят двенадцатилетний цикл. Годы внутри цикла носили названия животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, петуха, собаки и свиньи. Написать программу, которая по номеру года определяет его название в старояпонском календаре, если известно, что 1996 г. был годом крысы – началом очередного цикла.

Решение

Поскольку цикл является двенадцатилетним, поставим в соответствии название года остатку от деления номера этого года на 12. При этом учтем, что остаток от деления 1996 на 12 равен 4.

Program Goroskop;

Var Year: integer;

Write(‘Введите год’); readln (Year);

case year mod 12 of

0: Writeln (‘год Обезьяны’);

1: Writeln (‘год Петуха’);

2: Writeln (‘год Собаки’);

3: Writeln (‘год Свиньи’);

4: Writeln (‘год Крысы’);

5: Writeln (‘год Коровы’);

6: Writeln (‘год Тигра’);

7: Writeln (‘год Зайца’);

8: Writeln (‘год Дракона’);

9: Writeln (‘год Змеи’);

10: Writeln (‘год Лошади’);

11: Writeln (‘год Овцы’);

End;

End.

Задания: