Pascal Уроки


Урок 7. Логика в Паскаль. Тип Boolean.
Июль 24, 2021 – 10:16
Язык программирования Паскаль

booleanЗдравствуйте, дорогие читатели нашего сайта! Сегодня, мы поговорим о логических переменных типа Boolean в Паскаль, логических операциях и решим пять задач.
Для чего нужна логика в Паскаль? Вы, я надеюсь, уже научились писать простейшие линейные программы, и сейчас, наверняка, задаетесь вопросом, как же написать нелинейную программу? Для того чтобы программа была нелинейной в Паскале, как и в других языках программирования, используют логические выражения, которые принимают значения true или false. То есть, на место любого отношения в Паскале ставится true или false. Например,

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

Список операторов отношения:

  • больше: >
  • меньше:
  • больше либо равно: >=
  • меньше либо равно: 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. Дано четырехзначное число. Проверить истинность высказывания: «Данное число читается одинаково слева направо и справа налево».

    Итак, данная задача проверяет является ли введенное четырехзначное число палиндромом. Наверняка, самый известный...

Source: learnpascal.ru
Похожие публикации