Главная | Обратная связь | Поможем написать вашу работу!

Вставка элемента в одномерный массив.

Обработка одномерных и двумерных массивов.

Цель: научиться описывать, заполнять, выводить и обрабатывать одномерные и двумерные массивы. продолжить освоение работы в системе программирования Borland Delphi.

Теоретические сведения:

Массив – группа элементов одного типа, объединенных под общим именем.

Описание массивов: Массивы описываются в разделе описания переменных Var.

Общий вид описания одномерного массива:

<имя массива>: array [<начальный индекс>..<конечный индекс>] of <тип элемента>;

где

• имя - имя переменной-массива;

• array - ключевое слово, обозначающее, что переменная является массивом;

• нижний_индекс и верхний_индекс - целые числа, определяющие диапазон изменения индексов (номеров) элементов массива и, неявно, количество элементов (размер) массива;

• тип - тип элементов массива.

Общий вид описания двумерного массива:

<имя массива>:array[<m₁>..<m₂>,<n₁>..<n₂>] of <тип>;

где

• Имя - имя массива;

• array - слово языка Pascal, показывающее, что описываемый элемент данных - массив;

• m₁, m₂, n₁, n₂ - константы или выражения типа INTEGER, определяющие диапазон изменения индексов и, следовательно, число элементов массива;

• Тип - тип элементов массива.

Заполнение массива

Под вводом массива понимается ввод значений элементов массива. Ввод удобно реализовать при помощи инструкции FOR. Чтобы пользователь программы знал, ввода какого элемента массива ожидает программа, следует организовать вывод подсказок перед вводом очередного элемента массива. В подсказке обычно указывают индекс элемента массива.

Заполнение массива можно производить:

• с клавиатуры: For i:=1 to n do a[i]:=strtofloat(memo1.lines[i-1]);

• через датчик случайных чисел: Randomize; For i:=1 to n do a[i]:=random(i);

Если требуется, чтобы значения элементов массива выбирались из определенного интервала [a,b], то a+Random(b-a+1);

• через оператор присваивания (по формуле): For i:=1 to n do а[i]:=i*3;

Вывод массива

Если в программе необходимо вывести значения всех элементов массива, то для этого удобно использовать инструкцию FOR, переменная-счётчик которой может быть реализована как индекс элемента массива.

For i:=1 to n do memo1.lines.add(FloatToStr(a[i]));

Удаление элементов из одномерного массива.

Для того, чтобы удалить из массива k-ый элемент нужно: найти номер элемента k; сдвинуть все элементы, начиная с k-го, на один элемент влево; последнему элементу присвоить значение 0; уменьшить количество элементов массива на единицу.

Вставка элемента в одномерный массив.

Вставлять элемент можно до или после данного элемента, номер этого элемента можно вводить с клавиатуры или искать при определенных условиях.

Пусть k - это номер элемента, после которого мы должны вставить элемент х. Тогда вставка осуществляется следующим образом: первые k элементов массива остаются без изменения, все элементы, начиная с (k+1)-го, необходимо сдвинуть на один назад, на место (k+1)-го элемента записываем значение х; увеличить количество элементов в массиве на единицу.

При решении задач с использованием двумерных массивов организуются вложенные циклы:

For i:=1 to m do begin изменяется номер строки

For j:=1 to n do begin изменяется номер столбца

Запись элемента массива: а[i, j]

Главная диагональ i = j

Побочная диагональ i + j = n+1

а₁₁	а₁₂	а₁₃	а₁₄
а₂₁	а₂₂	а₂₃	а₂₄
а₃₁	а₃₂	а₃₃	а₃₄
а₄₁	а₄₂	а₄₃	а₄₄

а₁₁	а₁₂	а₁₃	а₁₄
а₂₁	а₂₂	а₂₃	а₂₄
а₃₁	а₃₂	а₃₃	а₃₄
а₄₁	а₄₂	а₄₃	а₄₄

Над главной диагональю i < j

Под главной диагональю i > j

Над побочной диагональю i+ j < n+1

Под главной диагональю i+ j > n+1

а₁₂	а₁₃	а₁₄
	а₂₃	а₂₄
		а₃₄


а₂₁
а₃₁	а₃₂
а₄₁	а₄₂	а₄₃

а₁₁	а₁₂	а₁₃
а₂₁	а₂₂
а₃₁


		а₂₄
	а₃₃	а₃₄
а₄₂	а₄₃	а₄₄

Порядок выполнения работы:

1. Включите компьютер. В своей папке создайте ещё одну папку «Лабораторная работа №7». Запустите среду программирования Borland Delphi с рабочего стола. Сохраните весь проект в этой папке.

2. Переименуйте название формы из Form1 в Главное меню. С помощью этой формы можно будет переходить на другие формы, разместите на ней все необходимые вам компоненты.

3. Для каждой задачи создавайте новую форму. Внешний вид и компоненты форм выберите на свой вкус.

Задача 1: Ввести одномерный массив, состоящий из 10 элементов. Заменить отрицательные элементы на противоположные по знаку. Вывести полученный массив на экран.

Задача 2. Ввести одномерный массив, состоящий из n элементов. Найти и вывести на экран номера четных элементов.

Задача 3. Ввести одномерный массив, состоящий из т элементов. Найти количество положительных и отрицательных элементов в данном массиве.

Задача 4. Ввести одномерный массив, состоящий из п элементов. Удалите из массива третий элемент.

Задача 5. Ввести одномерный массив, состоящий из п элементов. Вставьте в массив число 100 после пятого элемента.

Задача 6. Ввести двумерный массив (таблицу), состоящий из n*m элементов. Найдите сумму всех элементов массива.

Задача 7. Заполните двумерный массив размером N*N следующим образом:

0 1 1 1 1 0

2 0 1 1 0 4

2 2 0 0 4 4

2 0 3 3 0 4

0 3 3 3 3 0.

4. Проверьте работоспособность приложения. Сохраните проект.

Отчет по работе:

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

Контрольные вопросы:

Перечислите все используемые в работе (с расшифровкой): объекты (компоненты); свойства объектов; события объектов; методы; операторы и функции.