Pascal. Условные операторы.

В нашей жизни часто бывают ситуации, когда нам нужно сделать какой-то выбор. Допустим, «если завтра будет солнечно, то мы пойдем на пляж, иначе — пойдем в кино». Так же и в программировании очень часто встречается необходимость выбора.

Давайте узнаем, как записывается условие в Паскале. Это конструкция 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.

Объявляем переменную, которую будет вводить пользователь. Проверяем условие. Если число х = 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 кг). Вот эта программа. Объявляем 2 переменные рост и вес. Считываем входные данные. Далее в условии проверяем, если рост человека в пределах от 170 до 200, то также проверяем вес,иначе в обеих ветвях выводим, что нам человек не подходит.

program FourthUslovie;
var rost, ves: real;
begin 
write('Введите свой рост в см '); 
readln(rost); 
write('Введите свой вес в кг '); 
readln(ves);
if (rost >= 170) and (rost <= 200) then   
   if (ves > 70) and (ves < 100) then write('Вы подходите')  
   else write('Вы  не подходите') 
else write('Вы  не подходите');
end.

В качестве домашнего задания напишите программу, которая поможет покупателю определить, стоит ли ему покупать данный товар, пользователь вводит цену и вы должны вывести, что ему стоит покупать товар, если его цена от 20 до 40, иначе вывести, что ему не стоит покупать данный товар, а так же можете доработать программу о четности и положительности введенного числа, разграничьте вывод. Итак, на этом мы заканчиваем эту статью, успехов Вам в изучении программирования!

Рейтинг
( Пока оценок нет )
Загрузка ...