6) Укажите на плоскости XY область, где истинными являются следующие логические выражения:

(abs(x – y) < 1) and (abs(x) + abs(y) > 1) (abs(x – y) < 1) and (abs(x) + abs(y) > 1) (abs(x) < 1) or (abs(y) < 1)

x2 + y2 > (x + y)2

7) Пусть A и B логические выражения, принимающие значения true или false. Какие из приведенных пар составных логических выражений эквивалентны, то есть при любых значениях A и B значения выражений слева и справа совпадают?

Указание: формально проверить эквивалентность двух логических выражений можно, составив для них таблицы истинности.

8) Зарплата выдается 5-го числа каждого месяца. Составьте логическое выражение, которое истинно, если на k-е число m-го месяца зарплата уже была выдана 10 раз с начала года.

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

Условный оператор позволяет проверить некоторое условие и в зависимости от результатов проверки выполнить то или иное действие.

Например, создавая программу для решения квадратных уравнений (см. задачу 1.3) вы сталкивались с возможностью того, что при заданных пользователем коэффициентах дискриминант будет отрицательный. Чтобы программа могла правильно работать в любом случае, вычисление корней следует производить только при неотрицательности дискриминанта.

Условный оператор имеет следующую структуру:

if <условие – любое логическое выражение> then begin

<Операторы 1> end else

begin

<Операторы 2> end;

21

if, then, else – зарезервированные слова (если, то, иначе).

Если условие имеет значение true, то выполняется 1-я группа операторов, иначе вторая группа. Если при выполнении (или не выполнении) условия требуется выполнить всего один оператор, то слова begin и end можно опустить.

Пример: Программа, выбирающая меньшее число из двух веденных.

var

x, y: integer; begin

readln(x, y); if x<y then writeln(x)

else writeln(y);

end.

В примере видим как раз случай, когда слов begin и end нет. Иногда рекомендуют не думать о количестве операторов, а ставить begin и end всегда. Это позволит избежать частых ошибок из-за их отсутствия.

Обратите внимание на следующую особенность: перед словом else не ставится точка с запятой. Так в примере нет точки с запятой после оператора writeln(x).

Есть известный программистский анекдот: программист ставит на ночь перед кроватью два стакана: один с водой (если проснется и захочет пить) и один пустой (если проснется, но пить не захочет). Чтобы избежать подобного абсурда существует укороченная форма условного оператора:

if <условие> then begin

<операторы> end;

При выполнении условия <условие> выполнятся операторы <операторы>. Если же условие не выполняется, данный оператор не сделает ничего.

2.6. Оформление текста программ

Как известно, людям свойственно ошибаться. Особенно это верно в отношении программистов. По некоторым оценкам ядро системы Linux содержит порядка 15000 пока еще не исправленных ошибок. Практически любой написанный вами текст программы будет содержать ошибки и значительная часть времени будет уходить на их поиск и исправление.

Отсюда вытекает преставление о стиле программирования. Существуют определенные правила написания программ, соблюдение которых позволяет уменьшить вероятность появления ошибок. Программы (особенно такие простые, как вам придется писать на начальном этапе) могут правильно работать и при нарушении этих правил, однако все же следует их соблюдать. Дополнительное

22

время и усилия, которые будут на это потрачены, многократно окупятся впоследствии.

Простейшее, но при этом очень важное стилистическое правило описывает то, как надо располагать текст программы. Существует несколько вариантов соглашений о правильном расположении текста. В данном пособии мы будем следовать Object Pascal Style Guide (см. http://edn.embarcadero.com/article/10280) – стандарту, выработанному разработчиками языка Delphi. Итак, следует действовать следующим образом:

1) Слово var пишется на отдельной строчке. Следующие за ним описания переменных начинаются с новой строки. При этом у всех описаний делается отступ слева в два пробела. Переменные разных типов описываются на разных строках.

Правильно:

2)В полиграфии существует такое понятие как типографика. Это набор правил, описывающий как должен располагаться на страницах книги текст, чтобы быть удобочитаемым. Одно из простых правил говорит, что после знаков препинания всегда ставится пробел. Не следует пренебрегать этим правилом и при написании программ. Пробел всегда следует ставить после запятых и двоеточий (как в вышеприведенном примере).

3)Слова begin и end, ограничивающие раздел операторов пишутся без отступа. Весь же текст программы между ними снова пишется с отступом в два пробела.

4)На одной строке должен располагаться только один оператор. Так, хотя допустимо писать, например:

begin

x:=1; y:=2; z:=3; writeln(x, y, z); end.

следует все же писать:

begin x:=1; y:=2; z:=3;

writeln(x, y, z); end.

5) Условный оператор записывается следующим образом:

begin

...

23

{Первая строка с отступом в два пробела} if <условие> then

begin {слово begin с тем же отступом, что и слово if} <Операторы 1> {Отступ на два пробела больше, чем у if и begin}

{end обязательно с тем же отступом, что и соответствующий begin} end else

begin

<Операторы 2> {Отступ на два пробела больше, чем у if и begin} end;

…

end.

Пример правильного оформления:

var

x, y: real; begin

readln(x, y); if x > y then begin

writeln('Max(x, y) = ', x); end else

begin

writeln('Max(x, y) = ', y); end;

readln; end.

Пример НЕправильного оформления:

{Переменные на той же строке, что и var} var x, y: real;

begin readln(x, y);

{Оператор на той же строке, что и if} if x > y then writeln('Max(x, y) = ', x) else

{begin с отступом относительно if} begin

writeln('Max(x, y) = ', y); end;

{readln без отступа} readln;

end.

Данная «неправильная» программа будет работать совершенно также, как и приведенная выше «правильная», однако использовать надо именно правильный вариант.

24