Занятие № 5. Ветвление с простым условием.
До сих пор мы разбирали только линейные алгоритмы (действия выполняются друг за другом), однако, очень часто возникают ситуации, когда требуется выполнить одно, либо другое действие в зависимости от выполнения (либо не выполнения) условия.
Например, фраза «Если на улице хорошая погода, то я куплю мороженное, иначе я куплю пирожок» представляет собой ни что иное, как условный выбор. Полный условный выбор состоит из трёх частей: условия (в нашей фразе «хорошая погода), которое может либо выполняться, либо нет; действия, выполняющегося в случае выполнения условия («куплю мороженое»); действия, выполняющегося в случае не выполнения условия («куплю пирожок»).
С условным выбором удобно познакомиться с помощью блок-схемы – графического представления структуры:
Полный условный выбор |
Сокращённый условный выбор |
|
|
В языке Pascal существует специальный составной оператор (состоит из нескольких служебных слов) реализующий оба вида условного выбора: |
|
if <условие> then <оператор 1> else <оператор 2>;
|
if <условие> then <оператор>; |
Условие представляет собой логическое выражение. Существует два вида условий: простое и составное (разберём позже).
Простое условие – это выражение, устанавливающее однозначное соответствие между двумя его частями:
<выражение 1><знак соотношения><выражение 2>
Знаки соотношения:
> - больше
< - меньше
= - равно
>= - больше, либо равно
<= - меньше, либо равно
<> - неравно.
В случае если требуется выполнить несколько операторов в условном выборе, то они обрамляются операторными скобками:
begin
<совокупность операторов>
end;
Если операторная скобка закрывается (end) перед ветвью иначе (else) точка с запятой не ставится, т.к. фраза ещё не закончена.
Так же ничто не мешает создавать конструкции с большим количеством ветвлений помещая оператор условного выбора в условный выбор.
Пример. Составить программу, определения количества корней квадратного уравнения:
Program SquareRoot;
uses crt;
var a,b,c,d:real;
BEGIN
ClrScr;
Write(‘Введите коэффициент a:’); ReadLn(a);
Write(‘Введите коэффициент b:’); ReadLn(b);
Write(‘Введите коэффициент c:’); ReadLn(c);
D:=b*b-4*a*c;
If d<0 then WriteLn(‘Корней нет.’);
If d=0 then WriteLn(‘Один корень.’);
If d>0 then WriteLn(‘Два корня.’);
ReadKey;
END.
Контрольные вопросы:
Что такое условный выбор?
Из каких частей состоит условный выбор?
Какие бывают условия?
Что такое простое условие?
Какие знаки отношений вы знаете?
Что делать, если в одной из ветвей условного выбора более одного оператора?
Что такое операторные скобки?
Задания:
1. Составить программу, определяющую по введенным с клавиатуры координатам, попадет точка в указанную окружность или нет (радиус окружности равен 50).
2. Услуги телефонной компании оплачиваются по следующему правилу: за разговоры до A минут в месяц оплачиваются B руб., а разговоры сверх установленной нормы оплачиваются из расчета C руб. за минуту. Написать программу, вычисляющую плату за пользование телефоном для введенного времени разговора за месяц (тарифы B и C также вводятся).
3. Даны две точки, определить, которая из них находится ближе к началу системы координат.
4. По известным коэффициентам A, B и C квадратного уравнения определить его корни.