Разгадайте кроссворд
Высказывание — повествовательное предложение (утверждение), о котором можно сказать, истинно оно или ложно.
Условием для исполнителя является известное ему высказывание, которое может соблюдаться (быть истинным) либо не соблюдаться (быть ложным).
В языке программирования Pascal для работы с условиями определен логический тип данных boolean. Величины типа boolean могут принимать два значения — false (ложь) и true (истина).
Операции сравнения
Отрицания сложным логическим выражениям
С высказываниями можно производить логические операции (НЕ, И, ИЛИ). Для логических переменных также определены логические операции, соответствующие операциям над высказываниями: not, and, or.
Логические выражения, в которых наряду с простыми условиями (сравнениями) используются логические операции, называют составными условиями:
(a < b) and (c < d)
(а = 5) or (a = 6)
1) not;
2) *, /, div, mod, and;
3) +, −, or;
4) =, <>, <, >, <=, >=.
var x: integer;
a: boolean;
begin
write('Введите x =');
read(x);
a := x mod 2 = 0;
write('Число четное — ',a);
end.
Упражнение 1. Сформулируйте и реализуйте обратную задачу для примера 15.2: для всех тех случаев, для которых в исходной задаче было true, нужно вывести false и, наоборот, для всех тех случаев, в которых в исходной задаче получалось false, получить true.
Упражнение 2. В PascalABC определена логическая функция odd(x). Значение этой функции true, если число x является нечетным, и false, если х — четное. Измените программу примера 15.2, используя функцию odd.
var A, B, C: integer;
r1, r2, rez: boolean;
begin
writeln('Введите A, B, C');
read(A, B, C);
r1 := (A < B) and (B < C);
r2 := (A > B) and (B > C);
rez := r1 or r2;
write('Число B между числами
A и C — ',rez);
end.
1. Сформулируйте и реализуйте обратную задачу для примера 15.2: для всех тех случаев, для которых в исходной задаче было true, нужно вывести false и, наоборот, для всех тех случаев, в которых в исходной задаче получалось false, получить true.
2. В PascalABC определена логическая функция odd(x). Значение этой функции true, если число x является нечетным, и false, если х — четное. Измените программу примера 15.2, используя функцию odd.
3. Определите, что делают следующие программы, и дополните команду вывода.
var x: integer;
a: boolean;
begin
write('Введите x =');
read(x);
a := x mod 10 = 0;
write('Число ... — ',a);
end.
var x: integer;
a: boolean;
begin
write('Введите x =');
read(x);
a := (x>9) and (x < 100);
write('Число ... — ',a);
end.
4. Напишите программу, которая выведет на экран значение true или false, в зависимости от того, является ли введенное число x положительным или нет.
5. Напишите программу, которая выведет на экран значение true или false, в зависимости от того, является ли введенное число x четырехзначным или нет.
6. Заданы два положительных числа x и y. Определите, верно ли, что первое число меньше второго и хотя бы одно из них нечетное. Выведите на экран true или false.