Основы программирования на языке Turbo Pascal. Беляева И.В. - 97 стр.

UptoLike

Составители:

Рубрика:

{18 } y:=tg; – где переменной Y присваивается возвращаемое из

функции значение тангенса.

Следующей строкой выполняется

{19 } Writeln( 'tg(', x:0:2, ')=', y:0:4);

И, наконец, в строке

{20 } end. – управление из программы возвращается операционной

системе – программа завершает свою работу.

Пример использования процедур и функций без параметров

Мы рассмотрели правила оформления и использования подпрограмм

(т.е. процедур и функций) без параметров. Теперь используем полученные

выше знания для решения следующей задачи.

Необходимо посчитать, сколько разных элементов хранится в массиве.

Пример: массив 1 4 3 2 4 3 1 3 5

разные элементы 1 4 3 2 5

всего их 5

Текст программы:

{Подсчитать, сколько разных элементов хранится в массиве.

Одномерный массив целых чисел. Количество элементов от 1 до 20.

В программе использовать процедуры и функции без параметров.

До минимума постараться сократить использование глобальных переменных.

}

Program SimpleFunctionExample;

Const

maxNumEl = 20; {Максимально возможное количество

элементов в массиве}

Type

IndexElement = 1 .. maxNumEl; {Индексы массива}

ArrayInteger = array[IndexElement] of integer; {Массив

целых чисел}