Добрый день, сегодня Мы с Вами освоим один из ключевых операторов любой программы. Оператор условия: IF ... THEN ... ELSE.
Для понимания алгоритма работы с условиями, почитайте эту публикацию. Там все подробно описано на уровне блок-схем.
Что это значит, и как это можно использовать, рассматриваем на примере:
IF - это ключевой оператор условия, дословно переводится как "если",
THEN - вторая часть, которая будет исполняться в случае выполнения условия, означает "то".
ELSE - необязательная часть, но являющаяся альтернативой для первоначального условия, "иначе".
Как это будет в программном коде.
Если масса пассажиров меньше 400 килограмм, то лифт поедет, иначе лифт останется стоять. Это просто пример выражения, как это будет программно выглядеть:
If m<400 { условие, что масса пассажиров < 400 }
then liftgo:=true; { условие, выполняется, значит лифт может тронуться }
else liftgo:= false; { условие, не выполняется, значит лифт остановлен } .
Вроде все просто и понятно. но вторую часть else, можно исключить, но перед началом сравнивать, тогда переменной liftgo необходимо присвоить значение изначально false.
liftgo:= false; {установили, что лифт находится в состоянии "остановлен" }
If m<400 { условие, что масса пассажиров < 400 }
then liftgo:=true; { условие, выполняется, значит лифт может тронуться }
Как видим данный алгоритм будет работать по принципу, если мы не разрешили ему ехать, то значит он останется в состоянии остановлен.
Теперь напишем простую программу, результатом которой будет ключ liftgo сообщать нам, можно ехать лифту или он переполнен.
Program liftgotoup;
Var
liftgo:boolean; num,i :integer; mn,m: real;
begin
num:=0; m:=0;
writeln('Введите число пассажиров от 1 до 5'); readln(num);
for i :=1 to num do begin writeln('введите массу ',i,' пассажира'); read(mn); m:=mn+m; end;
writeln('общая пассажиров будет',m , 'килограмм');
if m < 400 then liftgo:=true else liftgo:= false;
if liftgo then writeln('масса пассажиров меньше предельной, лифт поедет') else writeln(' масса пассажиров больше предельной, лифт останется на месте ');
end.
Теперь обратите внимание на листинг программы, здесь отсутствуют комментарии и нарушена привычная структура, посмотрите, удобно разбираться в такой программе. Попробуйте самостоятельно изменить структуру, сделать подобную программу например с высотой дома, где мы вводим число этажей строительства и высоту этажа, это будут два параметра, максимально допустимая высота дома будет, например 50 метров. Обратите внимание также на строчку цикла for i :=1 to num do ...
мы её еще не проходили но уже используем.
Пробуйте, пишите в комментариях, чуть позднее будет подробное пояснение, если это необходимо.
Если Вам понравилась публикация, подписывайтесь на канал, за Ваши лайки чаще показывают Наши публикации.
Для поиска публикаций через поисковые системы, просто вводите слово Вивитроника.
Если есть вопросы или по желания, то пишите, через Обратную связь.