Если булево выражение после слова If истинно, то оператор, следующий за словом Then будет выполнен. В противном случае, если присутствует часть Else, то будет выполнен оператор, следующий за словом Else.
Пример
(* Операторы If *) If (I) Or (I>Max) Then I:=0; If ParamCount<>2 Then Begin WriteLn(‘Неверные параметры командной строки’); Halt(1); End Else Begin ReadFile(ParamStr(1)); WriteFile(ParamStr(2)); End;
Источник: tpdn.ru
Вложенные операторы If в Pascal
Добрый день, товарищи! в сегодняшней публикации мы снова окунемся в конструкцию If , но на этот раз в ее более сложный вариант исполнения. Мы разберем не задачу, а пример программы, демонстрирующий работу оператора выбора в Pascal.
1. Пример кода и листинг
Так выглядит наш сегодняшний пример
Для того, чтобы вы могли попробовать работу этого кода я дам листинг (программистский термин, если коротко — то это просто код программы), пожалуйста скопируйте его в свое приложение Паскаля.
Уроки по Pascal (введение в программирование). Условие If
var a,b:integer;
write(‘Первое число: ‘);
write(‘Второе число: ‘);
if (a < 10) and (b >10) then
if (a < 5) or (b >15) then
writeln(‘Вариант 1. a < 5 ИЛИ b >15’)
writeln(‘Вариант 2. a < 10 И b >10’);
if (a = b) or ((a > 10) and (b < 10)) then
writeln(‘Вариант 3. а = b ИЛИ (а > 10 И b < 10)’)
writeln(‘Вариант 4. (а < 10 И b < 10) ИЛИ (а >10 И b > 10) И (a ≠ b)’);
Уже на скриншоте видно, что структура кода несколько сложнее наших предыдущих программ. Это не страшно, в коде не так сложно разобраться, и сейчас я поясню о нем более подробно.
2. Разбираемся, что происходит
Подразумевается, что код уже у вас перед глазами)
Объявляем две переменные, пользователь вводит их. А вот далее начинаются условия. Эта программа состоит из главного If а так же вложенного условия, давайте посмотрим, как программа будет работать.
Первые два варианта
Здесь мы задаем условие для введенных пользователем чисел. Предположим он вводит 3 и 14. Первая конструкция If выполняется, так как 3 меньше 10 И 14 больше 10.
Смотрим дальше — a у нас равняется 3, 3 меньше 5, условие верно. Но b равна 14, а это меньше 15. Вывод — условие не выполняется, так? Нет, не так. В этих конструкциях присутствуют логические операции И и ИЛИ, и если в первом случае необходимо, чтобы верны были оба условия первого If ‘a, в случае же операции ИЛИ необходимо чтобы хотя бы одно условие выполнялось, что и делает (b > 15).
Вариант первый. а = 3, b = 14
Синтаксические условности, такие как begin . end внутри Ифа, отсутствие точки с запятой перед else и условия конструкции, экранированные скобками разбирались в предыдущих статьях об операторе If , поэтому сейчас останавливаться на них я не буду. Вот ссылка на предыдущую статью, где подробнее написано об этом:
Если же второе условие не выполнится — нам выпадет второй вариант развития событий.
Например, если a = 6, b = 14
3. Вторая часть — else
Вторые два варианта
Если наш главный If оказался ложным — в дело вступает оператор else .
Первое условие будет выполнено, если а будет равно b :
Источник: dzen.ru
Условный оператор в Паскале – if then else
До рассмотрения данной темы в основном использовались линейные алгоритмы в Паскале, характерные для весьма простых задач, когда действия (операторы) выполняются последовательно, одно за другим. Более сложные алгоритмы предусматривают использование конструкция ветвления.
Блок-схема условного оператора:
Условный оператор в Паскале имеет следующий синтаксис:
| if условие then оператор ; |
if условие then оператор;
Полный вариант:
| if условие then оператор else оператор ; |
if условие then операторelse оператор;
Условный оператор в Паскале — if — служит для организации хода задачи таким образом, при котором изменяется последовательность выполнения операторов в зависимости от какого-либо логического условия. Логическое условие может принимать одно из двух значений: либо true (истина), либо false (ложь), соответственно, оно может быть либо истинным, либо ложным.
Составной оператор
Если при истинном условии необходимо выполнять несколько операторов, то их по правилам языка Pascal необходимо заключать в блок, начинающийся со служебного слова begin и заканчивающегося служебным словом end. Такой блок принято называть операторными скобками, а данную конструкцию — составным оператором:
Операторные скобки и составной оператор в Паскале:
| if логическое выражение then begin оператор 1 ; оператор 2 ; end else begin оператор 1 ; оператор 2 ; end ; |
if логическое выражение thenbegin оператор1; оператор2;endelsebegin оператор1; оператор2;end;
Перевод с английского оператора условия облегчит понимание его использования:
| IF | THEN | ELSE |
| ЕСЛИ | ТО | ИНАЧЕ |
В условии (в логическом выражении) используются операторы отношения.
Рассмотрим список операторов отношения Паскаля:
- больше >
- меньше
- больше или равно в Pascal >=
- меньше либо равно в Pascal
- сравнение в Pascal =
- не равно в Pascal
Пример: найти наибольшее из двух чисел
Подробно разобраться в работе условного оператора в Паскале можно, просмотрев видеоурок:
Пример:
вычислить значение переменной
по одной из двух ветвей
Показать решение:
| 1234567891011 | var x , y : real ; begin writeln ( ‘введите х’ ) ; read ( x ) ; if x> 0 then y : = ln ( x ) else y : = exp ( x ) ; writeln ( ‘y=’ , y : 6 : 2 ) end . |
Обратите внимание на то, как в данном примере выводится y. При выводе переменных типа real в pascal, можно использовать так называемый форматированный вывод, или запись с двумя двоеточиями:
y:6:2
– цифра после первого двоеточия (6) указывает на то, сколько знаков будет занимать число при выводе на экран
– цифра после второго двоеточия (2) указывает на то, сколько знаков после запятой вещественного числа будет выводиться
Таким образом, использование такой записи в pascal практически позволяет выполнить округление до сотых, тысячных и т.п.
Задача 0.
Вычислить значение переменной
по одной из двух ветвей:
Задача 1. В компьютер вводятся два числа. Если первое больше второго, то вычислить их сумму, иначе – произведение. После этого компьютер должен напечатать результат и текст ЗАДАЧА РЕШЕНА
Задача 2. Дракон каждый год отращивает по три головы, но после того, как ему исполнится 100 лет – только по две. Сколько голов и глаз у дракона, которому N лет?
Логические операции в Паскале (в логическом выражении)
Когда необходимо использовать двойное условие в Pascal, то понадобятся логические операции.
- Логическая операция AND (И), поставленная между двумя условиями, говорит о том, что должны выполняться сразу оба эти условия (должны быть истинными). Логический смысл операции – “конъюнкция”.
- Поставленный между двумя условиями, знак OR (ИЛИ) говорит о том, что достаточно, если будет выполняться хотя бы одно из них (одно из двух условий истинно). Логический смысл операции – “дизъюнкция”.
- На языке Паскаль XOR – знак логической операции, имеющий смысл “строгая дизъюнкция” и указывающий на то, что необходимо, чтобы одно из двух условий выполнялось (истинно), а другое – не выполнялось (ложно).
- Логическая операция NOT перед логическим выражением или переменной имеет смысл “отрицание” или “инверсия” и указывает на то, что если данная переменная или выражение истинны, то их отрицание — ложь и наоборот.
Важно: Каждое из простых условий обязательно заключать в скобки.
Пример: Рассмотрим примеры логических операций в логических выражениях в Паскале
| 12345678 | var n : integer ; begin n : = 6 ; if ( n> 5 ) and ( n < 10 ) then writeln ( ‘истина’ ) ; if ( n>7 ) or ( n < 10 ) then writeln ( ‘истина’ ) ; if ( n>7 ) xor ( n < 10 ) then writeln ( ‘истина’ ) ; if not ( n>7 ) then writeln ( ‘истина’ ) ; end . |
Пример: Компания набирает сотрудников от 25 до 40 лет включительно. Ввести возраст человека и определить, подходит ли он для данной компании (вывести ответ «подходит» или «не подходит»).
Особенность: надо проверить, выполняются ли два условия одновременно.
Пример: Дано целое число A. Проверить истинность высказывания: «Число A является нечетным».
Открыть решение:
| 1234567891011 | var a , b : integer ; begin write ( ‘Введите A: ‘ ) ; read ( a ) ; b : = a mod 2 ; if b> 0 then writeln ( ‘true’ ) else writeln ( ‘false’ ) end . |
var a,b: integer;begin write(‘Введите A: ‘); read(a); b := a mod 2; if b>0 then writeln(‘true’) else writeln (‘false’)end.
Задача 3. Дано целое число A. Проверить истинность высказывания: «Число A является положительным».
Задача 4. Человек вводит в компьютер число. Если оно находится в интервале от 28 до 30, то нужно напечатать текст ПОПАЛ, если оно больше или равно 30 – то ПЕРЕЛЕТ, если оно находится на отрезке от 0 до 28, то НЕДОЛЕТ, если число меньше нуля — НЕ БЕЙ ПО СВОИМ
Предварительный просмотр:
Бланк решения задачи.
Учени____ 8 класса ___ ___________________________________
Условие (с использованием условного оператора)
Исходные данные _ _ _ _ _ _ _ _ _ _ _ _ Тип _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
Результат _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ Тип _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
Промежуточные переменные _ __ _ _ _ _ _ Тип _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
- Алгоритм: (оформить в виде блок-схемы на обороте листа)
- Программа:
Источник: vkspy.info