Учебный курс Программирование на Delphi. Модуль 9

Работа с одномерными массивами

Массивом называется упорядоченная последовательность однотипных объектов, обозначаемая одним именем. Чтобы выделить один из объектов (элемент) массива, надо указать имя массива и номер элемента в нем. Номер элемента называется индексом, индекс указывается в квадратных скобах и может быть числом, переменной, выражением. Имя массива образуется по правилам образования имен переменных.

Например, А [10], B [I, J], SUM [1, J+5].

Если для выделения элемента нужен один индекс, массив называется одномерным, два – двумерным и т.д. Число элементов массива называется длиной или размером массива. Одномерный массив называется вектором.

Для описания массивов используется служебное слово array. Массив в Delphi можно описывать двумя способами:

а) в разделе описания переменных var: var <имя переменной>: array [тип индекса] of <тип компоненты>;

б) определить сначала тип, а затем описать массив этим типом

type  <имя типа>= array [тип индекса] of <тип компоненты>;
 

var <имя переменной>: <имя типа>;

где <тип индекса> - порядковый тип; <тип компоненты> - любой тип.

Пример 1.

• Условие

• Использованные компоненты

• Программный код

• Форма с результатом работы программы

Пример 2.

• Условие

• Использованные компоненты

• Программный код

• Форма с результатом работы программы

Задание

Таблица №11
Номер варианта	Условие
1	Даны два вектора целых чисел А и В. Вычислить вектор С, который содержит нечетные элементы вектора А, которых нет в векторе В
2	Расположить элементы вектора в обратном порядке. Дополнительный массив не использовать.
3	Найти среднее арифметическое элементов массива X(n), исключив из них максимальное и минимальное значение.
4	Вектор B(n) заменить вектором, у которого элементы образуются делением вектора В на их сумму.
5	Заменить все элементы вектора X(m), стоящие до максимального, нулями.
6	В массиве R(k) найти минимальный элемент среди положительных и максимальный среди отрицательных.
7	В массиве У(n) заменить все его элементы, стоящие после минимального, нулями.
8	Даны массив A(n) целого типа и целое число х. Произвести перестановку элементов массива так, чтобы в начале массива стояли элементы, значения которых меньше х, затем элементы, равные х, а следом элементы, значения которых больше х, в том порядке, в каком они стояли в массиве.
9	На плоскости на расстоянии s[1], s[2], ..., s[10] от центра кругового кольца с внутренним радиусом r и внешним R расположены точки. Определить количество точек, расположенных внутри кольца.
10	Дан вектор Х. Все его элементы не равные нулю, переписать (сохраняя их порядок) в начало массива, а нулевые элементы - в конец массива (новый массив не заводить).
7	Даны два вектора А и В. Сформировать вектор С, который содержит элементы, присутствующие в обоих массивах.
7	Имеется n окружностей с центром в начале координат и радиусами R[1], R[2], ..., R[n]. Определить номера окружностей между которыми находится точка с координатами (х, у).
7	В векторе X(n) поменять местами максимальный и последний элементы.
7	В векторе У(m) поменять местами максимальный и минимальный элементы.

Таблица 16

Литература

1. Архангельский. Программирование на Delphi 6. – М: БИНОМ, 2002
2. Бобровский С. Delphi 7. Учебный курс. – СПб: Питер, 2003
3. Культин Н. Основы программирования в Delphi 7. СПб: БХВ-Петербург, 2005.

Ссылки

Учебный курс Программирование на Delphi

Учебный план курса Программирование на Delphi