Тема 5. Указатели Пример выполнения задания

Задание: С помощью указателя на вектор из 10 элементов целого типа найти сумму нечетных значений элементов вектора.

Решение:

program Ukazatel_na_Vektor;

type

vektor = array[1..10] of byte; {Базовый тип}

var

u : ^vektor; {Указатель на вектор}

i : byte; summa : word;

begin

writeln('Введите через пробел 10 целых чисел от 0 до 255');

for i := 1 to 10 do read(u^[i]);

summa := 0;

for i := 1 to 10 do

if odd(u^[i]) then summa := summa + u^[i];

writeln('Сумма нечетных значений элементов вектора = ', summa)

end.

Варианты задания

1. Создать текстовый файл и вывести его с помощью указателя на файл.

2. С помощью указателя на тип-матрицу создать в ДРП массив 5х5 из элементов целого типа.

3. Создать связный список из 5 элементов с вещественными полями.

4. С помощью указателя на файл создать и вывести файл из 10 целых чисел.

5. Используя указатель на множество, установить, какие гласные буквы отсутствуют в предложении.

6. Отсортировать по убыванию вектор из 10 символов в ДРП.

7. Объединить два текстовых файла, используя указатель на файл.

8. Найти сумму максимальных элементов строк матрицы 5х4 в ДРП.

9. Найти минимальный из максимальных элементов столбцов матрицы 5х7 в ДРП.

10. Найти сумму элементов матрицы 7х7 целых чисел в ДРП.

11. Заполнить массив записей о двух фигурах: квадрат и круг - в ДРП.

12. Создать в ДРП структуру из 3 населенных пунктов и дорог между ними. Найти самую протяженную дорогу.

13. Создать кольцевой список из 5 элементов и вывести его на экран.

14. Найти наибольший элемент связного списка из 7 компонент.

15. Заменить наименьший элемент списка из 5 элементов на 100.

16. Подсчитать число одинаковых элементов на соответствующих позициях в двух строках, используя для этого указатели на строки.

17. В список из 3 книг в ДРП вставить еще одну.

18. В списке из 5 записей (ФИО, стаж) подсчитать число ветеранов (стаж > 15).

19. Используя указатель на строку, переписать строку в ДРП наоборот.

20. С помощью указателя на матрицу транспонировать матрицу 5х5 в ДРП.

21. Используя указатель на множество, вывести цифры, имеющиеся в строке.

22. Используя указатель на вектор из 5 целых чисел, создать в ДРП матрицу 4х5.

23. С помощью указателя на вектор транспонировать матрицу целых чисел 4х3.

24. Создать файл из 5 записей (ФИО, должность) с помощью указателя на файл, изменить должность Иванова И.И.

25. Исключить из связного списка из 5 человек клиента по его фамилии.