Часть II

1. type ref = ^real;

vector = array[1..10] of ref;

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

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

3. Описать функция sum(x) для нахождения суммы всех чисел, на которые ссылаются элементы вектора x

4. Описать функцию average(x), значением которой является среднее арифметическое всех чисел, на которые ссылаются элементы вектора x

5. Описать функцию neg1(x), значением которой является первый из элементов вектора x, ссылающихся на отрицательные числа, или nil, если таких элементов нет

6. Описать функцию zero1(x), значением которой является первый из элементов вектора x, ссылающихся на число 0, или nil, если таких элементов нет

7. Описать логическую функцию ifzero(x), которая проверяет, есть ли в векторе x хотя бы одна ссылка на число 0

8. Описать логическую функцию ifodd1(x), которая проверяет, есть ли в векторе x хотя бы одна ссылка на нечетное число

9. Описать логическую функцию ifodd(x), которая проверяет, все ли числа, на которые ссылаются элементы вектора x, нечетные

10. Описать логическую функцию same(x), которая проверяет, есть ли в векторе x хотя бы две одинаковые ссылки

11. Описать процедуру unique(x), которая в векторе x все элементы, ссылающиеся на равные числа, заменяет на первый из этих элементов

12. Описать процедуру unique0(x), которая в векторе x все элементы, ссылающиеся на равные числа, заменяет на 0

13. Описать логическую функцию ifsort(x), которая проверяет, все ли числа, на которые ссылаются элементы вектора x расположены в порядке возрастания

14. Описать логическую функцию ifsort1(x), которая проверяет, все ли числа, на которые ссылаются элементы вектора x расположены в порядке убывания

1. type Link = ^Node;

Node = record

X : integer;

Next: Link;

end;

var L: Link;

Найти среднее арифметическое элементов непустого списка L.

Подписано в печать __.__.2011. Формат 60х90 1/16. Усл. печ. л. 2.

Тираж ___ экз. Заказ № ___.

Издательство федерального государственного бюджетного образовательного учреждения высшего профессионального образования

«Тюменский государственный нефтегазовый университет».

625000, Тюмень, ул. Володарского, 38.

Отдел оперативной полиграфии издательства.

6 25039, Тюмень, ул. Киевская, 52

33