Иллюстрация if и case

 

В качестве примера, иллюстрирующего использование операторов ветвления, приведем несколько различных реализаций функции sgn(x) - знак числа х. Из математики известно, что эта функция имеет следующие значения:

 

sgn(x) = -1, если x < 0;

sgn(x) = 0, если x = 0;

sgn(x) = 1, если x > 0.

 

Реализовать эту функцию для случая, когда х вещественное, можно следующими способами (при условии, что x:real; sgn: -1..1;):

 

1.

if x=0 then sgn:= 0;

if x<0 then sgn:= -1;

if x>0 then sgn:= 1;

 

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

 

2.

if x=0

then sgn:= 0

else if x<0 then sgn:= -1

else sgn:= 1;

 

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

 

3.

if x=0

then sgn:=0

else sgn:=x/abs(x);

 

Еще одна попытка сократить текст программы. Здесь используется стандартная функция abs(), которая возвращает абсолютное значение аргумента. Проблема в данном случае состоит в том, что "/" - деление дробное, но ведь нам необходим целый, а не вещественный ответ! "Давайте воспользуемся стандартной функцией округления", - скорее всего, скажет внимательный читатель.

 

4.

if x=0

then sgn:=0

else sgn:=round(x/abs(x));

 

И действительно, исправленный вариант будет выдавать верный результат.

 

5.

case x=0 of

true: sgn:=0;

false:

sgn:=round(x/abs(x));

end;

 

А вот еще один (правда, несколько неестественный) способ с использованием оператора выбора. Вся хитрость этого варианта в том, что выбирающий ветви переключатель обязан принадлежать к перечислимому типу, именно поэтому пришлось заменить "х" на "х = 0". Напомним, что эта операция сравнения выдает результат логического типа boolean, и именно логические константы true и false фигурируют в качестве меток выбора.

 

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

 

Массивы

 

Теперь мы приступаем к изучению массива - наиболее широко используемого структурированного типа данных, предназначенного для хранения нескольких однотипных элементов.