В нашей жизни часто бывают ситуации, когда нам нужно сделать какой-то выбор. Допустим, «если завтра будет солнечно, то мы пойдем на пляж, иначе — пойдем в кино». Так же и в программировании очень часто встречается необходимость выбора.
Давайте узнаем, как записывается условие в Паскале. Это конструкция if then else. Переведя на русский, получится если то иначе. Так вот, if (условие) then действие, если их несколько, то необходимо писать операторные скобки begin … end else после этого слова также, как и после then указываются операторы, но они будут выполняться, если условие ложно. Давайте рассмотрим конкретный пример, чтобы закрепить эти знания.
Допустим, что нам нужно определить, больше или меньше заданное число 0. Причем, возьмем формат входных данных — все числа, кроме 0, для простоты программы. В ней мы сначала объявляем переменную, которую будет вводить пользователь (х).Если число х > 0, то выводим, что оно положительное. Иначе выводим, что оно отрицательное.
program FirstUslovie; var x: longint; begin read(x); if x > 0 then write(‘Данное число больше нуля’) else write(‘Данное число меньше нуля’); end.
А теперь давайте усложним задачу тем, что нам нужно определить, какое введенное число: положительное, отрицательное или 0.
Условие if then else. Основы программирования. Паскаль. Урок №6.
Объявляем переменную, которую будет вводить пользователь. Проверяем условие. Если число х = 0, то выводим, что это ноль. Иначе если число х > 0, то выводим, что оно положительное. Иначе выводим, что оно отрицательное.
program SecondUslovie; var x: longint; begin read(x); if x = 0 then write(‘Данное число ноль’) else if x > 0 then write(‘Данное число положительное’) else write(‘Данное число отрицательное’); end.
Для этой программы, думаю, нужно сделать небольшое пояснение в том, что легче сначала проверить, равно ли заданное число нулю, если это не так, то дальше во вложенном условии проверить, положительное оно или отрицательное.
Далее пройдем такую вещь, как сложные условия, которые состоят из нескольких проверок, которые соединяются логическими операциями or, and, xor, not. Их я пояснять не буду, так как, надеюсь, что Вы знаете, когда они используются и когда они возвращают истину и ложь.
Так вот, давайте напишем программу, которая будет определять, является заданное число четным и положительным. Если данное число не удовлетворяет заданному условию, просто условимся вывести сообщение, что данное число нам не подходит, не будем разграничивать в выводе, что может быть неверно: четность или положительность.
В этой программе мы объявляем переменную, которую будет вводить пользователь. Считываем с клавиатуры данную переменную. Если число х > 0 и четное, то выводим соответствующее сообщение пользователю. Иначе выводим, что число нам не подходит.
program ThirdUslovie; var x: longint; begin read(x); if (x mod 2 = 0) and (x > 0) then write(‘Данное число положительное и четное’) else write(‘Данное число нам не подходит’); end.
Решим еще одну задачу, в которой нам нужно определить, подходит ли нам человек по своим внешним данным (росту и весу). Пусть эти параметры будут — рост больше 170 см , но меньше 200 см, и вес больше 70 кг и меньше 100 кг). Вот эта программа.
Программирование на Pascal. Условия (ветвление). Видеокурс
Объявляем 2 переменные рост и вес. Считываем входные данные. Далее в условии проверяем, если рост человека в пределах от 170 до 200, то также проверяем вес,иначе в обеих ветвях выводим, что нам человек не подходит.
program FourthUslovie; var rost, ves: real; begin write(‘Введите свой рост в см ‘); readln(rost); write(‘Введите свой вес в кг ‘); readln(ves); if (rost >= 170) and (rost 70) and (ves < 100) then write(‘Вы подходите’) else write(‘Вы не подходите’) else write(‘Вы не подходите’); end.
В качестве домашнего задания напишите программу, которая поможет покупателю определить, стоит ли ему покупать данный товар, пользователь вводит цену и вы должны вывести, что ему стоит покупать товар, если его цена от 20 до 40, иначе вывести, что ему не стоит покупать данный товар, а так же можете доработать программу о четности и положительности введенного числа, разграничьте вывод. Итак, на этом мы заканчиваем эту статью, успехов Вам в изучении программирования!
Источник: kvodo.ru
А что, если? If . then в Pascal
На этой картинке — язык PHP. По моему мнению крайне удобный язык для Веб разработок. Но не о нем, родимом, сейчас.
Добрый день товарищи! Сегодня я начну освещать самую объемную тему, по сравнению с тем что были на канале до этого. Оператор выбора If есть в множестве языков программирования, и везде оны выполняет крайне важную роль — выбор. С помощью If (Если) программа может пойти по одному пути своей работы, а может и по совершенно другому. Все это зависит от того, какое условие задано.
Сейчас поясню.
Предположим число А равно 5, а число В равно 12.
Посмотрим такой вариант псевдокода:
Если А больше В тогда
Вывести «А больше В»
Вывести «В больше А»
Программа, будь она неладна написана на настоящем языке программирования определила, что 5 меньше 12, значит первое условие не является истиной, и вывела бы «В больше А». Почему бы теперь на посмотреть это на примере реальной программы?
Источник: dzen.ru
Условный оператор в Паскале кратко
Для реализации разветвляющихся алгоритмов в языке программирования Паскаль используется условный оператор IF..THEN..ELSE. Кратко об условном операторе в Паскале с примерами его использования написано в данной статье.
Условный оператор в Паскале
Присутствующее в алгоритмах ветвление программно реализуется через условный оператор.
В языке Паскаль условный оператор задается набором ключевых слов IF..THEN..ELSE.
В переводе на русский язык это звучит как ЕСЛИ..ТО..ИНАЧЕ.
Полное ветвление
Формат записи условного оператора:
Такая форма условного оператора предназначена для реализации разветвляющегося алгоритма с полным ветвлением.
Рис. 1. Фрагмент блок-схемы алгоритма с полным ветвлением.
Например, требуется определить, положительное или отрицательное число введено с клавиатуры. Число следует сравнить с нулем. Если оно больше нуля, то выводится на экран сообщение – число положительное, если меньше нуля, то оно отрицательное. Выражение для условия будет выглядеть так: x>0.
Программный код для такой задачи с использованием условного оператора можно записать следующим образом:
Writeln(’Введите целое число: ’);
If x > 0 then writeln (‘Число положительное’) else writeln (‘Число отрицательное’);
Как известно, в конце каждой строки программы, написанной на языке Паскаль, всегда ставится точка с запятой. Условный оператор не исключение, после него также ставится «;». Нельзя ставить разделитель «;» между словами IF .. THEN.. ELSE. Но если возникает ситуация, когда необходимо выполнить несколько действий по результатам условия, то они заключаются в операторные скобки Begin .. End и отделяются друг от друга точкой с запятой.
Неполное ветвление
Если по результатам условия требуется выполнить только одно действие, то используется неполный оператор IF..THEN.
Формат записи условного оператора с неполным ветвлением:
Рис. 2. Фрагмент блок-схемы алгоритма с неполным ветвлением.
В рассмотренном примере строка программы с условным оператором при неполном ветвлении будет выглядеть так:
If x > 0 then writeln (‘Число положительное’);
Вложенные условия
В некоторых задачах требуется проверить подряд несколько условий, то есть в случае выполнения первого условия перейти к проверке второго. Такая ситуация в программе реализуется через вложенные условия. Формат записи будет выглядеть так:
В данной схеме ДЕЙСТВИЕ 3 относится к УСЛОВИЮ 1.
Рис. 3. Фрагмент блок-схемы алгоритма с вложенным условием.
При использовании варианта с вложенными условиями следует помнить, что ELSE связан с ближайшим предшествующим IF, у которого еще нет парного ELSE.
Что мы узнали?
Для реализации разветвляющегося алгоритма используется условный оператор IF..THEN..ELSE. Если ветвление неполное, то используют неполный оператор IF..THEN.
Источник: sprint-olympic.ru