Составные условия». Опорный конспект

«Составные условия». Опорный конспект

Применение алгебры логики при создании составных условий

Конъюнкция	A ^ B	И	and	Обязательное выполнение всех условий
Дизъюнкция	A v B	ИЛИ	or	Выполнение хотя бы одного из условий
Отрицание		НЕ	not	Условие не должно выполняться

Операции сравнения

Сравнение	Название
=	Равно
<>	Не равно
>	Больше
<	Меньше
>=	Больше или равно
<=	Меньше или равно

Многократно вложенный условный оператор

if (условие 1) then

{Команда 1}

else

if (условие 2) then

{Команда 2}

else

if (условие 3) then

{Команда 3}

else

if(условие 4) then

{Команда 4}

else

…

else {Команда n};

Листинг «Месяц(решение с помощью условного оператора if)»

Задание:
Пользователь вводит в программу число – номер месяца. Вывести название месяца, количество дней, время года, сообщить? если месяц не является первым в году, сообщить если месяц не является последним в году.
Листинг:
program Number_of_month; var month : byte; begin write('Введите номер месяца: '); readln(month); if (month < 1) or (month > 12) then writeln('Вы ввели неправильный номер месяца!') else begin write('Названиемесяца:'); if month = 1 then writeln('Январь') else if month = 2 then writeln('Февраль') else if month = 3 then writeln('Март') else if month = 4 then writeln('Апрель') else if month = 5 then writeln('Май') else if month = 6 then writeln('Июнь') else if month = 7 then writeln('Июль') else if month = 8 then writeln('Август') else if month = 9 then writeln('Сентябрь') else if month = 10 then writeln('Октябрь') else if month = 11 then writeln('Ноябрь') elsewriteln('Декабрь'); write('Количество дней в месяце: '); if (month = 1) or (month = 3) or (month = 5) or (month = 7)or (month = 8) or (month = 10) or (month = 12) then writeln('31') else if (month = 4) or (month = 6) or (month = 9) or (month = 11) then writeln('30') else writeln('28 или 29'); write('Времягода: '); if (month >= 3) and (month <= 5) then writeln('Весна') else if (month >= 6) and (month <= 8) then writeln('Лето') else if (month >= 9) and (month <= 11) then writeln('Осень') else writeln('Зима'); if not (month = 1) then writeln('Это не первый месяц в году'); if not (month = 12) then writeln('Это не последний месяц в году'); end; end.
Тестирование программы:
Введите номер месяца: 4 Название месяца:Апрель Количество дней в месяце: 30 Время года: Весна Это не первый месяц в году Это не последний месяц в году	Введите номер месяца: 10 Название месяца: Октябрь Количество дней в месяце: 31 Время года: Осень Это не первый месяц в году Это не последний мсяц в году	Введите номер месяца: 1 Название месяца: Январь Количество дней в месяце: 31 Время года: Зима Это не последний месяц в году