Урок Pascal. Тип Boolean. Логічні операції

1. And, або кон'юнкція.
2. Or, або диз'юнкція.
3. Xor, або сувора диз'юнкція.
4. Not, або інверсія.
5. Завдання Boolean.

Наша взаимовыгодная связь https://banwar.org/

Привіт, дорогі читачі нашого сайту! Сьогодні, ми поговоримо про логічних змінних типу Boolean в Паскаль, логічних операціях і вирішимо п'ять завдань.

Для чого потрібна логіка в Паскаль? Ви, я сподіваюся, вже навчилися писати найпростіші лінійні програми, і зараз, напевно, задається питанням, як же написати нелінійну програму? Для того щоб програма була нелінійної в Паскалі, як і в інших мовах програмування, використовують логічні вирази, які приймають значення true або false. Тобто, на місце будь-якого відношення до Паскалі ставиться true або false. наприклад,

var A: integer; begin A: = 5; write (A> 0); {Буде виведено True.} End.

Список операторів відносини:

• більше:>
• менше: <
• більше або дорівнює:> =
• менше або дорівнює: <=
• одно: =
• нерівно: <>

Для того щоб записати результат логічного виразу, нам потрібна спеціальна змінна. Ця змінна буде мати тип boolean, вона може приймати два значення - true або false. Як створювати прості умова ви вже зрозуміли, але як створювати складні умови? Для цього використовуються спеціальні логічні операції: and, or, not і xor. Давайте розберемо кожну операцію окремо і складемо таблиці істинності. Приймемо за 1 - true, а за 0 - false.

And, або кон'юнкція.

Логічне множення, істинно тільки тоді, коли обидва простих висловлювань істинні.

Or, або диз'юнкція.

Істинно, якщо хоча б одне просте висловлювання істинно.

Xor, або сувора диз'юнкція.

Істинно, якщо рівно одне з двох простих висловлювань істинно.

Not, або інверсія.

Якщо висловлювання істинно, то його заперечення - брехня і навпаки.

Завдання Boolean.

Закріпимо отримані знання, вирішивши пару задачок.

Boolean1 °. Дано ціле число A. Перевірити істинність висловлювання: «Число A є позитивним».

program Boolean1; var a: integer; begin write ( 'Введіть число A:'); read (a); writeln ( 'Число A є позитивним -', a> 0); {Просте висловлювання.} End.

Boolean2. Дано ціле число A. Перевірити істинність висловлювання: «Число A є непарних».

Для того щоб дізнатися, чи є дане число непарних в Паскалі передбачена спеціальна функція Odd, яка повертає true, якщо число непарне і false, якщо число парне.

program Boolean2; var a: integer; b: boolean; begin write ( 'Введіть число A:'); read (a); b: = Odd (a); writeln ( 'Число A є непарних -', b); {Можна обійтися і без b} end.

Boolean3. Дано ціле число A. Перевірити істинність висловлювання: «Число A є парним».

Для того щоб дізнатися чи є число непарних, використовуємо вже відому нам функцію, потім інвертуємо результат.

program Boolean3; var a: integer; b: boolean; begin write ( 'Введіть число A:'); {6} read (a); b: = Odd (a); {False} writeln ( 'Число A є парним -', not b); {True} end.

Boolean7 °. Дано три цілих числа: A, B, C. Перевірити істинність висловлювання: «Число B знаходиться між числами A і C».

program Boolean7; var a, b, c: integer; b1, b2: boolean; begin write ( 'Введіть число A, B, C:'); read (a, b, c); b1: = (B> A) and (B <C); b2: = (B> C) and (B <A); {Треба враховувати обидва варіанти} writeln ( 'Число B знаходиться між числами A і C -', b1 or b2); end.

Boolean10 °. Дано два цілих числа: A, B. Перевірити істинність висловлювання: «Рівне одне з чисел A і B непарне».

Використовуємо xor.

program Boolean10; var a, b: integer; c: boolean; begin write ( 'Введіть число A, B:'); read (a, b); c: = (Odd (a)) xor (Odd (b)); {Скільки дужок 🙂} writeln ( 'Рівне одне з чисел A і B непарне -', c); end.

Boolean23. Дано чотиризначний число. Перевірити істинність висловлювання: «Дане число читається однаково зліва направо і справа наліво».

Використовуємо знання, отримані в цьому уроці.

Отже, дана задача перевіряє чи є введене чотиризначний число паліндромом. Напевно, найвідоміший паліндром - фраза Мальвіни: «А роза упала на лапу Азора.» (Спробуйте прочитати цю пропозицію справа наліво)

program Boolean23; var a, b, c, d, e, f: integer; b1, b2: boolean; begin write ( 'Введіть число чотиризначний число:'); read (e); a: = e div 1000; b: = e mod 1000 div 100; c: = e mod 100 div 10; d: = e mod 100 mod 10; f: = d * 1000 + c * 100 + b * 10 + a; writeln ( 'Дане число є паліндромом -', f = e); end.

На сьогодні все! Не забувайте періодично заходити до нас на сайт, підписуйтесь і клікайте по кнопках!